]> git.ipfire.org Git - ipfire-2.x.git/blame - config/qos/makeqosscripts.pl
projects / ipfire-2.x.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
QoS: Drop support for setting TOS bits per class
[ipfire-2.x.git] / config / qos / makeqosscripts.pl
CommitLineData
84cab473 1#!/usr/bin/perl
70df8302
MT		 2###############################################################################
3# #
4# IPFire.org - A linux based firewall #
38288aee 5# Copyright (C) 2007-2013 IPFire Team <info@ipfire.org> #
70df8302
MT		 6# #
7# This program is free software: you can redistribute it and/or modify #
8# it under the terms of the GNU General Public License as published by #
9# the Free Software Foundation, either version 3 of the License, or #
10# (at your option) any later version. #
11# #
12# This program is distributed in the hope that it will be useful, #
13# but WITHOUT ANY WARRANTY; without even the implied warranty of #
14# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15# GNU General Public License for more details. #
16# #
17# You should have received a copy of the GNU General Public License #
18# along with this program. If not, see <http://www.gnu.org/licenses/>. #
19# #
20###############################################################################
84cab473
MT		 21
22use strict;
23# enable only the following on debugging purpose
e8babc92 24# use warnings;
84cab473
MT		 25
26require '/var/ipfire/general-functions.pl';
27require "${General::swroot}/lang.pl";
28require "${General::swroot}/header.pl";
29
30my %qossettings = ();
31my %checked = ();
32my %netsettings = ();
33my $message = "";
34my $errormessage = "";
35my $c = "";
36my $direntry = "";
37my $classentry = "";
84cab473
MT		 38my $l7ruleentry = "";
39my $portruleentry = "";
e8babc92 40my $tosruleentry = "";
84cab473
MT		 41my @tmp = ();
42my @classes = ();
84cab473
MT		 43my @l7rules = ();
44my @portrules = ();
e8babc92 45my @tosrules = ();
84cab473
MT		 46my @tmpline = ();
47my @classline = ();
e8babc92 48my @tosruleline = ();
84cab473
MT		 49my @l7ruleline = ();
50my @portruleline = ();
51my @proto = ();
52my %selected= () ;
53my $classfile = "/var/ipfire/qos/classes";
84cab473
MT		 54my $level7file = "/var/ipfire/qos/level7config";
55my $portfile = "/var/ipfire/qos/portconfig";
e8babc92 56my $tosfile = "/var/ipfire/qos/tosconfig";
2950a55c 57my $fqcodel_options = "limit 800 quantum 500";
84cab473
MT		 58
59&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
60
61$qossettings{'ENABLED'} = 'off';
62$qossettings{'EDIT'} = 'no';
63$qossettings{'OUT_SPD'} = '';
64$qossettings{'INC_SPD'} = '';
65$qossettings{'DEF_OUT_SPD'} = '';
66$qossettings{'DEF_INC_SPD'} = '';
67$qossettings{'DEFCLASS_INC'} = '';
68$qossettings{'DEFCLASS_OUT'} = '';
69$qossettings{'ACK'} = '';
84cab473
MT		 70$qossettings{'RED_DEV'} = `cat /var/ipfire/red/iface`;
71$qossettings{'IMQ_DEV'} = 'imq0';
e8babc92 72$qossettings{'TOS'} = '';
84cab473
MT		 73$qossettings{'VALID'} = 'yes';
74
75&General::readhash("${General::swroot}/qos/settings", \%qossettings);
76
77open( FILE, "< $classfile" ) or die "Unable to read $classfile";
78@classes = <FILE>;
79close FILE;
84cab473
MT		 80open( FILE, "< $level7file" ) or die "Unable to read $level7file";
81@l7rules = <FILE>;
82close FILE;
83open( FILE, "< $portfile" ) or die "Unable to read $portfile";
84@portrules = <FILE>;
85close FILE;
e8babc92
MT		 86open( FILE, "< $tosfile" ) or die "Unable to read $tosfile";
87@tosrules = <FILE>;
88close FILE;
84cab473
MT		 89
90############################################################################################################################
91############################################################################################################################
92
93print <<END
94#/bin/bash
95#################################################
96# This is an autocreated QoS-Script for #
97# IPFIRE #
98# Copyright by the IPFire Team (GPLv2) #
99# www.ipfire.org #
100#################################################
101
102### SYSTEMVARIABLES:
103# RED INTERFACE: $qossettings{'RED_DEV'}
104# IMQ DEVICE: $qossettings{'IMQ_DEV'}
105
b3992117
AF		 106eval \$(/usr/local/bin/readhash /var/ipfire/main/settings)
107if [ "\$RRDLOG" == "" ]; then
c772568a
AF		 108 RRDLOG=/var/log/rrd
109fi
110
84cab473
MT		 111case "\$1" in
112
113 status)
4ed2816f
MT		 114 case "\$2" in
115 qdisc)
116 echo "[qdisc]"
117 tc -s qdisc show dev $qossettings{'RED_DEV'}
118 tc -s qdisc show dev $qossettings{'IMQ_DEV'}
119 exit 0
120 ;;
121 class)
122 echo "[class]"
123 tc -s class show dev $qossettings{'RED_DEV'}
124 tc -s class show dev $qossettings{'IMQ_DEV'}
125 exit 0
126 ;;
4ed2816f
MT		 127 iptables)
128 echo "[iptables]"
dd001658
MT		 129 iptables -t mangle -n -L QOS-OUT -v -x 2> /dev/null
130 iptables -t mangle -n -L QOS-INC -v -x 2> /dev/null
4ed2816f
MT		 131 exit 0
132 ;;
133 esac
134 \$0 \$1 qdisc
135 \$0 \$1 class
4ed2816f 136 \$0 \$1 iptables
84cab473
MT		 137 exit 0
138 ;;
139 start)
84cab473
MT		 140 ###
141 ### $qossettings{'RED_DEV'}
142 ###
143
144 ### INIT KERNEL
145 modprobe sch_htb
146
84cab473 147 ### ADD HTB QDISC FOR $qossettings{'RED_DEV'}
38288aee 148 tc qdisc del dev $qossettings{'RED_DEV'} root >/dev/null 2>&1
84cab473
MT		 149 tc qdisc add dev $qossettings{'RED_DEV'} root handle 1: htb default $qossettings{'DEFCLASS_OUT'}
150
151 ### MAIN RATE LIMIT
152 tc class add dev $qossettings{'RED_DEV'} parent 1: classid 1:1 htb rate $qossettings{'OUT_SPD'}kbit
153
154 ### CLASSES FOR $qossettings{'RED_DEV'}
155END
156;
157foreach $classentry (sort @classes)
158{
159 @classline = split( /\;/, $classentry );
160 if ($qossettings{'RED_DEV'} eq $classline[0]) {
161 $qossettings{'DEVICE'} = $classline[0];
162 $qossettings{'CLASS'} = $classline[1];
163 $qossettings{'PRIO'} = $classline[2];
164 $qossettings{'RATE'} = $classline[3];
165 $qossettings{'CEIL'} = $classline[4];
166 $qossettings{'BURST'} = $classline[5];
167 $qossettings{'CBURST'} = $classline[6];
168 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'} ";
4ed2816f 169 if (($qossettings{'BURST'} ne '') && ($qossettings{'BURST'} ne 0)) {
84cab473
MT		 170 print "burst $qossettings{'BURST'}k ";
171 }
b684b13b 172 if (($qossettings{'CBURST'} ne '') && ($qossettings{'CBURST'} ne 0)) {
84cab473
MT		 173 print "cburst $qossettings{'CBURST'}k";
174 }
175 print "\n";
176 }
177}
84cab473
MT		 178
179print "\n\t### ATTACH QDISC TO LEAF CLASSES\n";
180foreach $classentry (sort @classes)
181{
182 @classline = split( /\;/, $classentry );
183 if ($qossettings{'RED_DEV'} eq $classline[0]) {
184 $qossettings{'DEVICE'} = $classline[0];
185 $qossettings{'CLASS'} = $classline[1];
24dbd0f7 186 print "\ttc qdisc add dev $qossettings{'DEVICE'} parent 1:$qossettings{'CLASS'} handle $qossettings{'CLASS'}: fq_codel $fqcodel_options\n";
84cab473
MT		 187 }
188}
84cab473
MT		 189print <<END
190
191 ### ADD QOS-OUT CHAIN TO THE MANGLE TABLE IN IPTABLES
192 iptables -t mangle -N QOS-OUT
193 iptables -t mangle -I POSTROUTING -o $qossettings{'RED_DEV'} -j QOS-OUT
194
5487c71b
AF		 195 ### Don't change mark on traffic for the ipsec tunnel
196 iptables -t mangle -A QOS-OUT -m mark --mark 50 -j RETURN
197
84cab473 198 ### MARK ACKs
4c43d644 199 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags SYN,RST SYN -j TOS --set-tos 4
3e151d19 200 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags SYN,RST SYN -j CLASSIFY --set-class 1:$qossettings{'ACK'}
4c43d644 201 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags SYN,RST SYN -j RETURN
84cab473 202
3e151d19 203 iptables -t mangle -A QOS-OUT -p icmp -m length --length 40:100 -j CLASSIFY --set-class 1:$qossettings{'ACK'}
4c43d644 204 iptables -t mangle -A QOS-OUT -p icmp -m length --length 40:100 -j RETURN
84cab473 205
4c43d644 206 iptables -t mangle -A QOS-OUT -p tcp --syn -m length --length 40:68 -j TOS --set-tos 4
3e151d19 207 iptables -t mangle -A QOS-OUT -p tcp --syn -m length --length 40:68 -j CLASSIFY --set-class 1:$qossettings{'ACK'}
4c43d644 208 iptables -t mangle -A QOS-OUT -p tcp --syn -m length --length 40:68 -j RETURN
84cab473 209
4c43d644 210 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL SYN,ACK -m length --length 40:68 -j TOS --set-tos 4
3e151d19 211 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL SYN,ACK -m length --length 40:68 -j CLASSIFY --set-class 1:$qossettings{'ACK'}
4c43d644 212 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL SYN,ACK -m length --length 40:68 -j RETURN
84cab473 213
4c43d644 214 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK -m length --length 40:100 -j TOS --set-tos 4
3e151d19 215 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK -m length --length 40:100 -j CLASSIFY --set-class 1:$qossettings{'ACK'}
4c43d644 216 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK -m length --length 40:100 -j RETURN
84cab473 217
4c43d644 218 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL RST -j TOS --set-tos 4
3e151d19 219 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL RST -j CLASSIFY --set-class 1:$qossettings{'ACK'}
4c43d644 220 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL RST -j RETURN
84cab473 221
4c43d644 222 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK,RST -j TOS --set-tos 4
3e151d19 223 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK,RST -j CLASSIFY --set-class 1:$qossettings{'ACK'}
4c43d644 224 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK,RST -j RETURN
84cab473 225
4c43d644 226 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK,FIN -j TOS --set-tos 4
3e151d19 227 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK,FIN -j CLASSIFY --set-class 1:$qossettings{'ACK'}
4c43d644 228 iptables -t mangle -A QOS-OUT -p tcp --tcp-flags ALL ACK,FIN -j RETURN
84cab473 229
e8babc92
MT		 230 ### SET TOS
231END
232;
233 foreach $tosruleentry (sort @tosrules)
234 {
235 @tosruleline = split( /\;/, $tosruleentry );
236 $qossettings{'CLASS'} = $tosruleline[0];
237 $qossettings{'TOS'} = abs $tosruleline[2] * 2;
238 if ( $tosruleline[1] eq $qossettings{'RED_DEV'} )
239 {
3e151d19 240 print "\tiptables -t mangle -A QOS-OUT -m tos --tos $qossettings{'TOS'} -j CLASSIFY --set-class 1:$qossettings{'CLASS'}\n";
4c43d644 241 print "\tiptables -t mangle -A QOS-OUT -m tos --tos $qossettings{'TOS'} -j RETURN\n";
e8babc92
MT		 242 }
243 }
244
84cab473
MT		 245print "\n\t### SET PORT-RULES\n";
246 foreach $portruleentry (sort @portrules)
247 {
248 @portruleline = split( /\;/, $portruleentry );
249 if ( $portruleline[1] eq $qossettings{'RED_DEV'} )
250 {
251 $qossettings{'CLASS'} = $portruleline[0];
252 $qossettings{'DEVICE'} = $portruleline[1];
253 $qossettings{'PPROT'} = $portruleline[2];
254 $qossettings{'QIP'} = $portruleline[3];
255 $qossettings{'QPORT'} = $portruleline[4];
256 $qossettings{'DIP'} = $portruleline[5];
257 $qossettings{'DPORT'} = $portruleline[6];
4c43d644 258 print "\tiptables -t mangle -A QOS-OUT ";
84cab473
MT		 259 if ($qossettings{'QIP'} ne ''){
260 print "-s $qossettings{'QIP'} ";
261 }
262 if ($qossettings{'DIP'} ne ''){
263 print "-d $qossettings{'DIP'} ";
264 }
265 print "-p $qossettings{'PPROT'} ";
d2414ee7
CS		 266# if (($qossettings{'QPORT'} ne '') || ($qossettings{'DPORT'} ne '')){
267# print "-m multiport ";
268# }
84cab473
MT		 269 if ($qossettings{'QPORT'} ne ''){
270 print "--sport $qossettings{'QPORT'} ";
271 }
272 if ($qossettings{'DPORT'} ne ''){
273 print "--dport $qossettings{'DPORT'} ";
274 }
3e151d19 275 print "-j CLASSIFY --set-class 1:$qossettings{'CLASS'}\n";
4c43d644 276 print "\tiptables -t mangle -A QOS-OUT ";
84cab473
MT		 277 if ($qossettings{'QIP'} ne ''){
278 print "-s $qossettings{'QIP'} ";
279 }
280 if ($qossettings{'DIP'} ne ''){
281 print "-d $qossettings{'DIP'} ";
282 }
283 print "-p $qossettings{'PPROT'} ";
d2414ee7
CS		 284# if (($qossettings{'QPORT'} ne '') || ($qossettings{'DPORT'} ne '')){
285# print "-m multiport ";
286# }
84cab473
MT		 287 if ($qossettings{'QPORT'} ne ''){
288 print "--sport $qossettings{'QPORT'} ";
289 }
290 if ($qossettings{'DPORT'} ne ''){
291 print "--dport $qossettings{'DPORT'} ";
292 }
293 print "-j RETURN\n\n";
294 }
295 }
f013ab2b
MT		 296print <<END
297
298 ### SET LEVEL7-RULES
299END
300;
301 foreach $l7ruleentry (sort @l7rules)
302 {
303 @l7ruleline = split( /\;/, $l7ruleentry );
304 if ( $l7ruleline[1] eq $qossettings{'RED_DEV'} )
305 {
306 $qossettings{'CLASS'} = $l7ruleline[0];
307 $qossettings{'DEVICE'} = $l7ruleline[1];
308 $qossettings{'L7PROT'} = $l7ruleline[2];
309 $qossettings{'QIP'} = $l7ruleline[3];
310 $qossettings{'DIP'} = $l7ruleline[4];
4c43d644 311 print "\tiptables -t mangle -A QOS-OUT ";
f013ab2b
MT		 312 if ($qossettings{'QIP'} ne ''){
313 print "-s $qossettings{'QIP'} ";
314 }
315 if ($qossettings{'DIP'} ne ''){
316 print "-d $qossettings{'DIP'} ";
317 }
3e151d19 318 print "-m layer7 --l7dir /etc/l7-protocols/protocols --l7proto $qossettings{'L7PROT'} -j CLASSIFY --set-class 1:$qossettings{'CLASS'}\n";
4c43d644 319 print "\tiptables -t mangle -A QOS-OUT ";
f013ab2b
MT		 320 if ($qossettings{'QIP'} ne ''){
321 print "-s $qossettings{'QIP'} ";
322 }
323 if ($qossettings{'DIP'} ne ''){
324 print "-d $qossettings{'DIP'} ";
325 }
326 print "-m layer7 --l7dir /etc/l7-protocols/protocols --l7proto $qossettings{'L7PROT'} -j RETURN\n";
327 }
328 }
329
84cab473
MT		 330print <<END
331
332 ### REDUNDANT: SET ALL NONMARKED PACKETS TO DEFAULT CLASS
3e151d19 333 iptables -t mangle -A QOS-OUT -j CLASSIFY --set-class 1:$qossettings{'DEFCLASS_OUT'}
84cab473
MT		 334
335 ###
336 ### $qossettings{'IMQ_DEV'}
337 ###
338
cebad6e2 339 tc qdisc del dev $qossettings{'RED_DEV'} ingress >/dev/null 2>&1
3c33d9d8
MT		 340 tc qdisc add dev $qossettings{'RED_DEV'} handle ffff: ingress
341
84cab473 342 ### BRING UP $qossettings{'IMQ_DEV'}
3c33d9d8
MT		 343 if [ ! -d "/sys/class/net/$qossettings{'IMQ_DEV'}" ]; then
344 ip link add name $qossettings{'IMQ_DEV'} type ifb
345 fi
346
347 #tc qdisc del dev $qossettings{'IMQ_DEV'} root
348 #tc qdisc del dev $qossettings{'IMQ_DEV'} ingress
84cab473
MT		 349 ip link set $qossettings{'IMQ_DEV'} up
350
3c33d9d8
MT		 351 tc filter add dev $qossettings{'RED_DEV'} parent ffff: protocol all u32 match u32 0 0 \\
352 action mirred egress redirect dev $qossettings{'IMQ_DEV'}
353
84cab473 354 ### ADD HTB QDISC FOR $qossettings{'IMQ_DEV'}
38288aee 355 tc qdisc del dev $qossettings{'IMQ_DEV'} root >/dev/null 2>&1
84cab473
MT		 356 tc qdisc add dev $qossettings{'IMQ_DEV'} root handle 2: htb default $qossettings{'DEFCLASS_INC'}
357
358 ### MAIN RATE LIMIT
359 tc class add dev $qossettings{'IMQ_DEV'} parent 2: classid 2:1 htb rate $qossettings{'INC_SPD'}kbit
360
361 ### CLASSES FOR $qossettings{'IMQ_DEV'}
362END
363;
364foreach $classentry (sort @classes)
365{
366 @classline = split( /\;/, $classentry );
367 if ($qossettings{'IMQ_DEV'} eq $classline[0]) {
368 $qossettings{'DEVICE'} = $classline[0];
369 $qossettings{'CLASS'} = $classline[1];
370 $qossettings{'PRIO'} = $classline[2];
371 $qossettings{'RATE'} = $classline[3];
372 $qossettings{'CEIL'} = $classline[4];
373 $qossettings{'BURST'} = $classline[5];
374 $qossettings{'CBURST'} = $classline[6];
375 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'} ";
4ed2816f 376 if (($qossettings{'BURST'} ne '') && ($qossettings{'BURST'} ne 0)) {
84cab473
MT		 377 print "burst $qossettings{'BURST'}k ";
378 }
4ed2816f 379 if (($qossettings{'CBURST'} ne '') && ($qossettings{'CBURST'} ne 0)) {
84cab473
MT		 380 print "cburst $qossettings{'CBURST'}k";
381 }
382 print "\n";
383 }
384}
84cab473
MT		 385
386print "\n\t### ATTACH QDISC TO LEAF CLASSES\n";
387foreach $classentry (sort @classes)
388{
389 @classline = split( /\;/, $classentry );
390 if ($qossettings{'IMQ_DEV'} eq $classline[0]) {
391 $qossettings{'DEVICE'} = $classline[0];
392 $qossettings{'CLASS'} = $classline[1];
24dbd0f7 393 print "\ttc qdisc add dev $qossettings{'DEVICE'} parent 2:$qossettings{'CLASS'} handle $qossettings{'CLASS'}: fq_codel $fqcodel_options\n";
84cab473
MT		 394 }
395}
84cab473
MT		 396print <<END
397
4ed2816f 398 ### ADD QOS-INC CHAIN TO THE MANGLE TABLE IN IPTABLES
84cab473 399 iptables -t mangle -N QOS-INC
424a332f 400 iptables -t mangle -A FORWARD -i $qossettings{'RED_DEV'} -j QOS-INC
e8babc92
MT		 401
402 ### SET TOS
403END
404;
405 foreach $tosruleentry (sort @tosrules)
406 {
407 @tosruleline = split( /\;/, $tosruleentry );
408 $qossettings{'CLASS'} = $tosruleline[0];
409 $qossettings{'TOS'} = abs $tosruleline[2] * 2;
410 if ( $tosruleline[1] eq $qossettings{'IMQ_DEV'} )
411 {
3e151d19 412 print "\tiptables -t mangle -A QOS-INC -m tos --tos $qossettings{'TOS'} -j CLASSIFY --set-class 2:$qossettings{'CLASS'}\n";
4c43d644 413 print "\tiptables -t mangle -A QOS-INC -m tos --tos $qossettings{'TOS'} -j RETURN\n";
e8babc92
MT		 414 }
415
416 }
417
84cab473
MT		 418print "\n\t### SET PORT-RULES\n";
419 foreach $portruleentry (sort @portrules)
420 {
421 @portruleline = split( /\;/, $portruleentry );
422 if ( $portruleline[1] eq $qossettings{'IMQ_DEV'} )
423 {
424 $qossettings{'CLASS'} = $portruleline[0];
425 $qossettings{'DEVICE'} = $portruleline[1];
426 $qossettings{'PPROT'} = $portruleline[2];
427 $qossettings{'QIP'} = $portruleline[3];
428 $qossettings{'QPORT'} = $portruleline[4];
429 $qossettings{'DIP'} = $portruleline[5];
430 $qossettings{'DPORT'} = $portruleline[6];
4c43d644 431 print "\tiptables -t mangle -A QOS-INC ";
84cab473
MT		 432 if ($qossettings{'QIP'} ne ''){
433 print "-s $qossettings{'QIP'} ";
434 }
435 if ($qossettings{'DIP'} ne ''){
436 print "-d $qossettings{'DIP'} ";
437 }
438 print "-p $qossettings{'PPROT'} ";
d2414ee7
CS		 439# if (($qossettings{'QPORT'} ne '') || ($qossettings{'DPORT'} ne '')){
440# print "-m multiport ";
441# }
84cab473
MT		 442 if ($qossettings{'QPORT'} ne ''){
443 print "--sport $qossettings{'QPORT'} ";
444 }
445 if ($qossettings{'DPORT'} ne ''){
446 print "--dport $qossettings{'DPORT'} ";
447 }
3e151d19 448 print "-j CLASSIFY --set-class 2:$qossettings{'CLASS'}\n";
4c43d644 449 print "\tiptables -t mangle -A QOS-INC ";
84cab473
MT		 450 if ($qossettings{'QIP'} ne ''){
451 print "-s $qossettings{'QIP'} ";
452 }
453 if ($qossettings{'DIP'} ne ''){
454 print "-d $qossettings{'DIP'} ";
455 }
456 print "-p $qossettings{'PPROT'} ";
d2414ee7
CS		 457# if (($qossettings{'QPORT'} ne '') || ($qossettings{'DPORT'} ne '')){
458# print "-m multiport ";
459# }
84cab473
MT		 460 if ($qossettings{'QPORT'} ne ''){
461 print "--sport $qossettings{'QPORT'} ";
462 }
463 if ($qossettings{'DPORT'} ne ''){
464 print "--dport $qossettings{'DPORT'} ";
465 }
466 print "-j RETURN\n\n";
467 }
468 }
469
f013ab2b
MT		 470print <<END
471
472 ### SET LEVEL7-RULES
473END
474;
475 foreach $l7ruleentry (sort @l7rules)
476 {
477 @l7ruleline = split( /\;/, $l7ruleentry );
478 if ( $l7ruleline[1] eq $qossettings{'IMQ_DEV'} )
479 {
480 $qossettings{'CLASS'} = $l7ruleline[0];
481 $qossettings{'DEVICE'} = $l7ruleline[1];
482 $qossettings{'L7PROT'} = $l7ruleline[2];
483 $qossettings{'QIP'} = $l7ruleline[3];
484 $qossettings{'DIP'} = $l7ruleline[4];
4c43d644 485 print "\tiptables -t mangle -A QOS-INC ";
f013ab2b
MT		 486 if ($qossettings{'QIP'} ne ''){
487 print "-s $qossettings{'QIP'} ";
488 }
489 if ($qossettings{'DIP'} ne ''){
490 print "-d $qossettings{'DIP'} ";
491 }
3e151d19 492 print "-m layer7 --l7dir /etc/l7-protocols/protocols --l7proto $qossettings{'L7PROT'} -j CLASSIFY --set-class 2:$qossettings{'CLASS'}\n";
4c43d644 493 print "\tiptables -t mangle -A QOS-INC ";
f013ab2b
MT		 494 if ($qossettings{'QIP'} ne ''){
495 print "-s $qossettings{'QIP'} ";
496 }
497 if ($qossettings{'DIP'} ne ''){
498 print "-d $qossettings{'DIP'} ";
499 }
500 print "-m layer7 --l7dir /etc/l7-protocols/protocols --l7proto $qossettings{'L7PROT'} -j RETURN\n";
501 }
502 }
503
84cab473 504print <<END
84cab473 505 ### REDUNDANT: SET ALL NONMARKED PACKETS TO DEFAULT CLASS
3e151d19 506 iptables -t mangle -A QOS-INC -j CLASSIFY --set-class 2:$qossettings{'DEFCLASS_INC'}
84cab473 507
363fb6af 508 ## STARTING COLLECTOR
6a9bcd6c
MT		 509 /usr/local/bin/qosd $qossettings{'RED_DEV'} >/dev/null 2>&1
510 /usr/local/bin/qosd $qossettings{'IMQ_DEV'} >/dev/null 2>&1
363fb6af 511
c772568a 512 for i in \$(ls \$RRDLOG/class_*.rrd); do
607365bc 513 rrdtool update \$i \$(date +%s): 2>/dev/null
c772568a
AF		 514 done
515
84cab473
MT		 516 echo "Quality of Service was successfully started!"
517 exit 0
518 ;;
4ed2816f 519 clear|stop)
84cab473 520 ### RESET EVERYTHING TO A KNOWN STATE
a4109682 521 killall qosd >/dev/null 2>&1
6a9bcd6c 522
84cab473 523 # DELETE QDISCS
24dbd0f7 524 tc qdisc del dev $qossettings{'RED_DEV'} root >/dev/null 2>&1
eedf7b06 525 tc qdisc del dev $qossettings{'RED_DEV'} ingress >/dev/null 2>&1
7f39519e 526 tc qdisc add root dev $qossettings{'RED_DEV'} fq_codel >/dev/null 2>&1
a4109682 527 tc qdisc del dev $qossettings{'IMQ_DEV'} root >/dev/null 2>&1
eedf7b06 528 tc qdisc del dev $qossettings{'IMQ_DEV'} ingress >/dev/null 2>&1
7f39519e 529 tc qdisc add root dev $qossettings{'IMQ_DEV'} fq_codel >/dev/null 2>&1
4ed2816f 530 # STOP IMQ-DEVICE
a4109682 531 ip link set $qossettings{'IMQ_DEV'} down >/dev/null 2>&1
eedf7b06 532 ip link del $qossettings{'IMQ_DEV'} >/dev/null 2>&1
3c33d9d8
MT		 533
534 # REMOVE & FLUSH CHAINS
a4109682 535 iptables -t mangle --delete POSTROUTING -o $qossettings{'RED_DEV'} -j QOS-OUT >/dev/null 2>&1
424a332f 536 iptables -t mangle --delete FORWARD -i $qossettings{'RED_DEV'} -j QOS-INC >/dev/null 2>&1
a4109682
AF		 537 iptables -t mangle --flush QOS-OUT >/dev/null 2>&1
538 iptables -t mangle --delete-chain QOS-OUT >/dev/null 2>&1
a4109682
AF		 539 iptables -t mangle --flush QOS-INC >/dev/null 2>&1
540 iptables -t mangle --delete-chain QOS-INC >/dev/null 2>&1
dcd81b26 541
a4109682 542 rmmod sch_htb >/dev/null 2>&1
c772568a
AF		 543
544 for i in \$(ls \$RRDLOG/class_*.rrd); do
545 rrdtool update \$i \$(date +%s):
546 done
547
84cab473
MT		 548 echo "Quality of Service was successfully cleared!"
549 ;;
4ed2816f 550 gen|generate)
be7878d5 551 echo -n "Generating the QoS-Scripts..."
b684b13b
MT		 552 /usr/bin/perl /var/ipfire/qos/bin/makeqosscripts.pl > /var/ipfire/qos/bin/qos.sh
553 echo ".Done!"
554 exit 0
555 ;;
4ed2816f
MT		 556 restart)
557 ### FIRST CLEAR EVERYTHING
558 \$0 clear
559
560 ### THEN START
561 \$0 start
562 ;;
84cab473
MT		 563esac
564### EOF
565END
566;
567
568############################################################################################################################
569############################################################################################################################
IPFire 2.x development tree