]> git.ipfire.org Git - ipfire-2.x.git/blame - html/cgi-bin/qos.cgi
projects / ipfire-2.x.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Fixes:
[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{
84cab473 327 system("sleep 2 && /usr/bin/perl /var/ipfire/qos/bin/makeqosscripts.pl > /var/ipfire/qos/bin/qos.sh &");
904a41b9
MT		 328 system("/bin/touch /var/ipfire/qos/enable");
329 $qossettings{'ENABLED'} = 'on';
330 &General::writehash("${General::swroot}/qos/settings", \%qossettings);
331}
332elsif ($qossettings{'ACTION'} eq 'Stop')
333{
84cab473 334 unlink "/var/ipfire/qos/bin/qos.sh";
904a41b9
MT		 335 unlink "/var/ipfire/qos/enable";
336 $qossettings{'ENABLED'} = 'off';
337 &General::writehash("${General::swroot}/qos/settings", \%qossettings);
338}
84cab473
MT		 339elsif ($qossettings{'ACTION'} eq 'Neustart')
340{
341 if ($qossettings{'ENABLED'} eq 'on'){
342 system("sleep 2 && /usr/bin/perl /var/ipfire/qos/bin/makeqosscripts.pl > /var/ipfire/qos/bin/qos.sh &");
343 }
344}
904a41b9
MT		 345elsif ($qossettings{'ACTION'} eq $Lang::tr{'save'})
346{
84cab473
MT		 347 if ($qossettings{'DEF_INC_SPD'} eq '') {
348 $qossettings{'DEF_INC_SPD'} = int($qossettings{'INC_SPD'} * 0.9);
349 }
350 if ($qossettings{'DEF_OUT_SPD'} eq '') {
351 $qossettings{'DEF_OUT_SPD'} = int($qossettings{'OUT_SPD'} * 0.9);
352 }
904a41b9
MT		 353 &General::writehash("${General::swroot}/qos/settings", \%qossettings);
354}
92b5fba4
MT		 355elsif ($qossettings{'ACTION'} eq 'Statusinformationen')
356{
357 &Header::openbox('100%', 'left', 'QoS Status');
358 if ($qossettings{'ENABLED'} eq 'on'){
359 my $output = "";
360 $output = `/usr/local/bin/qosctrl status`;
361 $output = &Header::cleanhtml($output,"y");
362 print "<pre>$output</pre>\n";
363 } else { print "QoS ist nicht aktiviert!"; }
364 &Header::closebox();
365 &Header::closebigbox();
366 &Header::closepage();
367 exit
368}
2db5d932
MT		 369elsif ($qossettings{'ACTION'} eq 'Parentklasse hinzufuegen')
370{
371 &parentclass();
372 &Header::closebigbox();
373 &Header::closepage();
374 exit
375}
414e011d
MT		 376elsif ($qossettings{'ACTION'} eq 'Unterklasse hinzufuegen')
377{
378 &subclass();
379 &Header::closebigbox();
380 &Header::closepage();
381 exit
382}
2db5d932
MT		 383elsif ($qossettings{'ACTION'} eq 'Level7-Regel hinzufuegen')
384{
385 &level7rule();
386 &Header::closebigbox();
387 &Header::closepage();
388 exit
389}
414e011d
MT		 390elsif ($qossettings{'ACTION'} eq 'Port-Regel hinzufuegen')
391{
392 &portrule();
393 &Header::closebigbox();
394 &Header::closepage();
395 exit
396}
84cab473
MT		 397elsif ($qossettings{'ACTION'} eq 'Erweiterte Einstellungen')
398{
399 &expert();
400 &Header::closebigbox();
401 &Header::closepage();
402 exit
403}
404if ($qossettings{'ACTIONBW'} eq 'Andern')
904a41b9 405{
2db5d932
MT		 406 &changebandwidth();
407 &Header::closebigbox();
408 &Header::closepage();
409 exit
410}
84cab473 411if ($qossettings{'ACTIONDEF'} eq 'Andern')
2db5d932
MT		 412{
413 &changedefclasses();
904a41b9
MT		 414 &Header::closebigbox();
415 &Header::closepage();
416 exit
417}
418
419&General::readhash("${General::swroot}/qos/settings", \%qossettings);
420
421my $status = $Lang::tr{'stopped'};
84cab473 422my $statuscolor = '#993333';
904a41b9
MT		 423if ( $qossettings{'ENABLED'} eq 'on' ) {
424 $status = $Lang::tr{'running'};
84cab473 425 $statuscolor = '#339933';
904a41b9
MT		 426}
427
428if ( $netsettings{'RED_TYPE'} ne 'PPPOE' ) {
429 $qossettings{'RED_DEV'} = $netsettings{'RED_DEV'};
430}
431
432if ($errormessage) {
433 &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
434 print "<class name='base'>$errormessage\n";
435 print "&nbsp;</class>\n";
436 &Header::closebox();
437}
438
414e011d
MT		 439############################################################################################################################
440############################################################################################################################
441
904a41b9
MT		 442&Header::openbox('100%', 'center', 'Quality of Service');
443print <<END
444 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
445 <table width='33%'>
414e011d
MT		 446END
447;
448 if ( $message ne "" ) {
449 print "<tr><td colspan='2' align='center'><font color='red'>$message</font>";
450 }
451 print <<END
904a41b9
MT		 452 <tr><td width='50%' align='left'><b>Quality of Service:</b>
453 <td width='50%' align='center' bgcolor='$statuscolor'><font color='white'>$status</font>
2db5d932
MT		 454 <tr><td width='100%' align='center' colspan='2'>
455 <input type='submit' name='ACTION' value='Start' />
456 <input type='submit' name='ACTION' value='Stop' />
457 <input type='submit' name='ACTION' value='$Lang::tr{'restart'}' />
904a41b9
MT		 458END
459;
460 if (($qossettings{'OUT_SPD'} ne '') && ($qossettings{'INC_SPD'} ne '')) {
461 print <<END
462 <tr><td colspan='3'>&nbsp;
2db5d932 463 <tr><td width='40%' align='right'>Downloadgeschwindigkeit: <td width='40%' align='left'>$qossettings{'INC_SPD'} kbps
84cab473 464 <td width='20%' rowspan='2' align='center' valign='middle'><input type='submit' name='ACTIONBW' value='Andern'>
2db5d932
MT		 465 <tr><td width='40%' align='right'>Uploadgeschwindigkeit: <td width='40%' align='left'>$qossettings{'OUT_SPD'} kbps
466END
467;
468 }
469 if (($qossettings{'DEFCLASS_OUT'} ne '') && ($qossettings{'DEFCLASS_INC'} ne '')&& ($qossettings{'ACK'} ne '')) {
470 print <<END
471 <tr><td colspan='3'><hr>
472 <tr><td width='40%' align='right'>Downloadstandardklasse: <td width='40%' align='left'>$qossettings{'DEFCLASS_INC'}
84cab473 473 <td width='20%' rowspan='3' align='center' valign='middle'><input type='submit' name='ACTIONDEF' value='Andern'>
2db5d932
MT		 474 <tr><td width='40%' align='right'>Uploadstandardklasse: <td width='40%' align='left'>$qossettings{'DEFCLASS_OUT'}
475 <tr><td width='40%' align='right'>ACKs: <td width='40%' align='left'>$qossettings{'ACK'}
414e011d 476 <tr><td colspan='3' width='100%'><hr>
92b5fba4 477 <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 478 </form>
904a41b9
MT		 479END
480;
481 }
482print "</table>";
483&Header::closebox();
484
485if ( ($qossettings{'OUT_SPD'} eq '') || ($qossettings{'INC_SPD'} eq '') ) {
2db5d932
MT		 486 &changebandwidth();
487 &Header::closebox();
488 &Header::closebigbox();
489 &Header::closepage();
490 exit
491}
492
493if ( ($qossettings{'DEFCLASS_INC'} eq '') || ($qossettings{'DEFCLASS_OUT'} eq '') || ($qossettings{'ACK'} eq '') ) {
494 &changedefclasses();
495 &Header::closebigbox();
496 &Header::closepage();
497 exit
498}
499
414e011d
MT		 500&showclasses();
501&showl7rules();
84cab473 502&showportrules();
2db5d932 503
904a41b9
MT		 504&Header::closebigbox();
505&Header::closepage();
904a41b9 506
414e011d
MT		 507############################################################################################################################
508############################################################################################################################
2db5d932
MT		 509
510sub changedefclasses {
511 &Header::openbox('100%', 'center', 'Standardklassen:');
904a41b9 512 print <<END
2db5d932
MT		 513 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
514 <table width='66%'>
515 <tr><td width='100%' colspan='3'>Legen sie hier die Standardklassen fest durch die nicht-gefilterte Pakete gehen.
516 <tr><td width='33%' align='right'>Download:<td width='33%' align='left'><select name='DEFCLASS_INC'>
517END
518;
414e011d 519 for ( $c = 200 ; $c <= 220 ; $c++ )
2db5d932
MT		 520 {
521 if ( $qossettings{'DEFCLASS_INC'} ne $c )
414e011d
MT		 522 { print "<option value='$c'>$c</option>\n"; }
523 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 524 }
525 print <<END
526 </select><td width='33%' align='center'>&nbsp;
527 <tr><td width='33%' align='right'>Upload:<td width='33%' align='left'><select name='DEFCLASS_OUT'>
528END
529;
414e011d 530 for ( $c = 100 ; $c <= 120 ; $c++ )
2db5d932
MT		 531 {
532 if ( $qossettings{'DEFCLASS_OUT'} ne $c )
414e011d
MT		 533 { print "<option value='$c'>$c</option>\n"; }
534 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 535 }
536 print <<END
537 </select><td width='33%' align='center'>&nbsp;
538 </table>
539 <hr>
540 <table width='66%'>
541 <tr><td width='100%' colspan='3'>Legen sie hier die ACK-Klasse fest <br> und klicken Sie danach auf <i>Speichern</i>.
542 <tr><td width='33%' align='right'>ACKs:<td width='33%' align='left'><select name='ACK'>
543END
544;
414e011d 545 for ( $c = 100 ; $c <= 120 ; $c++ )
2db5d932
MT		 546 {
547 if ( $qossettings{'ACK'} ne $c )
414e011d
MT		 548 { print "<option value='$c'>$c</option>\n"; }
549 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 550 }
551 print <<END
552 </select><td width='33%' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />
553 </table>
554 </form>
904a41b9
MT		 555END
556;
557 &Header::closebox();
2db5d932
MT		 558}
559
560sub changebandwidth {
561 &Header::openbox('100%', 'center', 'Bandbreiteneinstellungen');
562 if ($qossettings{'ENABLED'} eq 'on') {
563 print "Sie koennen die Bandbreiteneinstellungen nicht bearbeiten, wenn QoS eingeschaltet ist. Schalten sie es zuerst dazu aus.<p>";
564 print "<a href='/cgi-bin/qos.cgi'>Zurueck</a>";
565 } else {
566 print <<END
567 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
84cab473 568 <input type='hidden' name='DEF_OUT_SPD' value=''><input type='hidden' name='DEF_INC_SPD' value=''>
2db5d932
MT		 569 <table width='66%'>
570 <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>.
571 <tr><td width='33%' align='right'>Download-Geschwindigkeit:
572 <td width='33%' align='left'><input type='text' name='INC_SPD' maxlength='8' value=$qossettings{'INC_SPD'}> &nbsp; kbps
573 <td width='33%' align='center'>&nbsp;
574 <tr><td width='33%' align='right'>Upload-Geschwindigkeit:
575 <td width='33%' align='left'><input type='text' name='OUT_SPD' maxlength='8' value=$qossettings{'OUT_SPD'}> &nbsp; kbps
576 <td width='33%' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />&nbsp;<input type='reset' name='ACTION' value=$Lang::tr{'reset'} />
577 </table>
578 </form>
579END
580;
581 }
904a41b9 582 &Header::closebox();
904a41b9
MT		 583}
584
2db5d932 585sub parentclass {
414e011d 586 &Header::openbox('100%', 'center', 'Parentklasse');
2db5d932
MT		 587 print <<END
588 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
589 <table width='66%'>
414e011d
MT		 590END
591;
592 if ( $message ne "" ) {
593 print "<tr><td colspan='3' align='center'>$message";
594 }
595 if ( $qossettings{'EDIT'} eq 'yes' ) {
596 print "<input type='hidden' name='CLASS' value=$qossettings{'CLASS'}>";
597 print "<input type='hidden' name='DEVICE' value=$qossettings{'DEVICE'}>";
598 }
599 print <<END
2db5d932
MT		 600 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
601 <tr><td width='33%' align='right'>Interface:
414e011d
MT		 602 <td width='33%' align='left'>
603END
604;
605 if ( $qossettings{'EDIT'} eq 'yes' ) {
606 print "<select name='DEVICE' disabled>";
607 } else {
608 print "<select name='DEVICE'>";
609 }
610 if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) {
611 $qossettings{'RED_DEV_SEL'} = 'selected';
612 } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) {
613 $qossettings{'IMQ_DEV_SEL'} = 'selected';
614 }
615 print <<END
616 <option value=$qossettings{'RED_DEV'} $qossettings{'RED_DEV_SEL'}>$qossettings{'RED_DEV'}</option>
617 <option value=$qossettings{'IMQ_DEV'} $qossettings{'IMQ_DEV_SEL'}>$qossettings{'IMQ_DEV'}</option></select>
2db5d932 618 <td width='33%' align='center'>&nbsp;
414e011d 619 <tr><td width='33%' align='right'>Klasse:<td width='33%' align='left'>
2db5d932
MT		 620END
621;
414e011d
MT		 622 if ( $qossettings{'EDIT'} eq 'yes' ) {
623 print "<select name='CLASS' disabled>";
624 } else {
625 print "<select name='CLASS'>";
626 }
2db5d932
MT		 627 for ( $c = 100 ; $c <= 120 ; $c++ )
628 {
629 if ( $qossettings{'CLASS'} ne $c )
414e011d
MT		 630 { print "<option value='$c'>$c</option>\n"; }
631 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 632 }
633 for ( $c = 200 ; $c <= 220 ; $c++ )
634 {
635 if ( $qossettings{'CLASS'} ne $c )
414e011d
MT		 636 { print "<option value='$c'>$c</option>\n"; }
637 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 638 }
639 print <<END
640 </select>
641 <td width='33%' align='center'>&nbsp;
642 <tr><td width='33%' align='right'>Prioritaet:<td width='33%' align='left'><select name='PRIO'>
643END
644;
645 for ( $c = 1 ; $c <= 7 ; $c++ )
646 {
647 if ( $qossettings{'PRIO'} ne $c )
414e011d
MT		 648 { print "<option value='$c'>$c</option>\n"; }
649 else { print "<option selected value='$c'>$c</option>\n"; }
2db5d932
MT		 650 }
651 print <<END
652 <td width='33%' align='center'>&nbsp;
653 <tr><td width='33%' align='right'>Garantierte Bandbreite:
414e011d 654 <td width='33%' align='left'><input type='text' name='MINBWDTH' maxlength='8' required='1' value=$qossettings{'MINBWDTH'} >
2db5d932
MT		 655 <td width='33%' align='center'>&nbsp;
656 <tr><td width='33%' align='right'>Maximale Bandbreite:
414e011d 657 <td width='33%' align='left'><input type='text' name='MAXBWDTH' maxlength='8' required='1' value=$qossettings{'MAXBWDTH'}>
2db5d932
MT		 658 <td width='33%' align='center'>&nbsp;
659 <tr><td width='33%' align='right'>Burst:
660 <td width='33%' align='left'><input type='text' name='BURST' maxlength='8' value=$qossettings{'BURST'}>
661 <td width='33%' align='center'>&nbsp;
662 <tr><td width='33%' align='right'>Ceilburst:
663 <td width='33%' align='left'><input type='text' name='CBURST' maxlength='8' value=$qossettings{'CBURST'}>
84cab473 664 <td width='33%' align='center'><input type='submit' name='DOCLASS' value=$Lang::tr{'save'} />&nbsp;<input type='reset' value=$Lang::tr{'reset'} />
2db5d932
MT		 665 </table></form>
666END
667;
668 &Header::closebox();
669}
904a41b9 670
414e011d
MT		 671sub subclass {
672 &Header::openbox('100%', 'center', 'Unterklasse');
2db5d932
MT		 673 print <<END
674 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
675 <table width='66%'>
414e011d
MT		 676END
677;
678 if ( $message ne "" ) {
679 print "<tr><td colspan='3' align='center'>$message";
680 }
681 print <<END
682 <tr><td colspan='3' width='100%'>Aktuelle Klasse: $qossettings{'CLASS'}
2db5d932 683 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
414e011d
MT		 684 <tr><td width='33%' align='right'>Unterklasse:<td width='33%' align='left'><select name='SCLASS'>
685END
686;
687 if ($qossettings{'CLASS'} >= 100 && $qossettings{'CLASS'} < 121) {
688 $qossettings{'DEVICE'} = $qossettings{'RED_DEV'};
689 for ( $c = 1000 ; $c <= 1020 ; $c++ )
690 {
691 if ( $qossettings{'SCLASS'} ne $c )
692 { print "<option value='$c'>$c</option>\n"; }
693 else { print "<option selected value='$c'>$c</option>\n"; }
694 }
695 } elsif ($qossettings{'CLASS'} >= 200 && $qossettings{'CLASS'} < 221) {
696 $qossettings{'DEVICE'} = $qossettings{'IMQ_DEV'};
697 for ( $c = 2000 ; $c <= 2020 ; $c++ )
698 {
699 if ( $qossettings{'SCLASS'} ne $c )
700 { print "<option value='$c'>$c</option>\n"; }
701 else { print "<option selected value='$c'>$c</option>\n"; }
702 }
703 }
704 print <<END
705 </select>
706 <td width='33%' align='center'>&nbsp;
707 <tr><td width='33%' align='right'>Prioritaet:<td width='33%' align='left'><select name='PRIO'>
708END
709;
710 for ( $c = 1 ; $c <= 7 ; $c++ )
711 {
712 if ( $qossettings{'PRIO'} ne $c )
713 { print "<option value='$c'>$c</option>\n"; }
714 else { print "<option selected value='$c'>$c</option>\n"; }
715 }
716 print <<END
717 <td width='33%' align='center'>&nbsp;
718 <tr><td width='33%' align='right'>Garantierte Bandbreite:
719 <td width='33%' align='left'><input type='text' name='MINBWDTH' maxlength='8' required='1' value=$qossettings{'MINBWDTH'} >
720 <td width='33%' align='center'>&nbsp;
721 <tr><td width='33%' align='right'>Maximale Bandbreite:
722 <td width='33%' align='left'><input type='text' name='MAXBWDTH' maxlength='8' required='1' value=$qossettings{'MAXBWDTH'}>
723 <td width='33%' align='center'>&nbsp;
724 <tr><td width='33%' align='right'>Burst:
725 <td width='33%' align='left'><input type='text' name='BURST' maxlength='8' value=$qossettings{'BURST'}>
2db5d932 726 <td width='33%' align='center'>&nbsp;
414e011d
MT		 727 <tr><td width='33%' align='right'>Ceilburst:
728 <td width='33%' align='left'><input type='text' name='CBURST' maxlength='8' value=$qossettings{'CBURST'}>
84cab473 729 <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		 730 </table></form>
731END
732;
733 &Header::closebox();
734}
735
414e011d
MT		 736sub level7rule {
737 &Header::openbox('100%', 'center', 'Level7-Regel');
738 print <<END
739 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
740 <table width='66%'>
741END
742;
743 if ( $message ne "" ) {
744 print "<tr><td colspan='3' align='center'><font color='red'>$message</font>";
745 }
746 print <<END
747 <tr><td colspan='3' width='100%'>Aktuelle Klasse: $qossettings{'CLASS'}
748 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
2db5d932
MT		 749 <tr><td width='33%' align='right'>Protokoll:
750 <td width='33%' align='left'><select name='L7PROT'>
751END
752;
753 opendir( DIR, "/etc/l7-protocols/protocols" );
754 foreach $direntry ( sort readdir(DIR) )
755 {
756 next if $direntry eq ".";
757 next if $direntry eq "..";
758 next if -d "/etc/l7-protocols/protocols/$direntry";
759 @proto = split( /\./, $direntry );
760 if ( $proto[0] eq $qossettings{'L7PROT'} ) {
761 print "<option value='$proto[0]' selected>$proto[0]</option>\n";
762 } else {
763 print "<option value='$proto[0]'>$proto[0]</option>\n";
764 }
765 }
766 closedir DIR;
767 print <<END
768 </select><td width='33%' align='center'>&nbsp;
769 <tr><td width='33%' align='right'>Quell-IP-Adresse:
770 <td width='33%' align='left'><input type='text' name='QIP' maxlength='15' value=$qossettings{'QIP'}>
771 <td width='33%' align='center'>&nbsp;
772 <tr><td width='33%' align='right'>Ziel-IP-Adresse:
773 <td width='33%' align='left'><input type='text' name='DIP' maxlength='15' value=$qossettings{'DIP'}>
84cab473 774 <td width='33%' align='center'><input type='hidden' name='CLASS' value=$qossettings{'CLASS'}><input type='submit' name='DOLEVEL7' value=$Lang::tr{'save'} />
2db5d932
MT		 775 </table></form>
776END
777;
778 &Header::closebox();
414e011d
MT		 779}
780
781sub portrule {
782 &Header::openbox('100%', 'center', 'Port-Regel hinzufuegen');
783 print <<END
784 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
785 <table width='66%'>
786 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
414e011d
MT		 787 <tr><td width='33%' align='right'>Protokoll:
788 <td width='33%' align='left'><select name='PPROT'>
789END
790;
791 open( FILE, "< /etc/protocols" );
792 @proto = <FILE>;
793 close FILE;
794 foreach $direntry (sort @proto)
795 {
796 @tmpline = split( /\ /, $direntry );
797 next if $tmpline[0] =~ "#";
798 if ( $tmpline[0] eq $qossettings{'PPROT'} ) {
799 print "<option value='$tmpline[0]' selected>$tmpline[0]</option>\n";
800 } else {
801 print "<option value='$tmpline[0]'>$tmpline[0]</option>\n";
802 }
803 }
804 print <<END
805 </select><td width='33%' align='center'>&nbsp;
806 <tr><td width='33%' align='right'>Quell-Port:
807 <td width='33%' align='left'><input type='text' name='QPORT' maxlength='5' value=$qossettings{'QPORT'}>
808 <td width='33%' align='center'>&nbsp;
809 <tr><td width='33%' align='right'>Ziel-Port:
810 <td width='33%' align='left'><input type='text' name='DPORT' maxlength='5' value=$qossettings{'DPORT'}>
811 <td width='33%' align='center'>&nbsp;
812 <tr><td width='33%' align='right'>Quell-IP-Adresse:
813 <td width='33%' align='left'><input type='text' name='QIP' maxlength='15' value=$qossettings{'QIP'}>
814 <td width='33%' align='center'>&nbsp;
815 <tr><td width='33%' align='right'>Ziel-IP-Adresse:
816 <td width='33%' align='left'><input type='text' name='DIP' maxlength='15' value=$qossettings{'DIP'}>
84cab473 817 <td width='33%' align='center'><input type='hidden' name='CLASS' value='$qossettings{'CLASS'}'><input type='submit' name='DOPORT' value=$Lang::tr{'save'} />
414e011d
MT		 818 </table></form>
819END
820;
821 &Header::closebox();
822}
823
824sub showclasses {
825 open( FILE, "< $classfile" ) or die "Unable to read $classfile";
826 @classes = <FILE>;
827 close FILE;
828 if (@classes) {
829 open( FILE, "< $subclassfile" ) or die "Unable to read $subclassfile";
830 @subclasses = <FILE>;
831 close FILE;
832 &Header::openbox('100%', 'center', 'Klassen');
833 print <<END
834 <table border='0' width='100%' cellspacing='0'>
835 <tr><td bgcolor='lightgrey' width='10%'>Interface
836 <td bgcolor='lightgrey' width='10%'>Klasse
837 <td bgcolor='lightgrey' width='10%'>Prioritaet
838 <td bgcolor='lightgrey' width='10%'>Garantierte Bandbreite
839 <td bgcolor='lightgrey' width='10%'>Maximale Bandbreite
840 <td bgcolor='lightgrey' width='10%'>Burst
841 <td bgcolor='lightgrey' width='10%'>Ceil Burst
842 <td bgcolor='lightgrey' width='30%'>Aktionen
843END
844;
845 foreach $classentry (sort @classes)
846 {
847 @classline = split( /\;/, $classentry );
848 if ( $classline[0] eq $qossettings{'RED_DEV'} )
849 {
850 print <<END
414e011d
MT		 851 <tr><td align='center' bgcolor='#EAEAEA'>$classline[0]
852 <td align='center' bgcolor='#EAEAEA'>$classline[1]
853 <td align='center' bgcolor='#EAEAEA'>$classline[2]
854 <td align='center' bgcolor='#EAEAEA'>$classline[3]
855 <td align='center' bgcolor='#EAEAEA'>$classline[4]
856 <td align='center' bgcolor='#EAEAEA'>$classline[5]
857 <td align='center' bgcolor='#EAEAEA'>$classline[6]
649fd295
MT		 858 <td align='right' bgcolor='#EAEAEA'>
859 <table border='0'><tr>
860 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
861 <input type='hidden' name='CLASS' value='$classline[1]'>
862 <input type='hidden' name='DOCLASS' value='Bearbeiten'>
863 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
864 </form>
865 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
866 <input type='hidden' name='CLASS' value='$classline[1]'>
867 <input type='hidden' name='ACTION' value='Unterklasse hinzufuegen'>
868 <input type='image' alt='Unterklasse hinzufuegen' src='/images/addblue.gif'>
869 </form>
870 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
871 <input type='hidden' name='CLASS' value='$classline[1]'>
872 <input type='hidden' name='ACTION' value='Level7-Regel hinzufuegen'>
873 <input type='image' alt='Level7-Regel hinzufuegen' src='/images/addgreen.gif'>
874 </form>
875 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
876 <input type='hidden' name='CLASS' value='$classline[1]'>
877 <input type='hidden' name='ACTION' value='Port-Regel hinzufuegen'>
878 <input type='image' alt='Port-Regel hinzufuegen' src='/images/add.gif'>
879 </form>
880 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
881 <input type='hidden' name='CLASS' value='$classline[1]'>
882 <input type='hidden' name='DOCLASS' value='Loeschen'>
883 <input type='image' alt='Loeschen' src='/images/delete.gif'>
884 </form>
885 </table>
414e011d
MT		 886END
887;
888 foreach $subclassentry (sort @subclasses)
889 {
890 @subclassline = split( /\;/, $subclassentry );
891 if ( $subclassline[1] eq $classline[1] ) {
892 print <<END
414e011d
MT		 893 <tr><td align='center' bgcolor='#FFFFFF'>Subklasse:
894 <td align='center' bgcolor='#FAFAFA'>$subclassline[2]
895 <td align='center' bgcolor='#FAFAFA'>$subclassline[3]
896 <td align='center' bgcolor='#FAFAFA'>$subclassline[4]
897 <td align='center' bgcolor='#FAFAFA'>$subclassline[5]
898 <td align='center' bgcolor='#FAFAFA'>$subclassline[6]
899 <td align='center' bgcolor='#FAFAFA'>$subclassline[7]
8b0883b8
MT		 900 <td align='right' bgcolor='#FAFAFA'>
901 <table border='0'><tr>
902 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
903 <input type='hidden' name='CLASS' value='$subclassline[2]'>
904 <input type='hidden' name='DOSCLASS' value='Bearbeiten'>
905 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
906 </form>
907 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
908 <input type='hidden' name='CLASS' value='$subclassline[2]'>
909 <input type='hidden' name='ACTION' value='Level7-Regel hinzufuegen'>
910 <input type='image' alt='Level7-Regel hinzufuegen' src='/images/addgreen.gif'>
911 </form>
912 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
913 <input type='hidden' name='CLASS' value='$subclassline[2]'>
914 <input type='hidden' name='ACTION' value='Port-Regel hinzufuegen'>
915 <input type='image' alt='Port-Regel hinzufuegen' src='/images/add.gif'>
414e011d 916 </form>
8b0883b8
MT		 917 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
918 <input type='hidden' name='CLASS' value='$subclassline[2]'>
919 <input type='hidden' name='DOSCLASS' value='Loeschen'>
920 <input type='image' alt='Loeschen' src='/images/delete.gif'>
921 </form>
922 </table>
414e011d
MT		 923END
924;
925 }
926 }
927 }
928 }
929 print "\t<tr><td colspan='8' bgcolor='lightgrey' height='2'>";
930 foreach $classentry (sort @classes)
931 {
932 @classline = split( /\;/, $classentry );
933 if ( $classline[0] eq $qossettings{'IMQ_DEV'} )
934 {
935 print <<END
414e011d
MT		 936 <tr><td align='center' bgcolor='#EAEAEA'>$classline[0]
937 <td align='center' bgcolor='#EAEAEA'>$classline[1]
938 <td align='center' bgcolor='#EAEAEA'>$classline[2]
939 <td align='center' bgcolor='#EAEAEA'>$classline[3]
940 <td align='center' bgcolor='#EAEAEA'>$classline[4]
941 <td align='center' bgcolor='#EAEAEA'>$classline[5]
942 <td align='center' bgcolor='#EAEAEA'>$classline[6]
649fd295
MT		 943 <td align='right' bgcolor='#EAEAEA'>
944 <table border='0'><tr>
945 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
946 <input type='hidden' name='CLASS' value='$classline[1]'>
947 <input type='hidden' name='DOCLASS' value='Bearbeiten'>
948 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
949 </form>
950 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
951 <input type='hidden' name='CLASS' value='$classline[1]'>
952 <input type='hidden' name='ACTION' value='Unterklasse hinzufuegen'>
953 <input type='image' alt='Unterklasse hinzufuegen' src='/images/addblue.gif'>
954 </form>
955 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
956 <input type='hidden' name='CLASS' value='$classline[1]'>
957 <input type='hidden' name='ACTION' value='Level7-Regel hinzufuegen'>
958 <input type='image' alt='Level7-Regel hinzufuegen' src='/images/addgreen.gif'>
959 </form>
960 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
961 <input type='hidden' name='CLASS' value='$classline[1]'>
962 <input type='hidden' name='ACTION' value='Port-Regel hinzufuegen'>
963 <input type='image' alt='Port-Regel hinzufuegen' src='/images/add.gif'>
964 </form>
965 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
966 <input type='hidden' name='CLASS' value='$classline[1]'>
967 <input type='hidden' name='DOCLASS' value='Loeschen'>
968 <input type='image' alt='Loeschen' src='/images/delete.gif'>
969 </form>
970 </table>
414e011d
MT		 971END
972;
973 foreach $subclassentry (sort @subclasses)
974 {
975 @subclassline = split( /\;/, $subclassentry );
976 if ( $subclassline[1] eq $classline[1] ) {
977 print <<END
414e011d
MT		 978 <tr><td align='center' bgcolor='#FFFFFF'>Subklasse:
979 <td align='center' bgcolor='#FAFAFA'>$subclassline[2]
980 <td align='center' bgcolor='#FAFAFA'>$subclassline[3]
981 <td align='center' bgcolor='#FAFAFA'>$subclassline[4]
982 <td align='center' bgcolor='#FAFAFA'>$subclassline[5]
983 <td align='center' bgcolor='#FAFAFA'>$subclassline[6]
984 <td align='center' bgcolor='#FAFAFA'>$subclassline[7]
8b0883b8
MT		 985 <td align='right' bgcolor='#FAFAFA'>
986 <table border='0'><tr>
987 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
988 <input type='hidden' name='CLASS' value='$subclassline[2]'>
989 <input type='hidden' name='DOSCLASS' value='Bearbeiten'>
990 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
991 </form>
992 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
993 <input type='hidden' name='CLASS' value='$subclassline[2]'>
994 <input type='hidden' name='ACTION' value='Level7-Regel hinzufuegen'>
995 <input type='image' alt='Level7-Regel hinzufuegen' src='/images/addgreen.gif'>
996 </form>
997 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
998 <input type='hidden' name='CLASS' value='$subclassline[2]'>
999 <input type='hidden' name='ACTION' value='Port-Regel hinzufuegen'>
1000 <input type='image' alt='Port-Regel hinzufuegen' src='/images/add.gif'>
1001 </form>
1002 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1003 <input type='hidden' name='CLASS' value='$subclassline[2]'>
1004 <input type='hidden' name='DOSCLASS' value='Loeschen'>
1005 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1006 </form>
1007 </table>
414e011d
MT		 1008END
1009;
1010 }
1011 }
1012 }
1013 }
84cab473
MT		 1014 print <<END
1015 <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;
1016 </table>
1017END
1018;
414e011d
MT		 1019 &Header::closebox();
1020 }
1021}
1022
1023sub showl7rules {
1024 open( FILE, "< $level7file" ) or die "Unable to read $level7file";
1025 @l7rules = <FILE>;
1026 close FILE;
1027 if (@l7rules) {
1028 &Header::openbox('100%', 'center', 'Level7-Regeln');
1029 print <<END
1030 <table border='0' width='100%' cellspacing='0'>
1031 <tr><td bgcolor='lightgrey' width='14%'>Interface
1032 <td bgcolor='lightgrey' width='14%'>Klasse
1033 <td bgcolor='lightgrey' width='14%'>Protokoll
1034 <td bgcolor='lightgrey' width='14%'>Quell-IP-Adresse
1035 <td bgcolor='lightgrey' width='14%'>Ziel-IP-Adresse
1036 <td bgcolor='lightgrey' width='30%'>Aktionen
1037END
1038;
1039 foreach $l7ruleentry (sort @l7rules)
1040 {
1041 @l7ruleline = split( /\;/, $l7ruleentry );
1042 if ( $l7ruleline[1] eq $qossettings{'RED_DEV'} )
1043 {
1044 print <<END
414e011d
MT		 1045 <tr><td align='center' bgcolor='#EAEAEA'>$l7ruleline[1]
1046 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[0]
1047 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[2]
1048 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[3]
1049 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[4]
649fd295
MT		 1050 <td align='right' bgcolor='#EAEAEA'>
1051 <table border='0'><tr>
1052 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1053 <input type='hidden' name='CLASS' value='$l7ruleline[0]'>
1054 <input type='hidden' name='L7PROT' value='$l7ruleline[2]'>
1055 <input type='hidden' name='DOLEVEL7' value='Bearbeiten'>
1056 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1057 </form>
1058 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1059 <input type='hidden' name='CLASS' value='$l7ruleline[0]'>
1060 <input type='hidden' name='L7PROT' value='$l7ruleline[2]'>
1061 <input type='hidden' name='DOLEVEL7' value='Loeschen'>
1062 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1063 </form>
1064 </table>
414e011d
MT		 1065END
1066;
1067 }
1068 }
1069 print "\t<tr><td colspan='8' bgcolor='lightgrey' height='2'>";
1070 foreach $l7ruleentry (sort @l7rules)
1071 {
1072 @l7ruleline = split( /\;/, $l7ruleentry );
1073 if ( $l7ruleline[1] eq $qossettings{'IMQ_DEV'} )
1074 {
1075 print <<END
414e011d
MT		 1076 <tr><td align='center' bgcolor='#EAEAEA'>$l7ruleline[1]
1077 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[0]
1078 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[2]
1079 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[3]
1080 <td align='center' bgcolor='#EAEAEA'>$l7ruleline[4]
649fd295
MT		 1081 <td align='right' bgcolor='#EAEAEA'>
1082 <table border='0'><tr>
1083 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1084 <input type='hidden' name='CLASS' value='$l7ruleline[0]'>
1085 <input type='hidden' name='L7PROT' value='$l7ruleline[2]'>
1086 <input type='hidden' name='DOLEVEL7' value='Bearbeiten'>
1087 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1088 </form>
1089 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1090 <input type='hidden' name='CLASS' value='$l7ruleline[0]'>
1091 <input type='hidden' name='L7PROT' value='$l7ruleline[2]'>
1092 <input type='hidden' name='DOLEVEL7' value='Loeschen'>
1093 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1094 </form>
1095 </table>
84cab473
MT		 1096END
1097;
1098 }
1099 }
1100 print <<END
1101 <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;
1102 </table>
1103END
1104;
1105 &Header::closebox();
1106 }
1107}
1108
1109sub showportrules {
1110 open( FILE, "< $portfile" ) or die "Unable to read $portfile";
1111 @portrules = <FILE>;
1112 close FILE;
1113 if (@portrules) {
1114 &Header::openbox('100%', 'center', 'Port-Regeln');
1115 print <<END
1116 <table border='0' width='100%' cellspacing='0'>
1117 <tr><td bgcolor='lightgrey' width='10%'>Interface
1118 <td bgcolor='lightgrey' width='10%'>Klasse
1119 <td bgcolor='lightgrey' width='10%'>Protokoll
1120 <td bgcolor='lightgrey' width='10%'>Quell-IP-Adresse
1121 <td bgcolor='lightgrey' width='10%'>Quell-Port
1122 <td bgcolor='lightgrey' width='10%'>Ziel-IP-Adresse
1123 <td bgcolor='lightgrey' width='10%'>Ziel-Port
1124 <td bgcolor='lightgrey' width='30%'>Aktionen
1125END
1126;
1127 foreach $portruleentry (sort @portrules)
1128 {
1129 @portruleline = split( /\;/, $portruleentry );
1130 if ( $portruleline[1] eq $qossettings{'RED_DEV'} )
1131 {
1132 print <<END
84cab473
MT		 1133 <tr><td align='center' bgcolor='#EAEAEA'>$portruleline[1]
1134 <td align='center' bgcolor='#EAEAEA'>$portruleline[0]
1135 <td align='center' bgcolor='#EAEAEA'>$portruleline[2]
1136 <td align='center' bgcolor='#EAEAEA'>$portruleline[3]
1137 <td align='center' bgcolor='#EAEAEA'>$portruleline[4]
1138 <td align='center' bgcolor='#EAEAEA'>$portruleline[5]
1139 <td align='center' bgcolor='#EAEAEA'>$portruleline[6]
1140 <td align='right' bgcolor='#EAEAEA'>
8b0883b8
MT		 1141 <table border='0'><tr>
1142 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1143 <input type='hidden' name='CLASS' value='$portruleline[0]'>
1144 <input type='hidden' name='PPROT' value='$portruleline[2]'>
1145 <input type='hidden' name='QIP' value='$portruleline[3]'>
1146 <input type='hidden' name='QPORT' value='$portruleline[4]'>
1147 <input type='hidden' name='DIP' value='$portruleline[5]'>
1148 <input type='hidden' name='DPORT' value='$portruleline[6]'>
1149 <input type='hidden' name='DOPORT' value='Bearbeiten'>
1150 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1151 </form>
1152 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1153 <input type='hidden' name='CLASS' value='$portruleline[0]'>
1154 <input type='hidden' name='PPROT' value='$portruleline[2]'>
1155 <input type='hidden' name='QIP' value='$portruleline[3]'>
1156 <input type='hidden' name='QPORT' value='$portruleline[4]'>
1157 <input type='hidden' name='DIP' value='$portruleline[5]'>
1158 <input type='hidden' name='DPORT' value='$portruleline[6]'>
1159 <input type='hidden' name='DOPORT' value='Loeschen'>
1160 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1161 </form>
1162 </table>
84cab473
MT		 1163END
1164;
1165 }
1166 }
1167 print "\t<tr><td colspan='8' bgcolor='lightgrey' height='2'>";
1168 foreach $portruleentry (sort @portrules)
1169 {
1170 @portruleline = split( /\;/, $portruleentry );
1171 if ( $portruleline[1] eq $qossettings{'IMQ_DEV'} )
1172 {
1173 print <<END
84cab473
MT		 1174 <tr><td align='center' bgcolor='#EAEAEA'>$portruleline[1]
1175 <td align='center' bgcolor='#EAEAEA'>$portruleline[0]
1176 <td align='center' bgcolor='#EAEAEA'>$portruleline[2]
1177 <td align='center' bgcolor='#EAEAEA'>$portruleline[3]
1178 <td align='center' bgcolor='#EAEAEA'>$portruleline[4]
1179 <td align='center' bgcolor='#EAEAEA'>$portruleline[5]
1180 <td align='center' bgcolor='#EAEAEA'>$portruleline[6]
1181 <td align='right' bgcolor='#EAEAEA'>
8b0883b8
MT		 1182 <table border='0'><tr>
1183 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1184 <input type='hidden' name='CLASS' value='$portruleline[0]'>
1185 <input type='hidden' name='PPROT' value='$portruleline[2]'>
1186 <input type='hidden' name='QIP' value='$portruleline[3]'>
1187 <input type='hidden' name='QPORT' value='$portruleline[4]'>
1188 <input type='hidden' name='DIP' value='$portruleline[5]'>
1189 <input type='hidden' name='DPORT' value='$portruleline[6]'>
1190 <input type='hidden' name='DOPORT' value='Bearbeiten'>
1191 <input type='image' alt='Bearbeiten' src='/images/edit.gif'>
1192 </form>
1193 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
1194 <input type='hidden' name='CLASS' value='$portruleline[0]'>
1195 <input type='hidden' name='PPROT' value='$portruleline[2]'>
1196 <input type='hidden' name='QIP' value='$portruleline[3]'>
1197 <input type='hidden' name='QPORT' value='$portruleline[4]'>
1198 <input type='hidden' name='DIP' value='$portruleline[5]'>
1199 <input type='hidden' name='DPORT' value='$portruleline[6]'>
1200 <input type='hidden' name='DOPORT' value='Loeschen'>
1201 <input type='image' alt='Loeschen' src='/images/delete.gif'>
1202 </form>
1203 </table>
414e011d
MT		 1204END
1205;
1206 }
1207 }
84cab473
MT		 1208 print <<END
1209 <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;
1210 </table>
1211END
1212;
414e011d
MT		 1213 &Header::closebox();
1214 }
1215}
1216
84cab473
MT		 1217sub expert
1218{
1219 &Header::openbox('100%', 'center', 'Expertenoptionen:');
1220 print <<END
1221 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
1222 <table width='66%'>
1223 <tr><td width='100%' colspan='3'>Diese Einstellungen sollten sie nur veraendern, wenn sie wirklich wissen, was sie tun.
1224 <tr><td width='33%' align='right'>Download-Rate 90\%:<td width='33%' align='left'>
1225 <input type='text' name='DEF_INC_SPD' maxlength='8' required='4' value=$qossettings{'DEF_INC_SPD'}>
1226 <td width='33%' align='center'>&nbsp;
1227 <tr><td width='33%' align='right'>Upload-Rate 90\%:<td width='33%' align='left'>
1228 <input type='text' name='DEF_OUT_SPD' maxlength='8' required='4' value=$qossettings{'DEF_OUT_SPD'}>
1229 <td width='33%' align='center'>&nbsp;
1230 </table>
1231 <hr>
1232 <table width='66%'>
1233 <tr><td width='33%' align='right'>MTU:<td width='33%' align='left'>
1234 <input type='text' name='MTU' maxlength='8' required='4' value=$qossettings{'MTU'}>
1235 <td width='33%' align='center'>Diese Einstellung aendert die MTU nicht global sondern nur fuer das QoS.
1236 <tr><td width='33%' align='right'>Queue Laenge:<td width='33%' align='left'>
1237 <input type='text' name='QLENGTH' maxlength='8' required='2' value=$qossettings{'QLENGTH'}>
1238 <td width='33%' align='center'>&nbsp;
1239 <tr><td width='33%' align='right'>SFQ Perturb:<td width='33%' align='left'>
1240 <input type='text' name='SFQ_PERTUB' maxlength='8' required='1' value=$qossettings{'SFQ_PERTUB'}>
1241 <td width='33%' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />
1242 </table>
1243 </form>
1244END
1245;
1246 &Header::closebox();
1247}
414e011d
MT		 1248
1249sub validminbwdth {
1250 if ( $qossettings{'VALID'} eq 'yes' ) {
1251 if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) {
1252 $qossettings{'SPD'} = $qossettings{'OUT_SPD'};
1253 } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) {
1254 $qossettings{'SPD'} = $qossettings{'INC_SPD'};
1255 }
1256 unless ( ( $qossettings{'MINBDWTH'} >= 0 ) && ( $qossettings{'MINBDWTH'} <= $qossettings{'SPD'} ) ) {
1257 $qossettings{'VALID'} = 'no';
1258 $message = "Mindestbandbreite ist ungueltig.";
1259 }
1260 $qossettings{'SPD'} = '';
1261 }
1262}
84cab473 1263
414e011d
MT		 1264sub validmaxbwdth {
1265 if ( $qossettings{'VALID'} eq 'yes' ) {
1266 if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) {
1267 $qossettings{'SPD'} = $qossettings{'OUT_SPD'};
1268 } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) {
1269 $qossettings{'SPD'} = $qossettings{'INC_SPD'};
1270 }
1271 unless ( ( $qossettings{'MAXBDWTH'} >= 0 ) && ($qossettings{'MAXBDWTH'} >= $qossettings{'MINBDWTH'}) &&( $qossettings{'MAXBDWTH'} <= $qossettings{'SPD'} ) ) {
1272 $qossettings{'VALID'} = 'no';
1273 $message = "Mamimalbandbreite ist ungueltig.";
1274 }
1275 $qossettings{'SPD'} = '';
1276 }
1277}
1278
1279sub validclass {
1280 if ( $qossettings{'VALID'} eq 'yes' ) {
1281 if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) {
1282 if ($qossettings{'CLASS'} lt 100 || $qossettings{'CLASS'} ge 121) {
1283 $qossettings{'VALID'} = 'no';
1284 $message = "Die Klassennummer passt nicht zum angegebenen Interface.";
1285 }
1286 } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) {
1287 if ($qossettings{'CLASS'} lt 200 || $qossettings{'CLASS'} ge 221) {
1288 $qossettings{'VALID'} = 'no';
1289 $message = "Die Klassennummer passt nicht zum angegebenen Interface.";
1290 }
1291 }
1292 open( FILE, "< $classfile" ) or die "Unable to read $classfile";
1293 @tmp = <FILE>;
1294 close FILE;
1295 foreach $classentry (sort @tmp)
1296 {
1297 @tmpline = split( /\;/, $classentry );
1298 if ( $tmpline[1] eq $qossettings{'CLASS'} )
1299 {
1300 $qossettings{'VALID'} = 'no';
1301 $message = "Die aktuelle Klasse wird bereits verwendet.";
1302 last
1303 }
1304 }
1305 }
1306}
84cab473 1307
414e011d
MT		 1308sub validsubclass {
1309 if ( $qossettings{'VALID'} eq 'yes' ) {
1310 open( FILE, "< $subclassfile" ) or die "Unable to read $subclassfile";
1311 @tmp = <FILE>;
1312 close FILE;
1313 foreach $subclassentry (sort @tmp)
1314 {
1315 @tmpline = split( /\;/, $subclassentry );
1316 if ( $tmpline[2] eq $qossettings{'SCLASS'} )
1317 {
1318 $qossettings{'VALID'} = 'no';
1319 $message = "Die aktuelle Klasse wird bereits verwendet.";
1320 last
1321 }
1322 }
1323 }
84cab473 1324}
IPFire 2.x development tree