]>
git.ipfire.org Git - ipfire-2.x.git/blob - html/cgi-bin/qos.cgi
5 # This code is distributed under the terms of the GPL
12 # enable only the following on debugging purpose
14 use CGI
:: Carp
'fatalsToBrowser' ;
16 require '/var/ipfire/general-functions.pl' ;
17 require "${General::swroot}/lang.pl" ;
18 require "${General::swroot}/header.pl" ;
24 my $errormessage = "" ;
28 my $subclassentry = "" ;
30 my $portruleentry = "" ;
31 my $tosruleentry = "" ;
40 my @subclassline = ();
42 my @portruleline = ();
47 my $classfile = "/var/ipfire/qos/classes" ;
48 my $subclassfile = "/var/ipfire/qos/subclasses" ;
49 my $level7file = "/var/ipfire/qos/level7config" ;
50 my $portfile = "/var/ipfire/qos/portconfig" ;
51 my $tosfile = "/var/ipfire/qos/tosconfig" ;
52 & General
:: readhash
( "${General::swroot}/ethernet/settings" , \
%netsettings );
54 & Header
:: showhttpheaders
();
56 $qossettings { 'ENABLED' } = 'off' ;
57 $qossettings { 'EDIT' } = 'no' ;
58 $qossettings { 'OUT_SPD' } = '' ;
59 $qossettings { 'INC_SPD' } = '' ;
60 $qossettings { 'DEF_OUT_SPD' } = '' ;
61 $qossettings { 'DEF_INC_SPD' } = '' ;
62 $qossettings { 'DEFCLASS_INC' } = '' ;
63 $qossettings { 'DEFCLASS_OUT' } = '' ;
64 $qossettings { 'ACK' } = '' ;
65 $qossettings { 'MTU' } = '1492' ;
66 $qossettings { 'SFQ_PERTUB' } = '10' ;
67 $qossettings { 'QLENGTH' } = '30' ;
68 $qossettings { 'RED_DEV' } = `cat /var/ipfire/red/iface` ;
69 $qossettings { 'IMQ_DEV' } = 'imq0' ;
70 $qossettings { 'VALID' } = 'yes' ;
71 ### Values that have to be initialized
72 $qossettings { 'ACTION' } = '' ;
73 $qossettings { 'ACTIONDEF' } = '' ;
74 $qossettings { 'ACTIONBW' } = '' ;
75 $qossettings { 'RED_DEV_SEL' } = '' ;
76 $qossettings { 'IMQ_DEV_SEL' } = '' ;
77 $qossettings { 'PRIO' } = '' ;
78 $qossettings { 'SPD' } = '' ;
79 $qossettings { 'CLASS' } = '' ;
80 $qossettings { 'SCLASS' } = '' ;
81 $qossettings { 'QPORT' } = '' ;
82 $qossettings { 'DPORT' } = '' ;
83 $qossettings { 'QIP' } = '' ;
84 $qossettings { 'DIP' } = '' ;
85 $qossettings { 'PPROT' } = '' ;
86 $qossettings { 'L7PROT' } = '' ;
87 $qossettings { 'DEVICE' } = '' ;
88 $qossettings { 'MINBWDTH' } = '' ;
89 $qossettings { 'MAXBWDTH' } = '' ;
90 $qossettings { 'BURST' } = '' ;
91 $qossettings { 'CBURST' } = '' ;
92 $qossettings { 'DOCLASS' } = '' ;
93 $qossettings { 'DOSCLASS' } = '' ;
94 $qossettings { 'DOLEVEL7' } = '' ;
95 $qossettings { 'DOPORT' } = '' ;
96 $qossettings { 'CLASS' } = '' ;
97 $qossettings { 'CLASSPRFX' } = '' ;
98 $qossettings { 'DEV' } = '' ;
99 $qossettings { 'TOS' } = '' ;
102 & General
:: readhash
( "${General::swroot}/qos/settings" , \
%qossettings );
103 & Header
:: getcgihash
( \
%qossettings );
105 & Header
:: openpage
( 'QoS' , 1 , '' );
106 & Header
:: openbigbox
( '100%' , 'left' , '' , $errormessage );
108 ############################################################################################################################
109 ############################################################################################################################
111 if ( $qossettings { 'DOCLASS' } eq $Lang :: tr
{ 'save' })
116 if ( $qossettings { 'VALID' } eq 'yes' ) {
117 open ( FILE
, ">> $classfile " ) or die "Unable to write $classfile " ;
119 $qossettings {'DEVICE'}; $qossettings {'CLASS'}; $qossettings {'PRIO'}; $qossettings {'MINBWDTH'}; $qossettings {'MAXBWDTH'}; $qossettings {'BURST'}; $qossettings {'CBURST'}; $qossettings {'TOS'}; $qossettings {'REMARK'};
124 $qossettings { 'ACTION' } = 'Parentklasse hinzufuegen' ;
127 elsif ( $qossettings { 'DOCLASS' } eq 'Bearbeiten' )
129 open ( FILE
, "< $classfile " ) or die "Unable to read $classfile " ;
132 open ( FILE
, "> $classfile " ) or die "Unable to write $classfile " ;
133 foreach $classentry ( sort @classes )
135 @classline = split ( /\;/ , $classentry );
136 if ( $classline [ 1 ] ne $qossettings { 'CLASS' } ) {
137 print FILE
$classentry ;
139 $qossettings { 'DEVICE' } = $classline [ 0 ];
140 $qossettings { 'PRIO' } = $classline [ 2 ];
141 $qossettings { 'MINBWDTH' } = $classline [ 3 ];
142 $qossettings { 'MAXBWDTH' } = $classline [ 4 ];
143 $qossettings { 'BURST' } = $classline [ 5 ];
144 $qossettings { 'CBURST' } = $classline [ 6 ];
145 $qossettings { 'TOS' } = $classline [ 7 ];
146 $qossettings { 'REMARK' } = $classline [ 8 ];
147 $qossettings { 'EDIT' } = 'yes' ;
152 & Header
:: closebigbox
();
153 & Header
:: closepage
();
156 elsif ( $qossettings { 'DOCLASS' } eq 'Loeschen' )
158 open ( FILE
, "< $classfile " ) or die "Unable to read $classfile " ;
161 open ( FILE
, "> $classfile " ) or die "Unable to write $classfile " ;
162 foreach $classentry ( sort @tmp )
164 @tmpline = split ( /\;/ , $classentry );
165 if ( $tmpline [ 1 ] ne $qossettings { 'CLASS' } )
167 print FILE
$classentry ;
171 open ( FILE
, "< $subclassfile " ) or die "Unable to read $classfile " ;
174 open ( FILE
, "> $subclassfile " ) or die "Unable to write $classfile " ;
175 foreach $subclassentry ( sort @tmp )
177 @tmpline = split ( /\;/ , $subclassentry );
178 if ( $tmpline [ 1 ] ne $qossettings { 'CLASS' } )
180 print FILE
$subclassentry ;
184 $message = "Klasse $qossettings {'CLASS'} wurde mit eventuell vorhandenen Unterklassen geloescht." ;
187 ############################################################################################################################
188 ############################################################################################################################
190 if ( $qossettings { 'DOSCLASS' } eq $Lang :: tr
{ 'save' })
194 if ( $qossettings { 'VALID' } eq 'yes' ) {
195 open ( FILE
, ">> $subclassfile " ) or die "Unable to write $subclassfile " ;
197 $qossettings {'DEVICE'}; $qossettings {'CLASS'}; $qossettings {'SCLASS'}; $qossettings {'PRIO'}; $qossettings {'MINBWDTH'}; $qossettings {'MAXBWDTH'}; $qossettings {'BURST'}; $qossettings {'CBURST'}; $qossettings {'TOS'};
202 $qossettings { 'ACTION' } = 'Unterklasse hinzufuegen' ;
204 } elsif ( $qossettings { 'DOSCLASS' } eq 'Loeschen' )
206 open ( FILE
, "< $subclassfile " ) or die "Unable to read $classfile " ;
209 open ( FILE
, "> $subclassfile " ) or die "Unable to write $classfile " ;
210 foreach $subclassentry ( sort @tmp )
212 @tmpline = split ( /\;/ , $subclassentry );
213 if ( $tmpline [ 2 ] ne $qossettings { 'CLASS' } )
215 print FILE
$subclassentry ;
219 $message = "Unterklasse $qossettings {'CLASS'} wurde geloescht." ;
222 ############################################################################################################################
223 ############################################################################################################################
225 if ( $qossettings { 'DOLEVEL7' } eq $Lang :: tr
{ 'save' })
227 if ( $qossettings { 'QIP' } ne '' ) {
228 unless ( & General
:: validip
( $qossettings { 'QIP' }) ) {
229 $qossettings { 'VALID' } = 'no' ;
230 $message = "Die Quell-IP-Adresse ist ungueltig." ;
233 if ( $qossettings { 'DIP' } ne '' ) {
234 unless ( & General
:: validip
( $qossettings { 'DIP' }) ) {
235 $qossettings { 'VALID' } = 'no' ;
236 $message = "Die Ziel-IP-Adresse ist ungueltig." ;
239 if ( $qossettings { 'CLASS' } >= 100 && $qossettings { 'CLASS' } < 121 ) {
240 $qossettings { 'DEVICE' } = $qossettings { 'RED_DEV' };
241 } elsif ( $qossettings { 'CLASS' } >= 1000 && $qossettings { 'CLASS' } < 1021 ) {
242 $qossettings { 'DEVICE' } = $qossettings { 'RED_DEV' };
243 } elsif ( $qossettings { 'CLASS' } >= 200 && $qossettings { 'CLASS' } < 221 ) {
244 $qossettings { 'DEVICE' } = $qossettings { 'IMQ_DEV' };
245 } elsif ( $qossettings { 'CLASS' } >= 2000 && $qossettings { 'CLASS' } < 2021 ) {
246 $qossettings { 'DEVICE' } = $qossettings { 'IMQ_DEV' };
248 if ( $qossettings { 'VALID' } eq 'yes' ) {
249 open ( FILE
, ">> $level7file " ) or die "Unable to write $level7file " ;
251 $qossettings {'CLASS'}; $qossettings {'DEVICE'}; $qossettings {'L7PROT'}; $qossettings {'QIP'}; $qossettings {'DIP'};
256 $qossettings { 'ACTION' } = 'Level7-Regel hinzufuegen' ;
259 elsif ( $qossettings { 'DOLEVEL7' } eq 'Loeschen' )
261 open ( FILE
, "< $level7file " ) or die "Unable to read $level7file " ;
264 open ( FILE
, "> $level7file " ) or die "Unable to read $level7file " ;
265 foreach $l7ruleentry ( sort @l7rules )
267 @l7ruleline = split ( /\;/ , $l7ruleentry );
268 if ( ( $l7ruleline [ 0 ] ne $qossettings { 'CLASS' }) && ( $l7ruleline [ 2 ] ne $qossettings { 'L7PROT' }))
270 print FILE
$l7ruleentry ;
274 $message = "Level7-Regel ( $qossettings {'CLASS'} - $qossettings {'L7PROT'}) wurde geloescht." ;
277 ############################################################################################################################
278 ############################################################################################################################
280 if ( $qossettings { 'DOPORT' } eq $Lang :: tr
{ 'save' })
282 if ( $qossettings { 'QIP' } ne '' ) {
283 unless ( & General
:: validip
( $qossettings { 'QIP' }) ) {
284 $qossettings { 'VALID' } = 'no' ;
285 $message = "Die Quell-IP-Adresse ist ungueltig." ;
288 if ( $qossettings { 'DIP' } ne '' ) {
289 unless ( & General
:: validip
( $qossettings { 'DIP' }) ) {
290 $qossettings { 'VALID' } = 'no' ;
291 $message = "Die Ziel-IP-Adresse ist ungueltig." ;
294 if ( $qossettings { 'CLASS' } >= 100 && $qossettings { 'CLASS' } < 121 ) {
295 $qossettings { 'DEVICE' } = $qossettings { 'RED_DEV' };
296 } elsif ( $qossettings { 'CLASS' } >= 1000 && $qossettings { 'CLASS' } < 1021 ) {
297 $qossettings { 'DEVICE' } = $qossettings { 'RED_DEV' };
298 } elsif ( $qossettings { 'CLASS' } >= 200 && $qossettings { 'CLASS' } < 221 ) {
299 $qossettings { 'DEVICE' } = $qossettings { 'IMQ_DEV' };
300 } elsif ( $qossettings { 'CLASS' } >= 2000 && $qossettings { 'CLASS' } < 2021 ) {
301 $qossettings { 'DEVICE' } = $qossettings { 'IMQ_DEV' };
303 if ( $qossettings { 'VALID' } eq 'yes' ) {
304 open ( FILE
, ">> $portfile " ) or die "Unable to write $portfile " ;
306 $qossettings {'CLASS'}; $qossettings {'DEVICE'}; $qossettings {'PPROT'}; $qossettings {'QIP'}; $qossettings {'QPORT'}; $qossettings {'DIP'}; $qossettings {'DPORT'};
311 $qossettings { 'ACTION' } = 'Port-Regel hinzufuegen' ;
313 } elsif ( $qossettings { 'DOPORT' } eq 'Loeschen' )
315 open ( FILE
, "< $portfile " ) or die "Unable to read $portfile " ;
318 open ( FILE
, "> $portfile " ) or die "Unable to read $portfile " ;
319 foreach $portruleentry ( sort @portrules )
321 @portruleline = split ( /\;/ , $portruleentry );
322 unless ( ( $portruleline [ 0 ] eq $qossettings { 'CLASS' }) && ( $portruleline [ 2 ] eq $qossettings { 'PPROT' }) && ( $portruleline [ 3 ] eq $qossettings { 'QIP' }) && ( $portruleline [ 4 ] eq $qossettings { 'QPORT' }) && ( $portruleline [ 5 ] eq $qossettings { 'DIP' }) && ( $portruleline [ 6 ] eq $qossettings { 'DPORT' }))
324 print FILE
$portruleentry ;
328 $message = "Port-Regel ( $qossettings {'CLASS'} - $qossettings {'PPROT'}) wurde geloescht." ;
331 ############################################################################################################################
332 ############################################################################################################################
334 if ( $qossettings { 'DOTOS' } eq $Lang :: tr
{ 'save' })
336 if ( $qossettings { 'CLASS' } >= 100 && $qossettings { 'CLASS' } < 121 ) {
337 $qossettings { 'DEVICE' } = $qossettings { 'RED_DEV' };
338 } elsif ( $qossettings { 'CLASS' } >= 1000 && $qossettings { 'CLASS' } < 1021 ) {
339 $qossettings { 'DEVICE' } = $qossettings { 'RED_DEV' };
340 } elsif ( $qossettings { 'CLASS' } >= 200 && $qossettings { 'CLASS' } < 221 ) {
341 $qossettings { 'DEVICE' } = $qossettings { 'IMQ_DEV' };
342 } elsif ( $qossettings { 'CLASS' } >= 2000 && $qossettings { 'CLASS' } < 2021 ) {
343 $qossettings { 'DEVICE' } = $qossettings { 'IMQ_DEV' };
345 open ( FILE
, ">> $tosfile " ) or die "Unable to write $tosfile " ;
347 $qossettings {'CLASS'}; $qossettings {'DEVICE'}; $qossettings {'TOS'};
352 elsif ( $qossettings { 'DOTOS' } eq 'Loeschen' )
354 open ( FILE
, "< $tosfile " ) or die "Unable to read $tosfile " ;
357 open ( FILE
, "> $tosfile " ) or die "Unable to read $tosfile " ;
358 foreach $tosruleentry ( sort @tosrules )
360 @tosruleline = split ( /\;/ , $tosruleentry );
361 unless ( ( $tosruleline [ 0 ] eq $qossettings { 'CLASS' }) && ( $tosruleline [ 2 ] eq $qossettings { 'TOS' }))
363 print FILE
$tosruleentry ;
367 $message = "TOS-Regel ( $qossettings {'CLASS'} - $qossettings {'TOS'}) wurde geloescht." ;
368 } elsif ( $qossettings { 'DOTOS' } eq 'Bearbeiten' )
370 open ( FILE
, "< $tosfile " ) or die "Unable to read $tosfile " ;
373 open ( FILE
, "> $tosfile " ) or die "Unable to write $tosfile " ;
374 foreach $tosruleentry ( sort @tosrules )
376 @tosruleline = split ( /\;/ , $tosruleentry );
377 if (( $tosruleline [ 0 ] eq $qossettings { 'CLASS' } ) && ( $tosruleline [ 2 ] eq $qossettings { 'TOS' } )) {
378 $qossettings { 'DEVICE' } = $tosruleline [ 1 ];
379 $qossettings { 'CLASS' } = $tosruleline [ 0 ];
380 $qossettings { 'TOS' } = $tosruleline [ 2 ];
381 $qossettings { 'EDIT' } = 'yes' ;
383 print FILE
$tosruleentry ;
388 & Header
:: closebigbox
();
389 & Header
:: closepage
();
393 ############################################################################################################################
394 ############################################################################################################################
396 if ( $qossettings { 'ACTION' } eq 'Start' )
398 system ( "/usr/local/bin/qosctrl generate >/dev/null 2>&1" );
399 system ( "/usr/bin/touch /var/ipfire/qos/enable" );
400 system ( "/usr/local/bin/qosctrl start >/dev/null 2>&1" );
401 system ( "logger -t ipfire 'QoS started'" );
402 $qossettings { 'ENABLED' } = 'on' ;
403 & General
:: writehash
( "${General::swroot}/qos/settings" , \
%qossettings );
405 elsif ( $qossettings { 'ACTION' } eq 'Stop' )
407 system ( "/usr/local/bin/qosctrl stop >/dev/null 2>&1" );
408 unlink "/var/ipfire/qos/bin/qos.sh" ;
409 unlink "/var/ipfire/qos/enable" ;
410 system ( "logger -t ipfire 'QoS stopped'" );
411 $qossettings { 'ENABLED' } = 'off' ;
412 & General
:: writehash
( "${General::swroot}/qos/settings" , \
%qossettings );
414 elsif ( $qossettings { 'ACTION' } eq 'Neustart' )
416 if ( $qossettings { 'ENABLED' } eq 'on' ){
417 system ( "/usr/local/bin/qosctrl stop >/dev/null 2>&1" );
418 system ( "/usr/local/bin/qosctrl generate >/dev/null 2>&1" );
419 system ( "/usr/local/bin/qosctrl start >/dev/null 2>&1" );
420 system ( "logger -t ipfire 'QoS restarted'" );
423 elsif ( $qossettings { 'ACTION' } eq $Lang :: tr
{ 'save' })
425 if ( $qossettings { 'DEF_INC_SPD' } eq '' ) {
426 $qossettings { 'DEF_INC_SPD' } = int ( $qossettings { 'INC_SPD' } * 0.9 );
428 if ( $qossettings { 'DEF_OUT_SPD' } eq '' ) {
429 $qossettings { 'DEF_OUT_SPD' } = int ( $qossettings { 'OUT_SPD' } * 0.9 );
431 & General
:: writehash
( "${General::swroot}/qos/settings" , \
%qossettings );
433 elsif ( $qossettings { 'ACTION' } eq 'Statusinformationen' )
435 & Header
:: openbox
( '100%' , 'left' , 'QoS Status' );
436 if ( $qossettings { 'ENABLED' } eq 'on' ){
438 $output = `/usr/local/bin/qosctrl status` ;
439 $output = & Header
:: cleanhtml
( $output , "y" );
440 print "<pre> $output </pre> \n " ;
441 } else { print "QoS ist nicht aktiviert!" ; }
443 & Header
:: closebigbox
();
444 & Header
:: closepage
();
447 elsif ( $qossettings { 'ACTION' } eq 'Grafische Auswertung' )
449 open ( FILE
, "< $classfile " ) or die "Unable to read $classfile " ;
452 open ( FILE
, "< $subclassfile " ) or die "Unable to read $subclassfile " ;
453 @subclasses = < FILE
>;
455 & Header
:: openbox
( '100%' , 'left' , 'QoS Graphen' );
457 <table width='100%'> <tr><td align='center'><font color='red'>Diese Seite braucht je nach Geschwindigkeit des Computers laenger zum Laden.</font>
458 <tr><td align='center'><b>Klasse:</b>
461 foreach $classentry ( sort @classes )
463 @classline = split ( /\;/ , $classentry );
464 $qossettings { 'CLASS' }= $classline [ 1 ];
466 <input type="button" onClick="swapVisibility(' $qossettings {'CLASS'}')" value=' $qossettings {'CLASS'}'>
475 foreach $classentry ( sort @classes )
477 @classline = split ( /\;/ , $classentry );
478 $qossettings { 'DEV' }= $classline [ 0 ];
479 $qossettings { 'CLASS' }= $classline [ 1 ];
480 & gengraph
( $qossettings { 'DEV' }, $qossettings { 'CLASS' });
481 print "<div id=' $qossettings {'CLASS'}' style='display: none'>" ;
482 & Header
:: openbox
( '100%' , 'center' , " $qossettings {'CLASS'} ( $qossettings {'DEV'})" );
485 <tr><td colspan='2' align='center'><img src='/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}-packets.png'>
486 <tr><td colspan='2' align='center'><img src='/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}-borrowed.png'>
487 <tr><td colspan='2' align='center'><img src='/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}-bytes.png'>
490 foreach $subclassentry ( sort @subclasses )
492 @subclassline = split ( /\;/ , $subclassentry );
493 if ( $subclassline [ 1 ] eq $classline [ 1 ]) {
494 $qossettings { 'DEV' }= $subclassline [ 0 ];
495 $qossettings { 'SCLASS' }= $subclassline [ 2 ];
496 & gengraph
( $qossettings { 'DEV' }, $qossettings { 'SCLASS' });
498 <tr><td colspan='2' align='center'><img src='/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'SCLASS'}_ $qossettings {'DEV'}-packets.png'>
499 <tr><td colspan='2' align='center'><img src='/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'SCLASS'}_ $qossettings {'DEV'}-borrowed.png'>
500 <tr><td colspan='2' align='center'><img src='/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'SCLASS'}_ $qossettings {'DEV'}-bytes.png'>
505 print " \t\t </table>" ;
514 & Header
:: closebigbox
();
515 & Header
:: closepage
();
518 elsif ( $qossettings { 'ACTION' } eq 'Parentklasse hinzufuegen' )
521 & Header
:: closebigbox
();
522 & Header
:: closepage
();
525 elsif ( $qossettings { 'ACTION' } eq 'Unterklasse hinzufuegen' )
528 & Header
:: closebigbox
();
529 & Header
:: closepage
();
532 elsif ( $qossettings { 'ACTION' } eq 'Regel hinzufuegen' )
534 & Header
:: openbox
( '100%' , 'center' , 'Regel hinzufuegen' );
537 <tr><td align='center'>Waehlen sie <u>eine</u> der untenstehenden Regeln aus.
538 <tr><td align='center'>
539 <input type="button" onClick="swapVisibility('l7rule')" value='Level7-Regel' />
540 <input type="button" onClick="swapVisibility('portrule')" value='Port-Regel' />
541 <input type="button" onClick="swapVisibility('tosrule')" value='TOS-Regel' />
547 <div id='l7rule' style='display: none'>
553 <div id='portrule' style='display: none'>
559 <div id='tosrule' style='display: none'>
567 & Header
:: closebigbox
();
568 & Header
:: closepage
();
571 elsif ( $qossettings { 'ACTION' } eq 'Erweiterte Einstellungen' )
574 & Header
:: closebigbox
();
575 & Header
:: closepage
();
578 if ( $qossettings { 'ACTIONBW' } eq 'Andern' )
581 & Header
:: closebigbox
();
582 & Header
:: closepage
();
585 if ( $qossettings { 'ACTIONDEF' } eq 'Andern' )
588 & Header
:: closebigbox
();
589 & Header
:: closepage
();
593 & General
:: readhash
( "${General::swroot}/qos/settings" , \
%qossettings );
595 my $status = $Lang :: tr
{ 'stopped' };
596 my $statuscolor = '#993333' ;
597 if ( $qossettings { 'ENABLED' } eq 'on' ) {
598 $status = $Lang :: tr
{ 'running' };
599 $statuscolor = '#339933' ;
602 if ( $netsettings { 'RED_TYPE' } ne 'PPPOE' ) {
603 $qossettings { 'RED_DEV' } = $netsettings { 'RED_DEV' };
607 & Header
:: openbox
( '100%' , 'left' , $Lang :: tr
{ 'error messages' });
608 print "<class name='base'> $errormessage \n " ;
609 print " </class> \n " ;
613 ############################################################################################################################
614 ############################################################################################################################
616 & Header
:: openbox
( '100%' , 'center' , 'Quality of Service' );
622 if ( $message ne "" ) {
623 print "<tr><td colspan='2' align='center'><font color='red'> $message </font>" ;
626 <tr><td width='50%' align='left'><b>Quality of Service:</b>
627 <td width='50%' align='center' bgcolor=' $statuscolor '><font color='white'> $status </font>
628 <tr><td width='100%' align='center' colspan='2'>
629 <input type='submit' name='ACTION' value="Start" />
630 <input type='submit' name='ACTION' value="Stop" />
631 <input type='submit' name='ACTION' value=" $Lang ::tr{'restart'}" />
634 if (( $qossettings { 'OUT_SPD' } ne '' ) && ( $qossettings { 'INC_SPD' } ne '' )) {
636 <tr><td colspan='3'>
637 <tr><td width='40%' align='right'>Downloadgeschwindigkeit: <td width='40%' align='left'> $qossettings {'INC_SPD'} kbps
638 <td width='20%' rowspan='2' align='center' valign='middle'><input type='submit' name='ACTIONBW' value='Andern' />
639 <tr><td width='40%' align='right'>Uploadgeschwindigkeit: <td width='40%' align='left'> $qossettings {'OUT_SPD'} kbps
643 if (( $qossettings { 'DEFCLASS_OUT' } ne '' ) && ( $qossettings { 'DEFCLASS_INC' } ne '' )&& ( $qossettings { 'ACK' } ne '' )) {
645 <tr><td colspan='3'><hr />
646 <tr><td width='40%' align='right'>Downloadstandardklasse: <td width='40%' align='left'> $qossettings {'DEFCLASS_INC'}
647 <td width='20%' rowspan='3' align='center' valign='middle'><input type='submit' name='ACTIONDEF' value='Andern'>
648 <tr><td width='40%' align='right'>Uploadstandardklasse: <td width='40%' align='left'> $qossettings {'DEFCLASS_OUT'}
649 <tr><td width='40%' align='right'>ACKs: <td width='40%' align='left'> $qossettings {'ACK'}
650 <tr><td colspan='3' width='100%'><hr />
651 <tr><td colspan='3' width='100%' align='center'>
652 <table boder='0' cellpadding='0' cellspacing='0'>
653 <tr><td><input type='submit' name='ACTION' value='Parentklasse hinzufuegen'>
654 <td><input type='submit' name='ACTION' value='Erweiterte Einstellungen'>
655 <tr><td><input type='submit' name='ACTION' value='Statusinformationen'>
656 <td><input type='submit' name='ACTION' value='Grafische Auswertung'>
665 if ( ( $qossettings { 'OUT_SPD' } eq '' ) || ( $qossettings { 'INC_SPD' } eq '' ) ) {
667 & Header
:: closebigbox
();
668 & Header
:: closepage
();
672 if ( ( $qossettings { 'DEFCLASS_INC' } eq '' ) || ( $qossettings { 'DEFCLASS_OUT' } eq '' ) || ( $qossettings { 'ACK' } eq '' ) ) {
674 & Header
:: closebigbox
();
675 & Header
:: closepage
();
679 & Header
:: openbox
( '100%' , 'center' , $Lang :: tr
{ 'info' });
680 & overviewgraph
( $qossettings { 'RED_DEV' });
681 & overviewgraph
( $qossettings { 'IMQ_DEV' });
684 <tr><td colspan='9' align='right' valign='middle'><img src='/images/addblue.gif'> Unterklasse hinzufuegen | <img src='/images/addgreen.gif'> Regel hinzufuegen | <img src='/images/edit.gif'> Bearbeiten | <img src='/images/delete.gif'> Loeschen
685 <tr><td colspan='9' align='right' valign='middle'><b>TOS-Bits:</b> <b>0</b> - Deaktiviert | <b>8</b> - Minimale Verzoegerung | <b>4</b> - Maximaler Durchsatz | <b>2</b> - Maximale Zuverlaessigkeit | <b>1</b> - Minimale Kosten
688 if (( - e
"/srv/web/ipfire/html/graphs/qos-graph- $qossettings {'RED_DEV'}.png" ) && ( - e
"/srv/web/ipfire/html/graphs/qos-graph- $qossettings {'IMQ_DEV'}.png" )) {
690 <tr><td colspan='9' align='center'><img src="/graphs/qos-graph- $qossettings {'RED_DEV'}.png">
691 <tr><td colspan='9' align='center'><img src="/graphs/qos-graph- $qossettings {'IMQ_DEV'}.png">
698 & showclasses
( $qossettings { 'RED_DEV' });
699 & showclasses
( $qossettings { 'IMQ_DEV' });
701 & Header
:: closebigbox
();
702 & Header
:: closepage
();
704 ############################################################################################################################
705 ############################################################################################################################
707 sub changedefclasses
{
708 & Header
:: openbox
( '100%' , 'center' , 'Standardklassen:' );
710 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
712 <tr><td width='100%' colspan='3'>Legen sie hier die Standardklassen fest durch die nicht-gefilterte Pakete gehen.
713 <tr><td width='33%' align='right'>Download:<td width='33%' align='left'><select name='DEFCLASS_INC'>
716 for ( $c = 200 ; $c <= 220 ; $c ++ )
718 if ( $qossettings { 'DEFCLASS_INC' } ne $c )
719 { print "<option value=' $c '> $c </option> \n " ; }
720 else { print "<option selected value=' $c '> $c </option> \n " ; }
723 </select><td width='33%' align='center'>
724 <tr><td width='33%' align='right'>Upload:<td width='33%' align='left'><select name='DEFCLASS_OUT'>
727 for ( $c = 100 ; $c <= 120 ; $c ++ )
729 if ( $qossettings { 'DEFCLASS_OUT' } ne $c )
730 { print "<option value=' $c '> $c </option> \n " ; }
731 else { print "<option selected value=' $c '> $c </option> \n " ; }
734 </select><td width='33%' align='center'>
738 <tr><td width='100%' colspan='3'>Legen sie hier die ACK-Klasse fest <br /> und klicken Sie danach auf <i>Speichern</i>.
739 <tr><td width='33%' align='right'>ACKs:<td width='33%' align='left'><select name='ACK'>
742 for ( $c = 100 ; $c <= 120 ; $c ++ )
744 if ( $qossettings { 'ACK' } ne $c )
745 { print "<option value=' $c '> $c </option> \n " ; }
746 else { print "<option selected value=' $c '> $c </option> \n " ; }
749 </select><td width='33%' align='center'><input type='submit' name='ACTION' value=" $Lang ::tr{'save'}" />
757 sub changebandwidth
{
758 & Header
:: openbox
( '100%' , 'center' , 'Bandbreiteneinstellungen' );
759 if ( $qossettings { 'ENABLED' } eq 'on' ) {
760 print "Sie koennen die Bandbreiteneinstellungen nicht bearbeiten, wenn QoS eingeschaltet ist. Schalten sie es zuerst dazu aus.<p>" ;
761 print "<a href='/cgi-bin/qos.cgi'>Zurueck</a>" ;
764 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
765 <input type='hidden' name='DEF_OUT_SPD' value='' /><input type='hidden' name='DEF_INC_SPD' value='' />
767 <tr><td width='100%' colspan='3'>Geben Sie bitte hier ihre Download- bzw. Upload-Geschwindigkeit ein <br /> und klicken Sie danach auf <i>Speichern</i>.
768 <tr><td width='33%' align='right'>Download-Geschwindigkeit:
769 <td width='33%' align='left'><input type='text' name='INC_SPD' maxlength='8' value=" $qossettings {'INC_SPD'}" /> kbps
770 <td width='33%' align='center'>
771 <tr><td width='33%' align='right'>Upload-Geschwindigkeit:
772 <td width='33%' align='left'><input type='text' name='OUT_SPD' maxlength='8' value=" $qossettings {'OUT_SPD'}" /> kbps
773 <td width='33%' align='center'><input type='submit' name='ACTION' value=" $Lang ::tr{'save'}" /> <input type='reset' name='ACTION' value=" $Lang ::tr{'reset'}" />
783 & Header
:: openbox
( '100%' , 'center' , 'Parentklasse' );
785 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
789 if ( $message ne "" ) {
790 print "<tr><td colspan='3' align='center'> $message " ;
792 if ( $qossettings { 'EDIT' } eq 'yes' ) {
793 print "<input type='hidden' name='CLASS' value= $qossettings {'CLASS'}>" ;
794 print "<input type='hidden' name='DEVICE' value= $qossettings {'DEVICE'}>" ;
797 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br /> und klicken Sie danach auf <i>Speichern</i>.
798 <tr><td width='33%' align='right'>Interface:
799 <td width='33%' align='left'>
802 if ( $qossettings { 'EDIT' } eq 'yes' ) {
803 print "<select name='DEVICE' disabled>" ;
805 print "<select name='DEVICE'>" ;
807 if ( $qossettings { 'DEVICE' } eq $qossettings { 'RED_DEV' } ) {
808 $qossettings { 'RED_DEV_SEL' } = 'selected' ;
809 } elsif ( $qossettings { 'DEVICE' } eq $qossettings { 'IMQ_DEV' } ) {
810 $qossettings { 'IMQ_DEV_SEL' } = 'selected' ;
813 <option value= $qossettings {'RED_DEV'} $qossettings {'RED_DEV_SEL'}> $qossettings {'RED_DEV'}</option>
814 <option value= $qossettings {'IMQ_DEV'} $qossettings {'IMQ_DEV_SEL'}> $qossettings {'IMQ_DEV'}</option></select>
815 <td width='33%' align='center'>
816 <tr><td width='33%' align='right'>Klasse:<td width='33%' align='left'>
819 if ( $qossettings { 'EDIT' } eq 'yes' ) {
820 print "<select name='CLASS' disabled>" ;
822 print "<select name='CLASS'>" ;
824 for ( $c = 100 ; $c <= 120 ; $c ++ )
826 if ( $qossettings { 'CLASS' } ne $c )
827 { print "<option value=' $c '> $c </option> \n " ; }
828 else { print "<option selected value=' $c '> $c </option> \n " ; }
830 for ( $c = 200 ; $c <= 220 ; $c ++ )
832 if ( $qossettings { 'CLASS' } ne $c )
833 { print "<option value=' $c '> $c </option> \n " ; }
834 else { print "<option selected value=' $c '> $c </option> \n " ; }
838 <td width='33%' align='center'>
839 <tr><td width='33%' align='right'>Prioritaet:<td width='33%' align='left'><select name='PRIO'>
842 for ( $c = 1 ; $c <= 7 ; $c ++ )
844 if ( $qossettings { 'PRIO' } ne $c )
845 { print "<option value=' $c '> $c </option> \n " ; }
846 else { print "<option selected value=' $c '> $c </option> \n " ; }
848 if ( $qossettings { 'MINBWDTH' } eq "" ) { $qossettings { 'MINBWDTH' } = "1" ; }
851 <td width='33%' align='center'>
852 <tr><td width='33%' align='right'>Garantierte Bandbreite:
853 <td width='33%' align='left'><input type='text' size='20' name='MINBWDTH' maxlength='8' required='1' value=" $qossettings {'MINBWDTH'}" />
854 <td width='33%' align='center'>
855 <tr><td width='33%' align='right'>Maximale Bandbreite:
856 <td width='33%' align='left'><input type='text' size='20' name='MAXBWDTH' maxlength='8' required='1' value=" $qossettings {'MAXBWDTH'}" />
857 <td width='33%' align='center'>
858 <tr><td width='33%' align='right'>Burst:
859 <td width='33%' align='left'><input type='text' size='20' name='BURST' maxlength='8' value=" $qossettings {'BURST'}" />
860 <td width='33%' align='center'>
861 <tr><td width='33%' align='right'>Ceilburst:
862 <td width='33%' align='left'><input type='text' size='20' name='CBURST' maxlength='8' value=" $qossettings {'CBURST'}" />
863 <td width='33%' align='center'>
864 <tr><td width='33%' align='right'>TOS-Bit:
865 <td width='33%' align='left'><select name='TOS'>
866 <option value='0'>Ausgeschaltet (0)</option>
867 <option value='8'>Minimale Verzoegerung (8)</option>
868 <option value='4'>Maximaler Durchsatz (4)</option>
869 <option value='2'>Maximale Zuverlaessigkeit (2)</option>
870 <option value='1'>Minimale Kosten (1)</option></select>
871 <td width='33%' align='center'>
872 <tr><td width='33%' align='right'> $Lang ::tr{'remark'}:
873 <td width='66%' colspan='2' align='left'><input type='text' name='REMARK' size='40' maxlength='40' value=" $qossettings {'REMARK'}" /> <img alt='blob' src='/blob.gif' />
874 <tr><td width='33%' align='right'>
875 <td width='33%' align='left'>
876 <td width='33%' align='center'><input type='submit' name='DOCLASS' value= $Lang ::tr{'save'} /> <input type='reset' value= $Lang ::tr{'reset'} />
884 & Header
:: openbox
( '100%' , 'center' , 'Unterklasse' );
886 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
890 if ( $message ne "" ) {
891 print "<tr><td colspan='3' align='center'> $message " ;
894 <tr><td colspan='3' width='100%'>Aktuelle Klasse: $qossettings {'CLASS'}
895 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br /> und klicken Sie danach auf <i>Speichern</i>.
896 <tr><td width='33%' align='right'>Unterklasse:<td width='33%' align='left'><select name='SCLASS'>
899 if ( $qossettings { 'CLASS' } >= 100 && $qossettings { 'CLASS' } < 121 ) {
900 $qossettings { 'DEVICE' } = $qossettings { 'RED_DEV' };
901 for ( $c = 1000 ; $c <= 1020 ; $c ++ )
903 if ( $qossettings { 'SCLASS' } ne $c )
904 { print "<option value=' $c '> $c </option> \n " ; }
905 else { print "<option selected value=' $c '> $c </option> \n " ; }
907 } elsif ( $qossettings { 'CLASS' } >= 200 && $qossettings { 'CLASS' } < 221 ) {
908 $qossettings { 'DEVICE' } = $qossettings { 'IMQ_DEV' };
909 for ( $c = 2000 ; $c <= 2020 ; $c ++ )
911 if ( $qossettings { 'SCLASS' } ne $c )
912 { print "<option value=' $c '> $c </option> \n " ; }
913 else { print "<option selected value=' $c '> $c </option> \n " ; }
918 <td width='33%' align='center'>
919 <tr><td width='33%' align='right'>Prioritaet:<td width='33%' align='left'><select name='PRIO'>
922 for ( $c = 1 ; $c <= 7 ; $c ++ )
924 if ( $qossettings { 'PRIO' } ne $c )
925 { print "<option value=' $c '> $c </option> \n " ; }
926 else { print "<option selected value=' $c '> $c </option> \n " ; }
929 <td width='33%' align='center'>
930 <tr><td width='33%' align='right'>Garantierte Bandbreite:
931 <td width='33%' align='left'><input type='text' name='MINBWDTH' maxlength='8' required='1' value=" $qossettings {'MINBWDTH'}" />
932 <td width='33%' align='center'>
933 <tr><td width='33%' align='right'>Maximale Bandbreite:
934 <td width='33%' align='left'><input type='text' name='MAXBWDTH' maxlength='8' required='1' value=" $qossettings {'MAXBWDTH'}" />
935 <td width='33%' align='center'>
936 <tr><td width='33%' align='right'>Burst:
937 <td width='33%' align='left'><input type='text' name='BURST' maxlength='8' value=" $qossettings {'BURST'}" />
938 <td width='33%' align='center'>
939 <tr><td width='33%' align='right'>Ceilburst:
940 <td width='33%' align='left'><input type='text' name='CBURST' maxlength='8' value=" $qossettings {'CBURST'}" />
941 <td width='33%' align='center'>
942 <tr><td width='33%' align='right'>TOS-Bit:
943 <td width='33%' align='left'><select name='TOS'>
944 <option value='0'>Ausgeschaltet (0)</option>
945 <option value='8'>Minimale Verzoegerung (8)</option>
946 <option value='4'>Maximaler Durchsatz (4)</option>
947 <option value='2'>Maximale Zuverlaessigkeit (2)</option>
948 <option value='1'>Minimale Kosten (1)</option></select>
949 <td width='33%' align='center'><input type='hidden' name='CLASS' value=" $qossettings {'CLASS'}" />
950 <input type='hidden' name='DEVICE' value=" $qossettings {'DEVICE'}" />
951 <input type='submit' name='DOSCLASS' value= $Lang ::tr{'save'} /> <input type='reset' value= $Lang ::tr{'reset'} />
959 & Header
:: openbox
( '100%' , 'center' , 'Level7-Regel' );
961 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
965 if ( $message ne "" ) {
966 print "<tr><td colspan='3' align='center'><font color='red'> $message </font>" ;
969 <tr><td colspan='3' width='100%'>Aktuelle Klasse: $qossettings {'CLASS'}
970 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br /> und klicken Sie danach auf <i>Speichern</i>.
971 <tr><td width='33%' align='right'>Protokoll:
972 <td width='33%' align='left'><select name='L7PROT'>
975 opendir ( DIR
, "/etc/l7-protocols/protocols" );
976 foreach $direntry ( sort readdir ( DIR
) )
978 next if $direntry eq "." ;
979 next if $direntry eq ".." ;
980 next if - d
"/etc/l7-protocols/protocols/ $direntry " ;
981 @proto = split ( /\./ , $direntry );
982 if ( $proto [ 0 ] eq $qossettings { 'L7PROT' } ) {
983 print "<option value=' $proto [0]' selected> $proto [0]</option> \n " ;
985 print "<option value=' $proto [0]'> $proto [0]</option> \n " ;
990 </select><td width='33%' align='center'>
991 <tr><td width='33%' align='right'>Quell-IP-Adresse:
992 <td width='33%' align='left'><input type='text' name='QIP' maxlength='15' value= $qossettings {'QIP'}>
993 <td width='33%' align='center'>
994 <tr><td width='33%' align='right'>Ziel-IP-Adresse:
995 <td width='33%' align='left'><input type='text' name='DIP' maxlength='15' value= $qossettings {'DIP'}>
996 <td width='33%' align='center'><input type='hidden' name='CLASS' value= $qossettings {'CLASS'}><input type='submit' name='DOLEVEL7' value= $Lang ::tr{'save'} />
1000 & Header
:: closebox
();
1004 & Header
:: openbox
( '100%' , 'center' , 'Port-Regel hinzufuegen' );
1006 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1008 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br /> und klicken Sie danach auf <i>Speichern</i>.
1009 <tr><td width='33%' align='right'>Protokoll:
1010 <td width='33%' align='left'><select name='PPROT'>
1013 open ( FILE
, "< /etc/protocols" );
1016 foreach $direntry ( sort @proto )
1018 @tmpline = split ( /\ / , $direntry );
1019 next if $tmpline [ 0 ] =~ "#" ;
1020 if ( $tmpline [ 0 ] eq $qossettings { 'PPROT' } ) {
1021 print "<option value=' $tmpline [0]' selected> $tmpline [0]</option> \n " ;
1023 print "<option value=' $tmpline [0]'> $tmpline [0]</option> \n " ;
1027 </select><td width='33%' align='center'>
1028 <tr><td width='33%' align='right'>Quell-Port:
1029 <td width='33%' align='left'><input type='text' name='QPORT' maxlength='5' value= $qossettings {'QPORT'}>
1030 <td width='33%' align='center'>
1031 <tr><td width='33%' align='right'>Ziel-Port:
1032 <td width='33%' align='left'><input type='text' name='DPORT' maxlength='5' value= $qossettings {'DPORT'}>
1033 <td width='33%' align='center'>
1034 <tr><td width='33%' align='right'>Quell-IP-Adresse:
1035 <td width='33%' align='left'><input type='text' name='QIP' maxlength='15' value= $qossettings {'QIP'}>
1036 <td width='33%' align='center'>
1037 <tr><td width='33%' align='right'>Ziel-IP-Adresse:
1038 <td width='33%' align='left'><input type='text' name='DIP' maxlength='15' value= $qossettings {'DIP'}>
1039 <td width='33%' align='center'><input type='hidden' name='CLASS' value=' $qossettings {'CLASS'}'><input type='submit' name='DOPORT' value= $Lang ::tr{'save'} />
1043 & Header
:: closebox
();
1047 & Header
:: openbox
( '100%' , 'center' , 'TOS-Regel' );
1048 if ( $qossettings { 'TOS' }) {
1049 $checked [ $qossettings { 'TOS' }] = "checked" ;
1052 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1056 if ( $message ne "" ) {
1057 print "<tr><td colspan='3' align='center'><font color='red'> $message </font>" ;
1060 <tr><td colspan='2' width='100%'>Aktuelle Klasse: $qossettings {'CLASS'}
1061 <tr><td width='100%' colspan='2'>Aktivieren oder deaktivieren sie die TOS-Bits <br /> und klicken Sie danach auf <i>Speichern</i>.
1062 <tr><td width='50%' align='left'>Minimale Verzoegerung (8) <td width='50%'><input type="radio" name="TOS" value="8" $checked [8]>
1063 <tr><td width='50%' align='left'>Maximaler Durchsatz (4) <td width='50%'><input type="radio" name="TOS" value="4" $checked [4]>
1064 <tr><td width='50%' align='left'>Maximale Zuverlaessigkeit (2) <td width='50%'><input type="radio" name="TOS" value="2" $checked [2]>
1065 <tr><td width='50%' align='left'>Minimale Kosten (1) <td width='50%'><input type="radio" name="TOS" value="1" $checked [1]>
1066 <tr><td width='100%' align='right' colspan='2'><input type='hidden' name='CLASS' value= $qossettings {'CLASS'}><input type='submit' name='DOTOS' value= $Lang ::tr{'save'} />
1070 & Header
:: closebox
();
1074 $qossettings { 'DEV' } = shift ;
1075 open ( FILE
, "< $classfile " ) or die "Unable to read $classfile " ;
1079 open ( FILE
, "< $subclassfile " ) or die "Unable to read $subclassfile " ;
1080 @subclasses = < FILE
>;
1082 open ( FILE
, "< $level7file " ) or die "Unable to read $level7file " ;
1085 open ( FILE
, "< $tosfile " ) or die "Unable to read $tosfile " ;
1088 open ( FILE
, "< $portfile " ) or die "Unable to read $portfile " ;
1089 @portrules = < FILE
>;
1091 foreach $classentry ( sort @classes )
1093 @classline = split ( /\;/ , $classentry );
1094 if ( $classline [ 0 ] eq $qossettings { 'DEV' } )
1096 gengraph
( $qossettings { 'DEV' }, $classline [ 1 ]);
1097 & Header
:: openbox
( '100%' , 'center' , "Klasse: $classline [1]" );
1099 <table border='0' width='100%' cellspacing='0'>
1100 <tr><td bgcolor='lightgrey' width='10%' align='center'><b> $Lang ::tr{'interface'}</b>
1101 <td bgcolor='lightgrey' width='10%' align='center'><b>Klasse</b>
1102 <td bgcolor='lightgrey' width='10%' align='center'>Prioritaet
1103 <td bgcolor='lightgrey' width='10%' align='center'>Garantierte Bandbreite
1104 <td bgcolor='lightgrey' width='10%' align='center'>Maximale Bandbreite
1105 <td bgcolor='lightgrey' width='10%' align='center'>Burst
1106 <td bgcolor='lightgrey' width='10%' align='center'>Ceil Burst
1107 <td bgcolor='lightgrey' width='10%' align='center'>TOS
1108 <td bgcolor='lightgrey' width='20%' align='center'>Aktionen
1109 <tr><td align='center' bgcolor='#EAEAEA'> $classline [0]</td>
1110 <td align='center' bgcolor='#EAEAEA'> $classline [1]</td>
1111 <td align='center' bgcolor='#EAEAEA'> $classline [2]</td>
1112 <td align='center' bgcolor='#EAEAEA'> $classline [3]</td>
1113 <td align='center' bgcolor='#EAEAEA'> $classline [4]</td>
1114 <td align='center' bgcolor='#EAEAEA'> $classline [5]</td>
1115 <td align='center' bgcolor='#EAEAEA'> $classline [6]</td>
1116 <td align='center' bgcolor='#EAEAEA'> $classline [7]</td>
1117 <td align='right' bgcolor='#EAEAEA'>
1118 <table border='0'><tr>
1119 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1120 <input type='hidden' name='CLASS' value=' $classline [1]'>
1121 <input type='hidden' name='ACTION' value='Unterklasse hinzufuegen'>
1122 <input type='image' alt='Unterklasse hinzufuegen' src='/images/addblue.gif'>
1124 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1125 <input type='hidden' name='CLASS' value=' $classline [1]'>
1126 <input type='hidden' name='ACTION' value='Regel hinzufuegen'>
1127 <input type='image' alt='Regel hinzufuegen' src='/images/addgreen.gif'>
1129 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1130 <input type='hidden' name='CLASS' value=' $classline [1]'>
1131 <input type='hidden' name='DOCLASS' value='Bearbeiten'>
1132 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1134 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1135 <input type='hidden' name='CLASS' value=' $classline [1]'>
1136 <input type='hidden' name='DOCLASS' value='Loeschen'>
1137 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1141 <tr><td align='right' colspan='2'><b> $Lang ::tr{'remark'}:</b>
1142 <td align='center' colspan='6'> $classline [8]
1143 <td align='right'><b>Queueing:</b> $classline [9]
1148 foreach $l7ruleentry ( sort @l7rules )
1150 @l7ruleline = split ( /\;/ , $l7ruleentry );
1151 if ( $l7ruleline [ 0 ] eq $classline [ 1 ] )
1154 <tr><td align='right' colspan='2'><b>Level7-Protokoll:</b>
1155 <td align='center' colspan='6'> $l7ruleline [2]
1157 <table border='0'><tr>
1158 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1159 <input type='hidden' name='CLASS' value=' $l7ruleline [0]' />
1160 <input type='hidden' name='L7PROT' value=' $l7ruleline [2]' />
1161 <input type='hidden' name='DOLEVEL7' value='Bearbeiten' />
1162 <input type='image' alt='Bearbeiten' src='/images/edit.gif' />
1164 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1165 <input type='hidden' name='CLASS' value=' $l7ruleline [0]' />
1166 <input type='hidden' name='L7PROT' value=' $l7ruleline [2]' />
1167 <input type='hidden' name='DOLEVEL7' value='Loeschen' />
1168 <input type='image' alt='Loeschen' src='/images/delete.gif' />
1173 if (( $l7ruleline [ 3 ] ne "" ) || ( $l7ruleline [ 4 ] ne "" )){
1175 <tr><td align='center'>
1176 <td align='right' colspan='3'><b>Quell-IP:</b> $l7ruleline [3]
1177 <td align='right' colspan='3'><b>Ziel-IP:</b> $l7ruleline [4]
1191 foreach $portruleentry ( sort @portrules )
1193 @portruleline = split ( /\;/ , $portruleentry );
1194 if ( $portruleline [ 0 ] eq $classline [ 1 ] )
1197 <tr><td align='right' colspan='2'><b>Port-Regel:</b>
1198 <td align='center'>( $portruleline [2])
1199 <td align='center' colspan='2'>
1202 if ( $portruleline [ 4 ]) {
1204 <i>Quell-Port:</i> $portruleline [4]
1208 print "<td align='center' colspan='2'>" ;
1209 if ( $portruleline [ 6 ]) {
1211 <i>Ziel-Port:</i> $portruleline [6]
1218 <table border='0'><tr>
1219 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1220 <input type='hidden' name='CLASS' value=' $portruleline [0]'>
1221 <input type='hidden' name='PPROT' value=' $portruleline [2]'>
1222 <input type='hidden' name='QIP' value=' $portruleline [3]'>
1223 <input type='hidden' name='QPORT' value=' $portruleline [4]'>
1224 <input type='hidden' name='DIP' value=' $portruleline [5]'>
1225 <input type='hidden' name='DPORT' value=' $portruleline [6]'>
1226 <input type='hidden' name='DOPORT' value='Bearbeiten'>
1227 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1229 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1230 <input type='hidden' name='CLASS' value=' $portruleline [0]'>
1231 <input type='hidden' name='PPROT' value=' $portruleline [2]'>
1232 <input type='hidden' name='QIP' value=' $portruleline [3]'>
1233 <input type='hidden' name='QPORT' value=' $portruleline [4]'>
1234 <input type='hidden' name='DIP' value=' $portruleline [5]'>
1235 <input type='hidden' name='DPORT' value=' $portruleline [6]'>
1236 <input type='hidden' name='DOPORT' value='Loeschen'>
1237 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1242 if (( $portruleline [ 3 ] ne "" ) || ( $portruleline [ 5 ] ne "" )){
1244 <tr><td align='center'>
1245 <td align='right' colspan='3'><b>Quell-IP:</b> $portruleline [3]
1246 <td align='right' colspan='3'><b>Ziel-IP:</b> $portruleline [5]
1255 foreach $tosruleentry ( sort @tosrules )
1257 @tosruleline = split ( /\;/ , $tosruleentry );
1258 if ( $tosruleline [ 0 ] eq $classline [ 1 ] )
1261 <tr><td align='right' colspan='2'>
1262 <b>TOS Bit matches:</b>
1263 <td colspan='6' align='center'>
1266 if ( $tosruleline [ 2 ] eq "8" ) {
1267 print "Minimale Verzoegerung \n " ;
1268 } elsif ( $tosruleline [ 2 ] eq "4" ) {
1269 print "Maximaler Durchsatz \n " ;
1270 } elsif ( $tosruleline [ 2 ] eq "2" ) {
1271 print "Maximaler Durchsatz \n " ;
1272 } elsif ( $tosruleline [ 2 ] eq "1" ) {
1273 print "Minimale Kosten \n " ;
1274 } else { print " \n " ; }
1279 <table border='0'><tr>
1280 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1281 <input type='hidden' name='CLASS' value=' $tosruleline [0]'>
1282 <input type='hidden' name='DEV' value=' $tosruleline [1]'>
1283 <input type='hidden' name='TOS' value=' $tosruleline [2]'>
1284 <input type='hidden' name='DOTOS' value='Bearbeiten'>
1285 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1287 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1288 <input type='hidden' name='CLASS' value=' $tosruleline [0]'>
1289 <input type='hidden' name='DEV' value=' $tosruleline [1]'>
1290 <input type='hidden' name='TOS' value=' $tosruleline [2]'>
1291 <input type='hidden' name='DOTOS' value='Loeschen'>
1292 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1301 if ( - e
"/srv/web/ipfire/html/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}-packets.png" ) {
1303 <tr><td colspan='9' align='center'><img src='/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}-packets.png'>
1309 foreach $subclassentry ( sort @subclasses )
1311 @subclassline = split ( /\;/ , $subclassentry );
1312 if ( $subclassline [ 1 ] eq $classline [ 1 ] ) {
1314 <tr><td align='center' bgcolor='#FAFAFA'>Subklasse:
1315 <td align='center' bgcolor='#FAFAFA'> $subclassline [2]
1316 <td align='center' bgcolor='#FAFAFA'> $subclassline [3]
1317 <td align='center' bgcolor='#FAFAFA'> $subclassline [4]
1318 <td align='center' bgcolor='#FAFAFA'> $subclassline [5]
1319 <td align='center' bgcolor='#FAFAFA'> $subclassline [6]
1320 <td align='center' bgcolor='#FAFAFA'> $subclassline [7]
1321 <td align='center' bgcolor='#FAFAFA'> $subclassline [8]
1322 <td align='right' bgcolor='#FAFAFA'>
1323 <table border='0'><tr>
1324 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1325 <input type='hidden' name='CLASS' value=' $subclassline [2]'>
1326 <input type='hidden' name='ACTION' value='Regel hinzufuegen'>
1327 <input type='image' alt='Regel hinzufuegen' src='/images/addgreen.gif'>
1329 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1330 <input type='hidden' name='CLASS' value=' $subclassline [2]'>
1331 <input type='hidden' name='DOSCLASS' value='Bearbeiten'>
1332 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1334 <td><form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1335 <input type='hidden' name='CLASS' value=' $subclassline [2]'>
1336 <input type='hidden' name='DOSCLASS' value='Loeschen'>
1337 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1348 & Header
:: closebox
();
1356 & Header
:: openbox
( '100%' , 'center' , 'Expertenoptionen:' );
1358 <form method='post' action=' $ENV {'SCRIPT_NAME'}'>
1360 <tr><td width='33%' align='right'>MTU:<td width='33%' align='left'>
1361 <input type='text' name='MTU' maxlength='8' required='4' value= $qossettings {'MTU'}>
1362 <td width='33%' align='center'>Diese Einstellung aendert die MTU nicht global sondern nur fuer das QoS.
1363 <tr><td width='33%' align='right'>Queue Laenge:<td width='33%' align='left'>
1364 <input type='text' name='QLENGTH' maxlength='8' required='2' value= $qossettings {'QLENGTH'}>
1365 <td width='33%' align='center'>
1366 <tr><td width='33%' align='right'>SFQ Perturb:<td width='33%' align='left'>
1367 <input type='text' name='SFQ_PERTUB' maxlength='8' required='1' value= $qossettings {'SFQ_PERTUB'}>
1368 <td width='33%' align='center'><input type='submit' name='ACTION' value= $Lang ::tr{'save'} />
1373 & Header
:: closebox
();
1377 if ( $qossettings { 'VALID' } eq 'yes' ) {
1378 if ( $qossettings { 'DEVICE' } eq $qossettings { 'RED_DEV' } ) {
1379 $qossettings { 'SPD' } = $qossettings { 'OUT_SPD' };
1380 } elsif ( $qossettings { 'DEVICE' } eq $qossettings { 'IMQ_DEV' } ) {
1381 $qossettings { 'SPD' } = $qossettings { 'INC_SPD' };
1383 unless ( ( $qossettings { 'MINBWDTH' } >= 1 ) && ( $qossettings { 'MINBWDTH' } <= $qossettings { 'SPD' } ) ) {
1384 $qossettings { 'VALID' } = 'no' ;
1385 $message = "Mindestbandbreite ist ungueltig." ;
1387 $qossettings { 'SPD' } = '' ;
1392 if ( $qossettings { 'VALID' } eq 'yes' ) {
1393 if ( $qossettings { 'DEVICE' } eq $qossettings { 'RED_DEV' } ) {
1394 $qossettings { 'SPD' } = $qossettings { 'OUT_SPD' };
1395 } elsif ( $qossettings { 'DEVICE' } eq $qossettings { 'IMQ_DEV' } ) {
1396 $qossettings { 'SPD' } = $qossettings { 'INC_SPD' };
1398 unless ( ( $qossettings { 'MAXBDWTH' } >= 0 ) && ( $qossettings { 'MAXBDWTH' } >= $qossettings { 'MINBDWTH' }) &&( $qossettings { 'MAXBDWTH' } <= $qossettings { 'SPD' } ) ) {
1399 $qossettings { 'VALID' } = 'no' ;
1400 $message = "Mamimalbandbreite ist ungueltig." ;
1402 $qossettings { 'SPD' } = '' ;
1407 if ( $qossettings { 'VALID' } eq 'yes' ) {
1408 if ( $qossettings { 'DEVICE' } eq $qossettings { 'RED_DEV' } ) {
1409 if ( $qossettings { 'CLASS' } lt 100 || $qossettings { 'CLASS' } ge 121 ) {
1410 $qossettings { 'VALID' } = 'no' ;
1411 $message = "Die Klassennummer passt nicht zum angegebenen Interface." ;
1413 } elsif ( $qossettings { 'DEVICE' } eq $qossettings { 'IMQ_DEV' } ) {
1414 if ( $qossettings { 'CLASS' } lt 200 || $qossettings { 'CLASS' } ge 221 ) {
1415 $qossettings { 'VALID' } = 'no' ;
1416 $message = "Die Klassennummer passt nicht zum angegebenen Interface." ;
1419 open ( FILE
, "< $classfile " ) or die "Unable to read $classfile " ;
1422 foreach $classentry ( sort @tmp )
1424 @tmpline = split ( /\;/ , $classentry );
1425 if ( $tmpline [ 1 ] eq $qossettings { 'CLASS' } )
1427 $qossettings { 'VALID' } = 'no' ;
1428 $message = "Die aktuelle Klasse wird bereits verwendet." ;
1436 if ( $qossettings { 'VALID' } eq 'yes' ) {
1437 open ( FILE
, "< $subclassfile " ) or die "Unable to read $subclassfile " ;
1440 foreach $subclassentry ( sort @tmp )
1442 @tmpline = split ( /\;/ , $subclassentry );
1443 if ( $tmpline [ 2 ] eq $qossettings { 'SCLASS' } )
1445 $qossettings { 'VALID' } = 'no' ;
1446 $message = "Die aktuelle Klasse wird bereits verwendet." ;
1454 $qossettings { 'DEV' } = shift ;
1455 $qossettings { 'CLASS' } = shift ;
1457 if ( $qossettings { 'DEV' } eq $qossettings { 'RED_DEV' } ) {
1458 $qossettings { 'CLASSPRFX' } = '1' ;
1460 $qossettings { 'CLASSPRFX' } = '2' ;
1462 my $color = random_hex_color
( 6 );
1464 RRDs
:: graph
( "/srv/web/ipfire/html/graphs/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}-packets.png" ,
1465 "--start" , "-3240" , "-aPNG" , "-i" , "-z" ,
1466 "--alt-y-grid" , "-w 600" , "-h 150" , "-r" ,
1467 "--color" , "SHADEA#EAE9EE" ,
1468 "--color" , "SHADEB#EAE9EE" ,
1469 "--color" , "BACK#FFFFFF" ,
1470 "-t $qossettings {'CLASS'} ( $qossettings {'DEV'})" ,
1471 "DEF:pkts=/var/log/rrd/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}.rrd:pkts:AVERAGE" ,
1472 "DEF:dropped=/var/log/rrd/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}.rrd:dropped:AVERAGE" ,
1473 "DEF:overlimits=/var/log/rrd/class_ $qossettings {'CLASSPRFX'}- $qossettings {'CLASS'}_ $qossettings {'DEV'}.rrd:overlimits:AVERAGE" ,
1474 "AREA:pkts $color :packets" ,
1475 "GPRINT:pkts:LAST:total packets \\ : %8 .3lf %s packets \\ j" ,
1476 "LINE3:dropped#FF0000:dropped" ,
1477 "GPRINT:dropped:LAST:dropped packets \\ : %8 .3lf %s packets \\ j" ,
1478 "LINE3:overlimits#0000FF:overlimits" ,
1479 "GPRINT:overlimits:LAST:overlimits \\ : %8 .3lf %s packets \\ j" ,
1481 $ERROR = RRDs
:: error
;
1486 $qossettings { 'DEV' } = shift ;
1487 if ( $qossettings { 'DEV' } eq $qossettings { 'RED_DEV' } ) {
1488 $qossettings { 'CLASSPRFX' } = '1' ;
1490 $qossettings { 'CLASSPRFX' } = '2' ;
1494 my $color = "#000000" ;
1495 my @command =( "/srv/web/ipfire/html/graphs/qos-graph- $qossettings {'DEV'}.png" ,
1496 "--start" , "-3240" , "-aPNG" , "-i" , "-z" ,
1497 "--alt-y-grid" , "-w 600" , "-h 150" , "-r" ,
1498 "--color" , "SHADEA#EAE9EE" ,
1499 "--color" , "SHADEB#EAE9EE" ,
1500 "--color" , "BACK#FFFFFF" ,
1501 "-t Auslastung auf ( $qossettings {'DEV'})"
1503 open ( FILE
, "< $classfile " ) or die "Unable to read $classfile " ;
1506 foreach $classentry ( sort @classes )
1508 @classline = split ( /\;/ , $classentry );
1509 if ( $classline [ 0 ] eq $qossettings { 'DEV' } )
1511 $color = random_hex_color
( 6 );
1512 push ( @command , "DEF: $classline [1]=/var/log/rrd/class_ $qossettings {'CLASSPRFX'}- $classline [1]_ $qossettings {'DEV'}.rrd:bits:AVERAGE" );
1514 if ( $count eq "1" ) {
1515 push ( @command , "AREA: $classline [1] $color :Klasse $classline [1] - $classline [8] \\ j" );
1517 push ( @command , "STACK: $classline [1] $color :Klasse $classline [1] - $classline [8] \\ j" );
1522 RRDs
:: graph
( @command );
1523 $ERROR = RRDs
:: error
;
1527 sub random_hex_color
{
1529 $size = 6 if $size !~ /^3|6$/ ;
1530 my @hex = ( 0 .. 9 , 'a' .. 'f' );
1532 push @color , @hex [ rand ( @hex )] for 1 .. $size ;
1533 return join ( '' , '#' , @color );