X-Git-Url: http://git.ipfire.org/?p=people%2Fpmueller%2Fipfire-2.x.git;a=blobdiff_plain;f=html%2Fcgi-bin%2Foutgoinggrp.cgi;h=e757ca08afb11f2a840f36995c2452e23809f73c;hp=a00db2a7411e06fb3f6322d8ab534374fc190ac5;hb=4c700de4af3de72b80a540fef26b4e056b85193a;hpb=98c474a4aa6802cc07088eafb60eb47a8b315d10 diff --git a/html/cgi-bin/outgoinggrp.cgi b/html/cgi-bin/outgoinggrp.cgi index a00db2a741..e757ca08af 100644 --- a/html/cgi-bin/outgoinggrp.cgi +++ b/html/cgi-bin/outgoinggrp.cgi @@ -65,9 +65,9 @@ $selected{'macgroup'}{$outgrpsettings{'macgroup'}} = "selected='selected'"; # my $debugCount = 0; # foreach my $line (sort keys %outgrpsettings) { # print "$line = $outgrpsettings{$line}
\n"; - # $debugCount++; +# $debugCount++; # } -# print " Count: $debugCount\n"; +# print "Count: $debugCount\n"; # &Header::closebox(); # DEBUG DEBUG ############### @@ -78,6 +78,9 @@ $selected{'macgroup'}{$outgrpsettings{'macgroup'}} = "selected='selected'"; if ($outgrpsettings{'ACTION'} eq 'newipgroup') { &newipgroup(); +}elsif ($outgrpsettings{'ACTION'} eq 'editipgroup') +{ + &editipgroup(); } elsif ($outgrpsettings{'ACTION'} eq 'deleteipgroup' ) { unlink("$configpath/ipgroups/$outgrpsettings{'ipgroup'}"); } elsif ($outgrpsettings{'ACTION'} eq 'addipgroup') { @@ -90,6 +93,7 @@ if ($outgrpsettings{'ACTION'} eq 'newipgroup') $errormessage = "$Lang::tr{'outgoing firewall reserved groupname'}"; } else { open (FILE, ">$configpath/ipgroups/$outgrpsettings{'ipgroup'}") or die "Can't save $outgrpsettings{'ipgroup'} settings $!"; + $outgrpsettings{'ipgroupcontent'} =~ s/\s*$//; flock (FILE, 2); print FILE $outgrpsettings{'ipgroupcontent'}."\n"; close FILE; @@ -99,7 +103,10 @@ if ($outgrpsettings{'ACTION'} eq 'newipgroup') if ($outgrpsettings{'ACTION'} eq 'newmacgroup') { &newmacgroup(); -} elsif ($outgrpsettings{'ACTION'} eq 'deletemacgroup' ) { +}elsif ($outgrpsettings{'ACTION'} eq 'editmacgroup') +{ + &editmacgroup(); +}elsif ($outgrpsettings{'ACTION'} eq 'deletemacgroup' ) { unlink("$configpath/macgroups/$outgrpsettings{'macgroup'}"); } elsif ($outgrpsettings{'ACTION'} eq 'addmacgroup') { @@ -111,6 +118,7 @@ if ($outgrpsettings{'ACTION'} eq 'newmacgroup') $errormessage = "$Lang::tr{'outgoing firewall reserved groupname'}"; } else { open (FILE, ">$configpath/macgroups/$outgrpsettings{'macgroup'}") or die "Can't save $outgrpsettings{'macgroup'} settings $!"; + $outgrpsettings{'macgroupcontent'} =~ s/\s*$//; flock (FILE, 2); print FILE $outgrpsettings{'macgroupcontent'}."\n"; close FILE; @@ -176,20 +184,27 @@ print < -
+ + + + +
+ + +
-
+
-
+ @@ -253,20 +268,27 @@ print < - + + + + + + + +
-
+
-
+ @@ -302,7 +324,7 @@ print < - + @@ -311,7 +333,46 @@ print < - + + + + + +END +; + &Header::closebox(); + &Header::closebigbox(); + &Header::closepage(); + exit 0; +} + +sub editipgroup +{ +my $ipgroupcontent = `cat $configpath/ipgroups/$outgrpsettings{'ipgroup'} 2>/dev/null`; + + &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall edit ip group'}); + +print < + + + + + + + + + + + + +
$Lang::tr{'outgoing firewall edit ip group'}

+ + + + +
+
@@ -339,7 +400,7 @@ print < - + @@ -359,4 +420,43 @@ END &Header::closebigbox(); &Header::closepage(); exit 0; -} \ No newline at end of file +} + +sub editmacgroup +{ +my $macgroupcontent = `cat $configpath/macgroups/$outgrpsettings{'macgroup'} 2>/dev/null`; + + &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall edit mac group'}); + +print < + + + + + + + + + + + + + + +
$Lang::tr{'outgoing firewall edit mac group'}

+ + + + +
+ +
+ +END +; + &Header::closebox(); + &Header::closebigbox(); + &Header::closepage(); + exit 0; +}