|
发表于 2012-2-2 19:46:55
|
显示全部楼层
本帖最后由 huigezi' 于 2012-2-2 19:50 编辑
================================
:do {
:local date [/system clock get date]
:local date1 [/system clock get date]
:local month [:pick $date 0 3]
:local day [:pick $date 4 6]
:local year [:pick $date 7 11]
:local time [/system clock get time]
#The conversion date format
:local convert ([:find jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec [:pick $date 0 3]]+1)
:if ($convert<="9") do={
:set convert ("0".$convert)};
:set date ($year."\C4\EA".$convert."\D4\C2".$day."\C8\D5")
:local allcount [:len [/ppp secret find]]
:local onlinecount [:len [/ppp active find]]
:local todaydis [:len [/ppp secret find comment=$date1]]
:local alldis [:len [/ppp secret find disabled=yes]]
:log warning ("\CD\B3\BC\C6: ".$date." \CA\B1\BC\E4: ".$time.\
" \D7\DC\D3\C3\BB\A7\CA\FD: "."[ ".$allcount." ]"."\BB\A7".\
" \B5\B1\C7\B0\D4\DA\CF\DF: "."[ ".$onlinecount." ]"."\C8\CB".\
" \BD\F1\CC\EC\B5\BD\C6\DA\D5\CA\BA\C5: "."[ ".$todaydis." ]"."\C8\CB".\
" \B9\B2\B5\BD\C6\DA: "."[ ".$alldis." ]")}
|
|