From 399d32cbc071710a7db50b0f7ec8260340a54beb Mon Sep 17 00:00:00 2001
From: maniacikarus <maniacikarus@ea5c0bd1-69bd-2848-81d8-4f18e57aeed8>
Date: Mon, 21 May 2007 20:35:30 +0000
Subject: [PATCH] Qos Port und Layer7 Rules sind editierbar

git-svn-id: http://svn.ipfire.org/svn/ipfire/trunk@570 ea5c0bd1-69bd-2848-81d8-4f18e57aeed8
---
 html/cgi-bin/qos.cgi | 61 ++++++++++++++++++++++++++++++++++++--------
 1 file changed, 50 insertions(+), 11 deletions(-)

diff --git a/html/cgi-bin/qos.cgi b/html/cgi-bin/qos.cgi
index 2428152e7..56047c8a7 100644
--- a/html/cgi-bin/qos.cgi
+++ b/html/cgi-bin/qos.cgi
@@ -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;
+ }
 
 ############################################################################################################################
 ############################################################################################################################
-- 
2.39.2