求高手帮我解析或改装这个脚本

sounetvip21

你的腳本有點麻煩,不過我看到一遍文章"ROS自动关闭PPPOE账号",在我的日誌裏有轉發,你可參考一下,或許能給你幫助,呵呵,如果你的腳本修改成功發個貼,讓我學習學習

tianruizzx

现在正在使用这个脚本当到期自动停止PPPOE账号，即comment设置一个值比如为110323脚本运行后就会自动扫描PPP账号的comment，如发现过期的用户即关闭PPP账号，然后踢出服务器。
因为这些函数我都不懂，我想改装一下，将他改为：脚本运行后自动扫描PPP账号的comment，发现过期用户修改PPP账号中的profile，而不是关闭账。
不知道我说的能不能听懂，能听懂的话麻烦高手帮我改一下，非常感谢，如此脚本修改成功，小弟必定在论坛发一个超级精华帖。
:global aabb {{"jan";"01"};{"feb";"02"};{"mar";"03"};{"apr";"04"};{"may";"05"};{"jun.";"06"};{"jul";"07"};{"aug";"08"};{"sep";"09"};{"oct";"10"};{"nov";"11"};{"dec";"12"}};
:global aa [:pick [/system clock get date] 0 3];
:global bb [:pick [/system clock get date] 4 6];
:global cc [:pick [/system clock get date] 9 11];
:foreach i in=$aabb do={ :if ([:pick $i 0] = $aa) do={ :set aabb ($cc . [:pick $i 1] . $bb); }}
/ppp secret;
:foreach pppuse in [find disabled=no comment!=""] do={
:local pcom [get $pppuse comment];
:local pnam [get $pppuse name];
:set pcom [:pick $pcom 0 6];
:if ([:len $pcom] < 6) do={ :log error ("error PPP comment user " . $pnam);:beep frequency=2080; } else={
:if ($aabb>=$pcom) do={
/ppp active remove [/ppp active find name=$pnam];
/ppp secret disable [/ppp secret find name=$pnam];
:log error ("Stop PPP user " . $pnam);
}}}