Script for PPPoE users d/l 15MB in less than 1 hour online

hello,

Here is a script that i made for PPPoE users who has been online for less than an hour but downloaded more than 15 MB, they will be reduced to a lower speed if they met the condition.

Updated!

This might need an improvement.

:foreach i in=[/ppp active find] \

   do= { \
       
       :set sName [/interface get $i name]
       :set sTotalBytes [/queue simple get $sName total-bytes] ; \
       :set sUptime [/ppp active get $i uptime]

      :if ($sUptime < 30m && $sTotalBytes > 10240000) \
          do={ \
                 :log info ($sName . " exceeds 10 Mega Bytes and has been online for " . $sUptime . " reducing speed to 22.4k/105k")
                 /queue simple set $sName  limit-at=22400/105600 max-limit=22400/105600
                }

      :if ($sUptime > 30m && $sUptime < 1h && $sTotalBytes > 15360000) \
          do={ \
                 :log info ($sName . " exceeds 15 Mega Bytes and has been online for " . $sUptime . " reducing speed to 22.4k/33.6k")
                 /queue simple set $sName  limit-at=22400/33600 max-limit=22400/33600
                }
             
         }
              
         }