Added the ability to edit existing firewall groups and persist changes.
[people/pmueller/ipfire-2.x.git] / html / cgi-bin / outgoinggrp.cgi
CommitLineData
fdeaa057
CS
1#!/usr/bin/perl
2###############################################################################
3# #
4# IPFire.org - A linux based firewall #
75842d01 5# Copyright (C) 2005-2010 IPFire Team #
fdeaa057
CS
6# #
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. #
11# #
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. #
16# #
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/>. #
19# #
20###############################################################################
21
22use strict;
23# enable only the following on debugging purpose
24#use warnings;
25#use CGI::Carp 'fatalsToBrowser';
26
27require '/var/ipfire/general-functions.pl';
28require "${General::swroot}/lang.pl";
29require "${General::swroot}/header.pl";
30
31my %outgrpsettings = ();
32my %netsettings = ();
33my %selected= () ;
34my $errormessage = "";
35
36my $configpath = "/var/ipfire/outgoing/groups/";
37my $servicefile = "/var/ipfire/outgoing/defaultservices";
38
39my %color = ();
40my %mainsettings = ();
41&General::readhash("${General::swroot}/main/settings", \%mainsettings);
42&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
43
44&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
45
46&Header::showhttpheaders();
47
48### Values that have to be initialized
49$outgrpsettings{'ACTION'} = '';
50$outgrpsettings{'ipgroup'} = 'none';
d9716b06 51$outgrpsettings{'macgroup'} = 'none';
fdeaa057
CS
52
53&Header::getcgihash(\%outgrpsettings);
54delete $outgrpsettings{'__CGI__'};delete $outgrpsettings{'x'};delete $outgrpsettings{'y'};
55
56$selected{'ipgroup'}{$outgrpsettings{'ipgroup'}} = "selected='selected'";
d9716b06 57$selected{'macgroup'}{$outgrpsettings{'macgroup'}} = "selected='selected'";
fdeaa057
CS
58
59&Header::openpage($Lang::tr{'outgoing firewall groups'}, 1, '');
60&Header::openbigbox('100%', 'left', '', $errormessage);
61
62###############
63# DEBUG DEBUG
64# &Header::openbox('100%', 'left', 'DEBUG');
65# my $debugCount = 0;
66# foreach my $line (sort keys %outgrpsettings) {
67# print "$line = $outgrpsettings{$line}<br />\n";
4c700de4 68# $debugCount++;
fdeaa057 69# }
4c700de4 70# print "Count: $debugCount\n";
fdeaa057
CS
71# &Header::closebox();
72# DEBUG DEBUG
73###############
74
75############################################################################################################################
76############################################################################################################################
77
fdeaa057
CS
78if ($outgrpsettings{'ACTION'} eq 'newipgroup')
79{
80 &newipgroup();
4c700de4
CS
81}elsif ($outgrpsettings{'ACTION'} eq 'editipgroup')
82{
83 &editipgroup();
fdeaa057
CS
84} elsif ($outgrpsettings{'ACTION'} eq 'deleteipgroup' ) {
85 unlink("$configpath/ipgroups/$outgrpsettings{'ipgroup'}");
86} elsif ($outgrpsettings{'ACTION'} eq 'addipgroup') {
d9716b06
CS
87
88 if ( -e "$configpath/macgroups/$outgrpsettings{'ipgroup'}" ){
89 $errormessage = "$Lang::tr{'outgoing firewall group error'}";
bd4ea3c2
CS
90 } elsif ( $outgrpsettings{'ipgroup'} eq "all" || $outgrpsettings{'ipgroup'} eq "red" || $outgrpsettings{'ipgroup'} eq "blue" ||
91 $outgrpsettings{'ipgroup'} eq "green" || $outgrpsettings{'ipgroup'} eq "orange" || $outgrpsettings{'ipgroup'} eq "ip" ||
92 $outgrpsettings{'ipgroup'} eq "mac" || $outgrpsettings{'ipgroup'} eq "ovpn" || $outgrpsettings{'ipgroup'} eq "ipsec" ) {
93 $errormessage = "$Lang::tr{'outgoing firewall reserved groupname'}";
d9716b06
CS
94 } else {
95 open (FILE, ">$configpath/ipgroups/$outgrpsettings{'ipgroup'}") or die "Can't save $outgrpsettings{'ipgroup'} settings $!";
4c700de4 96 $outgrpsettings{'ipgroupcontent'} =~ s/\s*$//;
d9716b06
CS
97 flock (FILE, 2);
98 print FILE $outgrpsettings{'ipgroupcontent'}."\n";
99 close FILE;
100 }
101}
102
103if ($outgrpsettings{'ACTION'} eq 'newmacgroup')
104{
105 &newmacgroup();
4c700de4
CS
106}elsif ($outgrpsettings{'ACTION'} eq 'editmacgroup')
107{
108 &editmacgroup();
109}elsif ($outgrpsettings{'ACTION'} eq 'deletemacgroup' ) {
d9716b06
CS
110 unlink("$configpath/macgroups/$outgrpsettings{'macgroup'}");
111} elsif ($outgrpsettings{'ACTION'} eq 'addmacgroup') {
112
113 if ( -e "$configpath/ipgroups/$outgrpsettings{'macgroup'}" ){
114 $errormessage = "$Lang::tr{'outgoing firewall group error'}";
bd4ea3c2
CS
115 } elsif ( $outgrpsettings{'macgroup'} eq "all" || $outgrpsettings{'macgroup'} eq "red" || $outgrpsettings{'macgroup'} eq "blue" ||
116 $outgrpsettings{'macgroup'} eq "green" || $outgrpsettings{'macgroup'} eq "orange" || $outgrpsettings{'macgroup'} eq "ip" ||
117 $outgrpsettings{'macgroup'} eq "mac" || $outgrpsettings{'macgroup'} eq "ovpn" || $outgrpsettings{'macgroup'} eq "ipsec" ) {
118 $errormessage = "$Lang::tr{'outgoing firewall reserved groupname'}";
d9716b06
CS
119 } else {
120 open (FILE, ">$configpath/macgroups/$outgrpsettings{'macgroup'}") or die "Can't save $outgrpsettings{'macgroup'} settings $!";
4c700de4 121 $outgrpsettings{'macgroupcontent'} =~ s/\s*$//;
d9716b06
CS
122 flock (FILE, 2);
123 print FILE $outgrpsettings{'macgroupcontent'}."\n";
124 close FILE;
125 }
126}
127
128if ($errormessage)
129{
130 &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
131 print "<class name='base'><font color=red>$errormessage\n</font>";
132 print "&nbsp;</class>\n";
133 &Header::closebox();
fdeaa057
CS
134}
135
136############################################################################################################################
137############################################################################################################################
138
139my @ipgroups = qx(ls $configpath/ipgroups/);
140if ($outgrpsettings{'ipgroup'} eq "none" and $#ipgroups >= 0 ){ $outgrpsettings{'ipgroup'} = $ipgroups[0];}
141
142my $ipgroupcontent = `cat $configpath/ipgroups/$outgrpsettings{'ipgroup'} 2>/dev/null`;
143$ipgroupcontent =~ s/\n/<br \/>/g;
144
145&Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall ip groups'});
146
147print <<END
1fdebd80 148<a name="outgoing showipgroup"></a>
fdeaa057
CS
149<br />
150<form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showipgroup'>
151<table width='95%' cellspacing='0'>
152 <tr>
153 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall ip groups'}</b></td>
154 </tr>
155 <tr>
156 <td colspan='3' align='left'><br /></td>
157 </tr>
158 <tr>
159 <td align='left' colspan='2'><select name='ipgroup' style="width: 200px">
160END
161;
162foreach my $member (@ipgroups) {chomp $member;print" <option value='$member' $selected{'ipgroup'}{$member}>$member</option>\n";}
163print <<END
164 </select></td>
165 <td align='left'>
166 <input type='hidden' name='ACTION' value='showipgroup' />
167 <input type='image' alt='$Lang::tr{'outgoing firewall view group'}' title='$Lang::tr{'outgoing firewall view group'}' src='/images/format-justify-fill.png' />
168 </td>
169 </tr>
170 <tr>
171 <td colspan='3' align='left'><br /></td>
172 </tr>
173 <tr>
174 <td colspan='3' align='left'><font size=1>$ipgroupcontent</font></td>
175 </tr>
176 <tr>
177 <td colspan='3' align='left'><br /></td>
178 </tr>
179 <tr>
180 <td colspan='3' align='center'><font size=1>$Lang::tr{'outgoing firewall ip groups'} - $outgrpsettings{'ipgroup'}</font></td>
181 </tr>
182</table>
183</form>
184<table width='10%' cellspacing='0'>
185<tr>
186 <td align='center'>
4c700de4
CS
187 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
188 <input type='hidden' name='ACTION' value='editipgroup' />
189 <input type='hidden' name='ipgroup' value='$outgrpsettings{'ipgroup'}' />
190 <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
191 </form>
192 </td>
193 <td align='center'>
194 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
fdeaa057
CS
195 <input type='hidden' name='ACTION' value='newipgroup' />
196 <input type='image' alt='$Lang::tr{'new'}' title='$Lang::tr{'new'}' src='/images/list-add.png' />
197 </form>
198 </td>
199 <td align='center'>
4c700de4 200 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
fdeaa057
CS
201 <input type='hidden' name='ACTION' value='saveipgroup' />
202 <input type='hidden' name='ipgroup' value='$outgrpsettings{'ipgroup'}' />
203 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
204 </form>
205 </td>
206 <td align='center'>
4c700de4 207 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
fdeaa057
CS
208 <input type='hidden' name='ACTION' value='deleteipgroup' />
209 <input type='hidden' name='ipgroup' value='$outgrpsettings{'ipgroup'}' />
210 <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
211 </form>
212 </td>
213</tr>
214</table>
215
216END
217;
218&Header::closebox();
219
d9716b06
CS
220############################################################################################################################
221############################################################################################################################
222
223my @macgroups = qx(ls $configpath/macgroups/);
224if ($outgrpsettings{'macgroup'} eq "none" and $#macgroups >= 0 ){ $outgrpsettings{'macgroup'} = $macgroups[0];}
225
226my $macgroupcontent = `cat $configpath/macgroups/$outgrpsettings{'macgroup'} 2>/dev/null`;
227$macgroupcontent =~ s/\n/<br \/>/g;
228
229&Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall mac groups'});
230
231print <<END
1fdebd80 232<a name="outgoing showmacgroup"></a>
d9716b06
CS
233<br />
234<form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showmacgroup'>
235<table width='95%' cellspacing='0'>
236 <tr>
237 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall mac groups'}</b></td>
238 </tr>
239 <tr>
240 <td colspan='3' align='left'><br /></td>
241 </tr>
242 <tr>
243 <td align='left' colspan='2'><select name='macgroup' style="width: 200px">
244END
245;
246foreach my $member (@macgroups) {chomp $member;print" <option value='$member' $selected{'macgroup'}{$member}>$member</option>\n";}
247print <<END
248 </select></td>
249 <td align='left'>
250 <input type='hidden' name='ACTION' value='showmacgroup' />
251 <input type='image' alt='$Lang::tr{'outgoing firewall view group'}' title='$Lang::tr{'outgoing firewall view group'}' src='/images/format-justify-fill.png' />
252 </td>
253 </tr>
254 <tr>
255 <td colspan='3' align='left'><br /></td>
256 </tr>
257 <tr>
258 <td colspan='3' align='left'><font size=1>$macgroupcontent</font></td>
259 </tr>
260 <tr>
261 <td colspan='3' align='left'><br /></td>
262 </tr>
263 <tr>
264 <td colspan='3' align='center'><font size=1>$Lang::tr{'outgoing firewall mac groups'} - $outgrpsettings{'macgroup'}</font></td>
265 </tr>
266</table>
267</form>
268<table width='10%' cellspacing='0'>
269<tr>
270 <td align='center'>
4c700de4
CS
271 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
272 <input type='hidden' name='ACTION' value='editmacgroup' />
273 <input type='hidden' name='macgroup' value='$outgrpsettings{'macgroup'}' />
274 <input type='image' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' src='/images/edit.gif' />
275 </form>
276 </td>
277 <td align='center'>
278 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
d9716b06
CS
279 <input type='hidden' name='ACTION' value='newmacgroup' />
280 <input type='image' alt='$Lang::tr{'new'}' title='$Lang::tr{'new'}' src='/images/list-add.png' />
281 </form>
282 </td>
283 <td align='center'>
4c700de4 284 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
d9716b06
CS
285 <input type='hidden' name='ACTION' value='savemacgroup' />
286 <input type='hidden' name='macgroup' value='$outgrpsettings{'macgroup'}' />
287 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
288 </form>
289 </td>
290 <td align='center'>
4c700de4 291 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
d9716b06
CS
292 <input type='hidden' name='ACTION' value='deletemacgroup' />
293 <input type='hidden' name='macgroup' value='$outgrpsettings{'macgroup'}' />
294 <input type='image' alt='$Lang::tr{'delete'}' title='$Lang::tr{'delete'}' src='/images/user-trash.png' />
295 </form>
296 </td>
297</tr>
298</table>
299
300END
301;
302&Header::closebox();
303
fdeaa057
CS
304&Header::closebigbox();
305&Header::closepage();
306
d9716b06
CS
307
308############################################################################################################################
309############################################################################################################################
310
311
fdeaa057
CS
312sub newipgroup
313{
314 &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall add ip group'});
315
316print <<END
317 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showipgroup'>
318 <table width='95%' cellspacing='0'>
319 <tr>
320 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall add ip group'}</b></td>
321 </tr>
322 <tr>
323 <td colspan='3' align='left'><br /></td>
324 </tr>
325 <tr>
326 <td align='left' colspan='2'>
4c700de4 327 <input type='text' name='ipgroup' value='newipgroup' size="30" />
fdeaa057
CS
328 </td>
329 <td align='left'>
330 <input type='hidden' name='ACTION' value='addipgroup' />
331 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
332 </td>
333 </tr>
334 <tr>
335 <td align='left' colspan='3'>
4c700de4
CS
336 <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>
337 </td>
338 </tr>
339 </table>
340 </form>
341END
342;
343 &Header::closebox();
344 &Header::closebigbox();
345 &Header::closepage();
346 exit 0;
347}
348
349sub editipgroup
350{
351my $ipgroupcontent = `cat $configpath/ipgroups/$outgrpsettings{'ipgroup'} 2>/dev/null`;
352
353 &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall edit ip group'});
354
355print <<END
356 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
357 <table width='95%' cellspacing='0'>
358 <tr>
359 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall edit ip group'}</b></td>
360 </tr>
361 <tr>
362 <td colspan='3' align='left'><br /></td>
363 </tr>
364 <tr>
365 <td align='left' colspan='2'>
366 <input type='text' name='ipgroup' value='$outgrpsettings{'ipgroup'}' size='30' readonly style='color:$color{'color20'}'/>
367 </td>
368 <td align='left'>
369 <input type='hidden' name='ACTION' value='addipgroup' />
370 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
371 </td>
372 </tr>
373 <tr>
374 <td align='left' colspan='3'>
375 <textarea name="ipgroupcontent" cols="40" rows="5" Wrap="off">$ipgroupcontent</textarea>
fdeaa057
CS
376 </td>
377 </tr>
378 </table>
379 </form>
380END
381;
382 &Header::closebox();
383 &Header::closebigbox();
384 &Header::closepage();
385 exit 0;
d47236e0 386}
d9716b06
CS
387
388sub newmacgroup
389{
390 &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall add mac group'});
391
392print <<END
393 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showmacgroup'>
394 <table width='95%' cellspacing='0'>
395 <tr>
396 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall add mac group'}</b></td>
397 </tr>
398 <tr>
399 <td colspan='3' align='left'><br /></td>
400 </tr>
401 <tr>
402 <td align='left' colspan='2'>
4c700de4 403 <input type='text' name='macgroup' value='newmacgroup' size="30" />
d9716b06
CS
404 </td>
405 <td align='left'>
406 <input type='hidden' name='ACTION' value='addmacgroup' />
407 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
408 </td>
409 </tr>
410 <tr>
411 <td align='left' colspan='3'>
412 <textarea name="macgroupcontent" cols="20" rows="5" Wrap="off">00:24:F6:04:5F:2b\n14:26:36:5A:5F:2B\n</textarea>
413 </td>
414 </tr>
415 </table>
416 </form>
417END
418;
419 &Header::closebox();
420 &Header::closebigbox();
421 &Header::closepage();
422 exit 0;
4c700de4
CS
423}
424
425sub editmacgroup
426{
427my $macgroupcontent = `cat $configpath/macgroups/$outgrpsettings{'macgroup'} 2>/dev/null`;
428
429 &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall edit mac group'});
430
431print <<END
432 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing editmacgroup'>
433 <table width='95%' cellspacing='0'>
434 <tr>
435 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall edit mac group'}</b></td>
436 </tr>
437 <tr>
438 <td colspan='3' align='left'><br /></td>
439 </tr>
440 <tr>
441 <td align='left' colspan='2'>
442 <input type='text' name='macgroup' value='$outgrpsettings{'macgroup'}' size='30' readonly style='color:$color{'color20'}'/>
443 </td>
444 <td align='left'>
445 <input type='hidden' name='ACTION' value='addmacgroup' />
446 <input type='image' alt='$Lang::tr{'save'}' title='$Lang::tr{'save'}' src='/images/media-floppy.png' />
447 </td>
448 </tr>
449 <tr>
450 <td align='left' colspan='3'>
451 <textarea name="macgroupcontent" cols="20" rows="5" Wrap="off">$macgroupcontent</textarea>
452 </td>
453 </tr>
454 </table>
455 </form>
456END
457;
458 &Header::closebox();
459 &Header::closebigbox();
460 &Header::closepage();
461 exit 0;
462}