-
-
+
+
END
;
@@ -610,9 +726,9 @@ END
END
;
@@ -622,19 +738,19 @@ END
END
@@ -656,16 +772,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'}");
+ &Graphs::makegraphbox("qos.cgi",$qossettings{'RED_DEV'},"hour","325");
+ &Header::closebox();
+ &Header::openbox('100%', 'center', "$qossettings{'IMQ_DEV'} $Lang::tr{'graph'}");
+ &Graphs::makegraphbox("qos.cgi",$qossettings{'IMQ_DEV'},"hour","325");
+ &Header::closebox();
&showclasses($qossettings{'RED_DEV'});
&showclasses($qossettings{'IMQ_DEV'});
@@ -673,22 +785,24 @@ 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.
+ | $Lang::tr{'no filter pass'}
| Download: | |
|
@@ -1122,7 +1241,7 @@ END
if ( $l7ruleline[0] eq $classline[1] )
{
print <Level7-Protokoll:
+ | $Lang::tr{'Level7 Protocol'}:
| $l7ruleline[2]
|
END
@@ -1213,8 +1332,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 +1354,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
@@ -1270,15 +1389,12 @@ END
}
END
;
- }
-
-
foreach $subclassentry (sort @subclasses)
{
@subclassline = split( /\;/, $subclassentry );
if ( $subclassline[1] eq $classline[1] ) {
print <Subklasse:
+ | $Lang::tr{'Subclass'}:
| $subclassline[2]
| $subclassline[3]
| $subclassline[4]
@@ -1291,17 +1407,17 @@ END
|
|
|
END
@@ -1312,26 +1428,27 @@ END
END
;
- &Header::closebox();
+ &Header::closebox();
}
- }
+ }
+ }
}
sub expert
{
- &Header::openbox('100%', 'center', 'Expertenoptionen:');
+ &Header::openbox('100%', 'center', $Lang::tr{'expertoptions'});
print <
END
@@ -1348,7 +1465,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'} = '';
}
@@ -1363,7 +1480,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'} = '';
}
@@ -1374,7 +1491,7 @@ 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) {
@@ -1391,7 +1508,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
}
}
@@ -1409,7 +1526,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
}
}
| | | |