]>
git.ipfire.org Git - ipfire-2.x.git/blob - config/qos/makeqosscripts.pl
13e7eeb34438b874dcc651dda1013bf8c92c79a9
5 # This code is distributed under the terms of the GPL
11 # enable only the following on debugging purpose
14 require '/var/ipfire/general-functions.pl';
15 require "${General::swroot}/lang.pl";
16 require "${General::swroot}/header.pl";
22 my $errormessage = "";
26 my $subclassentry = "";
28 my $portruleentry = "";
36 my @subclassline = ();
38 my @portruleline = ();
41 my $classfile = "/var/ipfire/qos/classes";
42 my $subclassfile = "/var/ipfire/qos/subclasses";
43 my $level7file = "/var/ipfire/qos/level7config";
44 my $portfile = "/var/ipfire/qos/portconfig";
46 &General
::readhash
("${General::swroot}/ethernet/settings", \
%netsettings);
48 $qossettings{'ENABLED'} = 'off';
49 $qossettings{'EDIT'} = 'no';
50 $qossettings{'OUT_SPD'} = '';
51 $qossettings{'INC_SPD'} = '';
52 $qossettings{'DEF_OUT_SPD'} = '';
53 $qossettings{'DEF_INC_SPD'} = '';
54 $qossettings{'DEFCLASS_INC'} = '';
55 $qossettings{'DEFCLASS_OUT'} = '';
56 $qossettings{'ACK'} = '';
57 $qossettings{'MTU'} = '1492';
58 $qossettings{'RED_DEV'} = `cat /var/ipfire/red/iface`;
59 $qossettings{'IMQ_DEV'} = 'imq0';
60 $qossettings{'VALID'} = 'yes';
62 &General
::readhash
("${General::swroot}/qos/settings", \
%qossettings);
64 open( FILE
, "< $classfile" ) or die "Unable to read $classfile";
67 open( FILE
, "< $subclassfile" ) or die "Unable to read $subclassfile";
70 open( FILE
, "< $level7file" ) or die "Unable to read $level7file";
73 open( FILE
, "< $portfile" ) or die "Unable to read $portfile";
77 ############################################################################################################################
78 ############################################################################################################################
82 #################################################
83 # This is an autocreated QoS-Script for #
85 # Copyright by the IPFire Team (GPLv2) #
87 #################################################
90 # RED INTERFACE: $qossettings{'RED_DEV'}
91 # IMQ DEVICE: $qossettings{'IMQ_DEV'}
99 tc -s qdisc show dev $qossettings{'RED_DEV'}
100 tc -s qdisc show dev $qossettings{'IMQ_DEV'}
105 tc -s class show dev $qossettings{'RED_DEV'}
106 tc -s class show dev $qossettings{'IMQ_DEV'}
111 tc -s filter show dev $qossettings{'RED_DEV'}
112 tc -s filter show dev $qossettings{'IMQ_DEV'}
117 iptables -t mangle -L QOS-OUT -v -x 2> /dev/null
118 iptables -t mangle -L QOS-INC -v -x 2> /dev/null
130 ### $qossettings{'RED_DEV'}
136 ### SET QUEUE LENGTH & MTU - has just to be tested!!! IMPORTANT
137 ip link set dev $qossettings{'RED_DEV'} qlen $qossettings{'QLENGTH'}
138 ip link set dev $qossettings{'RED_DEV'} mtu $qossettings{'MTU'}
140 ### ADD HTB QDISC FOR $qossettings{'RED_DEV'}
141 tc qdisc add dev $qossettings{'RED_DEV'} root handle 1: htb default $qossettings{'DEFCLASS_OUT'}
144 tc class add dev $qossettings{'RED_DEV'} parent 1: classid 1:1 htb rate $qossettings{'OUT_SPD'}kbit
146 ### CLASSES FOR $qossettings{'RED_DEV'}
149 foreach $classentry (sort @classes)
151 @classline = split( /\;/, $classentry );
152 if ($qossettings{'RED_DEV'} eq $classline[0]) {
153 $qossettings{'DEVICE'} = $classline[0];
154 $qossettings{'CLASS'} = $classline[1];
155 $qossettings{'PRIO'} = $classline[2];
156 $qossettings{'RATE'} = $classline[3];
157 $qossettings{'CEIL'} = $classline[4];
158 $qossettings{'BURST'} = $classline[5];
159 $qossettings{'CBURST'} = $classline[6];
160 print "\ttc class add dev $qossettings{'DEVICE'} parent 1:1 classid 1:$qossettings{'CLASS'} htb rate $qossettings{'RATE'}kbit ceil $qossettings{'CEIL'}kbit prio $qossettings{'PRIO'} ";
161 if (($qossettings{'BURST'} ne '') && ($qossettings{'BURST'} ne 0)) {
162 print "burst $qossettings{'BURST'}k ";
164 if (($qossettings{'CBURST'} ne '') && ($qossettings{'CBURST'} ne 0)) {
165 print "cburst $qossettings{'CBURST'}k";
170 foreach $subclassentry (sort @subclasses) {
171 @subclassline = split( /\;/, $subclassentry );
172 if ($qossettings{'RED_DEV'} eq $subclassline[0]) {
173 $qossettings{'DEVICE'} = $subclassline[0];
174 $qossettings{'CLASS'} = $subclassline[1];
175 $qossettings{'SCLASS'} = $subclassline[2];
176 $qossettings{'SPRIO'} = $subclassline[3];
177 $qossettings{'SRATE'} = $subclassline[4];
178 $qossettings{'SCEIL'} = $subclassline[5];
179 $qossettings{'SBURST'} = $subclassline[6];
180 $qossettings{'SCBURST'} = $subclassline[7];
181 print "\ttc class add dev $qossettings{'DEVICE'} parent 1:$qossettings{'CLASS'} classid 1:$qossettings{'SCLASS'} htb rate $qossettings{'SRATE'}kbit ceil $qossettings{'SCEIL'}kbit prio $qossettings{'SPRIO'} ";
182 if ($qossettings{'SBURST'} > 0) {
183 print "burst $qossettings{'SBURST'}k ";
185 if (($qossettings{'SCBURST'} ne '') && ($qossettings{'SCBURST'} ne 0)) {
186 print "cburst $qossettings{'CBURST'}k";
192 print "\n\t### ATTACH QDISC TO LEAF CLASSES\n";
193 foreach $classentry (sort @classes)
195 @classline = split( /\;/, $classentry );
196 if ($qossettings{'RED_DEV'} eq $classline[0]) {
197 $qossettings{'DEVICE'} = $classline[0];
198 $qossettings{'CLASS'} = $classline[1];
199 print "\ttc qdisc add dev $qossettings{'DEVICE'} parent 1:$qossettings{'CLASS'} handle $qossettings{'CLASS'}: sfq perturb $qossettings{'SFQ_PERTUB'}\n";
202 foreach $subclassentry (sort @subclasses) {
203 @subclassline = split( /\;/, $subclassentry );
204 if ($qossettings{'RED_DEV'} eq $subclassline[0]) {
205 $qossettings{'DEVICE'} = $subclassline[0];
206 $qossettings{'SCLASS'} = $subclassline[2];
207 print "\ttc qdisc add dev $qossettings{'DEVICE'} parent 1:$qossettings{'SCLASS'} handle $qossettings{'SCLASS'}: sfq perturb $qossettings{'SFQ_PERTUB'}\n";
210 print "\n\t### FILTER TRAFFIC INTO CLASSES\n";
211 foreach $classentry (sort @classes)
213 @classline = split( /\;/, $classentry );
214 if ($qossettings{'RED_DEV'} eq $classline[0]) {
215 $qossettings{'DEVICE'} = $classline[0];
216 $qossettings{'CLASS'} = $classline[1];
217 print "\ttc filter add dev $qossettings{'DEVICE'} parent 1:0 prio 0 protocol ip handle $qossettings{'CLASS'} fw flowid 1:$qossettings{'CLASS'}\n";
220 foreach $subclassentry (sort @subclasses) {
221 @subclassline = split( /\;/, $subclassentry );
222 if ($qossettings{'RED_DEV'} eq $subclassline[0]) {
223 $qossettings{'DEVICE'} = $subclassline[0];
224 $qossettings{'CLASS'} = $subclassline[1];
225 $qossettings{'SCLASS'} = $subclassline[2];
226 print "\ttc filter add dev $qossettings{'DEVICE'} parent 1:0 prio 0 protocol ip handle $qossettings{'SCLASS'} fw flowid 1:$qossettings{'SCLASS'}\n";
231 ### ADD QOS-OUT CHAIN TO THE MANGLE TABLE IN IPTABLES
232 iptables -t mangle -N QOS-OUT
233 iptables -t mangle -I POSTROUTING -o $qossettings{'RED_DEV'} -j QOS-OUT
236 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags SYN,RST SYN -j TOS --set-tos 4
237 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags SYN,RST SYN -j MARK --set-mark $qossettings{'ACK'}
238 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags SYN,RST SYN -j RETURN
240 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p icmp -m length --length 40:100 -j MARK --set-mark $qossettings{'ACK'}
241 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p icmp -m length --length 40:100 -j RETURN
243 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --syn -m length --length 40:68 -j TOS --set-tos 4
244 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --syn -m length --length 40:68 -j MARK --set-mark $qossettings{'ACK'}
245 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --syn -m length --length 40:68 -j RETURN
247 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL SYN,ACK -m length --length 40:68 -j TOS --set-tos 4
248 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL SYN,ACK -m length --length 40:68 -j MARK --set-mark $qossettings{'ACK'}
249 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL SYN,ACK -m length --length 40:68 -j RETURN
251 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK -m length --length 40:100 -j TOS --set-tos 4
252 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK -m length --length 40:100 -j MARK --set-mark $qossettings{'ACK'}
253 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK -m length --length 40:100 -j RETURN
255 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL RST -j TOS --set-tos 4
256 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL RST -j MARK --set-mark $qossettings{'ACK'}
257 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL RST -j RETURN
259 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK,RST -j TOS --set-tos 4
260 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK,RST -j MARK --set-mark $qossettings{'ACK'}
261 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK,RST -j RETURN
263 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK,FIN -j TOS --set-tos 4
264 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK,FIN -j MARK --set-mark $qossettings{'ACK'}
265 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -p tcp --tcp-flags ALL ACK,FIN -j RETURN
270 foreach $l7ruleentry (sort @l7rules)
272 @l7ruleline = split( /\;/, $l7ruleentry );
273 if ( $l7ruleline[1] eq $qossettings{'RED_DEV'} )
275 $qossettings{'CLASS'} = $l7ruleline[0];
276 $qossettings{'DEVICE'} = $l7ruleline[1];
277 $qossettings{'L7PROT'} = $l7ruleline[2];
278 $qossettings{'QIP'} = $l7ruleline[3];
279 $qossettings{'DIP'} = $l7ruleline[4];
280 print "\tiptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} ";
281 if ($qossettings{'QIP'} ne ''){
282 print "-s $qossettings{'QIP'} ";
284 if ($qossettings{'DIP'} ne ''){
285 print "-d $qossettings{'DIP'} ";
287 print "-m layer7 --l7dir /etc/l7-protocols/protocols --l7proto $qossettings{'L7PROT'} -j MARK --set-mark $qossettings{'CLASS'}\n";
288 print "\tiptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} ";
289 if ($qossettings{'QIP'} ne ''){
290 print "-s $qossettings{'QIP'} ";
292 if ($qossettings{'DIP'} ne ''){
293 print "-d $qossettings{'DIP'} ";
295 print "-m layer7 --l7dir /etc/l7-protocols/protocols --l7proto $qossettings{'L7PROT'} -j RETURN\n";
299 print "\n\t### SET PORT-RULES\n";
300 foreach $portruleentry (sort @portrules)
302 @portruleline = split( /\;/, $portruleentry );
303 if ( $portruleline[1] eq $qossettings{'RED_DEV'} )
305 $qossettings{'CLASS'} = $portruleline[0];
306 $qossettings{'DEVICE'} = $portruleline[1];
307 $qossettings{'PPROT'} = $portruleline[2];
308 $qossettings{'QIP'} = $portruleline[3];
309 $qossettings{'QPORT'} = $portruleline[4];
310 $qossettings{'DIP'} = $portruleline[5];
311 $qossettings{'DPORT'} = $portruleline[6];
312 print "\tiptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} ";
313 if ($qossettings{'QIP'} ne ''){
314 print "-s $qossettings{'QIP'} ";
316 if ($qossettings{'DIP'} ne ''){
317 print "-d $qossettings{'DIP'} ";
319 print "-p $qossettings{'PPROT'} ";
320 if (($qossettings{'QPORT'} ne '') || ($qossettings{'DPORT'} ne '')){
321 print "-m multiport ";
323 if ($qossettings{'QPORT'} ne ''){
324 print "--sport $qossettings{'QPORT'} ";
326 if ($qossettings{'DPORT'} ne ''){
327 print "--dport $qossettings{'DPORT'} ";
329 print "-j MARK --set-mark $qossettings{'CLASS'}\n";
330 print "\tiptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} ";
331 if ($qossettings{'QIP'} ne ''){
332 print "-s $qossettings{'QIP'} ";
334 if ($qossettings{'DIP'} ne ''){
335 print "-d $qossettings{'DIP'} ";
337 print "-p $qossettings{'PPROT'} ";
338 if (($qossettings{'QPORT'} ne '') || ($qossettings{'DPORT'} ne '')){
339 print "-m multiport ";
341 if ($qossettings{'QPORT'} ne ''){
342 print "--sport $qossettings{'QPORT'} ";
344 if ($qossettings{'DPORT'} ne ''){
345 print "--dport $qossettings{'DPORT'} ";
347 print "-j RETURN\n\n";
353 ### REDUNDANT: SET ALL NONMARKED PACKETS TO DEFAULT CLASS
354 iptables -t mangle -A QOS-OUT -o $qossettings{'RED_DEV'} -m mark --mark 0 -j MARK --set-mark $qossettings{'DEFCLASS_OUT'}
357 ### $qossettings{'IMQ_DEV'}
360 ### BRING UP $qossettings{'IMQ_DEV'}
361 if [ `lsmod | grep -q ipt_IMQ` ]; then
365 modprobe imq numdevs=1
366 ip link set $qossettings{'IMQ_DEV'} up
368 ### SET QUEUE LENGTH & MTU - has just to be tested!!! IMPORTANT
369 ip link set dev $qossettings{'IMQ_DEV'} qlen $qossettings{'QLENGTH'}
370 # ip link set dev $qossettings{'IMQ_DEV'} mtu $qossettings{'MTU'}
372 ### ADD HTB QDISC FOR $qossettings{'IMQ_DEV'}
373 tc qdisc add dev $qossettings{'IMQ_DEV'} root handle 2: htb default $qossettings{'DEFCLASS_INC'}
376 tc class add dev $qossettings{'IMQ_DEV'} parent 2: classid 2:1 htb rate $qossettings{'INC_SPD'}kbit
378 ### CLASSES FOR $qossettings{'IMQ_DEV'}
381 foreach $classentry (sort @classes)
383 @classline = split( /\;/, $classentry );
384 if ($qossettings{'IMQ_DEV'} eq $classline[0]) {
385 $qossettings{'DEVICE'} = $classline[0];
386 $qossettings{'CLASS'} = $classline[1];
387 $qossettings{'PRIO'} = $classline[2];
388 $qossettings{'RATE'} = $classline[3];
389 $qossettings{'CEIL'} = $classline[4];
390 $qossettings{'BURST'} = $classline[5];
391 $qossettings{'CBURST'} = $classline[6];
392 print "\ttc class add dev $qossettings{'DEVICE'} parent 2:1 classid 2:$qossettings{'CLASS'} htb rate $qossettings{'RATE'}kbit ceil $qossettings{'CEIL'}kbit prio $qossettings{'PRIO'} ";
393 if (($qossettings{'BURST'} ne '') && ($qossettings{'BURST'} ne 0)) {
394 print "burst $qossettings{'BURST'}k ";
396 if (($qossettings{'CBURST'} ne '') && ($qossettings{'CBURST'} ne 0)) {
397 print "cburst $qossettings{'CBURST'}k";
402 foreach $subclassentry (sort @subclasses) {
403 @subclassline = split( /\;/, $subclassentry );
404 if ($qossettings{'IMQ_DEV'} eq $subclassline[0]) {
405 $qossettings{'DEVICE'} = $subclassline[0];
406 $qossettings{'CLASS'} = $subclassline[1];
407 $qossettings{'SCLASS'} = $subclassline[2];
408 $qossettings{'SPRIO'} = $subclassline[3];
409 $qossettings{'SRATE'} = $subclassline[4];
410 $qossettings{'SCEIL'} = $subclassline[5];
411 $qossettings{'SBURST'} = $subclassline[6];
412 $qossettings{'SCBURST'} = $subclassline[7];
413 print "\ttc class add dev $qossettings{'DEVICE'} parent 2:$qossettings{'CLASS'} classid 2:$qossettings{'SCLASS'} htb rate $qossettings{'SRATE'}kbit ceil $qossettings{'SCEIL'}kbit prio $qossettings{'SPRIO'} ";
414 if ($qossettings{'SBURST'} > 0) {
415 print "burst $qossettings{'SBURST'}k ";
417 if (($qossettings{'SCBURST'} ne '') && ($qossettings{'SCBURST'} ne 0)) {
418 print "cburst $qossettings{'CBURST'}k";
424 print "\n\t### ATTACH QDISC TO LEAF CLASSES\n";
425 foreach $classentry (sort @classes)
427 @classline = split( /\;/, $classentry );
428 if ($qossettings{'IMQ_DEV'} eq $classline[0]) {
429 $qossettings{'DEVICE'} = $classline[0];
430 $qossettings{'CLASS'} = $classline[1];
431 print "\ttc qdisc add dev $qossettings{'DEVICE'} parent 2:$qossettings{'CLASS'} handle $qossettings{'CLASS'}: sfq perturb $qossettings{'SFQ_PERTUB'}\n";
434 foreach $subclassentry (sort @subclasses) {
435 @subclassline = split( /\;/, $subclassentry );
436 if ($qossettings{'IMQ_DEV'} eq $subclassline[0]) {
437 $qossettings{'DEVICE'} = $subclassline[0];
438 $qossettings{'SCLASS'} = $subclassline[2];
439 print "\ttc qdisc add dev $qossettings{'DEVICE'} parent 2:$qossettings{'SCLASS'} handle $qossettings{'SCLASS'}: sfq perturb $qossettings{'SFQ_PERTUB'}\n";
442 print "\n\t### FILTER TRAFFIC INTO CLASSES\n";
443 foreach $classentry (sort @classes)
445 @classline = split( /\;/, $classentry );
446 if ($qossettings{'IMQ_DEV'} eq $classline[0]) {
447 $qossettings{'DEVICE'} = $classline[0];
448 $qossettings{'CLASS'} = $classline[1];
449 print "\ttc filter add dev $qossettings{'DEVICE'} parent 2:0 prio 0 protocol ip handle $qossettings{'CLASS'} fw flowid 2:$qossettings{'CLASS'}\n";
452 foreach $subclassentry (sort @subclasses) {
453 @subclassline = split( /\;/, $subclassentry );
454 if ($qossettings{'IMQ_DEV'} eq $subclassline[0]) {
455 $qossettings{'DEVICE'} = $subclassline[0];
456 $qossettings{'CLASS'} = $subclassline[1];
457 $qossettings{'SCLASS'} = $subclassline[2];
458 print "\ttc filter add dev $qossettings{'DEVICE'} parent 2:0 prio 0 protocol ip handle $qossettings{'SCLASS'} fw flowid 2:$qossettings{'SCLASS'}\n";
463 ### ADD QOS-INC CHAIN TO THE MANGLE TABLE IN IPTABLES
464 iptables -t mangle -N QOS-INC
465 iptables -t mangle -A PREROUTING -i $qossettings{'RED_DEV'} -j IMQ --todev 0
466 iptables -t mangle -I PREROUTING -i $qossettings{'RED_DEV'} -j QOS-INC
471 foreach $l7ruleentry (sort @l7rules)
473 @l7ruleline = split( /\;/, $l7ruleentry );
474 if ( $l7ruleline[1] eq $qossettings{'IMQ_DEV'} )
476 $qossettings{'CLASS'} = $l7ruleline[0];
477 $qossettings{'DEVICE'} = $l7ruleline[1];
478 $qossettings{'L7PROT'} = $l7ruleline[2];
479 $qossettings{'QIP'} = $l7ruleline[3];
480 $qossettings{'DIP'} = $l7ruleline[4];
481 print "\tiptables -t mangle -A QOS-INC -i $qossettings{'RED_DEV'} ";
482 if ($qossettings{'QIP'} ne ''){
483 print "-s $qossettings{'QIP'} ";
485 if ($qossettings{'DIP'} ne ''){
486 print "-d $qossettings{'DIP'} ";
488 print "-m layer7 --l7dir /etc/l7-protocols/protocols --l7proto $qossettings{'L7PROT'} -j MARK --set-mark $qossettings{'CLASS'}\n";
489 print "\tiptables -t mangle -A QOS-INC -i $qossettings{'RED_DEV'} ";
490 if ($qossettings{'QIP'} ne ''){
491 print "-s $qossettings{'QIP'} ";
493 if ($qossettings{'DIP'} ne ''){
494 print "-d $qossettings{'DIP'} ";
496 print "-m layer7 --l7dir /etc/l7-protocols/protocols --l7proto $qossettings{'L7PROT'} -j RETURN\n";
500 print "\n\t### SET PORT-RULES\n";
501 foreach $portruleentry (sort @portrules)
503 @portruleline = split( /\;/, $portruleentry );
504 if ( $portruleline[1] eq $qossettings{'IMQ_DEV'} )
506 $qossettings{'CLASS'} = $portruleline[0];
507 $qossettings{'DEVICE'} = $portruleline[1];
508 $qossettings{'PPROT'} = $portruleline[2];
509 $qossettings{'QIP'} = $portruleline[3];
510 $qossettings{'QPORT'} = $portruleline[4];
511 $qossettings{'DIP'} = $portruleline[5];
512 $qossettings{'DPORT'} = $portruleline[6];
513 print "\tiptables -t mangle -A QOS-INC -i $qossettings{'RED_DEV'} ";
514 if ($qossettings{'QIP'} ne ''){
515 print "-s $qossettings{'QIP'} ";
517 if ($qossettings{'DIP'} ne ''){
518 print "-d $qossettings{'DIP'} ";
520 print "-p $qossettings{'PPROT'} ";
521 if (($qossettings{'QPORT'} ne '') || ($qossettings{'DPORT'} ne '')){
522 print "-m multiport ";
524 if ($qossettings{'QPORT'} ne ''){
525 print "--sport $qossettings{'QPORT'} ";
527 if ($qossettings{'DPORT'} ne ''){
528 print "--dport $qossettings{'DPORT'} ";
530 print "-j MARK --set-mark $qossettings{'CLASS'}\n";
531 print "\tiptables -t mangle -A QOS-INC -i $qossettings{'RED_DEV'} ";
532 if ($qossettings{'QIP'} ne ''){
533 print "-s $qossettings{'QIP'} ";
535 if ($qossettings{'DIP'} ne ''){
536 print "-d $qossettings{'DIP'} ";
538 print "-p $qossettings{'PPROT'} ";
539 if (($qossettings{'QPORT'} ne '') || ($qossettings{'DPORT'} ne '')){
540 print "-m multiport ";
542 if ($qossettings{'QPORT'} ne ''){
543 print "--sport $qossettings{'QPORT'} ";
545 if ($qossettings{'DPORT'} ne ''){
546 print "--dport $qossettings{'DPORT'} ";
548 print "-j RETURN\n\n";
553 ### REDUNDANT: SET ALL NONMARKED PACKETS TO DEFAULT CLASS
554 iptables -t mangle -A QOS-INC -i $qossettings{'RED_DEV'} -m mark --mark 0 -j MARK --set-mark $qossettings{'DEFCLASS_INC'}
556 echo "Quality of Service was successfully started!"
560 ### RESET EVERYTHING TO A KNOWN STATE
562 tc qdisc del dev $qossettings{'RED_DEV'} root
563 tc qdisc del dev $qossettings{'IMQ_DEV'} root
565 ip link set $qossettings{'IMQ_DEV'} down
566 iptables -t mangle --delete PREROUTING -i $qossettings{'RED_DEV'} -j IMQ --todev 0
568 # REMOVE & FLUSH CHAINS
569 iptables -t mangle --delete POSTROUTING -o $qossettings{'RED_DEV'} -j QOS-OUT
570 iptables -t mangle --flush QOS-OUT
571 iptables -t mangle --delete-chain QOS-OUT
572 iptables -t mangle --delete PREROUTING -i $qossettings{'RED_DEV'} -j QOS-INC
573 iptables -t mangle --flush QOS-INC
574 iptables -t mangle --delete-chain QOS-INC
576 echo "Quality of Service was successfully cleared!"
579 echo -n "Generateing the QoS-Scripts..."
580 /usr/bin/perl /var/ipfire/qos/bin/makeqosscripts.pl > /var/ipfire/qos/bin/qos.sh
585 ### FIRST CLEAR EVERYTHING
596 ############################################################################################################################
597 ############################################################################################################################