谁能帮我写个ROS充值脚本支持3.30以上的？
本帖最后由 lsdeng 于 2011-11-10 13:35 编辑群里的高手能否根据Mxso 的ExpAuto 脚本帮我改写成月账号脚本？也希望Mxso出手帮忙！谢谢！
实现功能：
1、月账号：当用户使用含有“use30”开头的账号拨号上网时，系统会自动将账号去除use30，并且备注上[日期]日期为下个月今天。例如：今天是Nov/08/2011 用户使用“use3012345678”拨号上网，脚本检测到后,将账号改写成“12345678”同时备注下个月的今天
8#楼 lzw83 朋友这个方法也挺好：#找出含有“use”的已拨帐号，并根据其后面2位数判断出此帐号到期时间，并修改帐号名称。如：当前日期为“20111109”，帐号为“use30test333”,首次拨号成功后，帐号被改为“test333”，备注为“test333到期”
2、后期还可以为季度账号、半年账号、年账号# 脚本名称: ExpAuto
# 脚本版本: 1.03
# 脚本作者: Mxso
# Email: mxsogm@gmail.com
# QQ/TM: 84046811
# 版本日期: 2011年1月3日
# 适用系统: (实例为 PPPoE到期 Web Proxy 错误页面通知,提前3天通知用户,到期停止用户,3.30测试通过,其他版本未测试)
# 脚本功能: 对PPP及Hotspot用户期限操作;此脚本的实例对用户状态(禁用/启用)进行设置及剔除到期在线用户,添加其他功能可参考下面例子
# 其他功能: 通过注释添加system scheduler星期制的禁用启用,注释格式:第一位是星期日,第二位是星期一,以此类推,E为启用,D为禁用
# 例:代表只有周六日启用该scheduler,这个刚好相反,只有星期一至五启用该scheduler;
# 注意:被设置状态(启用/禁用)的scheduler运行时间不能调整到刚好00:00:00,因为00:00:00刚好在执行此脚本,未能00:00:00就设置好状态
# 添加用户注释日期格式:
# 例1:"张三到期"(双引号里面为注释内容,[]里面为日期八位数字),
# 例2:"李四[+365]到期",[+365]指当前日期加365天,在下次调用脚本时注释将自动变为"李四[八位当前日期+365]到期",
# 假设当前日期为2010年4月4日立即调用脚本注释内容将变为"李四到期",也就是2010年4月4日的365天后到期
# 例3:支持累加运算,假设将近到期,用户续费可以在后面添加+X天,这里加180天
#获取公元至今日( $Today 变量为公元至今已过的天数)
: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
#利用公元天数计算今天是星期几,0代表星期日
:global Week ($Today-$Today/7*7)
#:log info ("今天是星期" . $Week)
#scheduler处理开始
/system scheduler
:foreach i in= do={
:set Ccomment ;:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
:if ([:typeof $lc]="num" && [:typeof $rc]="num" && ($lc+1+$Week)<$rc) do={
:set Exp [:pick $Ccomment ($lc+1+$Week)]
:if ($Exp="e"||$Exp="E"||$Exp="1") do={:if () do={enable $i}}
:if ($Exp="d"||$Exp="D"||$Exp="0") do={:if (!) do={disable $i}}
}}
#scheduler处理结束
#PPP处理开始
/ppp secret
:foreach i in= do={
:set Ccomment ;:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
:if ([:typeof $lc]="num" && [:typeof $rc]="num" && $lc<$rc) do={
:set Exp [:pick $Ccomment ($lc+1) $rc];:set js 0;:set CToday 0
:if ([:pick $Exp 0 1]!="+" && [:len $Exp]>7 && [:typeof [:tonum [:pick $Exp 0 8]]]="num") do={
:set usname ;:set uspfl ;:set CYear ([:pick $Exp 0 4]-1);:set CToday ($CYear*365+$CYear /4)
:set CMonth [:pick $Exp 4 6];:if ([:pick $Exp 4 5] = 0) do={ :set CMonth [:pick $Exp 5 6]};:set CMonth ($CMonth-1)
:set CDay [:pick $Exp 6 8];:if ([:pick $Exp 6 7] = 0) do={ :set CDay [:pick $Exp 7 8]};:set CDay ($CDay-1)
:if (($CYear-$CYear/4*4) != 3) do={:set CToday ($CToday+[:pick $leapyear $CMonth]+$CDay)} else={:set CToday ($CToday+[:pick $leapyear ($CMonth+12)])}}
:set pcl [:find $Exp "+"];:if ([:typeof $pcl]="num" && ($pcl>7 || $pcl=0) && ([:len $Exp]-1)>$pcl) do={
:if ($pcl = 0) do={:set CToday $Today;:set CYear ($Year+1);:set CMonth ($Month+1);:set CDay ($Day+1)
:if ([:len $CMonth]<2) do={:set CMonth ("0" . $CMonth)};:if ([:len $CDay]<2) do={:set CDay ("0" . $CDay)}
set $i comment=([:pick $Ccomment 0 $lc] . "[" .($CYear . $CMonth . $CDay) . [:pick $Exp $pcl [:len $Exp]] . "]" . [:pick $Ccomment ($rc+1) [:len $Ccomment]])}
:while ([:typeof [:find $Exp "+"]]="num") do={
:set Exp [:pick $Exp ($pcl+1) [:len $Exp]];:set pcl [:find $Exp "+"];:if ([:typeof $pcl]!="num") do={:set pcl [:len $Exp]}
:set js ($js+[:tonum [:pick $Exp 0 $pcl]])};:set CToday ($CToday+$js)}
#例子1:禁用并剔出到期PPP用户
:if ($CToday < $Today) do={:if (!) do={disable $i;/ppp active remove }} else={:if () do={enable $i}}
#例子2:提前3天踢出到期用户并给予设置到期规则
:if (($CToday-3) < $Today) do={:if (! && [:pick $uspfl 0 8]!="ExpAuto_") do={
:if ([:len [..profile find name="ExpAuto_" . $uspfl]]=0) do={..profile add name=("ExpAuto_" . $uspfl) copy-from=$uspfl address-list=ExpAuto_expired}
set $i profile=("ExpAuto_" . $uspfl);/ppp active remove }} else={:if ([:pick $uspfl 0 8]="ExpAuto_") do={
:if ([:len [..profile find name=[:pick $uspfl 8 [:len $uspfl]]]]=0) do={..profile add name=[:pick $uspfl 8 [:len $uspfl]] copy-from=$uspfl address-list=""}
set $i profile=[:pick $uspfl 8 [:len $uspfl]];:foreach acus in= do={:local tempipaddr
/ip firewall address-list remove ;/ip firewall address-list remove }}}
#根据需要可添加或替换对用户的操作例子,假设提前5天，则在条件:if (($CToday-5) < $Today) do={执行通知操作…}
#:if (($CToday-5) < $Today) do={执行通知操作…}
}}
#PPP处理结束
#Hotspot处理开始
/ip hotspot user
:foreach i in= do={
:set Ccomment ;:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
:if ([:typeof $lc]="num" && [:typeof $rc]="num" && $lc<$rc) do={
:set Exp [:pick $Ccomment ($lc+1) $rc];:set js 0;:set CToday 0
:if ([:pick $Exp 0 1]!="+" && [:len $Exp]>7 && [:typeof [:tonum [:pick $Exp 0 8]]]="num") do={
:set usname ;:set uspfl ;:set CYear ([:pick $Exp 0 4]-1);:set CToday ($CYear*365+$CYear /4)
:set CMonth [:pick $Exp 4 6];:if ([:pick $Exp 4 5] = 0) do={ :set CMonth [:pick $Exp 5 6]};:set CMonth ($CMonth-1)
:set CDay [:pick $Exp 6 8];:if ([:pick $Exp 6 7] = 0) do={ :set CDay [:pick $Exp 7 8]};:set CDay ($CDay-1)
:if (($CYear-$CYear/4*4) != 3) do={:set CToday ($CToday+[:pick $leapyear $CMonth]+$CDay)} else={:set CToday ($CToday+[:pick $leapyear ($CMonth+12)])}}
:set pcl [:find $Exp "+"];:if ([:typeof $pcl]="num" && ($pcl>7 || $pcl=0) && ([:len $Exp]-1)>$pcl) do={
:if ($pcl = 0) do={:set CToday $Today;:set CYear ($Year+1);:set CMonth ($Month+1);:set CDay ($Day+1)
:if ([:len $CMonth]<2) do={:set CMonth ("0" . $CMonth)};:if ([:len $CDay]<2) do={:set CDay ("0" . $CDay)}
set $i comment=([:pick $Ccomment 0 $lc] . "[" .($CYear . $CMonth . $CDay) . [:pick $Exp $pcl [:len $Exp]] . "]" . [:pick $Ccomment ($rc+1) [:len $Ccomment]])}
:while ([:typeof [:find $Exp "+"]]="num") do={
:set Exp [:pick $Exp ($pcl+1) [:len $Exp]];:set pcl [:find $Exp "+"];:if ([:typeof $pcl]!="num") do={:set pcl [:len $Exp]}
:set js ($js+[:tonum [:pick $Exp 0 $pcl]])};:set CToday ($CToday+$js)}
#例子1:设置Hotspot用户状态(禁用并剔除和启用)
:if ($CToday < $Today) do={:if (!) do={disable $i;/ip hotspot active remove }} else={:if () do={enable $i}}
#:if (($CToday-5) < $Today) do={执行的操作…}
}}
#Hotspot处理结束
补充内容 (2011-11-17 20:20):
问题已经得到解决，在此非常感谢大伙的热心支持！！
补充内容 (2011-11-17 20:21):
还问个问题，怎么关闭问题呀? 本帖最后由 lsdeng 于 2011-11-8 21:33 编辑
季度账号use90 半年账号use180年账号use360 这个功能真牛逼啊，不知道能否实现。哈哈 嗯，希望各界高手出手帮忙!感激不尽！ 没看懂楼主用意，只能飘过 能改，初步估计改动也不是很大 500RMB都改不了哈哈50个铜板哈哈 #找出含有“use”的已拨帐号，并根据其后面2位数判断出此帐号到期时间，并修改帐号名称。如：当前日期为“20111109”，帐号为“use30test333”,首次拨号成功后，帐号被改为“test333”，备注为“test333到期” 這50個銅板挺牛逼的！:funk: 呵呵好像以前有写。。。也好像昨天有人找我弄这个。。。无免费支持。。哥不是客服 看到之前也有人铜板要求解决问题，但我没见到过一个是已经付费的了:L 我想估计没人会为了这50个铜板而去解决这个问题。 9939781 发表于 2011-11-9 08:30 static/image/common/back.gif
我想估计没人会为了这50个铜板而去解决这个问题。
正解，如果是50积分我会考虑下。论坛现在想要积分太难了，想提高下权限都不知道要何年何月 还不如拿钱直接点，老大们都看不上这50铜板 给个500RMB还要考虑一下呢