检测adsl掉线数修改队列树相应max值大小并铃声报警

:global adsl 2
:global status
:global suffix {"web";"icq";"tcp";"udp";"oth";"vip";"gam"};:global downname;:global upname;
:global prefixd "leaf-d-"
:global prefixu "leaf-u-"
:global muld "4000000"
:global mulu "400000"
:global count [:len [/interface find !running]]
/queue tree
:if ($count!=0 && $count!=$adsl) do={
 :foreach a in=$suffix do={
  :set downname ($prefixd.$a);
   set $downname max-limit=(($adsl-$count)*$muld);
    :set upname ($prefixu.$a);
     set $upname max-limit=(($adsl-$count)*$muld);
  }
}
:for a from=1 to=$adsl do={:set status [/interface get [/interface find name=("pppoe-out".$a)] running];
  :if ($status=false) do={
   :for i from=1 to=10 do={:beep frequency=1195 length=22ms;:delay 22ms;:beep frequency=2571 length=22ms;
    :delay 22ms
  }
} else={:log warning ("\CF\DF\C2\B7 ".$a." \D5\FD\B3\A3")
    }
   }
  }
}

#本脚本以4M线路的ADSL为基础，比如4条4M的最大下载为16M
#掉一根线后的MAX-limit=12M