html/cgi-bin/outgoinggrp.cgi

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2005-2010  IPFire Team                                        #
   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
  22 use strict;
  23 # enable only the following on debugging purpose
  24 #use warnings;
  25 #use CGI::Carp 'fatalsToBrowser';
  26
  27 require '/var/ipfire/general-functions.pl';
  28 require "${General::swroot}/lang.pl";
  29 require "${General::swroot}/header.pl";
  30
  31 my %outgrpsettings = ();
  32 my %netsettings = ();
  33 my %selected= () ;
  34 my $errormessage = "";
  35
  36 my $configpath = "/var/ipfire/outgoing/groups/";
  37 my $servicefile = "/var/ipfire/outgoing/defaultservices";
  38
  39 my %color = ();
  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);
  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';
  51 $outgrpsettings{'macgroup'} = 'none';
  52
  53 &Header::getcgihash(\%outgrpsettings);
  54 delete $outgrpsettings{'__CGI__'};delete $outgrpsettings{'x'};delete $outgrpsettings{'y'};
  55
  56 $selected{'ipgroup'}{$outgrpsettings{'ipgroup'}} = "selected='selected'";
  57 $selected{'macgroup'}{$outgrpsettings{'macgroup'}} = "selected='selected'";
  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";
  68 # $debugCount++;
  69 # }
  70 # print "Count: $debugCount\n";
  71 # &Header::closebox();
  72 # DEBUG DEBUG
  73 ###############
  74
  75 ############################################################################################################################
  76 ############################################################################################################################
  77
  78 if ($outgrpsettings{'ACTION'} eq 'newipgroup')
  79 {
  80         &newipgroup();
  81 }elsif ($outgrpsettings{'ACTION'} eq 'editipgroup')
  82 {
  83         &editipgroup();
  84 } elsif ($outgrpsettings{'ACTION'} eq 'deleteipgroup' ) {
  85         unlink("$configpath/ipgroups/$outgrpsettings{'ipgroup'}");
  86 } elsif ($outgrpsettings{'ACTION'} eq 'addipgroup') {
  87
  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'}";
  96         } else {
  97                 open (FILE, ">$configpath/ipgroups/$outgrpsettings{'ipgroup'}") or die "Can't save $outgrpsettings{'ipgroup'} settings $!";
  98                 $outgrpsettings{'ipgroupcontent'} =~ s/\s*$//;
  99                 flock (FILE, 2);
 100                 print FILE $outgrpsettings{'ipgroupcontent'}."\n";
 101                 close FILE;
 102         }
 103 }
 104
 105 if ($outgrpsettings{'ACTION'} eq 'newmacgroup')
 106 {
 107         &newmacgroup();
 108 }elsif ($outgrpsettings{'ACTION'} eq 'editmacgroup')
 109 {
 110         &editmacgroup();
 111 }elsif ($outgrpsettings{'ACTION'} eq 'deletemacgroup' ) {
 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'}";
 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'}";
 123         } else {
 124                 open (FILE, ">$configpath/macgroups/$outgrpsettings{'macgroup'}") or die "Can't save $outgrpsettings{'macgroup'} settings $!";
 125                 $outgrpsettings{'macgroupcontent'} =~ s/\s*$//;
 126                 flock (FILE, 2);
 127                 print FILE $outgrpsettings{'macgroupcontent'}."\n";
 128                 close FILE;
 129         }
 130 }
 131
 132 if ($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();
 138 }
 139
 140 ############################################################################################################################
 141 ############################################################################################################################
 142
 143 my @ipgroups = qx(ls $configpath/ipgroups/);
 144 if ($outgrpsettings{'ipgroup'} eq "none" and $#ipgroups >= 0 ){ $outgrpsettings{'ipgroup'} = $ipgroups[0];}
 145
 146 my $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
 151 print <<END
 152 <a name="outgoing showipgroup"></a>
 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">
 164 END
 165 ;
 166 foreach my $member (@ipgroups) {chomp $member;print"                    <option value='$member' $selected{'ipgroup'}{$member}>$member</option>\n";}
 167 print <<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'>
 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'}'>
 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'>
 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' />
 208                 </form>
 209         </td>
 210         <td align='center'>
 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' />
 215                 </form>
 216         </td>
 217 </tr>
 218 </table>
 219
 220 END
 221 ;
 222 &Header::closebox();
 223
 224 ############################################################################################################################
 225 ############################################################################################################################
 226
 227 my @macgroups = qx(ls $configpath/macgroups/);
 228 if ($outgrpsettings{'macgroup'} eq "none" and $#macgroups >= 0 ){ $outgrpsettings{'macgroup'} = $macgroups[0];}
 229
 230 my $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
 235 print <<END
 236 <a name="outgoing showmacgroup"></a>
 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">
 248 END
 249 ;
 250 foreach my $member (@macgroups) {chomp $member;print"                   <option value='$member' $selected{'macgroup'}{$member}>$member</option>\n";}
 251 print <<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'>
 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'}'>
 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'>
 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' />
 292                 </form>
 293         </td>
 294         <td align='center'>
 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' />
 299                 </form>
 300         </td>
 301 </tr>
 302 </table>
 303
 304 END
 305 ;
 306 &Header::closebox();
 307
 308 &Header::closebigbox();
 309 &Header::closepage();
 310
 311
 312 ############################################################################################################################
 313 ############################################################################################################################
 314
 315
 316 sub newipgroup
 317 {
 318         &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall add ip group'});
 319
 320 print <<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'>
 331                                 <input type='text' name='ipgroup' value='newipgroup' size="30" />
 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'>
 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>
 345 END
 346 ;
 347         &Header::closebox();
 348         &Header::closebigbox();
 349         &Header::closepage();
 350         exit 0;
 351 }
 352
 353 sub editipgroup
 354 {
 355 my $ipgroupcontent = `cat $configpath/ipgroups/$outgrpsettings{'ipgroup'} 2>/dev/null`;
 356
 357         &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall edit ip group'});
 358
 359 print <<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>
 380                         </td>
 381                 </tr>
 382         </table>
 383         </form>
 384 END
 385 ;
 386         &Header::closebox();
 387         &Header::closebigbox();
 388         &Header::closepage();
 389         exit 0;
 390 }
 391
 392 sub newmacgroup
 393 {
 394         &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall add mac group'});
 395
 396 print <<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'>
 407                                 <input type='text' name='macgroup' value='newmacgroup' size="30" />
 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>
 421 END
 422 ;
 423         &Header::closebox();
 424         &Header::closebigbox();
 425         &Header::closepage();
 426         exit 0;
 427 }
 428
 429 sub editmacgroup
 430 {
 431 my $macgroupcontent = `cat $configpath/macgroups/$outgrpsettings{'macgroup'} 2>/dev/null`;
 432
 433         &Header::openbox('100%', 'center', $Lang::tr{'outgoing firewall edit mac group'});
 434
 435 print <<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>
 460 END
 461 ;
 462         &Header::closebox();
 463         &Header::closebigbox();
 464         &Header::closepage();
 465         exit 0;
 466 }