]> git.ipfire.org Git - people/pmueller/ipfire-2.x.git/blame - html/cgi-bin/qos.cgi
projects / people / pmueller / ipfire-2.x.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Update:
[people/pmueller/ipfire-2.x.git] / html / cgi-bin / qos.cgi
CommitLineData
904a41b9
MT		 1#!/usr/bin/perl
2#
3# IPFire CGIs
4#
5# This code is distributed under the terms of the GPL
6#
7# (c) The IPFire Team
8#
9
10use strict;
11# enable only the following on debugging purpose
12use warnings;
13use CGI::Carp 'fatalsToBrowser';
14
15require '/var/ipfire/general-functions.pl';
16require "${General::swroot}/lang.pl";
17require "${General::swroot}/header.pl";
18
2db5d932
MT		 19my %qossettings = ();
20my %checked = ();
21my %netsettings = ();
414e011d 22my $message = "";
904a41b9 23my $errormessage = "";
2db5d932
MT		 24my $c = "";
25my $direntry = "";
414e011d
MT		 26my $classentry = "";
27my $subclassentry = "";
28my $l7ruleentry = "";
84cab473 29my $portruleentry = "";
414e011d
MT		 30my @tmp = ();
31my @classes = ();
32my @subclasses = ();
33my @l7rules = ();
84cab473 34my @portrules = ();
414e011d
MT		 35my @tmpline = ();
36my @classline = ();
37my @subclassline = ();
38my @l7ruleline = ();
84cab473 39my @portruleline = ();
2db5d932
MT		 40my @proto = ();
41my %selected= () ;
414e011d
MT		 42my $classfile = "/var/ipfire/qos/classes";
43my $subclassfile = "/var/ipfire/qos/subclasses";
44my $level7file = "/var/ipfire/qos/level7config";
84cab473 45my $portfile = "/var/ipfire/qos/portconfig";
904a41b9
MT		 46&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
47
48&Header::showhttpheaders();
49
2db5d932 50$qossettings{'ENABLED'} = 'off';
414e011d 51$qossettings{'EDIT'} = 'no';
904a41b9
MT		 52$qossettings{'OUT_SPD'} = '';
53$qossettings{'INC_SPD'} = '';
84cab473
MT		 54$qossettings{'DEF_OUT_SPD'} = '';
55$qossettings{'DEF_INC_SPD'} = '';
2db5d932
MT		 56$qossettings{'DEFCLASS_INC'} = '';
57$qossettings{'DEFCLASS_OUT'} = '';
58$qossettings{'ACK'} = '';
84cab473 59$qossettings{'MTU'} = '1492';
b684b13b 60$qossettings{'SFQ_PERTUB'} = '10';
84cab473 61$qossettings{'QLENGTH'} = '30';
904a41b9
MT		 62$qossettings{'RED_DEV'} = `cat /var/ipfire/red/iface`;
63$qossettings{'IMQ_DEV'} = 'imq0';
414e011d 64$qossettings{'VALID'} = 'yes';
84cab473
MT		 65### Values that have to be initialized
66$qossettings{'ACTION'} = '';
67$qossettings{'ACTIONDEF'} = '';
68$qossettings{'ACTIONBW'} = '';
69$qossettings{'PRIO'} = '';
70$qossettings{'SPD'} = '';
71$qossettings{'CLASS'} = '';
72$qossettings{'SCLASS'} = '';
73$qossettings{'QPORT'} = '';
74$qossettings{'DPORT'} = '';
75$qossettings{'QIP'} = '';
76$qossettings{'DIP'} = '';
77$qossettings{'PPROT'} = '';
78$qossettings{'L7PROT'} = '';
79$qossettings{'DEVICE'} = '';
80$qossettings{'MINBWDTH'} = '';
81$qossettings{'MAXBWDTH'} = '';
82$qossettings{'BURST'} = '';
83$qossettings{'CBURST'} = '';
84$qossettings{'DOCLASS'} = '';
85$qossettings{'DOSCLASS'} = '';
86$qossettings{'DOLEVEL7'} = '';
87$qossettings{'DOPORT'} = '';
88
904a41b9
MT		 89
90&General::readhash("${General::swroot}/qos/settings", \%qossettings);
91&Header::getcgihash(\%qossettings);
92
93&Header::openpage('QoS', 1, '');
904a41b9
MT		 94&Header::openbigbox('100%', 'left', '', $errormessage);
95
84cab473
MT		 96############################################################################################################################
97############################################################################################################################
98
99if ($qossettings{'DOCLASS'} eq $Lang::tr{'save'})
414e011d
MT		 100{
101 &validclass();
102 &validminbwdth();
103 &validmaxbwdth();
104 if ( $qossettings{'VALID'} eq 'yes' ) {
105 open( FILE, ">> $classfile" ) or die "Unable to write $classfile";
106 print FILE <<END
107$qossettings{'DEVICE'};$qossettings{'CLASS'};$qossettings{'PRIO'};$qossettings{'MINBWDTH'};$qossettings{'MAXBWDTH'};$qossettings{'BURST'};$qossettings{'CBURST'};
108END
109;
110 close FILE;
111 } else {
112 $qossettings{'ACTION'} = 'Parentklasse hinzufuegen';
113 }
114}
84cab473 115elsif ($qossettings{'DOCLASS'} eq 'Bearbeiten')
414e011d
MT		 116{
117 open( FILE, "< $classfile" ) or die "Unable to read $classfile";
118 @classes = <FILE>;
119 close FILE;
120 open( FILE, "> $classfile" ) or die "Unable to write $classfile";
121 foreach $classentry (sort @classes)
122 {
123 @classline = split( /\;/, $classentry );
124 if ( $classline[1] ne $qossettings{'CLASS'} ) {
125 print FILE $classentry;
126 } else {
127 $qossettings{'DEVICE'} = $classline[0];
128 $qossettings{'PRIO'} = $classline[2];
129 $qossettings{'MINBWDTH'} = $classline[3];
130 $qossettings{'MAXBWDTH'} = $classline[4];
131 $qossettings{'BURST'} = $classline[5];
132 $qossettings{'CBURST'} = $classline[6];
133 $qossettings{'EDIT'} = 'yes';
134 }
135 }
136 close FILE;
137 &parentclass();
138 &Header::closebigbox();
139 &Header::closepage();
140 exit
141}
84cab473 142elsif ($qossettings{'DOCLASS'} eq 'Loeschen')
414e011d
MT		 143{
144 open( FILE, "< $classfile" ) or die "Unable to read $classfile";
145 @tmp = <FILE>;
146 close FILE;
147 open( FILE, "> $classfile" ) or die "Unable to write $classfile";
148 foreach $classentry (sort @tmp)
149 {
150 @tmpline = split( /\;/, $classentry );
151 if ( $tmpline[1] ne $qossettings{'CLASS'} )
152 {
153 print FILE $classentry;
154 }
155 }
156 close FILE;
84cab473
MT		 157 open( FILE, "< $subclassfile" ) or die "Unable to read $classfile";
158 @tmp = <FILE>;
159 close FILE;
160 open( FILE, "> $subclassfile" ) or die "Unable to write $classfile";
161 foreach $subclassentry (sort @tmp)
162 {
163 @tmpline = split( /\;/, $subclassentry );
164 if ( $tmpline[1] ne $qossettings{'CLASS'} )
165 {
166 print FILE $subclassentry;
167 }
168 }
169 close FILE;
170 $message = "Klasse $qossettings{'CLASS'} wurde mit eventuell vorhandenen Unterklassen geloescht.";
414e011d 171}
84cab473
MT		 172
173############################################################################################################################
174############################################################################################################################
175
176if ($qossettings{'DOSCLASS'} eq $Lang::tr{'save'})
414e011d
MT		 177{
178 if ($qossettings{'SCLASS'} >= 1000 && $qossettings{'CLASS'} < 1021) {
179 $qossettings{'DEVICE'} = $qossettings{'RED_DEV'};
180 } elsif ($qossettings{'SCLASS'} >= 2000 && $qossettings{'CLASS'} < 2021) {
181 $qossettings{'DEVICE'} = $qossettings{'IMQ_DEV'};
182 }
183 &validsubclass();
184 &validminbwdth();
185 if ( $qossettings{'VALID'} eq 'yes' ) {
186 open( FILE, ">> $subclassfile" ) or die "Unable to write $subclassfile";
187 print FILE <<END
188$qossettings{'DEVICE'};$qossettings{'CLASS'};$qossettings{'SCLASS'};$qossettings{'PRIO'};$qossettings{'MINBWDTH'};$qossettings{'MAXBWDTH'};$qossettings{'BURST'};$qossettings{'CBURST'};
189END
190;
191 close FILE;
192 } else {
193 $qossettings{'ACTION'} = 'Unterklasse hinzufuegen';
194 }
84cab473 195} elsif ($qossettings{'DOSCLASS'} eq 'Loeschen')
414e011d
MT		 196{
197 open( FILE, "< $subclassfile" ) or die "Unable to read $classfile";
198 @tmp = <FILE>;
199 close FILE;
200 open( FILE, "> $subclassfile" ) or die "Unable to write $classfile";
201 foreach $subclassentry (sort @tmp)
202 {
203 @tmpline = split( /\;/, $subclassentry );
204 if ( $tmpline[2] ne $qossettings{'CLASS'} )
205 {
206 print FILE $subclassentry;
207 }
208 }
209 close FILE;
210 $message = "Unterklasse $qossettings{'CLASS'} wurde geloescht.";
211}
84cab473
MT		 212
213############################################################################################################################
214############################################################################################################################
215
216if ($qossettings{'DOLEVEL7'} eq $Lang::tr{'save'})
414e011d
MT		 217{
218 if ( $qossettings{'QIP'} ne '' ) {
219 unless ( &General::validip($qossettings{'QIP'}) ) {
220 $qossettings{'VALID'} = 'no';
221 $message = "Die Quell-IP-Adresse ist ungueltig.";
222 }
223 }
224 if ( $qossettings{'DIP'} ne '' ) {
225 unless ( &General::validip($qossettings{'DIP'}) ) {
226 $qossettings{'VALID'} = 'no';
227 $message = "Die Ziel-IP-Adresse ist ungueltig.";
228 }
229 }
230 if ($qossettings{'CLASS'} >= 100 && $qossettings{'CLASS'} < 121) {
231 $qossettings{'DEVICE'} = $qossettings{'RED_DEV'};
232 } elsif ($qossettings{'CLASS'} >= 1000 && $qossettings{'CLASS'} < 1021) {
233 $qossettings{'DEVICE'} = $qossettings{'RED_DEV'};
234 } elsif ($qossettings{'CLASS'} >= 200 && $qossettings{'CLASS'} < 221) {
235 $qossettings{'DEVICE'} = $qossettings{'IMQ_DEV'};
236 } elsif ($qossettings{'CLASS'} >= 2000 && $qossettings{'CLASS'} < 2021) {
237 $qossettings{'DEVICE'} = $qossettings{'IMQ_DEV'};
238 }
239 if ( $qossettings{'VALID'} eq 'yes' ) {
240 open( FILE, ">> $level7file" ) or die "Unable to write $level7file";
241 print FILE <<END
242$qossettings{'CLASS'};$qossettings{'DEVICE'};$qossettings{'L7PROT'};$qossettings{'QIP'};$qossettings{'DIP'};
243END
244;
245 close FILE;
246 } else {
247 $qossettings{'ACTION'} = 'Level7-Regel hinzufuegen';
248 }
249}
84cab473 250elsif ($qossettings{'DOLEVEL7'} eq 'Loeschen')
414e011d
MT		 251{
252 open( FILE, "< $level7file" ) or die "Unable to read $level7file";
253 @l7rules = <FILE>;
254 close FILE;
255 open( FILE, "> $level7file" ) or die "Unable to read $level7file";
256 foreach $l7ruleentry (sort @l7rules)
257 {
258 @l7ruleline = split( /\;/, $l7ruleentry );
259 if ( ($l7ruleline[0] ne $qossettings{'CLASS'}) && ($l7ruleline[2] ne $qossettings{'L7PROT'}))
260 {
261 print FILE $l7ruleentry;
262 }
263 }
264 close FILE;
265 $message = "Level7-Regel ($qossettings{'CLASS'} - $qossettings{'L7PROT'}) wurde geloescht.";
266}
84cab473
MT		 267
268############################################################################################################################
269############################################################################################################################
270
271if ($qossettings{'DOPORT'} eq $Lang::tr{'save'})
272{
273 if ( $qossettings{'QIP'} ne '' ) {
274 unless ( &General::validip($qossettings{'QIP'}) ) {
275 $qossettings{'VALID'} = 'no';
276 $message = "Die Quell-IP-Adresse ist ungueltig.";
277 }
278 }
279 if ( $qossettings{'DIP'} ne '' ) {
280 unless ( &General::validip($qossettings{'DIP'}) ) {
281 $qossettings{'VALID'} = 'no';
282 $message = "Die Ziel-IP-Adresse ist ungueltig.";
283 }
284 }
285 if ($qossettings{'CLASS'} >= 100 && $qossettings{'CLASS'} < 121) {
286 $qossettings{'DEVICE'} = $qossettings{'RED_DEV'};
287 } elsif ($qossettings{'CLASS'} >= 1000 && $qossettings{'CLASS'} < 1021) {
288 $qossettings{'DEVICE'} = $qossettings{'RED_DEV'};
289 } elsif ($qossettings{'CLASS'} >= 200 && $qossettings{'CLASS'} < 221) {
290 $qossettings{'DEVICE'} = $qossettings{'IMQ_DEV'};
291 } elsif ($qossettings{'CLASS'} >= 2000 && $qossettings{'CLASS'} < 2021) {
292 $qossettings{'DEVICE'} = $qossettings{'IMQ_DEV'};
293 }
294 if ( $qossettings{'VALID'} eq 'yes' ) {
295 open( FILE, ">> $portfile" ) or die "Unable to write $portfile";
296 print FILE <<END
297$qossettings{'CLASS'};$qossettings{'DEVICE'};$qossettings{'PPROT'};$qossettings{'QIP'};$qossettings{'QPORT'};$qossettings{'DIP'};$qossettings{'DPORT'};
298END
299;
300 close FILE;
301 } else {
302 $qossettings{'ACTION'} = 'Port-Regel hinzufuegen';
303 }
304} elsif ($qossettings{'DOPORT'} eq 'Loeschen')
305{
306 open( FILE, "< $portfile" ) or die "Unable to read $portfile";
307 @portrules = <FILE>;
308 close FILE;
309 open( FILE, "> $portfile" ) or die "Unable to read $portfile";
310 foreach $portruleentry (sort @portrules)
311 {
312 @portruleline = split( /\;/, $portruleentry );
313 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'}))
314 {
315 print FILE $portruleentry;
316 }
317 }
318 close FILE;
319 $message = "Port-Regel ($qossettings{'CLASS'} - $qossettings{'PPROT'}) wurde geloescht.";
320}
321
322############################################################################################################################
323############################################################################################################################
324
904a41b9
MT		 325if ($qossettings{'ACTION'} eq 'Start')
326{
a7fb5630 327 system("sleep 1 && /usr/bin/perl /var/ipfire/qos/bin/makeqosscripts.pl > /var/ipfire/qos/bin/qos.sh &");
904a41b9 328 system("/bin/touch /var/ipfire/qos/enable");
a7fb5630
MT		 329 system("sleep 2 && /usr/local/bin/qosctrl start >/dev/null 2>&1");
330 system("logger -t ipfire 'QoS started'");
904a41b9
MT		 331 $qossettings{'ENABLED'} = 'on';
332 &General::writehash("${General::swroot}/qos/settings", \%qossettings);
333}
334elsif ($qossettings{'ACTION'} eq 'Stop')
335{
a7fb5630 336 system("/usr/local/bin/qosctrl stop >/dev/null 2>&1");
84cab473 337 unlink "/var/ipfire/qos/bin/qos.sh";
904a41b9 338 unlink "/var/ipfire/qos/enable";
a7fb5630 339 system("logger -t ipfire 'QoS stopped'");
904a41b9
MT		 340 $qossettings{'ENABLED'} = 'off';
341 &General::writehash("${General::swroot}/qos/settings", \%qossettings);
342}
84cab473
MT		 343elsif ($qossettings{'ACTION'} eq 'Neustart')
344{
345 if ($qossettings{'ENABLED'} eq 'on'){
a7fb5630
MT		 346 system("/usr/local/bin/qosctrl stop >/dev/null 2>&1");
347 system("sleep 1 && /usr/bin/perl /var/ipfire/qos/bin/makeqosscripts.pl > /var/ipfire/qos/bin/qos.sh &");
348 system("sleep 5 && /usr/local/bin/qosctrl start >/dev/null 2>&1");
349 system("logger -t ipfire 'QoS restarted'");
84cab473
MT		 350 }
351}
904a41b9
MT		 352elsif ($qossettings{'ACTION'} eq $Lang::tr{'save'})
353{
84cab473
MT		 354 if ($qossettings{'DEF_INC_SPD'} eq '') {
355 $qossettings{'DEF_INC_SPD'} = int($qossettings{'INC_SPD'} * 0.9);
356 }
357 if ($qossettings{'DEF_OUT_SPD'} eq '') {
358 $qossettings{'DEF_OUT_SPD'} = int($qossettings{'OUT_SPD'} * 0.9);
359 }
904a41b9
MT		 360 &General::writehash("${General::swroot}/qos/settings", \%qossettings);
361}
92b5fba4
MT		 362elsif ($qossettings{'ACTION'} eq 'Statusinformationen')
363{
364 &Header::openbox('100%', 'left', 'QoS Status');
365 if ($qossettings{'ENABLED'} eq 'on'){
366 my $output = "";
367 $output = `/usr/local/bin/qosctrl status`;
368 $output = &Header::cleanhtml($output,"y");
369 print "<pre>$output</pre>\n";
370 } else { print "QoS ist nicht aktiviert!"; }
371 &Header::closebox();
372 &Header::closebigbox();
373 &Header::closepage();
374 exit
375}
2db5d932
MT		 376elsif ($qossettings{'ACTION'} eq 'Parentklasse hinzufuegen')
377{
378 &parentclass();
379 &Header::closebigbox();
380 &Header::closepage();
381 exit
382}
414e011d
MT		 383elsif ($qossettings{'ACTION'} eq 'Unterklasse hinzufuegen')
384{
385 &subclass();
386 &Header::closebigbox();
387 &Header::closepage();
388 exit
389}
2db5d932
MT		 390elsif ($qossettings{'ACTION'} eq 'Level7-Regel hinzufuegen')
391{
392 &level7rule();
393 &Header::closebigbox();
394 &Header::closepage();
395 exit
396}
414e011d
MT		 397elsif ($qossettings{'ACTION'} eq 'Port-Regel hinzufuegen')
398{
399 &portrule();
400 &Header::closebigbox();
401 &Header::closepage();
402 exit
403}
84cab473
MT		 404elsif ($qossettings{'ACTION'} eq 'Erweiterte Einstellungen')
405{
406 &expert();
407 &Header::closebigbox();
408 &Header::closepage();
409 exit
410}
411if ($qossettings{'ACTIONBW'} eq 'Andern')
904a41b9 412{
2db5d932
MT		 413 &changebandwidth();
414 &Header::closebigbox();
415 &Header::closepage();
416 exit
417}
84cab473 418if ($qossettings{'ACTIONDEF'} eq 'Andern')
2db5d932
MT		 419{
420 &changedefclasses();
904a41b9
MT		 421 &Header::closebigbox();
422 &Header::closepage();
423 exit
424}
425
426&General::readhash("${General::swroot}/qos/settings", \%qossettings);
427
428my $status = $Lang::tr{'stopped'};
84cab473 429my $statuscolor = '#993333';
904a41b9
MT		 430if ( $qossettings{'ENABLED'} eq 'on' ) {
431 $status = $Lang::tr{'running'};
84cab473 432 $statuscolor = '#339933';
904a41b9
MT		 433}
434
435if ( $netsettings{'RED_TYPE'} ne 'PPPOE' ) {
436 $qossettings{'RED_DEV'} = $netsettings{'RED_DEV'};
437}
438
439if ($errormessage) {
440 &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
441 print "<class name='base'>$errormessage\n";
442 print "&nbsp;</class>\n";
443 &Header::closebox();
444}
445
414e011d
MT		 446############################################################################################################################
447############################################################################################################################
448
904a41b9
MT		 449&Header::openbox('100%', 'center', 'Quality of Service');
450print <<END
451 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
452 <table width='33%'>
414e011d
MT		 453END
454;
455 if ( $message ne "" ) {
456 print "<tr><td colspan='2' align='center'><font color='red'>$message</font>";
457 }
458 print <<END
904a41b9
MT		 459 <tr><td width='50%' align='left'><b>Quality of Service:</b>
460 <td width='50%' align='center' bgcolor='$statuscolor'><font color='white'>$status</font>
2db5d932
MT		 461 <tr><td width='100%' align='center' colspan='2'>
462 <input type='submit' name='ACTION' value='Start' />
463 <input type='submit' name='ACTION' value='Stop' />
464 <input type='submit' name='ACTION' value='$Lang::tr{'restart'}' />
904a41b9
MT		 465END
466;
467 if (($qossettings{'OUT_SPD'} ne '') && ($qossettings{'INC_SPD'} ne '')) {
468 print <<END
469 <tr><td colspan='3'>&nbsp;
2db5d932 470 <tr><td width='40%' align='right'>Downloadgeschwindigkeit: <td width='40%' align='left'>$qossettings{'INC_SPD'} kbps
84cab473 471 <td width='20%' rowspan='2' align='center' valign='middle'><input type='submit' name='ACTIONBW' value='Andern'>
2db5d932
MT		 472 <tr><td width='40%' align='right'>Uploadgeschwindigkeit: <td width='40%' align='left'>$qossettings{'OUT_SPD'} kbps
473END
474;
475 }
476 if (($qossettings{'DEFCLASS_OUT'} ne '') && ($qossettings{'DEFCLASS_INC'} ne '')&& ($qossettings{'ACK'} ne '')) {
477 print <<END
478 <tr><td colspan='3'><hr>
479 <tr><td width='40%' align='right'>Downloadstandardklasse: <td width='40%' align='left'>$qossettings{'DEFCLASS_INC'}
84cab473 480 <td width='20%' rowspan='3' align='center' valign='middle'><input type='submit' name='ACTIONDEF' value='Andern'>
2db5d932
MT		 481 <tr><td width='40%' align='right'>Uploadstandardklasse: <td width='40%' align='left'>$qossettings{'DEFCLASS_OUT'}
482 <tr><td width='40%' align='right'>ACKs: <td width='40%' align='left'>$qossettings{'ACK'}
414e011d 483 <tr><td colspan='3' width='100%'><hr>
92b5fba4 484 <tr><td colspan='3' width='100%' align='center'><input type='submit' name='ACTION' value='Parentklasse hinzufuegen'><input type='submit' name='ACTION' value='Erweiterte Einstellungen'><input type='submit' name='ACTION' value='Statusinformationen'>
414e011d 485 </form>
904a41b9
MT		 486END
487;
488 }
489print "</table>";
490&Header::closebox();
491
492if ( ($qossettings{'OUT_SPD'} eq '') || ($qossettings{'INC_SPD'} eq '') ) {
2db5d932
MT		 493 &changebandwidth();
494 &Header::closebox();
495 &Header::closebigbox();
496 &Header::closepage();
497 exit
498}
499
500if ( ($qossettings{'DEFCLASS_INC'} eq '') || ($qossettings{'DEFCLASS_OUT'} eq '') || ($qossettings{'ACK'} eq '') ) {
501 &changedefclasses();
502 &Header::closebigbox();
503 &Header::closepage();
504 exit
505}
506
414e011d
MT		 507&showclasses();
508&showl7rules();
84cab473 509&showportrules();
2db5d932 510
904a41b9
MT		 511&Header::closebigbox();
512&Header::closepage();
904a41b9 513
414e011d
MT		 514############################################################################################################################
515############################################################################################################################
2db5d932
MT		 516
517sub changedefclasses {
518 &Header::openbox('100%', 'center', 'Standardklassen:');
904a41b9 519 print <<END
2db5d932
MT		 520 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
521 <table width='66%'>
522 <tr><td width='100%' colspan='3'>Legen sie hier die Standardklassen fest durch die nicht-gefilterte Pakete gehen.
523 <tr><td width='33%' align='right'>Download:<td width='33%' align='left'><select name='DEFCLASS_INC'>
524END
525;
414e011d 526 for ( $c = 200 ; $c <= 220 ; $c++ )
2db5d932
MT		 527 {
528 if ( $qossettings{'DEFCLASS_INC'} ne $c )
414e011d
MT		 529 { print "<option value='$c'>$c</option>\n"; }
530 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 531 }
532 print <<END
533 </select><td width='33%' align='center'>&nbsp;
534 <tr><td width='33%' align='right'>Upload:<td width='33%' align='left'><select name='DEFCLASS_OUT'>
535END
536;
414e011d 537 for ( $c = 100 ; $c <= 120 ; $c++ )
2db5d932
MT		 538 {
539 if ( $qossettings{'DEFCLASS_OUT'} ne $c )
414e011d
MT		 540 { print "<option value='$c'>$c</option>\n"; }
541 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 542 }
543 print <<END
544 </select><td width='33%' align='center'>&nbsp;
545 </table>
546 <hr>
547 <table width='66%'>
548 <tr><td width='100%' colspan='3'>Legen sie hier die ACK-Klasse fest <br> und klicken Sie danach auf <i>Speichern</i>.
549 <tr><td width='33%' align='right'>ACKs:<td width='33%' align='left'><select name='ACK'>
550END
551;
414e011d 552 for ( $c = 100 ; $c <= 120 ; $c++ )
2db5d932
MT		 553 {
554 if ( $qossettings{'ACK'} ne $c )
414e011d
MT		 555 { print "<option value='$c'>$c</option>\n"; }
556 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 557 }
558 print <<END
559 </select><td width='33%' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />
560 </table>
561 </form>
904a41b9
MT		 562END
563;
564 &Header::closebox();
2db5d932
MT		 565}
566
567sub changebandwidth {
568 &Header::openbox('100%', 'center', 'Bandbreiteneinstellungen');
569 if ($qossettings{'ENABLED'} eq 'on') {
570 print "Sie koennen die Bandbreiteneinstellungen nicht bearbeiten, wenn QoS eingeschaltet ist. Schalten sie es zuerst dazu aus.<p>";
571 print "<a href='/cgi-bin/qos.cgi'>Zurueck</a>";
572 } else {
573 print <<END
574 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
84cab473 575 <input type='hidden' name='DEF_OUT_SPD' value=''><input type='hidden' name='DEF_INC_SPD' value=''>
2db5d932
MT		 576 <table width='66%'>
577 <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>.
578 <tr><td width='33%' align='right'>Download-Geschwindigkeit:
579 <td width='33%' align='left'><input type='text' name='INC_SPD' maxlength='8' value=$qossettings{'INC_SPD'}> &nbsp; kbps
580 <td width='33%' align='center'>&nbsp;
581 <tr><td width='33%' align='right'>Upload-Geschwindigkeit:
582 <td width='33%' align='left'><input type='text' name='OUT_SPD' maxlength='8' value=$qossettings{'OUT_SPD'}> &nbsp; kbps
583 <td width='33%' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />&nbsp;<input type='reset' name='ACTION' value=$Lang::tr{'reset'} />
584 </table>
585 </form>
586END
587;
588 }
904a41b9 589 &Header::closebox();
904a41b9
MT		 590}
591
2db5d932 592sub parentclass {
414e011d 593 &Header::openbox('100%', 'center', 'Parentklasse');
2db5d932
MT		 594 print <<END
595 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
596 <table width='66%'>
414e011d
MT		 597END
598;
599 if ( $message ne "" ) {
600 print "<tr><td colspan='3' align='center'>$message";
601 }
602 if ( $qossettings{'EDIT'} eq 'yes' ) {
603 print "<input type='hidden' name='CLASS' value=$qossettings{'CLASS'}>";
604 print "<input type='hidden' name='DEVICE' value=$qossettings{'DEVICE'}>";
605 }
606 print <<END
2db5d932
MT		 607 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
608 <tr><td width='33%' align='right'>Interface:
414e011d
MT		 609 <td width='33%' align='left'>
610END
611;
612 if ( $qossettings{'EDIT'} eq 'yes' ) {
613 print "<select name='DEVICE' disabled>";
614 } else {
615 print "<select name='DEVICE'>";
616 }
617 if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) {
618 $qossettings{'RED_DEV_SEL'} = 'selected';
619 } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) {
620 $qossettings{'IMQ_DEV_SEL'} = 'selected';
621 }
622 print <<END
623 <option value=$qossettings{'RED_DEV'} $qossettings{'RED_DEV_SEL'}>$qossettings{'RED_DEV'}</option>
624 <option value=$qossettings{'IMQ_DEV'} $qossettings{'IMQ_DEV_SEL'}>$qossettings{'IMQ_DEV'}</option></select>
2db5d932 625 <td width='33%' align='center'>&nbsp;
414e011d 626 <tr><td width='33%' align='right'>Klasse:<td width='33%' align='left'>
2db5d932
MT		 627END
628;
414e011d
MT		 629 if ( $qossettings{'EDIT'} eq 'yes' ) {
630 print "<select name='CLASS' disabled>";
631 } else {
632 print "<select name='CLASS'>";
633 }
2db5d932
MT		 634 for ( $c = 100 ; $c <= 120 ; $c++ )
635 {
636 if ( $qossettings{'CLASS'} ne $c )
414e011d
MT		 637 { print "<option value='$c'>$c</option>\n"; }
638 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 639 }
640 for ( $c = 200 ; $c <= 220 ; $c++ )
641 {
642 if ( $qossettings{'CLASS'} ne $c )
414e011d
MT		 643 { print "<option value='$c'>$c</option>\n"; }
644 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 645 }
646 print <<END
647 </select>
648 <td width='33%' align='center'>&nbsp;
649 <tr><td width='33%' align='right'>Prioritaet:<td width='33%' align='left'><select name='PRIO'>
650END
651;
652 for ( $c = 1 ; $c <= 7 ; $c++ )
653 {
654 if ( $qossettings{'PRIO'} ne $c )
414e011d
MT		 655 { print "<option value='$c'>$c</option>\n"; }
656 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 657 }
658 print <<END
659 <td width='33%' align='center'>&nbsp;
660 <tr><td width='33%' align='right'>Garantierte Bandbreite:
414e011d 661 <td width='33%' align='left'><input type='text' name='MINBWDTH' maxlength='8' required='1' value=$qossettings{'MINBWDTH'} >
2db5d932
MT		 662 <td width='33%' align='center'>&nbsp;
663 <tr><td width='33%' align='right'>Maximale Bandbreite:
414e011d 664 <td width='33%' align='left'><input type='text' name='MAXBWDTH' maxlength='8' required='1' value=$qossettings{'MAXBWDTH'}>
2db5d932
MT		 665 <td width='33%' align='center'>&nbsp;
666 <tr><td width='33%' align='right'>Burst:
667 <td width='33%' align='left'><input type='text' name='BURST' maxlength='8' value=$qossettings{'BURST'}>
668 <td width='33%' align='center'>&nbsp;
669 <tr><td width='33%' align='right'>Ceilburst:
670 <td width='33%' align='left'><input type='text' name='CBURST' maxlength='8' value=$qossettings{'CBURST'}>
84cab473 671 <td width='33%' align='center'><input type='submit' name='DOCLASS' value=$Lang::tr{'save'} />&nbsp;<input type='reset' value=$Lang::tr{'reset'} />
2db5d932
MT		 672 </table></form>
673END
674;
675 &Header::closebox();
676}
904a41b9 677
414e011d
MT		 678sub subclass {
679 &Header::openbox('100%', 'center', 'Unterklasse');
2db5d932
MT		 680 print <<END
681 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
682 <table width='66%'>
414e011d
MT		 683END
684;
685 if ( $message ne "" ) {
686 print "<tr><td colspan='3' align='center'>$message";
687 }
688 print <<END
689 <tr><td colspan='3' width='100%'>Aktuelle Klasse: $qossettings{'CLASS'}
2db5d932 690 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
414e011d
MT		 691 <tr><td width='33%' align='right'>Unterklasse:<td width='33%' align='left'><select name='SCLASS'>
692END
693;
694 if ($qossettings{'CLASS'} >= 100 && $qossettings{'CLASS'} < 121) {
695 $qossettings{'DEVICE'} = $qossettings{'RED_DEV'};
696 for ( $c = 1000 ; $c <= 1020 ; $c++ )
697 {
698 if ( $qossettings{'SCLASS'} ne $c )
699 { print "<option value='$c'>$c</option>\n"; }
700 else { print "<option selected value='$c'>$c</option>\n"; }
701 }
702 } elsif ($qossettings{'CLASS'} >= 200 && $qossettings{'CLASS'} < 221) {
703 $qossettings{'DEVICE'} = $qossettings{'IMQ_DEV'};
704 for ( $c = 2000 ; $c <= 2020 ; $c++ )
705 {
706 if ( $qossettings{'SCLASS'} ne $c )
707 { print "<option value='$c'>$c</option>\n"; }
708 else { print "<option selected value='$c'>$c</option>\n"; }
709 }
710 }
711 print <<END
712 </select>
713 <td width='33%' align='center'>&nbsp;
714 <tr><td width='33%' align='right'>Prioritaet:<td width='33%' align='left'><select name='PRIO'>
715END
716;
717 for ( $c = 1 ; $c <= 7 ; $c++ )
718 {
719 if ( $qossettings{'PRIO'} ne $c )
720 { print "<option value='$c'>$c</option>\n"; }
721 else { print "<option selected value='$c'>$c</option>\n"; }
722 }
723 print <<END
724 <td width='33%' align='center'>&nbsp;
725 <tr><td width='33%' align='right'>Garantierte Bandbreite:
726 <td width='33%' align='left'><input type='text' name='MINBWDTH' maxlength='8' required='1' value=$qossettings{'MINBWDTH'} >
727 <td width='33%' align='center'>&nbsp;
728 <tr><td width='33%' align='right'>Maximale Bandbreite:
729 <td width='33%' align='left'><input type='text' name='MAXBWDTH' maxlength='8' required='1' value=$qossettings{'MAXBWDTH'}>
730 <td width='33%' align='center'>&nbsp;
731 <tr><td width='33%' align='right'>Burst:
732 <td width='33%' align='left'><input type='text' name='BURST' maxlength='8' value=$qossettings{'BURST'}>
2db5d932 733 <td width='33%' align='center'>&nbsp;
414e011d
MT		 734 <tr><td width='33%' align='right'>Ceilburst:
735 <td width='33%' align='left'><input type='text' name='CBURST' maxlength='8' value=$qossettings{'CBURST'}>
84cab473 736 <td width='33%' align='center'><input type='hidden' name='CLASS' value=$qossettings{'CLASS'}><input type='submit' name='DOSCLASS' value=$Lang::tr{'save'} />&nbsp;<input type='reset' value=$Lang::tr{'reset'} />
414e011d
MT		 737 </table></form>
738END
739;
740 &Header::closebox();
741}
742
414e011d
MT		 743sub level7rule {
744 &Header::openbox('100%', 'center', 'Level7-Regel');
745 print <<END
746 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
747 <table width='66%'>
748END
749;
750 if ( $message ne "" ) {
751 print "<tr><td colspan='3' align='center'><font color='red'>$message</font>";
752 }
753 print <<END
754 <tr><td colspan='3' width='100%'>Aktuelle Klasse: $qossettings{'CLASS'}
755 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
2db5d932
MT		 756 <tr><td width='33%' align='right'>Protokoll:
757 <td width='33%' align='left'><select name='L7PROT'>
758END
759;
760 opendir( DIR, "/etc/l7-protocols/protocols" );
761 foreach $direntry ( sort readdir(DIR) )
762 {
763 next if $direntry eq ".";
764 next if $direntry eq "..";
765 next if -d "/etc/l7-protocols/protocols/$direntry";
766 @proto = split( /\./, $direntry );
767 if ( $proto[0] eq $qossettings{'L7PROT'} ) {
768 print "<option value='$proto[0]' selected>$proto[0]</option>\n";
769 } else {
770 print "<option value='$proto[0]'>$proto[0]</option>\n";
771 }
772 }
773 closedir DIR;
774 print <<END
775 </select><td width='33%' align='center'>&nbsp;
776 <tr><td width='33%' align='right'>Quell-IP-Adresse:
777 <td width='33%' align='left'><input type='text' name='QIP' maxlength='15' value=$qossettings{'QIP'}>
778 <td width='33%' align='center'>&nbsp;
779 <tr><td width='33%' align='right'>Ziel-IP-Adresse:
780 <td width='33%' align='left'><input type='text' name='DIP' maxlength='15' value=$qossettings{'DIP'}>
84cab473 781 <td width='33%' align='center'><input type='hidden' name='CLASS' value=$qossettings{'CLASS'}><input type='submit' name='DOLEVEL7' value=$Lang::tr{'save'} />
2db5d932
MT		 782 </table></form>
783END
784;
785 &Header::closebox();
414e011d
MT		 786}
787
788sub portrule {
789 &Header::openbox('100%', 'center', 'Port-Regel hinzufuegen');
790 print <<END
791 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
792 <table width='66%'>
793 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
414e011d
MT		 794 <tr><td width='33%' align='right'>Protokoll:
795 <td width='33%' align='left'><select name='PPROT'>
796END
797;
798 open( FILE, "< /etc/protocols" );
799 @proto = <FILE>;
800 close FILE;
801 foreach $direntry (sort @proto)
802 {
803 @tmpline = split( /\ /, $direntry );
804 next if $tmpline[0] =~ "#";
805 if ( $tmpline[0] eq $qossettings{'PPROT'} ) {
806 print "<option value='$tmpline[0]' selected>$tmpline[0]</option>\n";
807 } else {
808 print "<option value='$tmpline[0]'>$tmpline[0]</option>\n";
809 }
810 }
811 print <<END
812 </select><td width='33%' align='center'>&nbsp;
813 <tr><td width='33%' align='right'>Quell-Port:
814 <td width='33%' align='left'><input type='text' name='QPORT' maxlength='5' value=$qossettings{'QPORT'}>
815 <td width='33%' align='center'>&nbsp;
816 <tr><td width='33%' align='right'>Ziel-Port:
817 <td width='33%' align='left'><input type='text' name='DPORT' maxlength='5' value=$qossettings{'DPORT'}>
818 <td width='33%' align='center'>&nbsp;
819 <tr><td width='33%' align='right'>Quell-IP-Adresse:
820 <td width='33%' align='left'><input type='text' name='QIP' maxlength='15' value=$qossettings{'QIP'}>
821 <td width='33%' align='center'>&nbsp;
822 <tr><td width='33%' align='right'>Ziel-IP-Adresse:
823 <td width='33%' align='left'><input type='text' name='DIP' maxlength='15' value=$qossettings{'DIP'}>
84cab473 824 <td width='33%' align='center'><input type='hidden' name='CLASS' value='$qossettings{'CLASS'}'><input type='submit' name='DOPORT' value=$Lang::tr{'save'} />
414e011d
MT		 825 </table></form>
826END
827;
828 &Header::closebox();
829}
830
831sub showclasses {
832 open( FILE, "< $classfile" ) or die "Unable to read $classfile";
833 @classes = <FILE>;
834 close FILE;
835 if (@classes) {
836 open( FILE, "< $subclassfile" ) or die "Unable to read $subclassfile";
837 @subclasses = <FILE>;
838 close FILE;
839 &Header::openbox('100%', 'center', 'Klassen');
840 print <<END
841 <table border='0' width='100%' cellspacing='0'>
842 <tr><td bgcolor='lightgrey' width='10%'>Interface
843 <td bgcolor='lightgrey' width='10%'>Klasse
844 <td bgcolor='lightgrey' width='10%'>Prioritaet
845 <td bgcolor='lightgrey' width='10%'>Garantierte Bandbreite
846 <td bgcolor='lightgrey' width='10%'>Maximale Bandbreite
847 <td bgcolor='lightgrey' width='10%'>Burst
848 <td bgcolor='lightgrey' width='10%'>Ceil Burst
849 <td bgcolor='lightgrey' width='30%'>Aktionen
850END
851;
852 foreach $classentry (sort @classes)
853 {
854 @classline = split( /\;/, $classentry );
855 if ( $classline[0] eq $qossettings{'RED_DEV'} )
856 {
857 print <<END
414e011d
MT		 858 <tr><td align='center' bgcolor='#EAEAEA'>$classline[0]
859 <td align='center' bgcolor='#EAEAEA'>$classline[1]
860 <td align='center' bgcolor='#EAEAEA'>$classline[2]
861 <td align='center' bgcolor='#EAEAEA'>$classline[3]
862 <td align='center' bgcolor='#EAEAEA'>$classline[4]
863 <td align='center' bgcolor='#EAEAEA'>$classline[5]
864 <td align='center' bgcolor='#EAEAEA'>$classline[6]
649fd295
MT		 865 <td align='right' bgcolor='#EAEAEA'>
866 <table border='0'><tr>
867 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
868 <input type='hidden' name='CLASS' value='$classline[1]'>
869 <input type='hidden' name='DOCLASS' value='Bearbeiten'>
870 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
871 </form>
872 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
873 <input type='hidden' name='CLASS' value='$classline[1]'>
874 <input type='hidden' name='ACTION' value='Unterklasse hinzufuegen'>
875 <input type='image' alt='Unterklasse hinzufuegen' src='/images/addblue.gif'>
876 </form>
877 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
878 <input type='hidden' name='CLASS' value='$classline[1]'>
879 <input type='hidden' name='ACTION' value='Level7-Regel hinzufuegen'>
880 <input type='image' alt='Level7-Regel hinzufuegen' src='/images/addgreen.gif'>
881 </form>
882 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
883 <input type='hidden' name='CLASS' value='$classline[1]'>
884 <input type='hidden' name='ACTION' value='Port-Regel hinzufuegen'>
885 <input type='image' alt='Port-Regel hinzufuegen' src='/images/add.gif'>
886 </form>
887 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
888 <input type='hidden' name='CLASS' value='$classline[1]'>
889 <input type='hidden' name='DOCLASS' value='Loeschen'>
890 <input type='image' alt='Loeschen' src='/images/delete.gif'>
891 </form>
892 </table>
414e011d
MT		 893END
894;
895 foreach $subclassentry (sort @subclasses)
896 {
897 @subclassline = split( /\;/, $subclassentry );
898 if ( $subclassline[1] eq $classline[1] ) {
899 print <<END
414e011d
MT		 900 <tr><td align='center' bgcolor='#FFFFFF'>Subklasse:
901 <td align='center' bgcolor='#FAFAFA'>$subclassline[2]
902 <td align='center' bgcolor='#FAFAFA'>$subclassline[3]
903 <td align='center' bgcolor='#FAFAFA'>$subclassline[4]
904 <td align='center' bgcolor='#FAFAFA'>$subclassline[5]
905 <td align='center' bgcolor='#FAFAFA'>$subclassline[6]
906 <td align='center' bgcolor='#FAFAFA'>$subclassline[7]
8b0883b8
MT		 907 <td align='right' bgcolor='#FAFAFA'>
908 <table border='0'><tr>
909 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
910 <input type='hidden' name='CLASS' value='$subclassline[2]'>
911 <input type='hidden' name='DOSCLASS' value='Bearbeiten'>
912 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
913 </form>
914 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
915 <input type='hidden' name='CLASS' value='$subclassline[2]'>
916 <input type='hidden' name='ACTION' value='Level7-Regel hinzufuegen'>
917 <input type='image' alt='Level7-Regel hinzufuegen' src='/images/addgreen.gif'>
918 </form>
919 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
920 <input type='hidden' name='CLASS' value='$subclassline[2]'>
921 <input type='hidden' name='ACTION' value='Port-Regel hinzufuegen'>
922 <input type='image' alt='Port-Regel hinzufuegen' src='/images/add.gif'>
414e011d 923 </form>
8b0883b8
MT		 924 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
925 <input type='hidden' name='CLASS' value='$subclassline[2]'>
926 <input type='hidden' name='DOSCLASS' value='Loeschen'>
927 <input type='image' alt='Loeschen' src='/images/delete.gif'>
928 </form>
929 </table>
414e011d
MT		 930END
931;
932 }
933 }
934 }
935 }
936 print "\t<tr><td colspan='8' bgcolor='lightgrey' height='2'>";
937 foreach $classentry (sort @classes)
938 {
939 @classline = split( /\;/, $classentry );
940 if ( $classline[0] eq $qossettings{'IMQ_DEV'} )
941 {
942 print <<END
414e011d
MT		 943 <tr><td align='center' bgcolor='#EAEAEA'>$classline[0]
944 <td align='center' bgcolor='#EAEAEA'>$classline[1]
945 <td align='center' bgcolor='#EAEAEA'>$classline[2]
946 <td align='center' bgcolor='#EAEAEA'>$classline[3]
947 <td align='center' bgcolor='#EAEAEA'>$classline[4]
948 <td align='center' bgcolor='#EAEAEA'>$classline[5]
949 <td align='center' bgcolor='#EAEAEA'>$classline[6]
649fd295
MT		 950 <td align='right' bgcolor='#EAEAEA'>
951 <table border='0'><tr>
952 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
953 <input type='hidden' name='CLASS' value='$classline[1]'>
954 <input type='hidden' name='DOCLASS' value='Bearbeiten'>
955 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
956 </form>
957 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
958 <input type='hidden' name='CLASS' value='$classline[1]'>
959 <input type='hidden' name='ACTION' value='Unterklasse hinzufuegen'>
960 <input type='image' alt='Unterklasse hinzufuegen' src='/images/addblue.gif'>
961 </form>
962 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
963 <input type='hidden' name='CLASS' value='$classline[1]'>
964 <input type='hidden' name='ACTION' value='Level7-Regel hinzufuegen'>
965 <input type='image' alt='Level7-Regel hinzufuegen' src='/images/addgreen.gif'>
966 </form>
967 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
968 <input type='hidden' name='CLASS' value='$classline[1]'>
969 <input type='hidden' name='ACTION' value='Port-Regel hinzufuegen'>
970 <input type='image' alt='Port-Regel hinzufuegen' src='/images/add.gif'>
971 </form>
972 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
973 <input type='hidden' name='CLASS' value='$classline[1]'>
974 <input type='hidden' name='DOCLASS' value='Loeschen'>
975 <input type='image' alt='Loeschen' src='/images/delete.gif'>
976 </form>
977 </table>
414e011d
MT		 978END
979;
980 foreach $subclassentry (sort @subclasses)
981 {
982 @subclassline = split( /\;/, $subclassentry );
983 if ( $subclassline[1] eq $classline[1] ) {
984 print <<END
414e011d
MT		 985 <tr><td align='center' bgcolor='#FFFFFF'>Subklasse:
986 <td align='center' bgcolor='#FAFAFA'>$subclassline[2]
987 <td align='center' bgcolor='#FAFAFA'>$subclassline[3]
988 <td align='center' bgcolor='#FAFAFA'>$subclassline[4]
989 <td align='center' bgcolor='#FAFAFA'>$subclassline[5]
990 <td align='center' bgcolor='#FAFAFA'>$subclassline[6]
991 <td align='center' bgcolor='#FAFAFA'>$subclassline[7]
8b0883b8
MT		 992 <td align='right' bgcolor='#FAFAFA'>
993 <table border='0'><tr>
994 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
995 <input type='hidden' name='CLASS' value='$subclassline[2]'>
996 <input type='hidden' name='DOSCLASS' value='Bearbeiten'>
997 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
998 </form>
999 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1000 <input type='hidden' name='CLASS' value='$subclassline[2]'>
1001 <input type='hidden' name='ACTION' value='Level7-Regel hinzufuegen'>
1002 <input type='image' alt='Level7-Regel hinzufuegen' src='/images/addgreen.gif'>
1003 </form>
1004 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1005 <input type='hidden' name='CLASS' value='$subclassline[2]'>
1006 <input type='hidden' name='ACTION' value='Port-Regel hinzufuegen'>
1007 <input type='image' alt='Port-Regel hinzufuegen' src='/images/add.gif'>
1008 </form>
1009 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1010 <input type='hidden' name='CLASS' value='$subclassline[2]'>
1011 <input type='hidden' name='DOSCLASS' value='Loeschen'>
1012 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1013 </form>
1014 </table>
414e011d
MT		 1015END
1016;
1017 }
1018 }
1019 }
1020 }
84cab473
MT		 1021 print <<END
1022 <tr><td colspan='8' align='right' valign='middle'><b>Legende:</b>&nbsp;&nbsp;<img src='/images/edit.gif'>&nbsp;Klasse bearbeiten | <img src='/images/addblue.gif'>&nbsp;Unterklasse hinzufuegen | <img src='/images/addgreen.gif'>&nbsp;Level7-Regel hinzufuegen | <img src='/images/add.gif'>&nbsp;Port-Regel hinzufuegen | <img src='/images/delete.gif'>&nbsp;Klasse loeschen &nbsp;
1023 </table>
1024END
1025;
414e011d
MT		 1026 &Header::closebox();
1027 }
1028}
1029
1030sub showl7rules {
1031 open( FILE, "< $level7file" ) or die "Unable to read $level7file";
1032 @l7rules = <FILE>;
1033 close FILE;
1034 if (@l7rules) {
1035 &Header::openbox('100%', 'center', 'Level7-Regeln');
1036 print <<END
1037 <table border='0' width='100%' cellspacing='0'>
1038 <tr><td bgcolor='lightgrey' width='14%'>Interface
1039 <td bgcolor='lightgrey' width='14%'>Klasse
1040 <td bgcolor='lightgrey' width='14%'>Protokoll
1041 <td bgcolor='lightgrey' width='14%'>Quell-IP-Adresse
1042 <td bgcolor='lightgrey' width='14%'>Ziel-IP-Adresse
1043 <td bgcolor='lightgrey' width='30%'>Aktionen
1044END
1045;
1046 foreach $l7ruleentry (sort @l7rules)
1047 {
1048 @l7ruleline = split( /\;/, $l7ruleentry );
1049 if ( $l7ruleline[1] eq $qossettings{'RED_DEV'} )
1050 {
1051 print <<END
414e011d
MT		 1052 <tr><td align='center' bgcolor='#EAEAEA'>$l7ruleline[1]
1053 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[0]
1054 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[2]
1055 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[3]
1056 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[4]
649fd295
MT		 1057 <td align='right' bgcolor='#EAEAEA'>
1058 <table border='0'><tr>
1059 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1060 <input type='hidden' name='CLASS' value='$l7ruleline[0]'>
1061 <input type='hidden' name='L7PROT' value='$l7ruleline[2]'>
1062 <input type='hidden' name='DOLEVEL7' value='Bearbeiten'>
1063 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1064 </form>
1065 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1066 <input type='hidden' name='CLASS' value='$l7ruleline[0]'>
1067 <input type='hidden' name='L7PROT' value='$l7ruleline[2]'>
1068 <input type='hidden' name='DOLEVEL7' value='Loeschen'>
1069 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1070 </form>
1071 </table>
414e011d
MT		 1072END
1073;
1074 }
1075 }
1076 print "\t<tr><td colspan='8' bgcolor='lightgrey' height='2'>";
1077 foreach $l7ruleentry (sort @l7rules)
1078 {
1079 @l7ruleline = split( /\;/, $l7ruleentry );
1080 if ( $l7ruleline[1] eq $qossettings{'IMQ_DEV'} )
1081 {
1082 print <<END
414e011d
MT		 1083 <tr><td align='center' bgcolor='#EAEAEA'>$l7ruleline[1]
1084 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[0]
1085 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[2]
1086 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[3]
1087 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[4]
649fd295
MT		 1088 <td align='right' bgcolor='#EAEAEA'>
1089 <table border='0'><tr>
1090 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1091 <input type='hidden' name='CLASS' value='$l7ruleline[0]'>
1092 <input type='hidden' name='L7PROT' value='$l7ruleline[2]'>
1093 <input type='hidden' name='DOLEVEL7' value='Bearbeiten'>
1094 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1095 </form>
1096 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1097 <input type='hidden' name='CLASS' value='$l7ruleline[0]'>
1098 <input type='hidden' name='L7PROT' value='$l7ruleline[2]'>
1099 <input type='hidden' name='DOLEVEL7' value='Loeschen'>
1100 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1101 </form>
1102 </table>
84cab473
MT		 1103END
1104;
1105 }
1106 }
1107 print <<END
1108 <tr><td colspan='8' align='right' valign='middle'><b>Legende:</b>&nbsp;&nbsp;<img src='/images/edit.gif'>&nbsp;Regel bearbeiten | <img src='/images/delete.gif'>&nbsp;Regel loeschen &nbsp;
1109 </table>
1110END
1111;
1112 &Header::closebox();
1113 }
1114}
1115
1116sub showportrules {
1117 open( FILE, "< $portfile" ) or die "Unable to read $portfile";
1118 @portrules = <FILE>;
1119 close FILE;
1120 if (@portrules) {
1121 &Header::openbox('100%', 'center', 'Port-Regeln');
1122 print <<END
1123 <table border='0' width='100%' cellspacing='0'>
1124 <tr><td bgcolor='lightgrey' width='10%'>Interface
1125 <td bgcolor='lightgrey' width='10%'>Klasse
1126 <td bgcolor='lightgrey' width='10%'>Protokoll
1127 <td bgcolor='lightgrey' width='10%'>Quell-IP-Adresse
1128 <td bgcolor='lightgrey' width='10%'>Quell-Port
1129 <td bgcolor='lightgrey' width='10%'>Ziel-IP-Adresse
1130 <td bgcolor='lightgrey' width='10%'>Ziel-Port
1131 <td bgcolor='lightgrey' width='30%'>Aktionen
1132END
1133;
1134 foreach $portruleentry (sort @portrules)
1135 {
1136 @portruleline = split( /\;/, $portruleentry );
1137 if ( $portruleline[1] eq $qossettings{'RED_DEV'} )
1138 {
1139 print <<END
84cab473
MT		 1140 <tr><td align='center' bgcolor='#EAEAEA'>$portruleline[1]
1141 <td align='center' bgcolor='#EAEAEA'>$portruleline[0]
1142 <td align='center' bgcolor='#EAEAEA'>$portruleline[2]
1143 <td align='center' bgcolor='#EAEAEA'>$portruleline[3]
1144 <td align='center' bgcolor='#EAEAEA'>$portruleline[4]
1145 <td align='center' bgcolor='#EAEAEA'>$portruleline[5]
1146 <td align='center' bgcolor='#EAEAEA'>$portruleline[6]
1147 <td align='right' bgcolor='#EAEAEA'>
8b0883b8
MT		 1148 <table border='0'><tr>
1149 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1150 <input type='hidden' name='CLASS' value='$portruleline[0]'>
1151 <input type='hidden' name='PPROT' value='$portruleline[2]'>
1152 <input type='hidden' name='QIP' value='$portruleline[3]'>
1153 <input type='hidden' name='QPORT' value='$portruleline[4]'>
1154 <input type='hidden' name='DIP' value='$portruleline[5]'>
1155 <input type='hidden' name='DPORT' value='$portruleline[6]'>
1156 <input type='hidden' name='DOPORT' value='Bearbeiten'>
1157 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1158 </form>
1159 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1160 <input type='hidden' name='CLASS' value='$portruleline[0]'>
1161 <input type='hidden' name='PPROT' value='$portruleline[2]'>
1162 <input type='hidden' name='QIP' value='$portruleline[3]'>
1163 <input type='hidden' name='QPORT' value='$portruleline[4]'>
1164 <input type='hidden' name='DIP' value='$portruleline[5]'>
1165 <input type='hidden' name='DPORT' value='$portruleline[6]'>
1166 <input type='hidden' name='DOPORT' value='Loeschen'>
1167 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1168 </form>
1169 </table>
84cab473
MT		 1170END
1171;
1172 }
1173 }
1174 print "\t<tr><td colspan='8' bgcolor='lightgrey' height='2'>";
1175 foreach $portruleentry (sort @portrules)
1176 {
1177 @portruleline = split( /\;/, $portruleentry );
1178 if ( $portruleline[1] eq $qossettings{'IMQ_DEV'} )
1179 {
1180 print <<END
84cab473
MT		 1181 <tr><td align='center' bgcolor='#EAEAEA'>$portruleline[1]
1182 <td align='center' bgcolor='#EAEAEA'>$portruleline[0]
1183 <td align='center' bgcolor='#EAEAEA'>$portruleline[2]
1184 <td align='center' bgcolor='#EAEAEA'>$portruleline[3]
1185 <td align='center' bgcolor='#EAEAEA'>$portruleline[4]
1186 <td align='center' bgcolor='#EAEAEA'>$portruleline[5]
1187 <td align='center' bgcolor='#EAEAEA'>$portruleline[6]
1188 <td align='right' bgcolor='#EAEAEA'>
8b0883b8
MT		 1189 <table border='0'><tr>
1190 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1191 <input type='hidden' name='CLASS' value='$portruleline[0]'>
1192 <input type='hidden' name='PPROT' value='$portruleline[2]'>
1193 <input type='hidden' name='QIP' value='$portruleline[3]'>
1194 <input type='hidden' name='QPORT' value='$portruleline[4]'>
1195 <input type='hidden' name='DIP' value='$portruleline[5]'>
1196 <input type='hidden' name='DPORT' value='$portruleline[6]'>
1197 <input type='hidden' name='DOPORT' value='Bearbeiten'>
1198 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1199 </form>
1200 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1201 <input type='hidden' name='CLASS' value='$portruleline[0]'>
1202 <input type='hidden' name='PPROT' value='$portruleline[2]'>
1203 <input type='hidden' name='QIP' value='$portruleline[3]'>
1204 <input type='hidden' name='QPORT' value='$portruleline[4]'>
1205 <input type='hidden' name='DIP' value='$portruleline[5]'>
1206 <input type='hidden' name='DPORT' value='$portruleline[6]'>
1207 <input type='hidden' name='DOPORT' value='Loeschen'>
1208 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1209 </form>
1210 </table>
414e011d
MT		 1211END
1212;
1213 }
1214 }
84cab473
MT		 1215 print <<END
1216 <tr><td colspan='8' align='right' valign='middle'><b>Legende:</b>&nbsp;&nbsp;<img src='/images/edit.gif'>&nbsp;Regel bearbeiten | <img src='/images/delete.gif'>&nbsp;Regel loeschen &nbsp;
1217 </table>
1218END
1219;
414e011d
MT		 1220 &Header::closebox();
1221 }
1222}
1223
84cab473
MT		 1224sub expert
1225{
1226 &Header::openbox('100%', 'center', 'Expertenoptionen:');
1227 print <<END
1228 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
1229 <table width='66%'>
1230 <tr><td width='100%' colspan='3'>Diese Einstellungen sollten sie nur veraendern, wenn sie wirklich wissen, was sie tun.
1231 <tr><td width='33%' align='right'>Download-Rate 90\%:<td width='33%' align='left'>
1232 <input type='text' name='DEF_INC_SPD' maxlength='8' required='4' value=$qossettings{'DEF_INC_SPD'}>
1233 <td width='33%' align='center'>&nbsp;
1234 <tr><td width='33%' align='right'>Upload-Rate 90\%:<td width='33%' align='left'>
1235 <input type='text' name='DEF_OUT_SPD' maxlength='8' required='4' value=$qossettings{'DEF_OUT_SPD'}>
1236 <td width='33%' align='center'>&nbsp;
1237 </table>
1238 <hr>
1239 <table width='66%'>
1240 <tr><td width='33%' align='right'>MTU:<td width='33%' align='left'>
1241 <input type='text' name='MTU' maxlength='8' required='4' value=$qossettings{'MTU'}>
1242 <td width='33%' align='center'>Diese Einstellung aendert die MTU nicht global sondern nur fuer das QoS.
1243 <tr><td width='33%' align='right'>Queue Laenge:<td width='33%' align='left'>
1244 <input type='text' name='QLENGTH' maxlength='8' required='2' value=$qossettings{'QLENGTH'}>
1245 <td width='33%' align='center'>&nbsp;
1246 <tr><td width='33%' align='right'>SFQ Perturb:<td width='33%' align='left'>
1247 <input type='text' name='SFQ_PERTUB' maxlength='8' required='1' value=$qossettings{'SFQ_PERTUB'}>
1248 <td width='33%' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />
1249 </table>
1250 </form>
1251END
1252;
1253 &Header::closebox();
1254}
414e011d
MT		 1255
1256sub validminbwdth {
1257 if ( $qossettings{'VALID'} eq 'yes' ) {
1258 if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) {
1259 $qossettings{'SPD'} = $qossettings{'OUT_SPD'};
1260 } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) {
1261 $qossettings{'SPD'} = $qossettings{'INC_SPD'};
1262 }
1263 unless ( ( $qossettings{'MINBDWTH'} >= 0 ) && ( $qossettings{'MINBDWTH'} <= $qossettings{'SPD'} ) ) {
1264 $qossettings{'VALID'} = 'no';
1265 $message = "Mindestbandbreite ist ungueltig.";
1266 }
1267 $qossettings{'SPD'} = '';
1268 }
1269}
84cab473 1270
414e011d
MT		 1271sub validmaxbwdth {
1272 if ( $qossettings{'VALID'} eq 'yes' ) {
1273 if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) {
1274 $qossettings{'SPD'} = $qossettings{'OUT_SPD'};
1275 } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) {
1276 $qossettings{'SPD'} = $qossettings{'INC_SPD'};
1277 }
1278 unless ( ( $qossettings{'MAXBDWTH'} >= 0 ) && ($qossettings{'MAXBDWTH'} >= $qossettings{'MINBDWTH'}) &&( $qossettings{'MAXBDWTH'} <= $qossettings{'SPD'} ) ) {
1279 $qossettings{'VALID'} = 'no';
1280 $message = "Mamimalbandbreite ist ungueltig.";
1281 }
1282 $qossettings{'SPD'} = '';
1283 }
1284}
1285
1286sub validclass {
1287 if ( $qossettings{'VALID'} eq 'yes' ) {
1288 if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) {
1289 if ($qossettings{'CLASS'} lt 100 || $qossettings{'CLASS'} ge 121) {
1290 $qossettings{'VALID'} = 'no';
1291 $message = "Die Klassennummer passt nicht zum angegebenen Interface.";
1292 }
1293 } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) {
1294 if ($qossettings{'CLASS'} lt 200 || $qossettings{'CLASS'} ge 221) {
1295 $qossettings{'VALID'} = 'no';
1296 $message = "Die Klassennummer passt nicht zum angegebenen Interface.";
1297 }
1298 }
1299 open( FILE, "< $classfile" ) or die "Unable to read $classfile";
1300 @tmp = <FILE>;
1301 close FILE;
1302 foreach $classentry (sort @tmp)
1303 {
1304 @tmpline = split( /\;/, $classentry );
1305 if ( $tmpline[1] eq $qossettings{'CLASS'} )
1306 {
1307 $qossettings{'VALID'} = 'no';
1308 $message = "Die aktuelle Klasse wird bereits verwendet.";
1309 last
1310 }
1311 }
1312 }
1313}
84cab473 1314
414e011d
MT		 1315sub validsubclass {
1316 if ( $qossettings{'VALID'} eq 'yes' ) {
1317 open( FILE, "< $subclassfile" ) or die "Unable to read $subclassfile";
1318 @tmp = <FILE>;
1319 close FILE;
1320 foreach $subclassentry (sort @tmp)
1321 {
1322 @tmpline = split( /\;/, $subclassentry );
1323 if ( $tmpline[2] eq $qossettings{'SCLASS'} )
1324 {
1325 $qossettings{'VALID'} = 'no';
1326 $message = "Die aktuelle Klasse wird bereits verwendet.";
1327 last
1328 }
1329 }
1330 }
84cab473 1331}
Peter's tree of IPFire 2.x