请教个自动到期的问题，ROS3.3

qq3475534

1. :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"}};
   
2. :global aa [:pick [/system clock get date] 0 3];
   
3. :global bb [:pick [/system clock get date] 4 6];
   
4. :global cc [:pick [/system clock get date] 7 11];
   
5. :foreach i in=$aabb do={ :if ([:pick $i 0] = $aa) do={ :set aabb ($cc . [:pick $i 1] . $bb); }}
   
6. /ppp secret;
   
7. :foreach p in [find disabled=no comment!=""] do={
   
8. :local pcom [get $p comment];
   
9. :local pnam [get $p name];
   
10. :if ([:len $pcom] != 8) do={ :set pcom 20010101; } else={
    
11. :set pcom [:pick $pcom 0 8];
    
12. :if ($aabb>=$pcom) do={
    
13. /ppp active remove [/ppp active find name=$pnam];
    
14. /ppp secret disable [/ppp secret find name=$pnam];
    
15. /ppp secret set [/ppp secret find name=$pnam] profile="dq";
    
16. :log error ("用户" . $pnam ."已过期");
    
17. }}}

复制代码

以上代码是8位日期的。。
我想改变下，比如备注是 二楼用户301{20110520}


就是前面字体我任意加，最后尾数是括起来的{8位日期格式}  


另外在论坛搜索了下，发现这段代码可以，但是不知道如何更改

1. [color=Red]#scheduler处理开始
   
2. /system scheduler
   
3. :foreach i in=[find comment!="" name!="ExpAuto"] do={
   
4. :set Ccomment [get $i comment];:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
   
5. :if ([:typeof $lc]="num" && [:typeof $rc]="num" && ($lc+1+$Week)<$rc) do={
   
6. :set Exp [:pick $Ccomment ($lc+1+$Week)]
   
7. :if ($Exp="e"||$Exp="E"||$Exp="1") do={:if ([get $i disabled ]) do={enable $i}}
   
8. :if ($Exp="d"||$Exp="D"||$Exp="0") do={:if (![get $i disabled ]) do={disable $i}}
   
9. }}[/color]

复制代码

qq3475534

懂的人麻烦了哈，

kyer2012

哪位高手告诉下！ 也不是很懂！

jiangyufu

你是真的小凯还是假的小凯，不懂脚本吗?

jiangyufu

都是通过备注来判断，重要的就是对备注的处理，常用的几个“函数” pick find len get等，把这几个弄熟了你就会了，哈哈

9939781

纯路过打酱油

jt00278

路过，看看……

zhanhm

去看看

yjcsw

我想要，可是不知怎么用呀

小玉

我也想要，可是不知怎么用呀

风轻

打瓶酱油回去