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