关于“lsdeng ”的“谁能帮我写个ROS充值脚本支持3.30以上的？”这样应该就可以解决
本帖最后由 lzw83 于 2011-11-11 10:23 编辑关于“lsdeng ”的“谁能帮我写个ROS充值脚本支持3.30以上的？”
http://bbs.routerclub.com/forum.php?mod=viewthread&tid=48701&extra=&page=1
比起铜板，我理喜欢版主们给我加点积分。挣积分太难了，灌水还得小心被扣。老大们给点分吧
代码如下，在原来代码的PPP处理开始后面加。其实不放在第一个循环里应该也是可以的，还能减少运行时间。这里是判断2位数，所以最多也就99天，改改变量参数就可以100天，365天了。如有不足和错误请各位老大指点，虚心受教
粗心大意，取变量值是忘了用$，还有日期也没处理好，现在已经重新修改好了
#PPP处理开始
/ppp secret
:foreach i in= do={
#找出含有“use”的已拨帐号，并根据其后面2位数判断出此帐号到期时间，并修改帐号名称。如：当前日期为“20111109”，帐号为
“use30test333”,首次拨号成功后，帐号被改为“test333”，备注为“test333到期”
:foreach ii in= do={
:global zh
:global zhL [:len $zh]
:global nzh [:pick $zh 5 $zhL]
:log warning ("帐号：" . $zh .",初次登陆激活并更改帐号为：" . $nzh)
/ppp secret set name=$nzh \
comment=($nzh . "[" . ($Year+1) . ($Month+1) . ($Day+1) . "+" . [:pick $zh 3 5] . "]到期")
}
:set Ccomment ;:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"] 在此非常感谢lzw83！
您是在ros那个版本测试呀? 我在ros4.17没有测试成功！ 帮顶。谢谢分享。 lsdeng 发表于 2011-11-10 21:43 static/image/common/back.gif
在此非常感谢lzw83！
您是在ros那个版本测试呀? 我在ros4.17没有测试成功！
3.30的，你改改就可以了，估计是语法问题吧 呵呵，似乎 3.30 以上都差不多！谢了！ 学习了。:lol:lol lsdeng 发表于 2011-11-10 21:43 static/image/common/back.gif
在此非常感谢lzw83！
您是在ros那个版本测试呀? 我在ros4.17没有测试成功！
已经修改好了，而且在5.7里测试过也成功（只是在你给的代码基础上测试了我写的那一段代码） 谢谢了！我也修改ok了 在用还没有发现很大问题。就是ExpAuto 脚本太耗CPU我正在简化 lsdeng 发表于 2011-11-13 00:04 static/image/common/back.gif
谢谢了！我也修改ok了 在用还没有发现很大问题。就是ExpAuto 脚本太耗CPU我正在简化
扯蛋。。。 47771885 发表于 2011-11-13 04:22 static/image/common/back.gif
扯蛋。。。
老大此话何解？
至于说一个脚本耗CPU，一般都是循环语句造成的，特别是死循环 lzw83 发表于 2011-11-13 09:01 static/image/common/back.gif
老大此话何解？
至于说一个脚本耗CPU，一般都是循环语句造成的，特别是死循环
他针对的是我。
虽然我不懂写脚本。慢看琢磨分析还勉强。:local Date ;:local Year ([:pick $Date 7 11]-1)
:local Month ([:find jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec [:pick $Date 0 3]])
:local Day [:pick $Date 4 6];:if ([:pick $Date 4 5] = 0) do={:set Day [:pick $Date 5 6]};:set Day ($Day-1)
:local leapyear 0,31,59,90,120,151,181,212,243,273,304,334,0,31,60,91,121,152,182,213,244,274,305,335
:global Today ($Year*365+$Year/4);:if (($Year-$Year/4*4) != 3) do={:set Today ($Today+[:pick $leapyear $Month]+$Day)} else={:set Today ($Today+[:pick $leapyear ($Month+12)]+$Day)}
:local usname;:local uspfl;:local Ccomment;:local lc;:local rc;:local Exp;:local js;:local pcl;:local CYear;:local CMonth;:local CDay;:local CToday
#PPP处理开始
/ppp sec
:foreach ii in= do={
:local zh
:local zhL [:len zh]
:local nzh [:pick $zh 5 [:len $zh]]
# :log warning ("帐号：" . zh .",初次登陆激活并更改帐号为：" . nzh)
set name=$nzh \
comment=($nzh . "[" . $Year+1 . $Month+1 . [:pick 4 6] . "+" . [:pick $zh 3 5] . "]到期")
}
#PPP处理结束
页:
[1]