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