webadmin/bpfire
1
0
Fork 0
mirror of https://github.com/vincentmli/bpfire.git synced 2026-04-09 18:45:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qos Port und Layer7 Rules sind editierbar

Browse Source 
git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@570 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
This commit is contained in:
maniacikarus
2007-05-21 20:35:30 +00:00
parent 3e615c373b
commit 399d32cbc0
1 changed files with 50 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
html/cgi-bin/qos.cgi
View File

@@ -260,24 +260,44 @@ END
} else {
$qossettings{'ACTION'} = 'Level7-Regel hinzufuegen';
}
}
elsif ($qossettings{'DOLEVEL7'} eq 'Loeschen')
} elsif ($qossettings{'DOLEVEL7'} eq 'Loeschen')
{
open( FILE, "< $level7file" ) or die "Unable to read $level7file";
@l7rules = <FILE>;
close FILE;
open( FILE, "> $level7file" ) or die "Unable to read $level7file";
system("rm $level7file");
foreach $l7ruleentry (sort @l7rules)
{
@l7ruleline = split( /\;/, $l7ruleentry );
if ( ($l7ruleline[0] ne $qossettings{'CLASS'}) && ($l7ruleline[2] ne $qossettings{'L7PROT'}))
{
print FILE $l7ruleentry;
}
}
if ( ($l7ruleline[0] eq $qossettings{'CLASS'}) && ($l7ruleline[2] eq $qossettings{'L7PROT'}))
{$message = "Level7-Regel ($qossettings{'CLASS'} - $qossettings{'L7PROT'}) wurde geloescht.";}
else
{ open( FILE, ">> $level7file" ) or die "Unable to read $level7file";
print FILE $l7ruleentry;
close FILE;
}
}
open( FILE, "< $level7file" ) or system("touch $level7file");close FILE;
} elsif ($qossettings{'DOLEVEL7'} eq 'Bearbeiten')
{
open( FILE, "< $level7file" ) or die "Unable to read $level7file";
@l7rules = <FILE>;
close FILE;
$message = "Level7-Regel ($qossettings{'CLASS'} - $qossettings{'L7PROT'}) wurde geloescht.";
}
system("rm $level7file");
foreach $l7ruleentry (sort @l7rules)
{
@l7ruleline = split( /\;/, $l7ruleentry );
if ( ($l7ruleline[0] eq $qossettings{'CLASS'}) && ($l7ruleline[2] eq $qossettings{'L7PROT'}))
{$qossettings{'QIP'} = $l7ruleline[3];$qossettings{'DIP'} = $l7ruleline[4];}
else {
open( FILE, ">> $level7file" ) or die "Unable to write $level7file";
print FILE $l7ruleentry;
close FILE;
}
}
&level7rule;
open( FILE, "< $level7file" ) or system("touch $level7file");close FILE;
}
############################################################################################################################
############################################################################################################################
@@ -331,7 +351,26 @@ END
}
close FILE;
$message = "Port-Regel ($qossettings{'CLASS'} - $qossettings{'PPROT'}) wurde geloescht.";
}
} elsif ($qossettings{'DOPORT'} eq 'Bearbeiten')
{
open( FILE, "< $portfile" ) or die "Unable to read $portfile";
@portrules = <FILE>;
close FILE;
system("rm $portfile");
foreach $portruleentry (sort @portrules)
{
@portruleline = split( /\;/, $portruleentry );
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'}))
{$qossettings{'CLASS'}=$portruleline[0];$qossettings{'PPROT'}=$portruleline[2];$qossettings{'QIP'}=$portruleline[3];$qossettings{'QPORT'}=$portruleline[4];$qossettings{'DIP'}=$portruleline[5];$qossettings{'DPORT'}=$portruleline[6];}
else {
open( FILE, ">> $portfile" ) or die "Unable to write $portfile";
print FILE $portruleentry;
close FILE;
}
}
&portrule;
open( FILE, "< $portfile" ) or system("touch $portfile");close FILE;
}
############################################################################################################################
############################################################################################################################