X-Git-Url: http://git.ipfire.org/?p=people%2Fteissler%2Fipfire-2.x.git;a=blobdiff_plain;f=html%2Fcgi-bin%2Fqos.cgi;h=6d4d025bfdbc228283fe472127bcf3d521e61394;hp=27524729d6c26727306c3d434a1dcfd33dab2186;hb=5eee5a607e213c25b350926c5234d2230cfc6e29;hpb=18322edf27430de5de3a15bb65d727449e97bb5d diff --git a/html/cgi-bin/qos.cgi b/html/cgi-bin/qos.cgi index 27524729d..6d4d025bf 100644 --- a/html/cgi-bin/qos.cgi +++ b/html/cgi-bin/qos.cgi @@ -1,21 +1,34 @@ #!/usr/bin/perl -# -# IPFire CGIs -# -# This code is distributed under the terms of the GPL -# -# (c) The IPFire Team -# +############################################################################### +# # +# IPFire.org - A linux based firewall # +# Copyright (C) 2007-2011 IPFire Team # +# # +# This program is free software: you can redistribute it and/or modify # +# it under the terms of the GNU General Public License as published by # +# the Free Software Foundation, either version 3 of the License, or # +# (at your option) any later version. # +# # +# This program is distributed in the hope that it will be useful, # +# but WITHOUT ANY WARRANTY; without even the implied warranty of # +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # +# GNU General Public License for more details. # +# # +# You should have received a copy of the GNU General Public License # +# along with this program. If not, see . # +# # +############################################################################### use RRDs; use strict; # enable only the following on debugging purpose # use warnings; -use CGI::Carp 'fatalsToBrowser'; +# use CGI::Carp 'fatalsToBrowser'; require '/var/ipfire/general-functions.pl'; require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; +require "${General::swroot}/graphs.pl"; my %qossettings = (); my %checked = (); @@ -51,8 +64,6 @@ my $portfile = "/var/ipfire/qos/portconfig"; my $tosfile = "/var/ipfire/qos/tosconfig"; &General::readhash("${General::swroot}/ethernet/settings", \%netsettings); -&Header::showhttpheaders(); - $qossettings{'ENABLED'} = 'off'; $qossettings{'EDIT'} = 'no'; $qossettings{'OUT_SPD'} = ''; @@ -62,10 +73,7 @@ $qossettings{'DEF_INC_SPD'} = ''; $qossettings{'DEFCLASS_INC'} = ''; $qossettings{'DEFCLASS_OUT'} = ''; $qossettings{'ACK'} = ''; -$qossettings{'MTU'} = '1492'; -$qossettings{'SFQ_PERTUB'} = '10'; -$qossettings{'QLENGTH'} = '30'; -$qossettings{'RED_DEV'} = `cat /var/ipfire/red/iface`; +$qossettings{'RED_DEV'} = 'ppp0'; $qossettings{'IMQ_DEV'} = 'imq0'; $qossettings{'VALID'} = 'yes'; ### Values that have to be initialized @@ -102,13 +110,26 @@ $qossettings{'TOS'} = ''; &General::readhash("${General::swroot}/qos/settings", \%qossettings); &Header::getcgihash(\%qossettings); +$qossettings{'RED_DEV'} = `cat /var/ipfire/red/iface`; + my %color = (); my %mainsettings = (); &General::readhash("${General::swroot}/main/settings", \%mainsettings); &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color); -&Header::openpage('QoS', 1, ''); -&Header::openbigbox('100%', 'left', '', $errormessage); +my @querry = split(/\?/,$ENV{'QUERY_STRING'}); +$querry[0] = '' unless defined $querry[0]; +$querry[1] = 'hour' unless defined $querry[1]; + +if ( $querry[0] ne ""){ + print "Content-type: image/png\n\n"; + binmode(STDOUT); + &Graphs::updateqosgraph($querry[0],$querry[1]); +}else{ + &Header::showhttpheaders(); + + &Header::openpage('QoS', 1, ''); + &Header::openbigbox('100%', 'left', '', $errormessage); ############################################################################################################################ ############################################################################################################################ @@ -126,10 +147,10 @@ END ; close FILE; } else { - $qossettings{'ACTION'} = 'Parentklasse hinzufuegen'; + $qossettings{'ACTION'} = $Lang::tr{'parentclass add'}; } } -elsif ($qossettings{'DOCLASS'} eq 'Bearbeiten') +elsif ($qossettings{'DOCLASS'} eq $Lang::tr{'edit'}) { open( FILE, "< $classfile" ) or die "Unable to read $classfile"; @classes = ; @@ -158,7 +179,7 @@ elsif ($qossettings{'DOCLASS'} eq 'Bearbeiten') &Header::closepage(); exit } -elsif ($qossettings{'DOCLASS'} eq 'Loeschen') +elsif ($qossettings{'DOCLASS'} eq $Lang::tr{'delete'}) { open( FILE, "< $classfile" ) or die "Unable to read $classfile"; @tmp = ; @@ -186,7 +207,7 @@ elsif ($qossettings{'DOCLASS'} eq 'Loeschen') } } close FILE; - $message = "Klasse $qossettings{'CLASS'} wurde mit eventuell vorhandenen Unterklassen geloescht."; + $message = "$Lang::tr{'Class'} $qossettings{'CLASS'} $Lang::tr{'Class was deleted'}"; } ############################################################################################################################ @@ -204,9 +225,9 @@ END ; close FILE; } else { - $qossettings{'ACTION'} = 'Unterklasse hinzufuegen'; + $qossettings{'ACTION'} = $Lang::tr{'qos add subclass'}; } -} elsif ($qossettings{'DOSCLASS'} eq 'Loeschen') +} elsif ($qossettings{'DOSCLASS'} eq $Lang::tr{'delete'}) { open( FILE, "< $subclassfile" ) or die "Unable to read $classfile"; @tmp = ; @@ -221,7 +242,7 @@ END } } close FILE; - $message = "Unterklasse $qossettings{'CLASS'} wurde geloescht."; + $message = "$Lang::tr{'Subclass'} $qossettings{'CLASS'} $Lang::tr{'was deleted'}."; } ############################################################################################################################ @@ -230,15 +251,29 @@ END if ($qossettings{'DOLEVEL7'} eq $Lang::tr{'save'}) { if ( $qossettings{'QIP'} ne '' ) { - unless ( &General::validip($qossettings{'QIP'}) ) { - $qossettings{'VALID'} = 'no'; - $message = "Die Quell-IP-Adresse ist ungueltig."; + if ($qossettings{'QIP'} =~ /^(.*?)\/(.*?)$/){ + if (! &General::validipandmask($qossettings{'QIP'}) ) { + $qossettings{'VALID'} = 'no'; + $message = $Lang::tr{'The source IP address is invalid.'}; + } + }else{ + if ( &General::validip($qossettings{'QIP'}) ) { + $qossettings{'VALID'} = 'no'; + $message = $Lang::tr{'The source IP address is invalid.'}; + } } } if ( $qossettings{'DIP'} ne '' ) { - unless ( &General::validip($qossettings{'DIP'}) ) { - $qossettings{'VALID'} = 'no'; - $message = "Die Ziel-IP-Adresse ist ungueltig."; + if ($qossettings{'QIP'} =~ /^(.*?)\/(.*?)$/){ + if ( &General::validipandmask($qossettings{'DIP'}) ) { + $qossettings{'VALID'} = 'no'; + $message = $Lang::tr{'The destination IP address is invalid.'}; + } + }else{ + if ( &General::validip($qossettings{'DIP'}) ) { + $qossettings{'VALID'} = 'no'; + $message = $Lang::tr{'The destination IP address is invalid.'}; + } } } if ($qossettings{'CLASS'} >= 100 && $qossettings{'CLASS'} < 121) { @@ -258,9 +293,9 @@ END ; close FILE; } else { - $qossettings{'ACTION'} = 'Level7-Regel hinzufuegen'; + $qossettings{'ACTION'} = $Lang::tr{'Add Level7 rule'}; } -} elsif ($qossettings{'DOLEVEL7'} eq 'Loeschen') +} elsif ($qossettings{'DOLEVEL7'} eq $Lang::tr{'delete'}) { open( FILE, "< $level7file" ) or die "Unable to read $level7file"; @l7rules = ; @@ -270,7 +305,7 @@ END { @l7ruleline = split( /\;/, $l7ruleentry ); if ( ($l7ruleline[0] eq $qossettings{'CLASS'}) && ($l7ruleline[2] eq $qossettings{'L7PROT'})) - {$message = "Level7-Regel ($qossettings{'CLASS'} - $qossettings{'L7PROT'}) wurde geloescht.";} + {$message = "$Lang::tr{'Level7 Rule'} ($qossettings{'CLASS'} - $qossettings{'L7PROT'}) $Lang::tr{'was deleted'}.";} else { open( FILE, ">> $level7file" ) or die "Unable to read $level7file"; print FILE $l7ruleentry; @@ -278,7 +313,7 @@ END } } open( FILE, "< $level7file" ) or system("touch $level7file");close FILE; - } elsif ($qossettings{'DOLEVEL7'} eq 'Bearbeiten') + } elsif ($qossettings{'DOLEVEL7'} eq $Lang::tr{'edit'}) { open( FILE, "< $level7file" ) or die "Unable to read $level7file"; @l7rules = ; @@ -305,15 +340,15 @@ END if ($qossettings{'DOPORT'} eq $Lang::tr{'save'}) { if ( $qossettings{'QIP'} ne '' ) { - unless ( &General::validip($qossettings{'QIP'}) ) { + unless ( &General::validip($qossettings{'QIP'}) ) { $qossettings{'VALID'} = 'no'; - $message = "Die Quell-IP-Adresse ist ungueltig."; + $message = "$Lang::tr{'The source IP address is invalid.'}"; } } if ( $qossettings{'DIP'} ne '' ) { - unless ( &General::validip($qossettings{'DIP'}) ) { + unless ( &General::validip($qossettings{'DIP'}) ) { $qossettings{'VALID'} = 'no'; - $message = "Die Ziel-IP-Adresse ist ungueltig."; + $message = "$Lang::tr{'The destination IP address is invalid.'}"; } } if ($qossettings{'CLASS'} >= 100 && $qossettings{'CLASS'} < 121) { @@ -333,9 +368,9 @@ END ; close FILE; } else { - $qossettings{'ACTION'} = 'Port-Regel hinzufuegen'; + $qossettings{'ACTION'} = $Lang::tr{'Add Port Rule'}; } -} elsif ($qossettings{'DOPORT'} eq 'Loeschen') +} elsif ($qossettings{'DOPORT'} eq $Lang::tr{'delete'}) { open( FILE, "< $portfile" ) or die "Unable to read $portfile"; @portrules = ; @@ -350,8 +385,8 @@ END } } close FILE; - $message = "Port-Regel ($qossettings{'CLASS'} - $qossettings{'PPROT'}) wurde geloescht."; -} elsif ($qossettings{'DOPORT'} eq 'Bearbeiten') + $message = "$Lang::tr{'Port Rule'} ($qossettings{'CLASS'} - $qossettings{'PPROT'}) $Lang::tr{'was deleted'}."; +} elsif ($qossettings{'DOPORT'} eq $Lang::tr{'edit'}) { open( FILE, "< $portfile" ) or die "Unable to read $portfile"; @portrules = ; @@ -392,7 +427,7 @@ $qossettings{'CLASS'};$qossettings{'DEVICE'};$qossettings{'TOS'}; END ; close FILE; -} +} elsif ($qossettings{'DOTOS'} eq 'Loeschen') { open( FILE, "< $tosfile" ) or die "Unable to read $tosfile"; @@ -408,8 +443,8 @@ elsif ($qossettings{'DOTOS'} eq 'Loeschen') } } close FILE; - $message = "TOS-Regel ($qossettings{'CLASS'} - $qossettings{'TOS'}) wurde geloescht."; -} elsif ($qossettings{'DOTOS'} eq 'Bearbeiten') + $message = "$Lang::tr{'TOS Rule'} ($qossettings{'CLASS'} - $qossettings{'TOS'}) $Lang::tr{'was deleted'}."; +} elsif ($qossettings{'DOTOS'} eq $Lang::tr{'edit'}) { open( FILE, "< $tosfile" ) or die "Unable to read $tosfile"; @tosrules = ; @@ -437,16 +472,16 @@ elsif ($qossettings{'DOTOS'} eq 'Loeschen') ############################################################################################################################ ############################################################################################################################ -if ($qossettings{'ACTION'} eq 'Start') +if ($qossettings{'ACTION'} eq $Lang::tr{'start'}) { + $qossettings{'ENABLED'} = 'on'; + &General::writehash("${General::swroot}/qos/settings", \%qossettings); system("/usr/local/bin/qosctrl generate >/dev/null 2>&1"); system("/usr/bin/touch /var/ipfire/qos/enable"); system("/usr/local/bin/qosctrl start >/dev/null 2>&1"); system("logger -t ipfire 'QoS started'"); - $qossettings{'ENABLED'} = 'on'; - &General::writehash("${General::swroot}/qos/settings", \%qossettings); } -elsif ($qossettings{'ACTION'} eq 'Stop') +elsif ($qossettings{'ACTION'} eq $Lang::tr{'stop'}) { system("/usr/local/bin/qosctrl stop >/dev/null 2>&1"); unlink "/var/ipfire/qos/bin/qos.sh"; @@ -455,7 +490,7 @@ elsif ($qossettings{'ACTION'} eq 'Stop') $qossettings{'ENABLED'} = 'off'; &General::writehash("${General::swroot}/qos/settings", \%qossettings); } -elsif ($qossettings{'ACTION'} eq 'Neustart') +elsif ($qossettings{'ACTION'} eq $Lang::tr{'restart'}) { if ($qossettings{'ENABLED'} eq 'on'){ system("/usr/local/bin/qosctrl stop >/dev/null 2>&1"); @@ -474,7 +509,106 @@ elsif ($qossettings{'ACTION'} eq $Lang::tr{'save'}) } &General::writehash("${General::swroot}/qos/settings", \%qossettings); } -elsif ($qossettings{'ACTION'} eq 'Statusinformationen') +elsif ($qossettings{'ACTION'} eq $Lang::tr{'template'} ) +{ + if (($qossettings{'OUT_SPD'} > 0) && ($qossettings{'INC_SPD'} > 0)) { + my @UP; + #print "UP
"; + for(my $i = 1; $i <= 10; $i++) { + $UP[$i] = int($qossettings{'OUT_SPD'} / $i ); + #print $i."=".$UP[$i]." "; + } + my @DOWN; + #print "

