html/cgi-bin/outgoingfw.cgi

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2009  Michael Tremer & Christian Schmidt                      #
   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 %outfwsettings = ();
  32 my %checked = ();
  33 my %selected= () ;
  34 my %netsettings = ();
  35 my $errormessage = "";
  36 my $configentry = "";
  37 my @configs = ();
  38 my @configline = ();
  39 my $p2pentry = "";
  40 my @p2ps = ();
  41 my @p2pline = ();
  42
  43 my $configfile = "/var/ipfire/outgoing/rules";
  44 my $p2pfile = "/var/ipfire/outgoing/p2protocols";
  45 my $servicefile = "/var/ipfire/outgoing/defaultservices";
  46
  47 my %color = ();
  48 my %mainsettings = ();
  49 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
  50 &General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
  51
  52 &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);
  53
  54 &Header::showhttpheaders();
  55
  56 ### Values that have to be initialized
  57 $outfwsettings{'ACTION'} = '';
  58 $outfwsettings{'VALID'} = 'yes';
  59 $outfwsettings{'EDIT'} = 'no';
  60 $outfwsettings{'NAME'} = '';
  61 $outfwsettings{'SNET'} = '';
  62 $outfwsettings{'SIP'} = '';
  63 $outfwsettings{'SPORT'} = '';
  64 $outfwsettings{'SMAC'} = '';
  65 $outfwsettings{'DIP'} = '';
  66 $outfwsettings{'DPORT'} = '';
  67 $outfwsettings{'PROT'} = '';
  68 $outfwsettings{'STATE'} = '';
  69 $outfwsettings{'DISPLAY_DIP'} = '';
  70 $outfwsettings{'DISPLAY_DPORT'} = '';
  71 $outfwsettings{'DISPLAY_SMAC'} = '';
  72 $outfwsettings{'DISPLAY_SIP'} = '';
  73 $outfwsettings{'POLICY'} = 'MODE0';
  74 $outfwsettings{'MODE1LOG'} = 'off';
  75
  76 $outfwsettings{'TIME_FROM'} = '00:00';
  77 $outfwsettings{'TIME_TO'} = '00:00';
  78
  79 &General::readhash("${General::swroot}/outgoing/settings", \%outfwsettings);
  80 &Header::getcgihash(\%outfwsettings);
  81
  82 $selected{'TIME_FROM'}{$outfwsettings{'TIME_FROM'}} = "selected='selected'";
  83 $selected{'TIME_TO'}{$outfwsettings{'TIME_TO'}} = "selected='selected'";
  84
  85 $checked{'MODE1LOG'}{'off'} = '';
  86 $checked{'MODE1LOG'}{'on'} = '';
  87 $checked{'MODE1LOG'}{$outfwsettings{'MODE1LOG'}} = "checked='checked'";
  88 $checked{'TIME_MON'}{'off'} = '';
  89 $checked{'TIME_MON'}{'on'} = '';
  90 $checked{'TIME_MON'}{$outfwsettings{'TIME_MON'}} = "checked='checked'";
  91 $checked{'TIME_TUE'}{'off'} = '';
  92 $checked{'TIME_TUE'}{'on'} = '';
  93 $checked{'TIME_TUE'}{$outfwsettings{'TIME_TUE'}} = "checked='checked'";
  94 $checked{'TIME_WED'}{'off'} = '';
  95 $checked{'TIME_WED'}{'on'} = '';
  96 $checked{'TIME_WED'}{$outfwsettings{'TIME_WED'}} = "checked='checked'";
  97 $checked{'TIME_THU'}{'off'} = '';
  98 $checked{'TIME_THU'}{'on'} = '';
  99 $checked{'TIME_THU'}{$outfwsettings{'TIME_THU'}} = "checked='checked'";
 100 $checked{'TIME_FRI'}{'off'} = '';
 101 $checked{'TIME_FRI'}{'on'} = '';
 102 $checked{'TIME_FRI'}{$outfwsettings{'TIME_FRI'}} = "checked='checked'";
 103 $checked{'TIME_SAT'}{'off'} = '';
 104 $checked{'TIME_SAT'}{'on'} = '';
 105 $checked{'TIME_SAT'}{$outfwsettings{'TIME_SAT'}} = "checked='checked'";
 106 $checked{'TIME_SUN'}{'off'} = '';
 107 $checked{'TIME_SUN'}{'on'} = '';
 108 $checked{'TIME_SUN'}{$outfwsettings{'TIME_SUN'}} = "checked='checked'";
 109
 110 if ($outfwsettings{'POLICY'} eq 'MODE0'){ $selected{'POLICY'}{'MODE0'} = 'selected'; } else { $selected{'POLICY'}{'MODE0'} = ''; }
 111 if ($outfwsettings{'POLICY'} eq 'MODE1'){ $selected{'POLICY'}{'MODE1'} = 'selected'; } else { $selected{'POLICY'}{'MODE1'} = ''; }
 112 if ($outfwsettings{'POLICY'} eq 'MODE2'){ $selected{'POLICY'}{'MODE2'} = 'selected'; } else { $selected{'POLICY'}{'MODE2'} = ''; }
 113
 114 &Header::openpage('Ausgehende Firewall', 1, '');
 115 &Header::openbigbox('100%', 'left', '', $errormessage);
 116
 117 ############################################################################################################################
 118 ############################################################################################################################
 119
 120 if ($outfwsettings{'ACTION'} eq $Lang::tr{'reset'})
 121 {
 122         $outfwsettings{'POLICY'}='MODE0';
 123         unlink $configfile;
 124         system("/usr/bin/touch $configfile");
 125         my $MODE = $outfwsettings{'POLICY'};
 126         %outfwsettings = ();
 127         $outfwsettings{'POLICY'} = "$MODE";
 128         &General::writehash("${General::swroot}/outgoing/settings", \%outfwsettings);
 129 }
 130 if ($outfwsettings{'ACTION'} eq $Lang::tr{'save'})
 131 {
 132         my $MODE = $outfwsettings{'POLICY'};
 133         my $MODE1LOG = $outfwsettings{'MODE1LOG'};
 134         %outfwsettings = ();
 135         $outfwsettings{'POLICY'} = "$MODE";
 136         $outfwsettings{'MODE1LOG'} = "$MODE1LOG";
 137         &General::writehash("${General::swroot}/outgoing/settings", \%outfwsettings);
 138         system("/usr/local/bin/outgoingfwctrl");
 139 }
 140 if ($outfwsettings{'ACTION'} eq 'enable')
 141 {
 142         open( FILE, "< $p2pfile" ) or die "Unable to read $p2pfile";
 143         @p2ps = <FILE>;
 144         close FILE;
 145         open( FILE, "> $p2pfile" ) or die "Unable to write $p2pfile";
 146         foreach $p2pentry (sort @p2ps)
 147         {
 148                 @p2pline = split( /\;/, $p2pentry );
 149                 if ($p2pline[1] eq $outfwsettings{'P2PROT'}) {
 150                         print FILE "$p2pline[0];$p2pline[1];on;\n";
 151                 } else {
 152                         print FILE "$p2pline[0];$p2pline[1];$p2pline[2];\n";
 153                 }
 154         }
 155         close FILE;
 156         system("/usr/local/bin/outgoingfwctrl");
 157 }
 158 if ($outfwsettings{'ACTION'} eq 'disable')
 159 {
 160         open( FILE, "< $p2pfile" ) or die "Unable to read $p2pfile";
 161         @p2ps = <FILE>;
 162         close FILE;
 163         open( FILE, "> $p2pfile" ) or die "Unable to write $p2pfile";
 164         foreach $p2pentry (sort @p2ps)
 165         {
 166                 @p2pline = split( /\;/, $p2pentry );
 167                 if ($p2pline[1] eq $outfwsettings{'P2PROT'}) {
 168                         print FILE "$p2pline[0];$p2pline[1];off;\n";
 169                 } else {
 170                         print FILE "$p2pline[0];$p2pline[1];$p2pline[2];\n";
 171                 }
 172         }
 173         close FILE;
 174         system("/usr/local/bin/outgoingfwctrl");
 175 }
 176 if ($outfwsettings{'ACTION'} eq $Lang::tr{'edit'})
 177 {
 178         open( FILE, "< $configfile" ) or die "Unable to read $configfile";
 179         @configs = <FILE>;
 180         close FILE;
 181         open( FILE, "> $configfile" ) or die "Unable to write $configfile";
 182         foreach $configentry (sort @configs)
 183         {
 184                 @configline = split( /\;/, $configentry );
 185                 unless  (($configline[0] eq $outfwsettings{'STATE'}) &&
 186                         ($configline[1] eq $outfwsettings{'ENABLED'}) &&
 187                         ($configline[2] eq $outfwsettings{'SNET'}) &&
 188                         ($configline[3] eq $outfwsettings{'PROT'}) &&
 189                         ($configline[4] eq $outfwsettings{'NAME'}) &&
 190                         ($configline[5] eq $outfwsettings{'SIP'}) &&
 191                         ($configline[6] eq $outfwsettings{'SMAC'}) &&
 192                         ($configline[7] eq $outfwsettings{'DIP'}) &&
 193                         ($configline[9] eq $outfwsettings{'LOG'}) &&
 194                         ($configline[8] eq $outfwsettings{'DPORT'}) &&
 195                         ($configline[10] eq $outfwsettings{'TIME_MON'}) &&
 196                         ($configline[11] eq $outfwsettings{'TIME_TUE'}) &&
 197                         ($configline[12] eq $outfwsettings{'TIME_WED'}) &&
 198                         ($configline[13] eq $outfwsettings{'TIME_THU'}) &&
 199                         ($configline[14] eq $outfwsettings{'TIME_FRI'}) &&
 200                         ($configline[15] eq $outfwsettings{'TIME_SAT'}) &&
 201                         ($configline[16] eq $outfwsettings{'TIME_SUN'}) &&
 202                         ($configline[17] eq $outfwsettings{'TIME_FROM'}) &&
 203                         ($configline[18] eq $outfwsettings{'TIME_TO'}))
 204                 {
 205                         print FILE $configentry;
 206                 }
 207         }
 208         close FILE;
 209         $selected{'SNET'}{"$outfwsettings{'SNET'}"} = 'selected';
 210         $selected{'PROT'}{"$outfwsettings{'PROT'}"} = 'selected';
 211         $selected{'LOG'}{"$outfwsettings{'LOG'}"} = 'selected';
 212         &addrule();
 213         &Header::closebigbox();
 214         &Header::closepage();
 215         exit
 216   system("/usr/local/bin/outgoingfwctrl");
 217 }
 218 if ($outfwsettings{'ACTION'} eq $Lang::tr{'delete'})
 219 {
 220         open( FILE, "< $configfile" ) or die "Unable to read $configfile";
 221         @configs = <FILE>;
 222         close FILE;
 223         open( FILE, "> $configfile" ) or die "Unable to write $configfile";
 224         foreach $configentry (sort @configs)
 225         {
 226                 @configline = split( /\;/, $configentry );
 227                 unless  (($configline[0] eq $outfwsettings{'STATE'}) &&
 228                         ($configline[1] eq $outfwsettings{'ENABLED'}) &&
 229                         ($configline[2] eq $outfwsettings{'SNET'}) &&
 230                         ($configline[3] eq $outfwsettings{'PROT'}) &&
 231                         ($configline[4] eq $outfwsettings{'NAME'}) &&
 232                         ($configline[5] eq $outfwsettings{'SIP'}) &&
 233                         ($configline[6] eq $outfwsettings{'SMAC'}) &&
 234                         ($configline[7] eq $outfwsettings{'DIP'}) &&
 235                         ($configline[9] eq $outfwsettings{'LOG'}) &&
 236                         ($configline[8] eq $outfwsettings{'DPORT'}) &&
 237                         ($configline[10] eq $outfwsettings{'TIME_MON'}) &&
 238                         ($configline[11] eq $outfwsettings{'TIME_TUE'}) &&
 239                         ($configline[12] eq $outfwsettings{'TIME_WED'}) &&
 240                         ($configline[13] eq $outfwsettings{'TIME_THU'}) &&
 241                         ($configline[14] eq $outfwsettings{'TIME_FRI'}) &&
 242                         ($configline[15] eq $outfwsettings{'TIME_SAT'}) &&
 243                         ($configline[16] eq $outfwsettings{'TIME_SUN'}) &&
 244                         ($configline[17] eq $outfwsettings{'TIME_FROM'}) &&
 245                         ($configline[18] eq $outfwsettings{'TIME_TO'}))
 246                 {
 247                         print FILE $configentry;
 248                 }
 249         }
 250         close FILE;
 251         system("/usr/local/bin/outgoingfwctrl");
 252 }
 253 if ($outfwsettings{'ACTION'} eq $Lang::tr{'add'})
 254 {
 255         if ( $outfwsettings{'VALID'} eq 'yes' ) {
 256                 open( FILE, ">> $configfile" ) or die "Unable to write $configfile";
 257                 print FILE <<END
 258 $outfwsettings{'STATE'};$outfwsettings{'ENABLED'};$outfwsettings{'SNET'};$outfwsettings{'PROT'};$outfwsettings{'NAME'};$outfwsettings{'SIP'};$outfwsettings{'SMAC'};$outfwsettings{'DIP'};$outfwsettings{'DPORT'};$outfwsettings{'LOG'};$outfwsettings{'TIME_MON'};$outfwsettings{'TIME_TUE'};$outfwsettings{'TIME_WED'};$outfwsettings{'TIME_THU'};$outfwsettings{'TIME_FRI'};$outfwsettings{'TIME_SAT'};$outfwsettings{'TIME_SUN'};$outfwsettings{'TIME_FROM'};$outfwsettings{'TIME_TO'};
 259 END
 260 ;
 261                 close FILE;
 262                 system("/usr/local/bin/outgoingfwctrl");
 263         } else {
 264                 $outfwsettings{'ACTION'} = 'Add rule';
 265         }
 266 }
 267 if ($outfwsettings{'ACTION'} eq 'Add rule')
 268 {
 269         &addrule();
 270         exit
 271 }
 272
 273 &General::readhash("${General::swroot}/outgoing/settings", \%outfwsettings);
 274
 275 if ($errormessage) {
 276         &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
 277         print "<class name='base'>$errormessage\n";
 278         print "&nbsp;</class>\n";
 279         &Header::closebox();
 280 }
 281
 282 ############################################################################################################################
 283 ############################################################################################################################
 284
 285 if ($outfwsettings{'POLICY'} ne 'MODE0'){
 286         &Header::openbox('100%', 'center', 'Rules');
 287                 print <<END
 288         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 289                 <input type='submit' name='ACTION' value='Add rule' />
 290         </form>
 291 END
 292 ;
 293         open( FILE, "< $configfile" ) or die "Unable to read $configfile";
 294         @configs = <FILE>;
 295         close FILE;
 296         if (@configs) {
 297                 print <<END
 298                 <hr />
 299                 <table border='0' width='100%' cellspacing='0'>
 300                 <tr bgcolor='$color{'color22'}'>
 301                     <td width='14%' align='center'><b>$Lang::tr{'protocol'}</b></td>
 302                     <td width='14%' align='center'><b>$Lang::tr{'network'}</b></td>
 303                     <td width='14%' align='center'><b>$Lang::tr{'destination'}</b></td>
 304                     <td width='14%' align='center'><b>$Lang::tr{'description'}</b></td>
 305                     <td width='14%' align='center'><b>$Lang::tr{'policy'}</b></td>
 306                     <td width='16%' align='center'><b>$Lang::tr{'logging'}</b></td>
 307                     <td width='14%' align='center'><b>$Lang::tr{'action'}</b></td>
 308 END
 309 ;
 310                 foreach $configentry (sort @configs)
 311                         {
 312                                 @configline = split( /\;/, $configentry );
 313                                 $outfwsettings{'STATE'} = $configline[0];
 314                                 $outfwsettings{'ENABLED'} = $configline[1];
 315                                 $outfwsettings{'SNET'} = $configline[2];
 316                                 $outfwsettings{'PROT'} = $configline[3];
 317                                 $outfwsettings{'NAME'} = $configline[4];
 318                                 $outfwsettings{'SIP'} = $configline[5];
 319                                 $outfwsettings{'SMAC'} = $configline[6];
 320                                 $outfwsettings{'DIP'} = $configline[7];
 321                                 $outfwsettings{'DPORT'} = $configline[8];
 322                                 $outfwsettings{'LOG'} = $configline[9];
 323                                 $outfwsettings{'TIME_MON'} = $configline[10];
 324                                 $outfwsettings{'TIME_TUE'} = $configline[11];
 325                                 $outfwsettings{'TIME_WED'} = $configline[12];
 326                                 $outfwsettings{'TIME_THU'} = $configline[13];
 327                                 $outfwsettings{'TIME_FRI'} = $configline[14];
 328                                 $outfwsettings{'TIME_SAT'} = $configline[15];
 329                                 $outfwsettings{'TIME_SUN'} = $configline[16];
 330                                 $outfwsettings{'TIME_FROM'} = $configline[17];
 331                                 $outfwsettings{'TIME_TO'} = $configline[18];
 332
 333                                 if ($outfwsettings{'DIP'} eq ''){ $outfwsettings{'DISPLAY_DIP'} = 'ALL'; } else { $outfwsettings{'DISPLAY_DIP'} = $outfwsettings{'DIP'}; }
 334                                 if ($outfwsettings{'DPORT'} eq ''){ $outfwsettings{'DISPLAY_DPORT'} = 'ALL'; } else { $outfwsettings{'DISPLAY_DPORT'} = $outfwsettings{'DPORT'}; }
 335                                 if ($outfwsettings{'STATE'} eq 'DENY'){ $outfwsettings{'DISPLAY_STATE'} = "<img src='/images/stock_stop.png' alt='DENY' />"; }
 336                                 if ($outfwsettings{'STATE'} eq 'ALLOW'){ $outfwsettings{'DISPLAY_STATE'} = "<img src='/images/stock_ok.png' alt='ALLOW' />"; }
 337                                 if ((($outfwsettings{'POLICY'} eq 'MODE1') && ($outfwsettings{'STATE'} eq 'ALLOW')) || (($outfwsettings{'POLICY'} eq 'MODE2') && ($outfwsettings{'STATE'} eq 'DENY'))){
 338                                         print <<END
 339                                         <tr bgcolor='$color{'color20'}'>
 340                                             <td align='center'>$outfwsettings{'PROT'}
 341                                             <td align='center'>$outfwsettings{'SNET'}
 342                                             <td align='center'>$outfwsettings{'DISPLAY_DIP'}:$outfwsettings{'DISPLAY_DPORT'}
 343                                             <td align='center'>$outfwsettings{'NAME'}
 344                                             <td align='center'>$outfwsettings{'DISPLAY_STATE'}
 345                                             <td align='center'>$outfwsettings{'LOG'}
 346                                             <td align='center'>
 347                                              <table border='0' cellpadding='0' cellspacing='0'><tr>
 348                                                 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 349                                                         <input type='hidden' name='PROT' value='$outfwsettings{'PROT'}' />
 350                                                         <input type='hidden' name='STATE' value='$outfwsettings{'STATE'}' />
 351                                                         <input type='hidden' name='SNET' value='$outfwsettings{'SNET'}' />
 352                                                         <input type='hidden' name='DPORT' value='$outfwsettings{'DPORT'}' />
 353                                                         <input type='hidden' name='DIP' value='$outfwsettings{'DIP'}' />
 354                                                         <input type='hidden' name='SIP' value='$outfwsettings{'SIP'}' />
 355                                                         <input type='hidden' name='NAME' value='$outfwsettings{'NAME'}' />
 356                                                         <input type='hidden' name='SMAC' value='$outfwsettings{'SMAC'}' />
 357                                                         <input type='hidden' name='ENABLED' value='$outfwsettings{'ENABLED'}' />
 358                                                         <input type='hidden' name='LOG' value='$outfwsettings{'LOG'}' />
 359                                                         <input type='hidden' name='TIME_MON' value='$outfwsettings{'TIME_MON'}' />
 360                                                         <input type='hidden' name='TIME_TUE' value='$outfwsettings{'TIME_TUE'}' />
 361                                                         <input type='hidden' name='TIME_WED' value='$outfwsettings{'TIME_WED'}' />
 362                                                         <input type='hidden' name='TIME_THU' value='$outfwsettings{'TIME_THU'}' />
 363                                                         <input type='hidden' name='TIME_FRI' value='$outfwsettings{'TIME_FRI'}' />
 364                                                         <input type='hidden' name='TIME_SAT' value='$outfwsettings{'TIME_SAT'}' />
 365                                                         <input type='hidden' name='TIME_SUN' value='$outfwsettings{'TIME_SUN'}' />
 366                                                         <input type='hidden' name='TIME_FROM' value='$outfwsettings{'TIME_FROM'}' />
 367                                                         <input type='hidden' name='TIME_TO' value='$outfwsettings{'TIME_TO'}' />
 368                                                         <input type='hidden' name='ACTION' value=$Lang::tr{'edit'} />
 369                                                         <input type='image' src='/images/edit.gif' width="20" height="20" alt=$Lang::tr{'edit'} />
 370                                                 </form>
 371                                                 <td><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 372                                                         <input type='hidden' name='PROT' value='$outfwsettings{'PROT'}' />
 373                                                         <input type='hidden' name='STATE' value='$outfwsettings{'STATE'}' />
 374                                                         <input type='hidden' name='SNET' value='$outfwsettings{'SNET'}' />
 375                                                         <input type='hidden' name='DPORT' value='$outfwsettings{'DPORT'}' />
 376                                                         <input type='hidden' name='DIP' value='$outfwsettings{'DIP'}' />
 377                                                         <input type='hidden' name='SIP' value='$outfwsettings{'SIP'}' />
 378                                                         <input type='hidden' name='NAME' value='$outfwsettings{'NAME'}' />
 379                                                         <input type='hidden' name='SMAC' value='$outfwsettings{'SMAC'}' />
 380                                                         <input type='hidden' name='ENABLED' value='$outfwsettings{'ENABLED'}' />
 381                                                         <input type='hidden' name='LOG' value='$outfwsettings{'LOG'}' />
 382                                                         <input type='hidden' name='TIME_MON' value='$outfwsettings{'TIME_MON'}' />
 383                                                         <input type='hidden' name='TIME_TUE' value='$outfwsettings{'TIME_TUE'}' />
 384                                                         <input type='hidden' name='TIME_WED' value='$outfwsettings{'TIME_WED'}' />
 385                                                         <input type='hidden' name='TIME_THU' value='$outfwsettings{'TIME_THU'}' />
 386                                                         <input type='hidden' name='TIME_FRI' value='$outfwsettings{'TIME_FRI'}' />
 387                                                         <input type='hidden' name='TIME_SAT' value='$outfwsettings{'TIME_SAT'}' />
 388                                                         <input type='hidden' name='TIME_SUN' value='$outfwsettings{'TIME_SUN'}' />
 389                                                         <input type='hidden' name='TIME_FROM' value='$outfwsettings{'TIME_FROM'}' />
 390                                                         <input type='hidden' name='TIME_TO' value='$outfwsettings{'TIME_TO'}' />
 391                                                         <input type='hidden' name='ACTION' value=$Lang::tr{'delete'} />
 392                                                         <input type='image' src='/images/delete.gif' width="20" height="20" alt=$Lang::tr{'delete'} />
 393                                                 </form></table>
 394 END
 395 ;
 396                                         if (($outfwsettings{'SIP'}) || ($outfwsettings{'SMAC'})) {
 397                                                 unless ($outfwsettings{'SIP'}) { $outfwsettings{'DISPLAY_SIP'} = 'ALL'; } else { $outfwsettings{'DISPLAY_SIP'} = $outfwsettings{'SIP'}; }
 398                                                 unless ($outfwsettings{'SMAC'}) { $outfwsettings{'DISPLAY_SMAC'} = 'ALL'; } else { $outfwsettings{'DISPLAY_SMAC'} = $outfwsettings{'SMAC'}; }
 399                                                 print <<END
 400                                                 <tr><td width='14%' align='right'>$Lang::tr{'source ip'}:
 401                                                     <td width='14%' align='left'>$outfwsettings{'DISPLAY_SIP'}
 402                                                     <td width='44%' colspan='2' align='center'>
 403 END
 404 ;
 405                                         }
 406                                                 print <<END
 407                                                 <tr><td width='14%' align='right'>$Lang::tr{'time'} - </td>
 408                                                     <td width='14%' align='left'>
 409 END
 410 ;
 411                                                         if ($outfwsettings{'TIME_MON'} eq 'on') { print "<font color='$Header::colourgreen'>";}
 412                                                         else { print "<font color='$Header::colourred'>";}
 413                                                                 print "$Lang::tr{'advproxy monday'}</font>,";
 414                                                         if ($outfwsettings{'TIME_TUE'} eq 'on') { print "<font color='$Header::colourgreen'>";}
 415                                                         else { print "<font color='$Header::colourred'>";}
 416                                                                 print "$Lang::tr{'advproxy tuesday'}</font>,";
 417                                                         if ($outfwsettings{'TIME_WED'} eq 'on') { print "<font color='$Header::colourgreen'>";}
 418                                                         else { print "<font color='$Header::colourred'>";}
 419                                                                 print "$Lang::tr{'advproxy wednesday'}</font>,";
 420                                                         if ($outfwsettings{'TIME_THU'} eq 'on') { print "<font color='$Header::colourgreen'>";}
 421                                                         else { print "<font color='$Header::colourred'>";}
 422                                                                 print "$Lang::tr{'advproxy thursday'}</font>,";
 423                                                         if ($outfwsettings{'TIME_FRI'} eq 'on') { print "<font color='$Header::colourgreen'>";}
 424                                                         else { print "<font color='$Header::colourred'>";}
 425                                                                 print "$Lang::tr{'advproxy friday'}</font>,";
 426                                                         if ($outfwsettings{'TIME_SAT'} eq 'on') { print "<font color='$Header::colourgreen'>";}
 427                                                         else { print "<font color='$Header::colourred'>";}
 428                                                                 print "$Lang::tr{'advproxy saturday'}</font>,";
 429                                                         if ($outfwsettings{'TIME_SUN'} eq 'on') { print "<font color='$Header::colourgreen'>";}
 430                                                         else { print "<font color='$Header::colourred'>";}
 431                                                                 print "$Lang::tr{'advproxy sunday'}</font>";
 432                                                         print <<END
 433                                                         </td>
 434                                                     <td width='22%' align='center'>$Lang::tr{'advproxy from'} $outfwsettings{'TIME_FROM'}</td>
 435                                                         <td width='22%' align='center'>$Lang::tr{'advproxy to'} $outfwsettings{'TIME_TO'}</td>
 436                                         </form>
 437 END
 438 ;
 439                                 }
 440                         }
 441 if ($outfwsettings{'POLICY'} eq 'MODE1'){
 442 print <<END
 443                                         <tr bgcolor='$color{'color20'}'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 444                                             <td align='center'>tcp&udp
 445                                             <td align='center'>all
 446                                             <td align='center'>ALL
 447                                             <td align='center'>drop
 448                                             <td align='center'><img src='/images/stock_stop.png' alt='DENY' />
 449                                             <td align='center'>on <input type='radio' name='MODE1LOG' value='on' $checked{'MODE1LOG'}{'on'} /><input type='radio' name='MODE1LOG' value='off' $checked{'MODE1LOG'}{'off'} /> off
 450                                             <td align='center'><input type='hidden' name='ACTION' value=$Lang::tr{'save'} /><input type='image' src='/images/media-floppy.png' width="18" height="18" alt=$Lang::tr{'save'} /></form></tr>
 451                                              <table border='0' cellpadding='0' cellspacing='0'><tr>
 452                                                 <td>
 453                                                 <td></table>
 454 END
 455 ;
 456 }
 457                 print <<END
 458                 </table>
 459 END
 460 ;
 461
 462         }
 463         &Header::closebox();
 464 }
 465
 466 if ($outfwsettings{'POLICY'} ne 'MODE0'){
 467         open( FILE, "< $p2pfile" ) or die "Unable to read $p2pfile";
 468         @p2ps = <FILE>;
 469         close FILE;
 470         &Header::openbox('100%', 'center', 'P2P-Block');
 471         print <<END
 472         <table width='40%'>
 473                 <tr bgcolor='$color{'color22'}'><td width='66%' align=center><b>$Lang::tr{'protocol'}</b>
 474                     <td width='33%' align=center><b>$Lang::tr{'status'}</b>
 475 END
 476 ;
 477         my $id = 1;
 478         foreach $p2pentry (sort @p2ps)
 479         {
 480                 @p2pline = split( /\;/, $p2pentry );
 481                 print <<END
 482                         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 483 END
 484 ;
 485                         print "\t\t\t<tr bgcolor='$color{'color20'}'>\n";
 486                 print <<END
 487                         <td width='66%' align='center'>$p2pline[0]:
 488                         <td width='33%' align='center'><input type='hidden' name='P2PROT' value='$p2pline[1]' />
 489 END
 490 ;
 491                 if ($p2pline[2] eq 'on') {
 492                         print <<END
 493                                 <input type='hidden' name='ACTION' value='disable' />
 494                                 <input type='image' name='submit' src='/images/stock_ok.png' alt='' />
 495 END
 496 ;
 497                 } else {
 498                         print <<END
 499                                 <input type='hidden' name='ACTION' value='enable' />
 500                                 <input type='image' name='submit' src='/images/stock_stop.png' alt='' />
 501 END
 502 ;
 503                 }
 504                 print <<END
 505                         </form>
 506 END
 507 ;
 508         }
 509         print <<END
 510         </table>
 511   <br />$Lang::tr{'outgoingfw p2p description'}
 512 END
 513 ;
 514         &Header::closebox();
 515 }
 516
 517 &Header::openbox('100%', 'center', 'Policy');
 518 print <<END
 519         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 520         <table width='100%'>
 521                 <tr><td width='10%' align='left'><b>$Lang::tr{'mode'} 0:</b><td width='90%' align='left' colspan='2'>$Lang::tr{'outgoingfw mode0'}</td></tr>
 522                 <tr><td width='10%' align='left'><b>$Lang::tr{'mode'} 1:</b><td width='90%' align='left' colspan='2'>$Lang::tr{'outgoingfw mode1'}</td></tr>
 523                 <tr><td width='10%' align='left'><b>$Lang::tr{'mode'} 2:</b><td width='90%' align='left' colspan='2'>$Lang::tr{'outgoingfw mode2'}</td></tr>
 524                 <tr><td colspan='3'><hr /></td></tr>
 525                 <tr><td width='10%' align='left'>       <select name='POLICY' style="width: 85px"><option value='MODE0' $selected{'POLICY'}{'MODE0'}>$Lang::tr{'mode'} 0</option><option value='MODE1' $selected{'POLICY'}{'MODE1'}>$Lang::tr{'mode'} 1</option><option value='MODE2' $selected{'POLICY'}{'MODE2'}>$Lang::tr{'mode'} 2</option></select>
 526                     <td width='45%' align='left'><input type='submit' name='ACTION' value=$Lang::tr{'save'} />
 527                     <td width='45%' align='left'>
 528 END
 529 ;
 530         if ($outfwsettings{'POLICY'} ne 'MODE0') {
 531                 print <<END
 532                     $Lang::tr{'outgoingfw reset'}: <input type='submit' name='ACTION' value=$Lang::tr{'reset'} />
 533 END
 534 ;
 535         }
 536 print <<END
 537         </table>
 538         </form>
 539 END
 540 ;
 541 &Header::closebox();
 542
 543 &Header::closebigbox();
 544 &Header::closepage();
 545
 546 ############################################################################################################################
 547 ############################################################################################################################
 548
 549 sub addrule
 550 {
 551         &Header::openbox('100%', 'center', 'Rules hinzufuegen');
 552         if ($outfwsettings{'EDIT'} eq 'no') { $selected{'ENABLED'} = 'checked'; }
 553         $selected{'TIME_FROM'}{$outfwsettings{'TIME_FROM'}} = "selected='selected'";
 554         $selected{'TIME_TO'}{$outfwsettings{'TIME_TO'}} = "selected='selected'";
 555         print <<END
 556         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 557         <table width='80%'>
 558                 <tr><td width='20%' align='right'>$Lang::tr{'description'}: <img src='/blob.gif' />
 559                     <td width='30%' align='left'><input type='text' name='NAME' maxlength='30' value='$outfwsettings{'NAME'}' />
 560                     <td width='20%' align='right' colspan='2'>$Lang::tr{'active'}:
 561                     <td width='30%' align='left' colspan='2'><input type='checkbox' name='ENABLED' $selected{'ENABLED'} />
 562                 <tr><td width='20%' align='right'>$Lang::tr{'protocol'}:
 563                     <td width='30%' align='left'><select name='PROT'><option value='all' $selected{'PROT'}{'all'}>All</option><option value='tcp' $selected{'PROT'}{'tcp'}>TCP</option><option value='tcp&udp' $selected{'PROT'}{'tcp&udp'}>TCP & UDP</option><option value='udp' $selected{'PROT'}{'udp'}>UDP</option></select>
 564                     <td width='20%' align='right' colspan='2'>$Lang::tr{'policy'}:
 565                     <td width='30%' align='left' colspan='2'>
 566 END
 567 ;
 568         if ($outfwsettings{'POLICY'} eq 'MODE1'){
 569                 print "\t\t\tALLOW<input type='hidden' name='STATE' value='ALLOW' />\n";
 570         } elsif ($outfwsettings{'POLICY'} eq 'MODE2'){
 571                 print "\t\t\tDENY<input type='hidden' name='STATE' value='DENY' />\n";
 572         }
 573         print <<END
 574                 <tr><td width='20%' align='right'>$Lang::tr{'source net'}:
 575                     <td width='30%' align='left'><select name='SNET'>
 576                         <option value='all' $selected{'SNET'}{'ALL'}>$Lang::tr{'all'}</option>
 577                         <option value='ip' $selected{'SNET'}{'ip'}>$Lang::tr{'source ip'}</option>
 578                         <option value='red' $selected{'SNET'}{'red'}>$Lang::tr{'red'} IP</option>
 579                         <option value='green' $selected{'SNET'}{'green'}>$Lang::tr{'green'}</option>
 580 END
 581 ;
 582         if (&Header::blue_used()){
 583                 print "\t\t\t<option value='blue' $selected{'SNET'}{'blue'}>$Lang::tr{'wireless'}</option>\n";
 584         }
 585         if (&Header::orange_used()){
 586                 print "\t\t\t<option value='orange' $selected{'SNET'}{'orange'}>$Lang::tr{'dmz'}</option>\n";
 587         }
 588         print <<END
 589                         </select>
 590                     <td width='20%' align='right' colspan='2'>$Lang::tr{'source ip'}: <img src='/blob.gif' />
 591                     <td width='30%' align='left' colspan='2'><input type='text' name='SIP' maxlength='15' value='$outfwsettings{'SIP'}' />
 592                 <tr><td width='20%' align='right'>$Lang::tr{'logging'}:
 593 END
 594 ;
 595 if ($outfwsettings{'POLICY'} eq 'MODE1'){
 596          print "<td width='30%' align='left'><input type='text' name='LOG' maxlength='10' value='$Lang::tr{'inactive'}' readonly='true' /></td>";
 597 }
 598 else{
 599          print "<td width='30%' align='left'><select name='LOG'><option value='$Lang::tr{'active'}' $selected{'LOG'}{$Lang::tr{'active'}}>$Lang::tr{'active'}</option><option value='$Lang::tr{'inactive'}' $selected{'LOG'}{$Lang::tr{'inactive'}}>$Lang::tr{'inactive'}</option></select></td>";
 600 }
 601 print <<END
 602                     <td width='20%' align='right' colspan='2' />
 603                     <td width='30%' align='left' colspan='2' />
 604                 <tr><td width='20%' align='right'>$Lang::tr{'destination ip'}: <img src='/blob.gif' />
 605                     <td width='30%' align='left'><input type='text' name='DIP' maxlength='15' value='$outfwsettings{'DIP'}' />
 606                     <td width='20%' align='right' colspan='2'>$Lang::tr{'destination port'}: <img src='/blob.gif' />
 607                     <td width='30%' align='left' colspan='2'><input type='text' name='DPORT' maxlength='11' value='$outfwsettings{'DPORT'}' />
 608                 <tr><td width='20%' align='right'>$Lang::tr{'time'}:</td>
 609                         <td width='30%' align='left'>$Lang::tr{'advproxy monday'} $Lang::tr{'advproxy tuesday'} $Lang::tr{'advproxy wednesday'} $Lang::tr{'advproxy thursday'} $Lang::tr{'advproxy friday'} $Lang::tr{'advproxy saturday'} $Lang::tr{'advproxy sunday'}</td>
 610                         <td width='20%' align='right' colspan='2' />
 611                         <td width='15%' align='left'>$Lang::tr{'advproxy from'}</td>
 612                         <td width='15%' align='left'>$Lang::tr{'advproxy to'}</td></tr>
 613                 <tr><td width='20%' align='right'></td>
 614                         <td width='30%' align='left'><input type='checkbox' name='TIME_MON' $checked{'TIME_MON'}{'on'} />
 615                                                                                  <input type='checkbox' name='TIME_TUE' $checked{'TIME_TUE'}{'on'} />
 616                                                                                  <input type='checkbox' name='TIME_WED' $checked{'TIME_WED'}{'on'} />
 617                                                                                  <input type='checkbox' name='TIME_THU' $checked{'TIME_THU'}{'on'} />
 618                                                                                  <input type='checkbox' name='TIME_FRI' $checked{'TIME_FRI'}{'on'} />
 619                                                                                  <input type='checkbox' name='TIME_SAT' $checked{'TIME_SAT'}{'on'} />
 620                                                                                  <input type='checkbox' name='TIME_SUN' $checked{'TIME_SUN'}{'on'} /></td>
 621                         <td width='20%' align='right' colspan='2' />
 622                         <td width='15%' align='left'><select name='TIME_FROM'>
 623 END
 624 ;
 625 for (my $i=0;$i<=23;$i++) {
 626         $i = sprintf("%02s",$i);
 627         for (my $j=0;$j<=45;$j+=15) {
 628                 $j = sprintf("%02s",$j);
 629                 my $time = $i.":".$j;
 630                 print "<option $selected{'TIME_FROM'}{$time}>$i:$j</option>\n";
 631         }
 632 }
 633 print <<END
 634                         </select></td>
 635                         <td width='15%' align='left'><select name='TIME_TO'>
 636 END
 637 ;
 638 for (my $i=0;$i<=23;$i++) {
 639         $i = sprintf("%02s",$i);
 640         for (my $j=0;$j<=45;$j+=15) {
 641                 $j = sprintf("%02s",$j);
 642                 my $time = $i.":".$j;
 643                 print "<option $selected{'TIME_TO'}{$time}>$i:$j</option>\n";
 644         }
 645 }
 646 print <<END
 647                         </select></td></tr>
 648                 <tr><td colspan='6'>
 649                 <tr><td width='40%' align='right' colspan='2'><img src='/blob.gif' />$Lang::tr{'this field may be blank'}
 650                     <td width='60%' align='left' colspan='4'><input type='submit' name='ACTION' value=$Lang::tr{'add'} />
 651         </table></form>
 652 END
 653 ;
 654         &Header::closebox();
 655
 656 if ($outfwsettings{'POLICY'} eq 'MODE1' || $outfwsettings{'POLICY'} eq 'MODE2')
 657 {
 658 &Header::openbox('100%', 'center', 'Quick Add');
 659
 660         open( FILE, "< /var/ipfire/outgoing/defaultservices" ) or die "Unable to read default services";
 661         my @defservices = <FILE>;
 662         close FILE;
 663
 664 print "<table width='100%'><tr bgcolor='$color{'color20'}'><td><b>$Lang::tr{'service'}</b></td><td><b>$Lang::tr{'description'}</b></td><td><b>$Lang::tr{'port'}</b></td><td><b>$Lang::tr{'protocol'}</b></td><td><b>$Lang::tr{'source net'}</b></td><td><b>$Lang::tr{'logging'}</b></td><td><b>$Lang::tr{'action'}</b></td></tr>";
 665 foreach my $serviceline(@defservices)
 666         {
 667         my @service = split(/,/,$serviceline);
 668         print <<END
 669         <tr><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 670                                                                                                 <td>$service[0]<input type='hidden' name='NAME' value='@service[0]' /></td>
 671                                                                                                 <td>$service[3]</td>
 672                                                                                                 <td><a href='http://isc.sans.org/port_details.php?port=$service[1]' target='top'>$service[1]</a><input type='hidden' name='DPORT' value='@service[1]' /></td>
 673                                                                                                 <td>$service[2]<input type='hidden' name='PROT' value='@service[2]' /></td>
 674                                                                                                 <td><select name='SNET'><option value='all' $selected{'SNET'}{'ALL'}>$Lang::tr{'all'}</option><option value='green' $selected{'SNET'}{'green'}>$Lang::tr{'green'}</option>
 675 END
 676 ;
 677         if (&Header::blue_used()){
 678                 print "<option value='blue' $selected{'SNET'}{'blue'}>$Lang::tr{'wireless'}</option>";
 679         }
 680         if (&Header::orange_used()){
 681                 print "<option value='orange' $selected{'SNET'}{'orange'}>$Lang::tr{'dmz'}</option>";
 682         }
 683         print <<END
 684                                         </select></td>
 685           <td><select name='LOG'><option value='$Lang::tr{'active'}'>$Lang::tr{'active'}</option><option value='$Lang::tr{'inactive'}' 'selected'>$Lang::tr{'inactive'}</option></select></td><td>
 686                                         <input type='hidden' name='ACTION' value=$Lang::tr{'add'} />
 687                                         <input type='image' alt='$Lang::tr{'add'}' src='/images/add.gif' />
 688                                         <input type='hidden' name='ENABLED' value='on' />
 689 END
 690 ;
 691         if ($outfwsettings{'POLICY'} eq 'MODE1'){       print "<input type='hidden' name='STATE' value='ALLOW' /></form></td></tr>";}
 692         elsif ($outfwsettings{'POLICY'} eq 'MODE2'){print "<input type='hidden' name='STATE' value='DENY' /></form></td></tr>";}
 693         }
 694         print "</table>";
 695         &Header::closebox();
 696   }
 697 }