]> git.ipfire.org Git - people/teissler/ipfire-2.x.git/blame - html/cgi-bin/outgoinggrp.cgi
projects / people / teissler / ipfire-2.x.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Nginx: fixes for rootfile.
[people/teissler/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'}";
4912df2f
CS		 90 } elsif ( $outgrpsettings{'ipgroup'} =~ /\W/ ){
91 $errormessage = $Lang::tr{'name must only contain characters'}." - ".$outgrpsettings{'ipgroup'};
bd4ea3c2
CS		 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'}";
d9716b06
CS		 96 } else {
97 open (FILE, ">$configpath/ipgroups/$outgrpsettings{'ipgroup'}") or die "Can't save $outgrpsettings{'ipgroup'} settings $!";
4c700de4 98 $outgrpsettings{'ipgroupcontent'} =~ s/\s*$//;
d9716b06
CS		 99 flock (FILE, 2);
100 print FILE $outgrpsettings{'ipgroupcontent'}."\n";
101 close FILE;
102 }
103}
104
105if ($outgrpsettings{'ACTION'} eq 'newmacgroup')
106{
107 &newmacgroup();
4c700de4
CS		 108}elsif ($outgrpsettings{'ACTION'} eq 'editmacgroup')
109{
110 &editmacgroup();
111}elsif ($outgrpsettings{'ACTION'} eq 'deletemacgroup' ) {
d9716b06
CS		 112 unlink("$configpath/macgroups/$outgrpsettings{'macgroup'}");
113} elsif ($outgrpsettings{'ACTION'} eq 'addmacgroup') {
114
115 if ( -e "$configpath/ipgroups/$outgrpsettings{'macgroup'}" ){
116 $errormessage = "$Lang::tr{'outgoing firewall group error'}";
4912df2f
CS		 117 } elsif ( $outgrpsettings{'macgroup'} =~ /\W/ ){
118 $errormessage = $Lang::tr{'name must only contain characters'}." - ".$outgrpsettings{'macgroup'};
bd4ea3c2
CS		 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'}";
d9716b06
CS		 123 } else {
124 open (FILE, ">$configpath/macgroups/$outgrpsettings{'macgroup'}") or die "Can't save $outgrpsettings{'macgroup'} settings $!";
4c700de4 125 $outgrpsettings{'macgroupcontent'} =~ s/\s*$//;
d9716b06
CS		 126 flock (FILE, 2);
127 print FILE $outgrpsettings{'macgroupcontent'}."\n";
128 close FILE;
129 }
130}
131
132if ($errormessage)
133{
134 &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
135 print "<class name='base'><font color=red>$errormessage\n</font>";
136 print "&nbsp;</class>\n";
137 &Header::closebox();
fdeaa057
CS		 138}
139
140############################################################################################################################
141############################################################################################################################
142
143my @ipgroups = qx(ls $configpath/ipgroups/);
144if ($outgrpsettings{'ipgroup'} eq "none" and $#ipgroups >= 0 ){ $outgrpsettings{'ipgroup'} = $ipgroups[0];}
145
146my $ipgroupcontent = `cat $configpath/ipgroups/$outgrpsettings{'ipgroup'} 2>/dev/null`;
147$ipgroupcontent =~ s/\n/<br \/>/g;
148
149&Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall ip groups'});
150
151print <<END
1fdebd80 152<a name="outgoing showipgroup"></a>
fdeaa057
CS		 153<br />
154<form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showipgroup'>
155<table width='95%' cellspacing='0'>
156 <tr>
157 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall ip groups'}</b></td>
158 </tr>
159 <tr>
160 <td colspan='3' align='left'><br /></td>
161 </tr>
162 <tr>
163 <td align='left' colspan='2'><select name='ipgroup' style="width: 200px">
164END
165;
166foreach my $member (@ipgroups) {chomp $member;print" <option value='$member' $selected{'ipgroup'}{$member}>$member</option>\n";}
167print <<END
168 </select></td>
169 <td align='left'>
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' />
172 </td>
173 </tr>
174 <tr>
175 <td colspan='3' align='left'><br /></td>
176 </tr>
177 <tr>
178 <td colspan='3' align='left'><font size=1>$ipgroupcontent</font></td>
179 </tr>
180 <tr>
181 <td colspan='3' align='left'><br /></td>
182 </tr>
183 <tr>
184 <td colspan='3' align='center'><font size=1>$Lang::tr{'outgoing firewall ip groups'} - $outgrpsettings{'ipgroup'}</font></td>
185 </tr>
186</table>
187</form>
188<table width='10%' cellspacing='0'>
189<tr>
190 <td align='center'>
4c700de4
CS		 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' />
195 </form>
196 </td>
197 <td align='center'>
198 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
fdeaa057
CS		 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' />
201 </form>
202 </td>
203 <td align='center'>
4c700de4 204 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
fdeaa057
CS		 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' />
208 </form>
209 </td>
210 <td align='center'>
4c700de4 211 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
fdeaa057
CS		 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' />
215 </form>
216 </td>
217</tr>
218</table>
219
220END
221;
222&Header::closebox();
223
d9716b06
CS		 224############################################################################################################################
225############################################################################################################################
226
227my @macgroups = qx(ls $configpath/macgroups/);
228if ($outgrpsettings{'macgroup'} eq "none" and $#macgroups >= 0 ){ $outgrpsettings{'macgroup'} = $macgroups[0];}
229
230my $macgroupcontent = `cat $configpath/macgroups/$outgrpsettings{'macgroup'} 2>/dev/null`;
231$macgroupcontent =~ s/\n/<br \/>/g;
232
233&Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall mac groups'});
234
235print <<END
1fdebd80 236<a name="outgoing showmacgroup"></a>
d9716b06
CS		 237<br />
238<form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showmacgroup'>
239<table width='95%' cellspacing='0'>
240 <tr>
241 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall mac groups'}</b></td>
242 </tr>
243 <tr>
244 <td colspan='3' align='left'><br /></td>
245 </tr>
246 <tr>
247 <td align='left' colspan='2'><select name='macgroup' style="width: 200px">
248END
249;
250foreach my $member (@macgroups) {chomp $member;print" <option value='$member' $selected{'macgroup'}{$member}>$member</option>\n";}
251print <<END
252 </select></td>
253 <td align='left'>
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' />
256 </td>
257 </tr>
258 <tr>
259 <td colspan='3' align='left'><br /></td>
260 </tr>
261 <tr>
262 <td colspan='3' align='left'><font size=1>$macgroupcontent</font></td>
263 </tr>
264 <tr>
265 <td colspan='3' align='left'><br /></td>
266 </tr>
267 <tr>
268 <td colspan='3' align='center'><font size=1>$Lang::tr{'outgoing firewall mac groups'} - $outgrpsettings{'macgroup'}</font></td>
269 </tr>
270</table>
271</form>
272<table width='10%' cellspacing='0'>
273<tr>
274 <td align='center'>
4c700de4
CS		 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' />
279 </form>
280 </td>
281 <td align='center'>
282 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
d9716b06
CS		 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' />
285 </form>
286 </td>
287 <td align='center'>
4c700de4 288 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
d9716b06
CS		 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' />
292 </form>
293 </td>
294 <td align='center'>
4c700de4 295 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
d9716b06
CS		 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' />
299 </form>
300 </td>
301</tr>
302</table>
303
304END
305;
306&Header::closebox();
307
fdeaa057
CS		 308&Header::closebigbox();
309&Header::closepage();
310
d9716b06
CS		 311
312############################################################################################################################
313############################################################################################################################
314
315
fdeaa057
CS		 316sub newipgroup
317{
318 &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall add ip group'});
319
320print <<END
321 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showipgroup'>
322 <table width='95%' cellspacing='0'>
323 <tr>
324 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall add ip group'}</b></td>
325 </tr>
326 <tr>
327 <td colspan='3' align='left'><br /></td>
328 </tr>
329 <tr>
330 <td align='left' colspan='2'>
4c700de4 331 <input type='text' name='ipgroup' value='newipgroup' size="30" />
fdeaa057
CS		 332 </td>
333 <td align='left'>
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' />
336 </td>
337 </tr>
338 <tr>
339 <td align='left' colspan='3'>
4c700de4
CS		 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>
341 </td>
342 </tr>
343 </table>
344 </form>
345END
346;
347 &Header::closebox();
348 &Header::closebigbox();
349 &Header::closepage();
350 exit 0;
351}
352
353sub editipgroup
354{
355my $ipgroupcontent = `cat $configpath/ipgroups/$outgrpsettings{'ipgroup'} 2>/dev/null`;
356
357 &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall edit ip group'});
358
359print <<END
360 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
361 <table width='95%' cellspacing='0'>
362 <tr>
363 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall edit ip group'}</b></td>
364 </tr>
365 <tr>
366 <td colspan='3' align='left'><br /></td>
367 </tr>
368 <tr>
369 <td align='left' colspan='2'>
370 <input type='text' name='ipgroup' value='$outgrpsettings{'ipgroup'}' size='30' readonly style='color:$color{'color20'}'/>
371 </td>
372 <td align='left'>
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' />
375 </td>
376 </tr>
377 <tr>
378 <td align='left' colspan='3'>
379 <textarea name="ipgroupcontent" cols="40" rows="5" Wrap="off">$ipgroupcontent</textarea>
fdeaa057
CS		 380 </td>
381 </tr>
382 </table>
383 </form>
384END
385;
386 &Header::closebox();
387 &Header::closebigbox();
388 &Header::closepage();
389 exit 0;
d47236e0 390}
d9716b06
CS		 391
392sub newmacgroup
393{
394 &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall add mac group'});
395
396print <<END
397 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing showmacgroup'>
398 <table width='95%' cellspacing='0'>
399 <tr>
400 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall add mac group'}</b></td>
401 </tr>
402 <tr>
403 <td colspan='3' align='left'><br /></td>
404 </tr>
405 <tr>
406 <td align='left' colspan='2'>
4c700de4 407 <input type='text' name='macgroup' value='newmacgroup' size="30" />
d9716b06
CS		 408 </td>
409 <td align='left'>
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' />
412 </td>
413 </tr>
414 <tr>
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>
417 </td>
418 </tr>
419 </table>
420 </form>
421END
422;
423 &Header::closebox();
424 &Header::closebigbox();
425 &Header::closepage();
426 exit 0;
4c700de4
CS		 427}
428
429sub editmacgroup
430{
431my $macgroupcontent = `cat $configpath/macgroups/$outgrpsettings{'macgroup'} 2>/dev/null`;
432
433 &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall edit mac group'});
434
435print <<END
436 <form method='post' action='$ENV{'SCRIPT_NAME'}#outgoing editmacgroup'>
437 <table width='95%' cellspacing='0'>
438 <tr>
439 <td bgcolor='$color{'color20'}' colspan='3' align='left'><b>$Lang::tr{'outgoing firewall edit mac group'}</b></td>
440 </tr>
441 <tr>
442 <td colspan='3' align='left'><br /></td>
443 </tr>
444 <tr>
445 <td align='left' colspan='2'>
446 <input type='text' name='macgroup' value='$outgrpsettings{'macgroup'}' size='30' readonly style='color:$color{'color20'}'/>
447 </td>
448 <td align='left'>
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' />
451 </td>
452 </tr>
453 <tr>
454 <td align='left' colspan='3'>
455 <textarea name="macgroupcontent" cols="20" rows="5" Wrap="off">$macgroupcontent</textarea>
456 </td>
457 </tr>
458 </table>
459 </form>
460END
461;
462 &Header::closebox();
463 &Header::closebigbox();
464 &Header::closepage();
465 exit 0;
466}
Timo's tree of IPFire 2.x