html/cgi-bin/optionsfw.cgi

   1 #!/usr/bin/perl
   2 ###############################################################################
   3 #                                                                             #
   4 # IPFire.org - A linux based firewall                                         #
   5 # Copyright (C) 2014-2020  IPFire Team  <info@ipfire.org>                     #
   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 # enable only the following on debugging purpose
  23 #use warnings;
  24 #use CGI::Carp 'fatalsToBrowser';
  25
  26 require '/var/ipfire/general-functions.pl';
  27 require "${General::swroot}/lang.pl";
  28 require "${General::swroot}/header.pl";
  29
  30
  31 my %checked =();     # Checkbox manipulations
  32 our %settings=();
  33 my %fwdfwsettings=();
  34 my %configfwdfw=();
  35 my %configoutgoingfw=();
  36
  37 my $configfwdfw         = "${General::swroot}/firewall/config";
  38 my $configoutgoing      = "${General::swroot}/firewall/outgoing";
  39 my $errormessage = '';
  40 my $warnmessage = '';
  41 my $filename = "${General::swroot}/optionsfw/settings";
  42
  43 &General::readhash("${General::swroot}/firewall/settings", \%fwdfwsettings);
  44 &Header::showhttpheaders();
  45
  46 #Get GUI values
  47 &Header::getcgihash(\%settings);
  48 if ($settings{'ACTION'} eq $Lang::tr{'save'}) {
  49         if ($settings{'defpol'} ne '1'){
  50                 $errormessage .= $Lang::tr{'new optionsfw later'};
  51                 &General::writehash($filename, \%settings);             # Save good settings
  52                 system("/usr/local/bin/firewallctrl");
  53         }else{
  54                 if ($settings{'POLICY'} ne ''){
  55                         $fwdfwsettings{'POLICY'} = $settings{'POLICY'};
  56                 }
  57                 if ($settings{'POLICY1'} ne ''){
  58                         $fwdfwsettings{'POLICY1'} = $settings{'POLICY1'};
  59                 }
  60                 my $MODE = $fwdfwsettings{'POLICY'};
  61                 my $MODE1 = $fwdfwsettings{'POLICY1'};
  62                 %fwdfwsettings = ();
  63                 $fwdfwsettings{'POLICY'} = "$MODE";
  64                 $fwdfwsettings{'POLICY1'} = "$MODE1";
  65                 &General::writehash("${General::swroot}/firewall/settings", \%fwdfwsettings);
  66                 &General::readhash("${General::swroot}/firewall/settings", \%fwdfwsettings);
  67                 system("/usr/local/bin/firewallctrl");
  68         }
  69         &General::readhash($filename, \%settings);             # Load good settings
  70 }
  71
  72 &Header::openpage($Lang::tr{'options fw'}, 1, '');
  73 &Header::openbigbox('100%', 'left', '', $errormessage);
  74 &General::readhash($filename, \%settings);
  75 if ($errormessage) {
  76         &Header::openbox('100%', 'left', $Lang::tr{'warning messages'});
  77         print "<font color='red'>$errormessage&nbsp;</font>";
  78         &Header::closebox();
  79 }
  80
  81 # Set new defaults
  82 if (!$settings{'MASQUERADE_GREEN'}) {
  83         $settings{'MASQUERADE_GREEN'} = 'on';
  84 }
  85 if (!$settings{'MASQUERADE_ORANGE'}) {
  86         $settings{'MASQUERADE_ORANGE'} = 'on';
  87 }
  88 if (!$settings{'MASQUERADE_BLUE'}) {
  89         $settings{'MASQUERADE_BLUE'} = 'on';
  90 }
  91
  92 $checked{'DROPNEWNOTSYN'}{'off'} = '';
  93 $checked{'DROPNEWNOTSYN'}{'on'} = '';
  94 $checked{'DROPNEWNOTSYN'}{$settings{'DROPNEWNOTSYN'}} = "checked='checked'";
  95 $checked{'DROPINPUT'}{'off'} = '';
  96 $checked{'DROPINPUT'}{'on'} = '';
  97 $checked{'DROPINPUT'}{$settings{'DROPINPUT'}} = "checked='checked'";
  98 $checked{'DROPFORWARD'}{'off'} = '';
  99 $checked{'DROPFORWARD'}{'on'} = '';
 100 $checked{'DROPFORWARD'}{$settings{'DROPFORWARD'}} = "checked='checked'";
 101 $checked{'DROPOUTGOING'}{'off'} = '';
 102 $checked{'DROPOUTGOING'}{'on'} = '';
 103 $checked{'DROPOUTGOING'}{$settings{'DROPOUTGOING'}} = "checked='checked'";
 104 $checked{'DROPPORTSCAN'}{'off'} = '';
 105 $checked{'DROPPORTSCAN'}{'on'} = '';
 106 $checked{'DROPPORTSCAN'}{$settings{'DROPPORTSCAN'}} = "checked='checked'";
 107 $checked{'DROPWIRELESSINPUT'}{'off'} = '';
 108 $checked{'DROPWIRELESSINPUT'}{'on'} = '';
 109 $checked{'DROPWIRELESSINPUT'}{$settings{'DROPWIRELESSINPUT'}} = "checked='checked'";
 110 $checked{'DROPWIRELESSFORWARD'}{'off'} = '';
 111 $checked{'DROPWIRELESSFORWARD'}{'on'} = '';
 112 $checked{'DROPWIRELESSFORWARD'}{$settings{'DROPWIRELESSFORWARD'}} = "checked='checked'";
 113 $checked{'DROPPROXY'}{'off'} = '';
 114 $checked{'DROPPROXY'}{'on'} = '';
 115 $checked{'DROPPROXY'}{$settings{'DROPPROXY'}} = "checked='checked'";
 116 $checked{'DROPSAMBA'}{'off'} = '';
 117 $checked{'DROPSAMBA'}{'on'} = '';
 118 $checked{'DROPSAMBA'}{$settings{'DROPSAMBA'}} = "checked='checked'";
 119 $checked{'SHOWCOLORS'}{'off'} = '';
 120 $checked{'SHOWCOLORS'}{'on'} = '';
 121 $checked{'SHOWCOLORS'}{$settings{'SHOWCOLORS'}} = "checked='checked'";
 122 $checked{'SHOWREMARK'}{'off'} = '';
 123 $checked{'SHOWREMARK'}{'on'} = '';
 124 $checked{'SHOWREMARK'}{$settings{'SHOWREMARK'}} = "checked='checked'";
 125 $checked{'SHOWTABLES'}{'off'} = '';
 126 $checked{'SHOWTABLES'}{'on'} = '';
 127 $checked{'SHOWTABLES'}{$settings{'SHOWTABLES'}} = "checked='checked'";
 128 $checked{'SHOWDROPDOWN'}{'off'} = '';
 129 $checked{'SHOWDROPDOWN'}{'on'} = '';
 130 $checked{'SHOWDROPDOWN'}{$settings{'SHOWDROPDOWN'}} = "checked='checked'";
 131 $selected{'FWPOLICY'}{$settings{'FWPOLICY'}}= 'selected';
 132 $selected{'FWPOLICY1'}{$settings{'FWPOLICY1'}}= 'selected';
 133 $selected{'FWPOLICY2'}{$settings{'FWPOLICY2'}}= 'selected';
 134 $selected{'MASQUERADE_GREEN'}{'off'} = '';
 135 $selected{'MASQUERADE_GREEN'}{'on'} = '';
 136 $selected{'MASQUERADE_GREEN'}{$settings{'MASQUERADE_GREEN'}} = 'selected="selected"';
 137 $selected{'MASQUERADE_ORANGE'}{'off'} = '';
 138 $selected{'MASQUERADE_ORANGE'}{'on'} = '';
 139 $selected{'MASQUERADE_ORANGE'}{$settings{'MASQUERADE_ORANGE'}} = 'selected="selected"';
 140 $selected{'MASQUERADE_BLUE'}{'off'} = '';
 141 $selected{'MASQUERADE_BLUE'}{'on'} = '';
 142 $selected{'MASQUERADE_BLUE'}{$settings{'MASQUERADE_BLUE'}} = 'selected="selected"';
 143
 144 &Header::openbox('100%', 'center',);
 145 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>";
 146
 147 print <<END;
 148 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 149         <table width='95%' cellspacing='0'>
 150                 <tr bgcolor='$color{'color20'}'>
 151                         <td colspan='2' align='left'><b>$Lang::tr{'masquerading'}</b></td>
 152                 </tr>
 153                 <tr>
 154                         <td align='left' width='60%'>$Lang::tr{'masquerade green'}</td>
 155                         <td>
 156                                 <select name='MASQUERADE_GREEN'>
 157                                         <option value='on' $selected{'MASQUERADE_GREEN'}{'on'}>$Lang::tr{'masquerading enabled'}</option>
 158                                         <option value='off' $selected{'MASQUERADE_GREEN'}{'off'}>$Lang::tr{'masquerading disabled'}</option>
 159                                 </select>
 160                         </td>
 161                 </tr>
 162 END
 163
 164         if (&Header::orange_used()) {
 165                 print <<END;
 166                         <tr>
 167                                 <td align='left' width='60%'>$Lang::tr{'masquerade orange'}</td>
 168                                 <td>
 169                                         <select name='MASQUERADE_ORANGE'>
 170                                                 <option value='on' $selected{'MASQUERADE_ORANGE'}{'on'}>$Lang::tr{'masquerading enabled'}</option>
 171                                                 <option value='off' $selected{'MASQUERADE_ORANGE'}{'off'}>$Lang::tr{'masquerading disabled'}</option>
 172                                         </select>
 173                                 </td>
 174                         </tr>
 175 END
 176         }
 177
 178         if (&Header::blue_used()) {
 179                 print <<END;
 180                         <tr>
 181                                 <td align='left' width='60%'>$Lang::tr{'masquerade blue'}</td>
 182                                 <td>
 183                                         <select name='MASQUERADE_BLUE'>
 184                                                 <option value='on' $selected{'MASQUERADE_BLUE'}{'on'}>$Lang::tr{'masquerading enabled'}</option>
 185                                                 <option value='off' $selected{'MASQUERADE_BLUE'}{'off'}>$Lang::tr{'masquerading disabled'}</option>
 186                                         </select>
 187                                 </td>
 188                         </tr>
 189 END
 190         }
 191
 192         print <<END
 193         </table>
 194
 195         <br>
 196
 197 <table width='95%' cellspacing='0'>
 198 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'fw logging'}</b></td></tr>
 199 <tr><td align='left' width='60%'>$Lang::tr{'drop newnotsyn'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPNEWNOTSYN' value='on' $checked{'DROPNEWNOTSYN'}{'on'} />/
 200                                                                                                                                                                                 <input type='radio' name='DROPNEWNOTSYN' value='off' $checked{'DROPNEWNOTSYN'}{'off'} /> $Lang::tr{'off'}</td></tr>
 201 <tr><td align='left' width='60%'>$Lang::tr{'drop input'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPINPUT' value='on' $checked{'DROPINPUT'}{'on'} />/
 202                                                                                                                                                                                 <input type='radio' name='DROPINPUT' value='off' $checked{'DROPINPUT'}{'off'} /> $Lang::tr{'off'}</td></tr>
 203 <tr><td align='left' width='60%'>$Lang::tr{'drop forward'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPFORWARD' value='on' $checked{'DROPFORWARD'}{'on'} />/
 204                                                                                                                                                                                 <input type='radio' name='DROPFORWARD' value='off' $checked{'DROPFORWARD'}{'off'} /> $Lang::tr{'off'}</td></tr>
 205 <tr><td align='left' width='60%'>$Lang::tr{'drop outgoing'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPOUTGOING' value='on' $checked{'DROPOUTGOING'}{'on'} />/
 206                                                                                                                                                                                 <input type='radio' name='DROPOUTGOING' value='off' $checked{'DROPOUTGOING'}{'off'} /> $Lang::tr{'off'}</td></tr>
 207 <tr><td align='left' width='60%'>$Lang::tr{'drop portscan'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPPORTSCAN' value='on' $checked{'DROPPORTSCAN'}{'on'} />/
 208                                                                                                                                                                                 <input type='radio' name='DROPPORTSCAN' value='off' $checked{'DROPPORTSCAN'}{'off'} /> $Lang::tr{'off'}</td></tr>
 209 <tr><td align='left' width='60%'>$Lang::tr{'drop wirelessinput'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPWIRELESSINPUT' value='on' $checked{'DROPWIRELESSINPUT'}{'on'} />/
 210                                                                                                                                                                                 <input type='radio' name='DROPWIRELESSINPUT' value='off' $checked{'DROPWIRELESSINPUT'}{'off'} /> $Lang::tr{'off'}</td></tr>
 211 <tr><td align='left' width='60%'>$Lang::tr{'drop wirelessforward'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPWIRELESSFORWARD' value='on' $checked{'DROPWIRELESSFORWARD'}{'on'} />/
 212                                                                                                                                                                                 <input type='radio' name='DROPWIRELESSFORWARD' value='off' $checked{'DROPWIRELESSFORWARD'}{'off'} /> $Lang::tr{'off'}</td></tr>
 213 </table>
 214 <br/>
 215
 216 <table width='95%' cellspacing='0'>
 217 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'fw blue'}</b></td></tr>
 218 <tr><td align='left' width='60%'>$Lang::tr{'drop proxy'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPPROXY' value='on' $checked{'DROPPROXY'}{'on'} />/
 219                                                                                                                                                                                 <input type='radio' name='DROPPROXY' value='off' $checked{'DROPPROXY'}{'off'} /> $Lang::tr{'off'}</td></tr>
 220 <tr><td align='left' width='60%'>$Lang::tr{'drop samba'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='DROPSAMBA' value='on' $checked{'DROPSAMBA'}{'on'} />/
 221                                                                                                                                                                                 <input type='radio' name='DROPSAMBA' value='off' $checked{'DROPSAMBA'}{'off'} /> $Lang::tr{'off'}</td></tr>
 222 </table>
 223 <br>
 224 <table width='95%' cellspacing='0'>
 225 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'fw settings'}</b></td></tr>
 226 <tr><td align='left' width='60%'>$Lang::tr{'fw settings color'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='SHOWCOLORS' value='on' $checked{'SHOWCOLORS'}{'on'} />/
 227                                                                                                                                                                                 <input type='radio' name='SHOWCOLORS' value='off' $checked{'SHOWCOLORS'}{'off'} /> $Lang::tr{'off'}</td></tr>
 228 <tr><td align='left' width='60%'>$Lang::tr{'fw settings remark'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='SHOWREMARK' value='on' $checked{'SHOWREMARK'}{'on'} />/
 229                                                                                                                                                                                 <input type='radio' name='SHOWREMARK' value='off' $checked{'SHOWREMARK'}{'off'} /> $Lang::tr{'off'}</td></tr>
 230 <tr><td align='left' width='60%'>$Lang::tr{'fw settings ruletable'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='SHOWTABLES' value='on' $checked{'SHOWTABLES'}{'on'} />/
 231                                                                                                                                                                                 <input type='radio' name='SHOWTABLES' value='off' $checked{'SHOWTABLES'}{'off'} /> $Lang::tr{'off'}</td></tr>
 232 <tr><td align='left' width='60%'>$Lang::tr{'fw settings dropdown'}</td><td align='left'>$Lang::tr{'on'} <input type='radio' name='SHOWDROPDOWN' value='on' $checked{'SHOWDROPDOWN'}{'on'} />/
 233                                                                                                                                                                                 <input type='radio' name='SHOWDROPDOWN' value='off' $checked{'SHOWDROPDOWN'}{'off'} /> $Lang::tr{'off'}</td></tr>
 234 </table>
 235
 236 <br />
 237 <table width='95%' cellspacing='0'>
 238 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'fw default drop'}</b></td></tr>
 239 <tr><td align='left' width='60%'>$Lang::tr{'drop action'}</td><td><select name='FWPOLICY'>
 240 <option value='DROP' $selected{'FWPOLICY'}{'DROP'}>DROP</option>
 241 <option value='REJECT' $selected{'FWPOLICY'}{'REJECT'}>REJECT</option></select>
 242 </td></tr>
 243 <tr><td align='left' width='60%'>$Lang::tr{'drop action1'}</td><td><select name='FWPOLICY1'>
 244 <option value='DROP' $selected{'FWPOLICY1'}{'DROP'}>DROP</option>
 245 <option value='REJECT' $selected{'FWPOLICY1'}{'REJECT'}>REJECT</option></select>
 246 </td></tr>
 247 <tr><td align='left' width='60%'>$Lang::tr{'drop action2'}</td><td><select name='FWPOLICY2'>
 248 <option value='DROP' $selected{'FWPOLICY2'}{'DROP'}>DROP</option>
 249 <option value='REJECT' $selected{'FWPOLICY2'}{'REJECT'}>REJECT</option></select>
 250 </td></tr>
 251 </table>
 252
 253 <br />
 254 <table width='100%' cellspacing='0'>
 255 <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 256 <input type='submit' name='ACTION' value='$Lang::tr{'save'}' />
 257 </form></td></tr>
 258 </table>
 259 </form>
 260 END
 261 ;
 262 &Header::closebox();
 263
 264 &Header::openbox('100%', 'center', $Lang::tr{'fwdfw pol title'});
 265         if ($fwdfwsettings{'POLICY'} eq 'MODE1'){ $selected{'POLICY'}{'MODE1'} = 'selected'; } else { $selected{'POLICY'}{'MODE1'} = ''; }
 266         if ($fwdfwsettings{'POLICY'} eq 'MODE2'){ $selected{'POLICY'}{'MODE2'} = 'selected'; } else { $selected{'POLICY'}{'MODE2'} = ''; }
 267         if ($fwdfwsettings{'POLICY1'} eq 'MODE1'){ $selected{'POLICY1'}{'MODE1'} = 'selected'; } else { $selected{'POLICY1'}{'MODE1'} = ''; }
 268         if ($fwdfwsettings{'POLICY1'} eq 'MODE2'){ $selected{'POLICY1'}{'MODE2'} = 'selected'; } else { $selected{'POLICY1'}{'MODE2'} = ''; }
 269 print <<END;
 270         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 271         <table width='100%' border='0'>
 272                 <tr><td colspan='3' style='font-weight:bold;color:red;' align='left'>FORWARD </td></tr>
 273                 <tr><td colspan='3' align='left'>$Lang::tr{'fwdfw pol text'}</td></tr>
 274                 <tr><td colspan='3'><hr /></td></tr>
 275                 <tr><td width='15%' align='left'>       <select name='POLICY' style="width: 100px">
 276                 <option value='MODE1' $selected{'POLICY'}{'MODE1'}>$Lang::tr{'fwdfw pol block'}</option>
 277                 <option value='MODE2' $selected{'POLICY'}{'MODE2'}>$Lang::tr{'fwdfw pol allow'}</option></select>
 278             <input type='submit' name='ACTION' value='$Lang::tr{'save'}' /><input type='hidden' name='defpol' value='1'></td>
 279 END
 280         print "</tr></table></form>";
 281         print"<br><br>";
 282         print <<END;
 283         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 284         <table width='100%' border='0'>
 285                 <tr><td colspan='3' style='font-weight:bold;color:red;' align='left'>OUTGOING </td></tr>
 286                 <tr><td colspan='3' align='left'>$Lang::tr{'fwdfw pol text1'}</td></tr>
 287                 <tr><td colspan='3'><hr /></td></tr>
 288                 <tr><td width='15%' align='left'>       <select name='POLICY1' style="width: 100px">
 289                 <option value='MODE1' $selected{'POLICY1'}{'MODE1'}>$Lang::tr{'fwdfw pol block'}</option>
 290                 <option value='MODE2' $selected{'POLICY1'}{'MODE2'}>$Lang::tr{'fwdfw pol allow'}</option></select>
 291             <input type='submit' name='ACTION' value='$Lang::tr{'save'}' /><input type='hidden' name='defpol' value='1'></td>
 292 END
 293         print "</tr></table></form>";
 294         &Header::closebox();
 295
 296 &Header::closebigbox();
 297 &Header::closepage();