ROS到期自动停机脚本5.X可用

:local tz
:local prof
:local tj
:set tz 0
:set prof 2day
:set tj 2
#tz为提前发送到其通知的天数
#tj为到期几天停机 0为本田
:local nyr [/system clock get date]
#年月日 dec/12/2012
:local yy ([:find jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec [:pick $nyr 0 3]]+1)
#查到当前月份
:if ($yy<10) do={:set yy (0 . $yy)}
#月份小于10的前面补0

:set nyr ([:pick $nyr 7 11] . $yy . [:pick $nyr 4 6])
#获得年份
:log warning ("当前年月日【" . $nyr . "】")
:local ii "0"
:local pcom8 ""
/ppp secret
#开始循环
:foreach puse in [find disable=no] do={
#查找没禁用的帐号
:local pcom [get $puse comment]
#备注
:set pcom8 [:pick $pcom ([:find $pcom "["]+1) [:find $pcom "]"]]
#处理备注
:local pnam [get $puse name]
#帐号