40铜币求写一个 简单脚本，热点用户 备注格式201*-**-**，删除今天之前的用户

mier001

热点用户 备注格式201*-**-**，删除今天之前的用户

比如今天是2014-02-21 ，那把21号前的用户 都删除

mier001

？？有人帮忙写下不:):):)

9939781

40rmb都没人写的

huigezi'

1. :do {
   
2. :foreach i in=[/ppp secret find ] do={:local pcom [/ppp secret get $i comment]
   
3. :if ([:pick $pcom 0 4]<="2014") do={:if ([:pick $pcom 8 10]<"21") do={
   
4. /ppp secret remove $i
   
5. }}}
   
6. }

复制代码

40个铜板提交吧。。

mier001

huigezi' 发表于 2014-2-23 23:24
40个铜板提交吧。。

今天这个日子是会变的 ，是需要获取系统DATE的，然后对比备注，备注不是今天的才删除！不过感谢分享，论坛纯在有必要的，呵呵 共享一个脚本，只是最近时间不够，没空学习，所以来讨教！

1. # 脚本名称: ExpAuto
   
2. # 脚本版本: 1.03
   
3. # 脚本作者: Mxso
   
4. # Email: mxsogm@gmail.com
   
5. # QQ/TM: 84046811
   
6. # 版本日期: 2011年1月3日
   
7. # 适用系统: (实例为 PPPoE到期 Web Proxy 错误页面通知,提前3天通知用户,到期停止用户,3.30测试通过,其他版本未测试)
   
8. # 脚本功能: 对PPP及Hotspot用户期限操作;此脚本的实例对用户状态(禁用/启用)进行设置及剔除到期在线用户,添加其他功能可参考下面例子
   
9. # 其他功能: 通过注释添加system scheduler星期制的禁用启用,注释格式:[7位布尔值]第一位是星期日,第二位是星期一,以此类推,E为启用,D为禁用
   
10. # 例:[EDDDDDE]代表只有周六日启用该scheduler,[DEEEEED]这个刚好相反,只有星期一至五启用该scheduler;
    
11. # 注意:被设置状态(启用/禁用)的scheduler运行时间不能调整到刚好00:00:00,因为00:00:00刚好在执行此脚本,未能00:00:00就设置好状态
    
12. 
    
13. # 添加用户注释日期格式:
    
14. # 例1:"张三[20100608]到期"(双引号里面为注释内容,[]里面为日期八位数字),
    
15. # 例2:"李四[+365]到期",[+365]指当前日期加365天,在下次调用脚本时注释将自动变为"李四[八位当前日期+365]到期",
    
16. # 假设当前日期为2010年4月4日立即调用脚本注释内容将变为"李四[20100404+365]到期",也就是2010年4月4日的365天后到期
    
17. # 例3:支持累加运算,假设[20090501+365]将近到期,用户续费可以在后面添加+X天,[20090501+365+180]这里加180天
    
18. 
    
19. #获取公元至今日( $Today 变量为公元至今已过的天数)
    
20. :local Date [/system clock get date];:local Year ([:pick $Date 7 11]-1)
    
21. :local Month ([:find jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec [:pick $Date 0 3]])
    
22. :log info $Date
    
23. :log info $Year
    
24. :log info $Month
    
25. 
    
26. :local Day [:pick $Date 4 6];:if ([:pick $Date 4 5] = 0) do={:set Day [:pick $Date 5 6]};:set Day ($Day-1)
    
27. :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
    
28. :global Today ($Year*365+$Year/4);
    
29. :if (($Year-$Year/4*4) != 3) do={:set Today ($Today+[:pick $leapyear $Month]+$Day)} else={:set Today ($Today+[:pick $leapyear ($Month+12)]+$Day)}
    
30. 
    
31. :local usname;:local uspfl;:local Ccomment;:local lc;:local rc;:local Exp;:local js;:local pcl;:local CYear;:local CMonth;:local CDay;:local CToday
    
32. 
    
33. #利用公元天数计算今天是星期几,0代表星期日
    
34. :global Week ($Today-$Today/7*7)
    
35. #:log info ("今天是星期" . $Week)
    
