END
;
&Header::closebox();
}
sub tosrule {
&Header::openbox('100%', 'center', $Lang::tr{'TOS Rule'});
if ($qossettings{'TOS'}) {
$checked{$qossettings{'TOS'}} = "checked";
}
print <
END
;
if ( $message ne "" ) {
print "
$message";
}
print <
$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
;
&Header::closebox();
}
sub showclasses {
$qossettings{'DEV'} = shift;
open( FILE, "< $classfile" ) or die "Unable to read $classfile";
@classes = ;
close FILE;
if (@classes) {
open( FILE, "< $subclassfile" ) or die "Unable to read $subclassfile";
@subclasses = ;
close FILE;
open( FILE, "< $level7file" ) or die "Unable to read $level7file";
@l7rules = ;
close FILE;
open( FILE, "< $tosfile" ) or die "Unable to read $tosfile";
@tosrules = ;
close FILE;
open( FILE, "< $portfile" ) or die "Unable to read $portfile";
@portrules = ;
close FILE;
foreach $classentry (sort @classes)
{
@classline = split( /\;/, $classentry );
if ( $classline[0] eq $qossettings{'DEV'} )
{
&Header::openbox('100%', 'center', "Klasse: $classline[1]");
print <
$Lang::tr{'interface'}
$Lang::tr{'Class'}
$Lang::tr{'priority'}
$Lang::tr{'guaranteed bandwith'}
$Lang::tr{'max bandwith'}
Burst
Ceil Burst
TOS
$Lang::tr{'action'}
$classline[0]
$classline[1]
$classline[2]
$classline[3]
$classline[4]
$classline[5]
$classline[6]
$classline[7]
$Lang::tr{'remark'}:
$classline[8]
Queueing: $classline[9]
END
;
if (@l7rules) {
foreach $l7ruleentry (sort @l7rules)
{
@l7ruleline = split( /\;/, $l7ruleentry );
if ( $l7ruleline[0] eq $classline[1] )
{
print <
$Lang::tr{'Level7 Protocol'}:
$l7ruleline[2]
END
;
if (($l7ruleline[3] ne "") || ($l7ruleline[4] ne "")){
print <
$Lang::tr{'source ip'}: $l7ruleline[3]
$Lang::tr{'destination ip'}: $l7ruleline[4]
END
;
}
END
;
}
}
}
if (@portrules) {
foreach $portruleentry (sort @portrules)
{
@portruleline = split( /\;/, $portruleentry );
if ( $portruleline[0] eq $classline[1] )
{
print <
$Lang::tr{'Port Rule'}:
($portruleline[2])
END
;
if ($portruleline[4]) {
print <$Lang::tr{'source port'}: $portruleline[4]
END
;
}
print "
";
if ($portruleline[6]) {
print <$Lang::tr{'destination port'}: $portruleline[6]
END
;
}
print <
END
;
if (($portruleline[3] ne "") || ($portruleline[5] ne "")){
print <