html/cgi-bin/qos.cgi

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