]>
git.ipfire.org Git - people/teissler/ipfire-2.x.git/blob - html/cgi-bin/outgoinggrp.cgi
2 ###############################################################################
4 # IPFire.org - A linux based firewall #
5 # Copyright (C) 2005-2010 IPFire Team #
7 # This program is free software: you can redistribute it and/or modify #
8 # it under the terms of the GNU General Public License as published by #
9 # the Free Software Foundation, either version 3 of the License, or #
10 # (at your option) any later version. #
12 # This program is distributed in the hope that it will be useful, #
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of #
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
15 # GNU General Public License for more details. #
17 # You should have received a copy of the GNU General Public License #
18 # along with this program. If not, see <http://www.gnu.org/licenses/>. #
20 ###############################################################################
23 # enable only the following on debugging purpose
25 #use CGI::Carp 'fatalsToBrowser';
27 require '/var/ipfire/general-functions.pl';
28 require "${General::swroot}/lang.pl";
29 require "${General::swroot}/header.pl";
31 my %outgrpsettings = ();
34 my $errormessage = "";
36 my $configpath = "/var/ipfire/outgoing/groups/";
37 my $servicefile = "/var/ipfire/outgoing/defaultservices";
40 my %mainsettings = ();
41 &General
::readhash
("${General::swroot}/main/settings", \
%mainsettings);
42 &General
::readhash
("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \
%color);
44 &General
::readhash
("${General::swroot}/ethernet/settings", \
%netsettings);
46 &Header
::showhttpheaders
();
48 ### Values that have to be initialized
49 $outgrpsettings{'ACTION'} = '';
50 $outgrpsettings{'ipgroup'} = 'none';
51 $outgrpsettings{'macgroup'} = 'none';
53 &Header
::getcgihash
(\
%outgrpsettings);
54 delete $outgrpsettings{'__CGI__'};delete $outgrpsettings{'x'};delete $outgrpsettings{'y'};
56 $selected{'ipgroup'}{$outgrpsettings{'ipgroup'}} = "selected='selected'";
57 $selected{'macgroup'}{$outgrpsettings{'macgroup'}} = "selected='selected'";
59 &Header
::openpage
($Lang::tr
{'outgoing firewall groups'}, 1, '');
60 &Header
::openbigbox
('100%', 'left', '', $errormessage);
64 # &Header::openbox('100%', 'left', 'DEBUG');
66 # foreach my $line (sort keys %outgrpsettings) {
67 # print "$line = $outgrpsettings{$line}<br />\n";
70 # print "Count: $debugCount\n";
71 # &Header::closebox();
75 ############################################################################################################################
76 ############################################################################################################################
78 if ($outgrpsettings{'ACTION'} eq 'newipgroup')
81 }elsif ($outgrpsettings{'ACTION'} eq 'editipgroup')
84 } elsif ($outgrpsettings{'ACTION'} eq 'deleteipgroup' ) {
85 unlink("$configpath/ipgroups/$outgrpsettings{'ipgroup'}");
86 } elsif ($outgrpsettings{'ACTION'} eq 'addipgroup') {
88 if ( -e
"$configpath/macgroups/$outgrpsettings{'ipgroup'}" ){
89 $errormessage = "$Lang::tr{'outgoing firewall group error'}";
90 } elsif ( $outgrpsettings{'ipgroup'} =~ /\W/ ){
91 $errormessage = $Lang::tr
{'name must only contain characters'}." - ".$outgrpsettings{'ipgroup'};
92 } elsif ( $outgrpsettings{'ipgroup'} eq "all" || $outgrpsettings{'ipgroup'} eq "red" || $outgrpsettings{'ipgroup'} eq "blue" ||
93 $outgrpsettings{'ipgroup'} eq "green" || $outgrpsettings{'ipgroup'} eq "orange" || $outgrpsettings{'ipgroup'} eq "ip" ||
94 $outgrpsettings{'ipgroup'} eq "mac" || $outgrpsettings{'ipgroup'} eq "ovpn" || $outgrpsettings{'ipgroup'} eq "ipsec" ) {
95 $errormessage = "$Lang::tr{'outgoing firewall reserved groupname'}";
97 open (FILE
, ">$configpath/ipgroups/$outgrpsettings{'ipgroup'}") or die "Can't save $outgrpsettings{'ipgroup'} settings $!";
98 $outgrpsettings{'ipgroupcontent'} =~ s/\s*$//;
100 print FILE
$outgrpsettings{'ipgroupcontent'}."\n";
105 if ($outgrpsettings{'ACTION'} eq 'newmacgroup')
108 }elsif ($outgrpsettings{'ACTION'} eq 'editmacgroup')
111 }elsif ($outgrpsettings{'ACTION'} eq 'deletemacgroup' ) {
112 unlink("$configpath/macgroups/$outgrpsettings{'macgroup'}");
113 } elsif ($outgrpsettings{'ACTION'} eq 'addmacgroup') {
115 if ( -e
"$configpath/ipgroups/$outgrpsettings{'macgroup'}" ){
116 $errormessage = "$Lang::tr{'outgoing firewall group error'}";
117 } elsif ( $outgrpsettings{'macgroup'} =~ /\W/ ){
118 $errormessage = $Lang::tr
{'name must only contain characters'}." - ".$outgrpsettings{'macgroup'};
119 } elsif ( $outgrpsettings{'macgroup'} eq "all" || $outgrpsettings{'macgroup'} eq "red" || $outgrpsettings{'macgroup'} eq "blue" ||
120 $outgrpsettings{'macgroup'} eq "green" || $outgrpsettings{'macgroup'} eq "orange" || $outgrpsettings{'macgroup'} eq "ip" ||
121 $outgrpsettings{'macgroup'} eq "mac" || $outgrpsettings{'macgroup'} eq "ovpn" || $outgrpsettings{'macgroup'} eq "ipsec" ) {
122 $errormessage = "$Lang::tr{'outgoing firewall reserved groupname'}";
124 open (FILE
, ">$configpath/macgroups/$outgrpsettings{'macgroup'}") or die "Can't save $outgrpsettings{'macgroup'} settings $!";
125 $outgrpsettings{'macgroupcontent'} =~ s/\s*$//;
127 print FILE
$outgrpsettings{'macgroupcontent'}."\n";
134 &Header
::openbox
('100%', 'left', $Lang::tr
{'error messages'});
135 print "<class name='base'><font color=red>$errormessage\n</font>";
136 print " </class>\n";
140 ############################################################################################################################
141 ############################################################################################################################
143 my @ipgroups = qx(ls
$configpath/ipgroups/);
144 if ($outgrpsettings{'ipgroup'} eq "none" and $#ipgroups >= 0 ){ $outgrpsettings{'ipgroup'} = $ipgroups[0];}
146 my $ipgroupcontent = `cat $configpath/ipgroups/$outgrpsettings{'ipgroup'} 2>/dev/null`;
147 $ipgroupcontent =~ s/\n/<br \/>/g
;
149 &Header
::openbox
('100%', 'center', $Lang::tr
{'outgoing firewall ip groups'});
152 <a name="outgoing showipgroup"></a>
154 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showipgroup'>
155 <table width='95%' cellspacing='0'>
157 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall ip groups'}</b></td>
160 <td colspan='3' align='left'><br /></td>
163 <td align='left' colspan='2'><select name='ipgroup' style="width: 200px">
166 foreach my $member (@ipgroups) {chomp $member;print" <option value='$member' $selected{'ipgroup'}{$member}>$member</option>\n";}
170 <input type='hidden' name='ACTION' value='showipgroup' />
171 <input type='image' alt='$Lang::tr{'outgoing firewall view group'}' title='$Lang::tr{'outgoing firewall view group'}' src='/images/format-justify-fill.png' />
175 <td colspan='3' align='left'><br /></td>
178 <td colspan='3' align='left'><font size=1>$ipgroupcontent</font></td>
181 <td colspan='3' align='left'><br /></td>
184 <td colspan='3' align='center'><font size=1>$Lang::tr{'outgoing firewall ip groups'} - $outgrpsettings{'ipgroup'}</font></td>
188 <table width='10%' cellspacing='0'>
191 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
192 <input type='hidden' name='ACTION' value='editipgroup' />
193 <input type='hidden' name='ipgroup' value='$outgrpsettings{'ipgroup'}' />
194 <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
198 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
199 <input type='hidden' name='ACTION' value='newipgroup' />
200 <input type='image' alt='$Lang::tr{'new'}' title='$Lang::tr{'new'}' src='/images/list-add.png' />
204 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
205 <input type='hidden' name='ACTION' value='saveipgroup' />
206 <input type='hidden' name='ipgroup' value='$outgrpsettings{'ipgroup'}' />
207 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
211 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
212 <input type='hidden' name='ACTION' value='deleteipgroup' />
213 <input type='hidden' name='ipgroup' value='$outgrpsettings{'ipgroup'}' />
214 <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
224 ############################################################################################################################
225 ############################################################################################################################
227 my @macgroups = qx(ls
$configpath/macgroups/);
228 if ($outgrpsettings{'macgroup'} eq "none" and $#macgroups >= 0 ){ $outgrpsettings{'macgroup'} = $macgroups[0];}
230 my $macgroupcontent = `cat $configpath/macgroups/$outgrpsettings{'macgroup'} 2>/dev/null`;
231 $macgroupcontent =~ s/\n/<br \/>/g
;
233 &Header
::openbox
('100%', 'center', $Lang::tr
{'outgoing firewall mac groups'});
236 <a name="outgoing showmacgroup"></a>
238 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showmacgroup'>
239 <table width='95%' cellspacing='0'>
241 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall mac groups'}</b></td>
244 <td colspan='3' align='left'><br /></td>
247 <td align='left' colspan='2'><select name='macgroup' style="width: 200px">
250 foreach my $member (@macgroups) {chomp $member;print" <option value='$member' $selected{'macgroup'}{$member}>$member</option>\n";}
254 <input type='hidden' name='ACTION' value='showmacgroup' />
255 <input type='image' alt='$Lang::tr{'outgoing firewall view group'}' title='$Lang::tr{'outgoing firewall view group'}' src='/images/format-justify-fill.png' />
259 <td colspan='3' align='left'><br /></td>
262 <td colspan='3' align='left'><font size=1>$macgroupcontent</font></td>
265 <td colspan='3' align='left'><br /></td>
268 <td colspan='3' align='center'><font size=1>$Lang::tr{'outgoing firewall mac groups'} - $outgrpsettings{'macgroup'}</font></td>
272 <table width='10%' cellspacing='0'>
275 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
276 <input type='hidden' name='ACTION' value='editmacgroup' />
277 <input type='hidden' name='macgroup' value='$outgrpsettings{'macgroup'}' />
278 <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
282 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
283 <input type='hidden' name='ACTION' value='newmacgroup' />
284 <input type='image' alt='$Lang::tr{'new'}' title='$Lang::tr{'new'}' src='/images/list-add.png' />
288 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
289 <input type='hidden' name='ACTION' value='savemacgroup' />
290 <input type='hidden' name='macgroup' value='$outgrpsettings{'macgroup'}' />
291 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
295 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
296 <input type='hidden' name='ACTION' value='deletemacgroup' />
297 <input type='hidden' name='macgroup' value='$outgrpsettings{'macgroup'}' />
298 <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
308 &Header
::closebigbox
();
309 &Header
::closepage
();
312 ############################################################################################################################
313 ############################################################################################################################
318 &Header
::openbox
('100%', 'center', $Lang::tr
{'outgoing firewall add ip group'});
321 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showipgroup'>
322 <table width='95%' cellspacing='0'>
324 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall add ip group'}</b></td>
327 <td colspan='3' align='left'><br /></td>
330 <td align='left' colspan='2'>
331 <input type='text' name='ipgroup' value='newipgroup' size="30" />
334 <input type='hidden' name='ACTION' value='addipgroup' />
335 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
339 <td align='left' colspan='3'>
340 <textarea name="ipgroupcontent" cols="40" rows="5" Wrap="off">192.168.1.0/24\n192.168.3.0/255.255.255.0\n192.168.0.1\n192.168.0.2\n</textarea>
348 &Header
::closebigbox
();
349 &Header
::closepage
();
355 my $ipgroupcontent = `cat $configpath/ipgroups/$outgrpsettings{'ipgroup'} 2>/dev/null`;
357 &Header
::openbox
('100%', 'center', $Lang::tr
{'outgoing firewall edit ip group'});
360 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
361 <table width='95%' cellspacing='0'>
363 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall edit ip group'}</b></td>
366 <td colspan='3' align='left'><br /></td>
369 <td align='left' colspan='2'>
370 <input type='text' name='ipgroup' value='$outgrpsettings{'ipgroup'}' size='30' readonly style='color:$color{'color20'}'/>
373 <input type='hidden' name='ACTION' value='addipgroup' />
374 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
378 <td align='left' colspan='3'>
379 <textarea name="ipgroupcontent" cols="40" rows="5" Wrap="off">$ipgroupcontent</textarea>
387 &Header
::closebigbox
();
388 &Header
::closepage
();
394 &Header
::openbox
('100%', 'center', $Lang::tr
{'outgoing firewall add mac group'});
397 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showmacgroup'>
398 <table width='95%' cellspacing='0'>
400 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall add mac group'}</b></td>
403 <td colspan='3' align='left'><br /></td>
406 <td align='left' colspan='2'>
407 <input type='text' name='macgroup' value='newmacgroup' size="30" />
410 <input type='hidden' name='ACTION' value='addmacgroup' />
411 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
415 <td align='left' colspan='3'>
416 <textarea name="macgroupcontent" cols="20" rows="5" Wrap="off">00:24:F6:04:5F:2b\n14:26:36:5A:5F:2B\n</textarea>
424 &Header
::closebigbox
();
425 &Header
::closepage
();
431 my $macgroupcontent = `cat $configpath/macgroups/$outgrpsettings{'macgroup'} 2>/dev/null`;
433 &Header
::openbox
('100%', 'center', $Lang::tr
{'outgoing firewall edit mac group'});
436 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing editmacgroup'>
437 <table width='95%' cellspacing='0'>
439 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall edit mac group'}</b></td>
442 <td colspan='3' align='left'><br /></td>
445 <td align='left' colspan='2'>
446 <input type='text' name='macgroup' value='$outgrpsettings{'macgroup'}' size='30' readonly style='color:$color{'color20'}'/>
449 <input type='hidden' name='ACTION' value='addmacgroup' />
450 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
454 <td align='left' colspan='3'>
455 <textarea name="macgroupcontent" cols="20" rows="5" Wrap="off">$macgroupcontent</textarea>
463 &Header
::closebigbox
();
464 &Header
::closepage
();