36. 
    
37. #scheduler处理开始
    
38. /system scheduler
    
39. :foreach i in=[find comment!="" name!="ExpAuto"] do={
    
40. :set Ccomment [get $i comment];:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
    
41. :if ([:typeof $lc]="num" && [:typeof $rc]="num" && ($lc+1+$Week)<$rc) do={
    
42. :set Exp [:pick $Ccomment ($lc+1+$Week)]
    
43. :if ($Exp="e"||$Exp="E"||$Exp="1") do={:if ([get $i disabled ]) do={enable $i}}
    
44. :if ($Exp="d"||$Exp="D"||$Exp="0") do={:if (![get $i disabled ]) do={disable $i}}
    
45. }}
    
46. #scheduler处理结束
    
47. 
    
48. 
    
49. #PPP处理开始
    
50. /ppp secret
    
51. :foreach i in=[find comment!=""] do={
    
52. :set Ccomment [get $i comment];:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
    
53. :if ([:typeof $lc]="num" && [:typeof $rc]="num" && $lc<$rc) do={
    
54. :set Exp [:pick $Ccomment ($lc+1) $rc];:set js 0;:set CToday 0
    
55. 
    
56. :if ([:pick $Exp 0 1]!="+" && [:len $Exp]>7 && [:typeof [:tonum [:pick $Exp 0 8]]]="num") do={
    
57. :set usname [get $i name];:set uspfl [get $i profile];:set CYear ([:pick $Exp 0 4]-1);:set CToday ($CYear*365+$CYear /4)
    
58. :set CMonth [:pick $Exp 4 6];:if ([:pick $Exp 4 5] = 0) do={ :set CMonth [:pick $Exp 5 6]};:set CMonth ($CMonth-1)
    
59. 
    
60. :set CDay [:pick $Exp 6 8];:if ([:pick $Exp 6 7] = 0) do={ :set CDay [:pick $Exp 7 8]};:set CDay ($CDay-1)
    
61. 
    
62. :if (($CYear-$CYear/4*4) != 3) do={:set CToday ($CToday+[:pick $leapyear $CMonth]+$CDay)} else={:set CToday ($CToday+[:pick $leapyear ($CMonth+12)]+$CDay)}}
    
63. 
    
64. 
    
65. :set pcl [:find $Exp "+"];:if ([:typeof $pcl]="num" && ($pcl>7 || $pcl=0) && ([:len $Exp]-1)>$pcl) do={
    
66. :if ($pcl = 0) do={:set CToday $Today;:set CYear ($Year+1);:set CMonth ($Month+1);:set CDay ($Day+1)
    
67. :if ([:len $CMonth]<2) do={:set CMonth ("0" . $CMonth)};:if ([:len $CDay]<2) do={:set CDay ("0" . $CDay)}
    
68. set $i comment=([:pick $Ccomment 0 $lc] . "[" .($CYear . $CMonth . $CDay) . [:pick $Exp $pcl [:len $Exp]] . "]" . [:pick $Ccomment ($rc+1) [:len $Ccomment]])}
    
69. :while ([:typeof [:find $Exp "+"]]="num") do={
    
70. :set Exp [:pick $Exp ($pcl+1) [:len $Exp]];:set pcl [:find $Exp "+"];:if ([:typeof $pcl]!="num") do={:set pcl [:len $Exp]}
    
71. :set js ($js+[:tonum [:pick $Exp 0 $pcl]])};:set CToday ($CToday+$js)}
    
72. #例子1:禁用并剔出到期PPP用户
    
73. :if ($CToday < $Today) do={:if (![get $i disabled ]) do={disable $i;/ppp active remove [find name=$usname]}} else={:if ([get $i disabled ]) do={enable $i}}
    
74. #例子2:提前3天踢出到期用户并给予设置到期规则
    
75. :if (($CToday-3) < $Today) do={:if (![get $i disabled ] && [:pick $uspfl 0 8]!="ExpAuto_") do={
    
76. :if ([:len [..profile find name="ExpAuto_" . $uspfl]]=0) do={..profile add name=("ExpAuto_" . $uspfl) copy-from=$uspfl address-list=ExpAuto_expired}
    
77. set $i profile=("ExpAuto_" . $uspfl);/ppp active remove [find name=$usname]}} else={:if ([:pick $uspfl 0 8]="ExpAuto_") do={
    
78. :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=""}
    
79. set $i profile=[:pick $uspfl 8 [:len $uspfl]];:foreach acus in=[/ppp active find name=$usname] do={:local tempipaddr [/ppp active get $acus address]
    
80. /ip firewall address-list remove [find list=ExpAuto_expired address=$tempipaddr];/ip firewall address-list remove [find list=ExpAuto_allow address=$tempipaddr]}}}
    
81. #根据需要可添加或替换对用户的操作例子,假设提前5天，则在条件:if (($CToday-5) < $Today) do={执行通知操作…}
    
82. #:if (($CToday-5) < $Today) do={执行通知操作…}
    
83. 
    
84. }}
    
