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 2 && /usr/bin/perl /var/ipfire/qos/bin/makeqosscripts.pl > /var/ipfire/qos/bin/qos.sh &");
 328         system("/bin/touch /var/ipfire/qos/enable");
 329         $qossettings{'ENABLED'} = 'on';
 330         &General::writehash("${General::swroot}/qos/settings", \%qossettings);
 331 }
 332 elsif ($qossettings{'ACTION'} eq 'Stop')
 333 {
 334         unlink "/var/ipfire/qos/bin/qos.sh";
 335         unlink "/var/ipfire/qos/enable";
 336         $qossettings{'ENABLED'} = 'off';
 337         &General::writehash("${General::swroot}/qos/settings", \%qossettings);
 338 }
 339 elsif ($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 }
 345 elsif ($qossettings{'ACTION'} eq $Lang::tr{'save'})
 346 {
 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         }
 353         &General::writehash("${General::swroot}/qos/settings", \%qossettings);
 354 }
 355 elsif ($qossettings{'ACTION'} eq 'Parentklasse hinzufuegen')
 356 {
 357         &parentclass();
 358         &Header::closebigbox();
 359         &Header::closepage();
 360         exit
 361 }
 362 elsif ($qossettings{'ACTION'} eq 'Unterklasse hinzufuegen')
 363 {
 364         &subclass();
 365         &Header::closebigbox();
 366         &Header::closepage();
 367         exit
 368 }
 369 elsif ($qossettings{'ACTION'} eq 'Level7-Regel hinzufuegen')
 370 {
 371         &level7rule();
 372         &Header::closebigbox();
 373         &Header::closepage();
 374         exit
 375 }
 376 elsif ($qossettings{'ACTION'} eq 'Port-Regel hinzufuegen')
 377 {
 378         &portrule();
 379         &Header::closebigbox();
 380         &Header::closepage();
 381         exit
 382 }
 383 elsif ($qossettings{'ACTION'} eq 'Erweiterte Einstellungen')
 384 {
 385         &expert();
 386         &Header::closebigbox();
 387         &Header::closepage();
 388         exit
 389 }
 390 if ($qossettings{'ACTIONBW'} eq 'Andern')
 391 {
 392         &changebandwidth();
 393         &Header::closebigbox();
 394         &Header::closepage();
 395         exit
 396 }
 397 if ($qossettings{'ACTIONDEF'} eq 'Andern')
 398 {
 399         &changedefclasses();
 400         &Header::closebigbox();
 401         &Header::closepage();
 402         exit
 403 }
 404
 405 &General::readhash("${General::swroot}/qos/settings", \%qossettings);
 406
 407 my $status = $Lang::tr{'stopped'};
 408 my $statuscolor = '#993333';
 409 if ( $qossettings{'ENABLED'} eq 'on' ) {
 410   $status = $Lang::tr{'running'};
 411   $statuscolor = '#339933';
 412 }
 413
 414 if ( $netsettings{'RED_TYPE'} ne 'PPPOE' ) {
 415         $qossettings{'RED_DEV'} = $netsettings{'RED_DEV'};
 416 }
 417
 418 if ($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
 425 ############################################################################################################################
 426 ############################################################################################################################
 427
 428 &Header::openbox('100%', 'center', 'Quality of Service');
 429 print <<END
 430         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 431         <table width='33%'>
 432 END
 433 ;
 434         if ( $message ne "" ) {
 435                 print "<tr><td colspan='2' align='center'><font color='red'>$message</font>";
 436         }
 437         print <<END
 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>
 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'}' />
 444 END
 445 ;
 446         if (($qossettings{'OUT_SPD'} ne '') && ($qossettings{'INC_SPD'} ne '')) {
 447                 print <<END
 448                 <tr><td colspan='3'>&nbsp;
 449                 <tr><td width='40%' align='right'>Downloadgeschwindigkeit:      <td width='40%' align='left'>$qossettings{'INC_SPD'} kbps
 450                     <td width='20%' rowspan='2' align='center' valign='middle'><input type='submit' name='ACTIONBW' value='Andern'>
 451                 <tr><td width='40%' align='right'>Uploadgeschwindigkeit:        <td width='40%' align='left'>$qossettings{'OUT_SPD'} kbps
 452 END
 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'}
 459                     <td width='20%' rowspan='3' align='center' valign='middle'><input type='submit' name='ACTIONDEF' value='Andern'>
 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'}
 462                 <tr><td colspan='3' width='100%'><hr>
 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'>
 464         </form>
 465 END
 466 ;
 467         }
 468 print "</table>";
 469 &Header::closebox();
 470
 471 if ( ($qossettings{'OUT_SPD'} eq '') || ($qossettings{'INC_SPD'} eq '') ) {
 472         &changebandwidth();
 473         &Header::closebox();
 474         &Header::closebigbox();
 475         &Header::closepage();
 476         exit
 477 }
 478
 479 if ( ($qossettings{'DEFCLASS_INC'} eq '') || ($qossettings{'DEFCLASS_OUT'} eq '') || ($qossettings{'ACK'} eq '') ) {
 480         &changedefclasses();
 481         &Header::closebigbox();
 482         &Header::closepage();
 483         exit
 484 }
 485
 486 &showclasses();
 487 &showl7rules();
 488 &showportrules();
 489
 490 &Header::closebigbox();
 491 &Header::closepage();
 492
 493 ############################################################################################################################
 494 ############################################################################################################################
 495
 496 sub changedefclasses {
 497         &Header::openbox('100%', 'center', 'Standardklassen:');
 498         print <<END
 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'>
 503 END
 504 ;
 505                 for ( $c = 200 ; $c <= 220 ; $c++ )
 506                 {
 507                         if ( $qossettings{'DEFCLASS_INC'} ne $c )
 508                         { print "<option value='$c'>$c</option>\n"; }
 509                         else    { print "<option selected value='$c'>$c</option>\n"; }
 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'>
 514 END
 515 ;
 516                 for ( $c = 100 ; $c <= 120 ; $c++ )
 517                 {
 518                         if ( $qossettings{'DEFCLASS_OUT'} ne $c )
 519                         { print "<option value='$c'>$c</option>\n"; }
 520                         else { print "<option selected value='$c'>$c</option>\n"; }
 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'>
 529 END
 530 ;
 531                 for ( $c = 100 ; $c <= 120 ; $c++ )
 532                 {
 533                         if ( $qossettings{'ACK'} ne $c )
 534                         { print "<option value='$c'>$c</option>\n"; }
 535                         else {  print "<option selected value='$c'>$c</option>\n"; }
 536                 }
 537                 print <<END
 538                 </select><td width='33%' align='center'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />
 539                 </table>
 540                 </form>
 541 END
 542 ;
 543         &Header::closebox();
 544 }
 545
 546 sub 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'}'>
 554                 <input type='hidden' name='DEF_OUT_SPD' value=''><input type='hidden' name='DEF_INC_SPD' value=''>
 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>
 565 END
 566 ;
 567         }
 568         &Header::closebox();
 569 }
 570
 571 sub parentclass {
 572         &Header::openbox('100%', 'center', 'Parentklasse');
 573         print <<END
 574                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 575                 <table width='66%'>
 576 END
 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
 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:
 588                     <td width='33%' align='left'>
 589 END
 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>
 604                     <td width='33%' align='center'>&nbsp;
 605                 <tr><td width='33%' align='right'>Klasse:<td width='33%' align='left'>
 606 END
 607 ;
 608                 if ( $qossettings{'EDIT'} eq 'yes' ) {
 609                         print "<select name='CLASS' disabled>";
 610                 } else {
 611                         print "<select name='CLASS'>";
 612                 }
 613                 for ( $c = 100 ; $c <= 120 ; $c++ )
 614                 {
 615                         if ( $qossettings{'CLASS'} ne $c )
 616                         { print "<option value='$c'>$c</option>\n"; }
 617                         else { print "<option selected value='$c'>$c</option>\n"; }
 618                 }
 619                 for ( $c = 200 ; $c <= 220 ; $c++ )
 620                 {
 621                         if ( $qossettings{'CLASS'} ne $c )
 622                         { print "<option value='$c'>$c</option>\n"; }
 623                         else { print "<option selected value='$c'>$c</option>\n"; }
 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'>
 629 END
 630 ;
 631                 for ( $c = 1 ; $c <= 7 ; $c++ )
 632                 {
 633                         if ( $qossettings{'PRIO'} ne $c )
 634                         { print "<option value='$c'>$c</option>\n"; }
 635                         else { print "<option selected value='$c'>$c</option>\n"; }
 636                 }
 637                 print <<END
 638                 <td width='33%' align='center'>&nbsp;
 639                 <tr><td width='33%' align='right'>Garantierte Bandbreite:
 640                     <td width='33%' align='left'><input type='text' name='MINBWDTH' maxlength='8' required='1' value=$qossettings{'MINBWDTH'} >
 641                     <td width='33%' align='center'>&nbsp;
 642                 <tr><td width='33%' align='right'>Maximale Bandbreite:
 643                     <td width='33%' align='left'><input type='text' name='MAXBWDTH' maxlength='8' required='1' value=$qossettings{'MAXBWDTH'}>
 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'}>
 650                     <td width='33%' align='center'><input type='submit' name='DOCLASS' value=$Lang::tr{'save'} />&nbsp;<input type='reset' value=$Lang::tr{'reset'} />
 651                 </table></form>
 652 END
 653 ;
 654         &Header::closebox();
 655 }
 656
 657 sub subclass {
 658         &Header::openbox('100%', 'center', 'Unterklasse');
 659         print <<END
 660                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 661                 <table width='66%'>
 662 END
 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'}
 669                 <tr><td width='100%' colspan='3'>Geben sie die Daten ein <br> und klicken Sie danach auf <i>Speichern</i>.
 670                 <tr><td width='33%' align='right'>Unterklasse:<td width='33%' align='left'><select name='SCLASS'>
 671 END
 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'>
 694 END
 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'}>
 712                     <td width='33%' align='center'>&nbsp;
 713                 <tr><td width='33%' align='right'>Ceilburst:
 714                     <td width='33%' align='left'><input type='text' name='CBURST' maxlength='8' value=$qossettings{'CBURST'}>
 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'} />
 716                 </table></form>
 717 END
 718 ;
 719         &Header::closebox();
 720 }
 721
 722 sub level7rule {
 723         &Header::openbox('100%', 'center', 'Level7-Regel');
 724         print <<END
 725                 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 726                 <table width='66%'>
 727 END
 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>.
 735                 <tr><td width='33%' align='right'>Protokoll:
 736                     <td width='33%' align='left'><select name='L7PROT'>
 737 END
 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'}>
 760                     <td width='33%' align='center'><input type='hidden' name='CLASS' value=$qossettings{'CLASS'}><input type='submit' name='DOLEVEL7' value=$Lang::tr{'save'} />
 761                 </table></form>
 762 END
 763 ;
 764         &Header::closebox();
 765 }
 766
 767 sub 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>.
 773                 <tr><td width='33%' align='right'>Protokoll:
 774                     <td width='33%' align='left'><select name='PPROT'>
 775 END
 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'}>
 803                     <td width='33%' align='center'><input type='hidden' name='CLASS' value='$qossettings{'CLASS'}'><input type='submit' name='DOPORT' value=$Lang::tr{'save'} />
 804                 </table></form>
 805 END
 806 ;
 807         &Header::closebox();
 808 }
 809
 810 sub 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
 829 END
 830 ;
 831                 foreach $classentry (sort @classes)
 832                 {
 833                         @classline = split( /\;/, $classentry );
 834                         if ( $classline[0] eq $qossettings{'RED_DEV'} )
 835                         {
 836                                 print <<END
 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]
 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>
 872 END
 873 ;
 874                                 foreach $subclassentry (sort @subclasses)
 875                                 {
 876                                         @subclassline = split( /\;/, $subclassentry );
 877                                         if ( $subclassline[1] eq $classline[1] ) {
 878                                                 print <<END
 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]
 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'>
 902                                                 </form>
 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>
 909 END
 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
 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]
 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>
 957 END
 958 ;
 959                                 foreach $subclassentry (sort @subclasses)
 960                                 {
 961                                         @subclassline = split( /\;/, $subclassentry );
 962                                         if ( $subclassline[1] eq $classline[1] ) {
 963                                                 print <<END
 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]
 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>
 994 END
 995 ;
 996                                         }
 997                                 }
 998                         }
 999                 }
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>
1003 END
1004 ;
1005                 &Header::closebox();
1006         }
1007 }
1008
1009 sub 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
1023 END
1024 ;
1025                 foreach $l7ruleentry (sort @l7rules)
1026                 {
1027                         @l7ruleline = split( /\;/, $l7ruleentry );
1028                         if ( $l7ruleline[1] eq $qossettings{'RED_DEV'} )
1029                         {
1030                                 print <<END
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]
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>
1051 END
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
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]
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>
1082 END
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>
1089 END
1090 ;
1091                 &Header::closebox();
1092         }
1093 }
1094
1095 sub 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
1111 END
1112 ;
1113                 foreach $portruleentry (sort @portrules)
1114                 {
1115                         @portruleline = split( /\;/, $portruleentry );
1116                         if ( $portruleline[1] eq $qossettings{'RED_DEV'} )
1117                         {
1118                                 print <<END
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'>
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>
1149 END
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
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'>
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>
1190 END
1191 ;
1192                         }
1193                 }
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>
1197 END
1198 ;
1199                 &Header::closebox();
1200         }
1201 }
1202
1203 sub 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>
1230 END
1231 ;
1232         &Header::closebox();
1233 }
1234
1235 sub 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 }
1249
1250 sub 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
1265 sub 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 }
1293
1294 sub 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         }
1310 }