Difference between revisions of "NOC:ctwug qos"
From CTWUG Wiki
Bigmikedavis (talk | contribs) (New page: == Purpose == == Dependencies == == Script == == WMS == Wug Management System) |
(→Script) |
||
| Line 4: | Line 4: | ||
== Script == | == 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 == | == WMS == | ||
[[Wug Management System]] | [[Wug Management System]] | ||
Revision as of 10:47, 7 November 2012
Contents
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