Down
"; + for(my $i = 1; $i <= 20; $i++) { + $DOWN[$i] = int($qossettings{'INC_SPD'} / $i); + #print $i."=".$DOWN[$i]." "; + } + open( FILE, "> $classfile" ) or die "Unable to write $classfile"; + print FILE < $level7file" ) or die "Unable to write $level7file"; + print FILE < $portfile" ) or die "Unable to write $portfile"; + print FILE </dev/null 2>&1"); + system("/usr/bin/touch /var/ipfire/qos/enable"); + system("/usr/local/bin/qosctrl start >/dev/null 2>&1"); + system("logger -t ipfire 'QoS started'"); + } else { + $message = $Lang::tr{'qos enter bandwidths'}; + } +} +elsif ($qossettings{'ACTION'} eq $Lang::tr{'status'} ) { &Header::openbox('100%', 'left', 'QoS Status'); if ($qossettings{'ENABLED'} eq 'on'){ @@ -482,36 +616,36 @@ elsif ($qossettings{'ACTION'} eq 'Statusinformationen') $output = `/usr/local/bin/qosctrl status`; $output = &Header::cleanhtml($output,"y"); print "
$output
\n"; - } else { print "QoS ist nicht aktiviert!"; } + } else { print "$Lang::tr{'QoS not enabled'}"; } &Header::closebox(); &Header::closebigbox(); &Header::closepage(); exit } -elsif ($qossettings{'ACTION'} eq 'Parentklasse hinzufuegen') +elsif ($qossettings{'ACTION'} eq $Lang::tr{'parentclass add'} ) { &parentclass(); &Header::closebigbox(); &Header::closepage(); exit } -elsif ($qossettings{'ACTION'} eq 'Unterklasse hinzufuegen') +elsif ($qossettings{'ACTION'} eq $Lang::tr{'qos add subclass'}) { &subclass(); &Header::closebigbox(); &Header::closepage(); exit } -elsif ($qossettings{'ACTION'} eq 'Regel hinzufuegen') +elsif ($qossettings{'ACTION'} eq $Lang::tr{'Add Rule'}) { - &Header::openbox('100%', 'center', 'Regel hinzufuegen'); + &Header::openbox('100%', 'center', $Lang::tr{'Add Rule'}); print < - Waehlen sie eine der untenstehenden Regeln aus. + $Lang::tr{'Choose Rule'} - - - + + + END ; @@ -541,21 +675,14 @@ END &Header::closepage(); exit } -elsif ($qossettings{'ACTION'} eq 'Erweiterte Einstellungen') -{ - &expert(); - &Header::closebigbox(); - &Header::closepage(); - exit -} -if ($qossettings{'ACTIONBW'} eq 'Andern') +if ($qossettings{'ACTIONBW'} eq "$Lang::tr{'modify'}" ) { &changebandwidth(); &Header::closebigbox(); &Header::closepage(); exit } -if ($qossettings{'ACTIONDEF'} eq 'Andern') +if ($qossettings{'ACTIONDEF'} eq "$Lang::tr{'modify'}" ) { &changedefclasses(); &Header::closebigbox(); @@ -586,7 +713,7 @@ if ($errormessage) { ############################################################################################################################ ############################################################################################################################ -&Header::openbox('100%', 'center', 'Quality of Service'); +&Header::openbox('100%', 'center', ); print < @@ -594,15 +721,18 @@ print <$message"; + print "$message"; } print <Quality of Service: - $status - - - - + Quality of Service: + $status + +
+ + + + + END ; if (($qossettings{'OUT_SPD'} ne '') && ($qossettings{'INC_SPD'} ne '')) { @@ -610,9 +740,9 @@ END
  -
Downloadgeschwindigkeit: $qossettings{'INC_SPD'} kbps - -
Uploadgeschwindigkeit: $qossettings{'OUT_SPD'} kbps +
$Lang::tr{'downlink speed'}: $qossettings{'INC_SPD'} + +
$Lang::tr{'uplink speed'}: $qossettings{'OUT_SPD'}
END ; @@ -622,20 +752,20 @@ END
-
Downloadstandardklasse: $qossettings{'DEFCLASS_INC'} - -
Uploadstandardklasse: $qossettings{'DEFCLASS_OUT'} -
ACKs: $qossettings{'ACK'} +
$Lang::tr{'downlink std class'}: $qossettings{'DEFCLASS_INC'} + +
$Lang::tr{'uplink std class'}: $qossettings{'DEFCLASS_OUT'} +
ACKs: $qossettings{'ACK'}
- -
- - -
+ +
+ + +
END ; @@ -656,16 +786,12 @@ if ( ($qossettings{'DEFCLASS_INC'} eq '') || ($qossettings{'DEFCLASS_OUT'} eq '' exit } -&Header::openbox('100%', 'center', $Lang::tr{'info'}); -print < -  Unterklasse hinzufuegen |  Regel hinzufuegen |  Bearbeiten |  Loeschen   - TOS-Bits:  0 - Deaktiviert | 8 - Minimale Verzoegerung | 4 - Maximaler Durchsatz | 2 - Maximale Zuverlaessigkeit | 1 - Minimale Kosten   -END -; -print "\t"; - -&Header::closebox(); + &Header::openbox('100%', 'center', "$qossettings{'RED_DEV'} $Lang::tr{'graph'}, $Lang::tr{'uplink'}"); + &Graphs::makegraphbox("qos.cgi",$qossettings{'RED_DEV'},"hour","325"); + &Header::closebox(); + &Header::openbox('100%', 'center', "$qossettings{'IMQ_DEV'} $Lang::tr{'graph'}, $Lang::tr{'downlink'}"); + &Graphs::makegraphbox("qos.cgi",$qossettings{'IMQ_DEV'},"hour","325"); + &Header::closebox(); &showclasses($qossettings{'RED_DEV'}); &showclasses($qossettings{'IMQ_DEV'}); @@ -673,27 +799,29 @@ print "\t"; &Header::closebigbox(); &Header::closepage(); +} + ############################################################################################################################ ############################################################################################################################ sub changedefclasses { - &Header::openbox('100%', 'center', 'Standardklassen:'); + &Header::openbox('100%', 'center', $Lang::tr{'std classes'}); print < -
Legen sie hier die Standardklassen fest durch die nicht-gefilterte Pakete gehen. -
Download:
$Lang::tr{'no filter pass'} +
$Lang::tr{'download'}:  -
Upload:
$Lang::tr{'upload'}:
- @@ -1122,21 +1255,21 @@ END if ( $l7ruleline[0] eq $classline[1] ) { print <
Legen sie hier die ACK-Klasse fest
und klicken Sie danach auf Speichern. +
$Lang::tr{'enter ack class'}
ACKs: - + + + + +
Geben Sie bitte hier ihre Download- bzw. Upload-Geschwindigkeit ein
und klicken Sie danach auf Speichern. -
Download-Geschwindigkeit: -   kbps -   -
Upload-Geschwindigkeit: -   kbps -   +
$Lang::tr{'down and up speed'}
$Lang::tr{'downlink speed'}:

$Lang::tr{'uplink speed'}:
+ $Lang::tr{'template warning'} END ; } @@ -752,7 +880,7 @@ END } sub parentclass { - &Header::openbox('100%', 'center', 'Parentklasse'); + &Header::openbox('100%', 'center', $Lang::tr{'parentclass'}); print < @@ -761,17 +889,17 @@ END if ( $message ne "" ) { print " @@ -1089,23 +1222,23 @@ sub showclasses {
$message"; } - if ( $qossettings{'EDIT'} eq 'yes' ) { + if ( $qossettings{'EDIT'} eq 'yes' ) { print ""; print ""; } print <Geben sie die Daten ein
und klicken Sie danach auf Speichern. -
Interface: +
$Lang::tr{'enter data'} +
$Lang::tr{'interface'}: END ; - if ( $qossettings{'EDIT'} eq 'yes' ) { + if ( $qossettings{'EDIT'} eq 'yes' ) { print ""; @@ -785,10 +913,10 @@ END   -
Klasse: +
$Lang::tr{'Class'}: END ; - if ( $qossettings{'EDIT'} eq 'yes' ) { + if ( $qossettings{'EDIT'} eq 'yes' ) { print ""; @@ -808,7 +936,7 @@ END print <   -
Prioritaet:
$Lang::tr{'priority'}:  -
Garantierte Bandbreite: +
$Lang::tr{'guaranteed bandwith'}:   -
Maximale Bandbreite: +
$Lang::tr{'max bandwith'}:  
Burst: @@ -833,13 +961,17 @@ END
Ceilburst:   +END +; + $selected{'TOS'}{$qossettings{'TOS'}} = "selected='selected'"; +print <TOS-Bit: + + + + +  
$Lang::tr{'remark'}: @@ -853,7 +985,7 @@ END } sub subclass { - &Header::openbox('100%', 'center', 'Unterklasse'); + &Header::openbox('100%', 'center', $Lang::tr{'Subclass'}); print < @@ -863,9 +995,9 @@ END print "
$message"; } print <Aktuelle Klasse: $qossettings{'CLASS'} -
Geben sie die Daten ein
und klicken Sie danach auf Speichern. -
Unterklasse:
$Lang::tr{'current class'}: $qossettings{'CLASS'} +
$Lang::tr{'enter data'} +
$Lang::tr{'Subclass'}:  -
Prioritaet:
$Lang::tr{'priority'}:
Garantierte Bandbreite: +
$Lang::tr{'guaranteed bandwith'}:   -
Maximale Bandbreite: +
$Lang::tr{'max bandwith'}:  
Burst: @@ -913,11 +1045,11 @@ END  
TOS-Bit: + + + + +   @@ -928,7 +1060,7 @@ END } sub level7rule { - &Header::openbox('100%', 'center', 'Level7-Regel'); + &Header::openbox('100%', 'center', $Lang::tr{'Level7 Rule'}); print < @@ -938,9 +1070,9 @@ END print "
$message"; } print <Aktuelle Klasse: $qossettings{'CLASS'} -
Geben sie die Daten ein
und klicken Sie danach auf Speichern. -
Protokoll: +
$Lang::tr{'current class'}: $qossettings{'CLASS'} +
$Lang::tr{'enter data'} +
$Lang::tr{'protocol'}:   -
Quell-IP-Adresse: - +
$Lang::tr{'source ip'}: +   -
Ziel-IP-Adresse: - +
$Lang::tr{'destination ip'}: + +
$Lang::tr{'qos warning'}
END ; @@ -973,12 +1106,12 @@ END } sub portrule { - &Header::openbox('100%', 'center', 'Port-Regel hinzufuegen'); + &Header::openbox('100%', 'center', $Lang::tr{'Add Port Rule'}); print < -
Geben sie die Daten ein
und klicken Sie danach auf Speichern. -
Protokoll: +
$Lang::tr{'enter data'} +
$Lang::tr{'protocol'}:   -
Quell-Port: - +
$Lang::tr{'source port'}: +   -
Ziel-Port: - +
$Lang::tr{'destination port'}: +   -
Quell-IP-Adresse: - +
$Lang::tr{'source ip'}: +   -
Ziel-IP-Adresse: - +
$Lang::tr{'destination ip'}: +
END @@ -1016,9 +1149,9 @@ END } sub tosrule { - &Header::openbox('100%', 'center', 'TOS-Regel'); + &Header::openbox('100%', 'center', $Lang::tr{'TOS Rule'}); if ($qossettings{'TOS'}) { - $checked[$qossettings{'TOS'}] = "checked"; + $checked{$qossettings{'TOS'}} = "checked"; } print < @@ -1029,12 +1162,12 @@ END print "
$message"; } print <Aktuelle Klasse: $qossettings{'CLASS'} -
Aktivieren oder deaktivieren sie die TOS-Bits
und klicken Sie danach auf Speichern. -
Minimale Verzoegerung (8) -
Maximaler Durchsatz (4) -
Maximale Zuverlaessigkeit (2) -
Minimale Kosten (1) +
$Lang::tr{'current class'}: $qossettings{'CLASS'} +
$Lang::tr{'Enter TOS'} +
$Lang::tr{'min delay'} (8) +
$Lang::tr{'max throughput'} (4) +
$Lang::tr{'max reliability'} (2) +
$Lang::tr{'min costs'} (1)
END @@ -1065,18 +1198,18 @@ sub showclasses { @classline = split( /\;/, $classentry ); if ( $classline[0] eq $qossettings{'DEV'} ) { - &Header::openbox('100%', 'center', "Klasse: $classline[1]"); + &Header::openbox('100%', 'center', "$Lang::tr{'Class'}: $classline[1] $classline[8]"); print <
$Lang::tr{'interface'} - Klasse - Prioritaet - Garantierte Bandbreite - Maximale Bandbreite + $Lang::tr{'Class'} + $Lang::tr{'priority'} + $Lang::tr{'guaranteed bandwith'} + $Lang::tr{'max bandwith'} Burst Ceil Burst TOS - Aktionen + $Lang::tr{'action'}
$classline[0] $classline[1] $classline[2]
- - + +
- - + +
- - + +
- - + +
Level7-Protokoll: +
$Lang::tr{'Level7 Protocol'}: $l7ruleline[2]
- - + +
- - + +
END @@ -1144,8 +1277,8 @@ END if (($l7ruleline[3] ne "") || ($l7ruleline[4] ne "")){ print <		  - Quell-IP: $l7ruleline[3] - Ziel-IP: $l7ruleline[4] + $Lang::tr{'source ip'}: $l7ruleline[3] + $Lang::tr{'destination ip'}: $l7ruleline[4] END ; } @@ -1165,21 +1298,21 @@ END if ( $portruleline[0] eq $classline[1] ) { print <Port-Regel: +
$Lang::tr{'Port Rule'}: ($portruleline[2]) END ; if ($portruleline[4]) { print <Quell-Port: $portruleline[4] + $Lang::tr{'source port'}: $portruleline[4] END ; } print ""; if ($portruleline[6]) { print <Ziel-Port: $portruleline[6] + $Lang::tr{'destination port'}: $portruleline[6] END ; } @@ -1194,8 +1327,8 @@ END - - + +
@@ -1204,8 +1337,8 @@ END - - + +
END @@ -1213,8 +1346,8 @@ END if (($portruleline[3] ne "") || ($portruleline[5] ne "")){ print <  - Quell-IP: $portruleline[3] - Ziel-IP: $portruleline[5] + $Lang::tr{'source ip'}: $portruleline[3] + $Lang::tr{'destination ip'}: $portruleline[5] END ; } @@ -1235,13 +1368,13 @@ END END ; if ( $tosruleline[2] eq "8") { - print "Minimale Verzoegerung\n"; + print "$Lang::tr{'min delay'}\n"; } elsif ( $tosruleline[2] eq "4") { - print "Maximaler Durchsatz\n"; + print "$Lang::tr{'max throughput'}\n"; } elsif ( $tosruleline[2] eq "2") { - print "Maximaler Durchsatz\n"; + print "$Lang::tr{'max reliability'}\n"; } elsif ( $tosruleline[2] eq "1") { - print "Minimale Kosten\n"; + print "$Lang::tr{'min costs'}\n"; } else { print " \n"; } print < - - + +
- - + +
END @@ -1275,7 +1408,7 @@ END @subclassline = split( /\;/, $subclassentry ); if ( $subclassline[1] eq $classline[1] ) { print <Subklasse: + $Lang::tr{'Subclass'}: $subclassline[2] $subclassline[3] $subclassline[4] @@ -1287,18 +1420,18 @@ END
- - + +
- - + +
- - + +
END @@ -1314,29 +1447,6 @@ END } } } - -sub expert -{ - &Header::openbox('100%', 'center', 'Expertenoptionen:'); - print < - -
MTU: - - Diese Einstellung aendert die MTU nicht global sondern nur fuer das QoS. -
Queue Laenge: - -   -
SFQ Perturb: - - -
- -END -; - &Header::closebox(); -} - sub validminbwdth { if ( $qossettings{'VALID'} eq 'yes' ) { if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) { @@ -1346,7 +1456,7 @@ sub validminbwdth { } unless ( ( $qossettings{'MINBWDTH'} >= 1 ) && ( $qossettings{'MINBWDTH'} <= $qossettings{'SPD'} ) ) { $qossettings{'VALID'} = 'no'; - $message = "Mindestbandbreite ist ungueltig."; + $message = "$Lang::tr{'false min bandwith'}"; } $qossettings{'SPD'} = ''; } @@ -1361,7 +1471,7 @@ sub validmaxbwdth { } unless ( ( $qossettings{'MAXBDWTH'} >= 0 ) && ($qossettings{'MAXBDWTH'} >= $qossettings{'MINBDWTH'}) &&( $qossettings{'MAXBDWTH'} <= $qossettings{'SPD'} ) ) { $qossettings{'VALID'} = 'no'; - $message = "Mamimalbandbreite ist ungueltig."; + $message = "$Lang::tr{'false max bandwith'}"; } $qossettings{'SPD'} = ''; } @@ -1372,12 +1482,12 @@ sub validclass { if ( $qossettings{'DEVICE'} eq $qossettings{'RED_DEV'} ) { if ($qossettings{'CLASS'} lt 100 || $qossettings{'CLASS'} ge 121) { $qossettings{'VALID'} = 'no'; - $message = "Die Klassennummer passt nicht zum angegebenen Interface."; + $message = "$Lang::tr{'false classnumber'}"; } } elsif ( $qossettings{'DEVICE'} eq $qossettings{'IMQ_DEV'} ) { if ($qossettings{'CLASS'} lt 200 || $qossettings{'CLASS'} ge 221) { $qossettings{'VALID'} = 'no'; - $message = "Die Klassennummer passt nicht zum angegebenen Interface."; + $message = "$Lang::tr{'The class number does not match the specified interface.'}"; } } open( FILE, "< $classfile" ) or die "Unable to read $classfile"; @@ -1389,7 +1499,7 @@ sub validclass { if ( $tmpline[1] eq $qossettings{'CLASS'} ) { $qossettings{'VALID'} = 'no'; - $message = "Die aktuelle Klasse wird bereits verwendet."; + $message = "$Lang::tr{'false classnumber'}"; last } } @@ -1407,7 +1517,7 @@ sub validsubclass { if ( $tmpline[2] eq $qossettings{'SCLASS'} ) { $qossettings{'VALID'} = 'no'; - $message = "Die aktuelle Klasse wird bereits verwendet."; + $message = "$Lang::tr{'class in use'}"; last } }