NOC:ctwug qos

From CTWUG Wiki
Revision as of 10:50, 7 November 2012 by Johannes le Roux (talk | contribs) (Script)

Jump to: navigation, search

Purpose

Dependencies

Script

/queue simple
:local qos
:foreach qos in [find] do={
  :if ( [:pick [get $qos comment] 0 4] = "AUTO" ) do=[remove $qos]
}
/interface
:local qos
:foreach qos in [find] do={
  :local com [get $qos comment]
  :if ( [:pick $com 0 6] = "client" ) do={
    :local name [get $qos name]
    :local p1 ([:find $com ";"] + 1)
    :local p2 [:find $com ";" $p1]
    :local mb ([:pick $com $p1 $p2]*1000)
    :local com ("AUTO ".$name." BULK")
    /queue simple add interface=$name name=$com packet-marks=BULK comment=$com max-limit=("0/".$mb) direction=download disabled=yes
  }
}
/system script run ctwug_run

WMS

Wug Management System