msxo 发的 自动禁用Hotspot用户期限操作1.03在5.X下不能执行的修复

host2318

http://bbs.routerclub.com/forum. ... mp;page=1#pid408707
这个帖子中说的不能执行问题，确实碰到了。没有修改脚本任何内容，只是把hotspot的段落划分了一下，已经可用
脚本原帖地址：http://bbs.routerclub.com/forum. ... &highlight=1.03

1. # 脚本名称: ExpAuto
   
2. 
   
3. # 版本日期: 2011年1月3日*********2012.6.30修复5.x下hotspot脚本不能执行的问题。By1482392@qq.com
   
4. #因原帖出售铜板，这里仅贴出hotspot段，把这段内容覆盖原作者脚本hotspot段即可执行
   
5. 
   
6. #Hotspot处理开始
   
7. /ip hotspot user
   
8. :foreach i in=[find comment!=""] do={
   
9.         :set Ccomment [get $i comment];:set lc [:find $Ccomment "["];:set rc [:find $Ccomment "]"]
   
10.        
    
11.         :if ([:typeof $lc]="num" && [:typeof $rc]="num" && $lc<$rc) do={
    
12.                 :set Exp [:pick $Ccomment ($lc+1) $rc];:set js 0;:set CToday 0
    
13.                
    
14.                         :if ([:pick $Exp 0 1]!="+" && [:len $Exp]>7 && [:typeof [:tonum [:pick $Exp 0 8]]]="num") do={
    
15.                         :set usname [get $i name];:set uspfl [get $i profile];:set CYear ([:pick $Exp 0 4]-1);:set CToday ($CYear*365+$CYear /4)
    
16.                         :set CMonth [:pick $Exp 4 6];:if ([:pick $Exp 4 5] = 0) do={ :set CMonth [:pick $Exp 5 6]};:set CMonth ($CMonth-1)
    
17.                         :set CDay [:pick $Exp 6 8];:if ([:pick $Exp 6 7] = 0) do={ :set CDay [:pick $Exp 7 8]};:set CDay ($CDay-1)
    
18.                         :if (($CYear-$CYear/4*4) != 3) do={:set CToday ($CToday+[:pick $leapyear $CMonth]+$CDay)} else={:set CToday ($CToday+[:pick $leapyear ($CMonth+12)]+$CDay)}}
    
19.                        
    
20.                                 :set pcl [:find $Exp "+"];:if ([:typeof $pcl]="num" && ($pcl>7 || $pcl=0) && ([:len $Exp]-1)>$pcl) do={
    
21.                                 :if ($pcl = 0) do={:set CToday $Today;:set CYear ($Year+1);:set CMonth ($Month+1);:set CDay ($Day+1)
    
22.                                 :if ([:len $CMonth]<2) do={:set CMonth ("0" . $CMonth)};:if ([:len $CDay]<2) do={:set CDay ("0" . $CDay)}
    
23.                                 set $i comment=([:pick $Ccomment 0 $lc] . "[" .($CYear . $CMonth . $CDay) . [:pick $Exp $pcl [:len $Exp]] . "]" . [:pick $Ccomment ($rc+1) [:len $Ccomment]])}
    
24.                                 :while ([:typeof [:find $Exp "+"]]="num") do={
    
25.                                         :set Exp [:pick $Exp ($pcl+1) [:len $Exp]];:set pcl [:find $Exp "+"];:if ([:typeof $pcl]!="num") do={:set pcl [:len $Exp]}
    
26.                                         :set js ($js+[:tonum [:pick $Exp 0 $pcl]])};:set CToday ($CToday+$js)}
    
27. 
    
28.                 :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}}
    
29. }}
    
30. #Hotspot处理结束

复制代码

host2318

上效果图。

utek

hotspot用户到期提前提醒怎样实现呢，可以教下吗