85. #PPP处理结束
    
86. :log info $CYear
    
87. :log info $CMonth
    
88. :log info $CDay
    
89. :log info $CToday
    
90. :log info $Today
    
91. 
    
92. 
    
93. #Hotspot处理开始
    
94. /ip hotspot user
    
95. :foreach i in=[find comment!=""] do={
    
96. :set Ccomment [get $i comment];:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
    
97. :if ([:typeof $lc]="num" && [:typeof $rc]="num" && $lc<$rc) do={
    
98. :set Exp [:pick $Ccomment ($lc+1) $rc];:set js 0;:set CToday 0
    
99. :if ([:pick $Exp 0 1]!="+" && [:len $Exp]>7 && [:typeof [:tonum [:pick $Exp 0 8]]]="num") do={
    
100. :set usname [get $i name];:set uspfl [get $i profile];:set CYear ([:pick $Exp 0 4]-1);:set CToday ($CYear*365+$CYear /4)
     
101. :set CMonth [:pick $Exp 4 6];:if ([:pick $Exp 4 5] = 0) do={ :set CMonth [:pick $Exp 5 6]};:set CMonth ($CMonth-1)
     
102. :set CDay [:pick $Exp 6 8];:if ([:pick $Exp 6 7] = 0) do={ :set CDay [:pick $Exp 7 8]};:set CDay ($CDay-1)
     
103. :if (($CYear-$CYear/4*4) != 3) do={:set CToday ($CToday+[:pick $leapyear $CMonth]+$CDay)} else={:set CToday ($CToday+[:pick $leapyear ($CMonth+12)])}}
     
104. :set pcl [:find $Exp "+"];:if ([:typeof $pcl]="num" && ($pcl>7 || $pcl=0) && ([:len $Exp]-1)>$pcl) do={
     
105. :if ($pcl = 0) do={:set CToday $Today;:set CYear ($Year+1);:set CMonth ($Month+1);:set CDay ($Day+1)
     
106. :if ([:len $CMonth]<2) do={:set CMonth ("0" . $CMonth)};:if ([:len $CDay]<2) do={:set CDay ("0" . $CDay)}
     
107. set $i comment=([:pick $Ccomment 0 $lc] . "[" .($CYear . $CMonth . $CDay) . [:pick $Exp $pcl [:len $Exp]] . "]" . [:pick $Ccomment ($rc+1) [:len $Ccomment]])}
     
108. :while ([:typeof [:find $Exp "+"]]="num") do={
     
109. :set Exp [:pick $Exp ($pcl+1) [:len $Exp]];:set pcl [:find $Exp "+"];:if ([:typeof $pcl]!="num") do={:set pcl [:len $Exp]}
     
110. :set js ($js+[:tonum [:pick $Exp 0 $pcl]])};:set CToday ($CToday+$js)}
     
111. #例子1:设置Hotspot用户状态(禁用并剔除和启用)
     
112. :if ($CToday < $Today) do={:if (![get $i disabled ]) do={disable $i;/ip hotspot active remove [find name=$usname]}} else={:if ([get $i disabled ]) do={enable $i}}
     
113. #:if (($CToday-5) < $Today) do={执行的操作…}
     
114. 
     
115. }}
     
116. #Hotspot处理结束
     

复制代码