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 $checked{'CONNTRACK_FTP'}{'off'} = '';
 132 $checked{'CONNTRACK_FTP'}{'on'} = '';
 133 $checked{'CONNTRACK_FTP'}{$settings{'CONNTRACK_FTP'}} = "checked='checked'";
 134 $checked{'CONNTRACK_H323'}{'off'} = '';
 135 $checked{'CONNTRACK_H323'}{'on'} = '';
 136 $checked{'CONNTRACK_H323'}{$settings{'CONNTRACK_H323'}} = "checked='checked'";
 137 $checked{'CONNTRACK_IRC'}{'off'} = '';
 138 $checked{'CONNTRACK_IRC'}{'on'} = '';
 139 $checked{'CONNTRACK_IRC'}{$settings{'CONNTRACK_IRC'}} = "checked='checked'";
 140 $checked{'CONNTRACK_PPTP'}{'off'} = '';
 141 $checked{'CONNTRACK_PPTP'}{'on'} = '';
 142 $checked{'CONNTRACK_PPTP'}{$settings{'CONNTRACK_PPTP'}} = "checked='checked'";
 143 $checked{'CONNTRACK_SIP'}{'off'} = '';
 144 $checked{'CONNTRACK_SIP'}{'on'} = '';
 145 $checked{'CONNTRACK_SIP'}{$settings{'CONNTRACK_SIP'}} = "checked='checked'";
 146 $checked{'CONNTRACK_TFTP'}{'off'} = '';
 147 $checked{'CONNTRACK_TFTP'}{'on'} = '';
 148 $checked{'CONNTRACK_TFTP'}{$settings{'CONNTRACK_TFTP'}} = "checked='checked'";
 149 $selected{'FWPOLICY'}{$settings{'FWPOLICY'}}= 'selected';
 150 $selected{'FWPOLICY1'}{$settings{'FWPOLICY1'}}= 'selected';
 151 $selected{'FWPOLICY2'}{$settings{'FWPOLICY2'}}= 'selected';
 152 $selected{'MASQUERADE_GREEN'}{'off'} = '';
 153 $selected{'MASQUERADE_GREEN'}{'on'} = '';
 154 $selected{'MASQUERADE_GREEN'}{$settings{'MASQUERADE_GREEN'}} = 'selected="selected"';
 155 $selected{'MASQUERADE_ORANGE'}{'off'} = '';
 156 $selected{'MASQUERADE_ORANGE'}{'on'} = '';
 157 $selected{'MASQUERADE_ORANGE'}{$settings{'MASQUERADE_ORANGE'}} = 'selected="selected"';
 158 $selected{'MASQUERADE_BLUE'}{'off'} = '';
 159 $selected{'MASQUERADE_BLUE'}{'on'} = '';
 160 $selected{'MASQUERADE_BLUE'}{$settings{'MASQUERADE_BLUE'}} = 'selected="selected"';
 161
 162 &Header::openbox('100%', 'center',);
 163 print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>";
 164
 165 print <<END;
 166 <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 167         <table width='95%' cellspacing='0'>
 168                 <tr bgcolor='$color{'color20'}'>
 169                         <td colspan='2' align='left'><b>$Lang::tr{'masquerading'}</b></td>
 170                 </tr>
 171                 <tr>
 172                         <td align='left' width='60%'>$Lang::tr{'masquerade green'}</td>
 173                         <td>
 174                                 <select name='MASQUERADE_GREEN'>
 175                                         <option value='on' $selected{'MASQUERADE_GREEN'}{'on'}>$Lang::tr{'masquerading enabled'}</option>
 176                                         <option value='off' $selected{'MASQUERADE_GREEN'}{'off'}>$Lang::tr{'masquerading disabled'}</option>
 177                                 </select>
 178                         </td>
 179                 </tr>
 180 END
 181
 182         if (&Header::orange_used()) {
 183                 print <<END;
 184                         <tr>
 185                                 <td align='left' width='60%'>$Lang::tr{'masquerade orange'}</td>
 186                                 <td>
 187                                         <select name='MASQUERADE_ORANGE'>
 188                                                 <option value='on' $selected{'MASQUERADE_ORANGE'}{'on'}>$Lang::tr{'masquerading enabled'}</option>
 189                                                 <option value='off' $selected{'MASQUERADE_ORANGE'}{'off'}>$Lang::tr{'masquerading disabled'}</option>
 190                                         </select>
 191                                 </td>
 192                         </tr>
 193 END
 194         }
 195
 196         if (&Header::blue_used()) {
 197                 print <<END;
 198                         <tr>
 199                                 <td align='left' width='60%'>$Lang::tr{'masquerade blue'}</td>
 200                                 <td>
 201                                         <select name='MASQUERADE_BLUE'>
 202                                                 <option value='on' $selected{'MASQUERADE_BLUE'}{'on'}>$Lang::tr{'masquerading enabled'}</option>
 203                                                 <option value='off' $selected{'MASQUERADE_BLUE'}{'off'}>$Lang::tr{'masquerading disabled'}</option>
 204                                         </select>
 205                                 </td>
 206                         </tr>
 207 END
 208         }
 209
 210         print <<END
 211         </table>
 212
 213         <br>
 214
 215 <table width='95%' cellspacing='0'>
 216 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'fw logging'}</b></td></tr>
 217 <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'} />/
 218                                                                                                                                                                                 <input type='radio' name='DROPNEWNOTSYN' value='off' $checked{'DROPNEWNOTSYN'}{'off'} /> $Lang::tr{'off'}</td></tr>
 219 <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'} />/
 220                                                                                                                                                                                 <input type='radio' name='DROPINPUT' value='off' $checked{'DROPINPUT'}{'off'} /> $Lang::tr{'off'}</td></tr>
 221 <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'} />/
 222                                                                                                                                                                                 <input type='radio' name='DROPFORWARD' value='off' $checked{'DROPFORWARD'}{'off'} /> $Lang::tr{'off'}</td></tr>
 223 <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'} />/
 224                                                                                                                                                                                 <input type='radio' name='DROPOUTGOING' value='off' $checked{'DROPOUTGOING'}{'off'} /> $Lang::tr{'off'}</td></tr>
 225 <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'} />/
 226                                                                                                                                                                                 <input type='radio' name='DROPPORTSCAN' value='off' $checked{'DROPPORTSCAN'}{'off'} /> $Lang::tr{'off'}</td></tr>
 227 <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'} />/
 228                                                                                                                                                                                 <input type='radio' name='DROPWIRELESSINPUT' value='off' $checked{'DROPWIRELESSINPUT'}{'off'} /> $Lang::tr{'off'}</td></tr>
 229 <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'} />/
 230                                                                                                                                                                                 <input type='radio' name='DROPWIRELESSFORWARD' value='off' $checked{'DROPWIRELESSFORWARD'}{'off'} /> $Lang::tr{'off'}</td></tr>
 231 </table>
 232 <br/>
 233
 234 <table width='95%' cellspacing='0'>
 235 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'fw blue'}</b></td></tr>
 236 <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'} />/
 237                                                                                                                                                                                 <input type='radio' name='DROPPROXY' value='off' $checked{'DROPPROXY'}{'off'} /> $Lang::tr{'off'}</td></tr>
 238 <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'} />/
 239                                                                                                                                                                                 <input type='radio' name='DROPSAMBA' value='off' $checked{'DROPSAMBA'}{'off'} /> $Lang::tr{'off'}</td></tr>
 240 </table>
 241 <br>
 242 <table width='95%' cellspacing='0'>
 243 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'fw settings'}</b></td></tr>
 244 <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'} />/
 245                                                                                                                                                                                 <input type='radio' name='SHOWCOLORS' value='off' $checked{'SHOWCOLORS'}{'off'} /> $Lang::tr{'off'}</td></tr>
 246 <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'} />/
 247                                                                                                                                                                                 <input type='radio' name='SHOWREMARK' value='off' $checked{'SHOWREMARK'}{'off'} /> $Lang::tr{'off'}</td></tr>
 248 <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'} />/
 249                                                                                                                                                                                 <input type='radio' name='SHOWTABLES' value='off' $checked{'SHOWTABLES'}{'off'} /> $Lang::tr{'off'}</td></tr>
 250 <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'} />/
 251                                                                                                                                                                                 <input type='radio' name='SHOWDROPDOWN' value='off' $checked{'SHOWDROPDOWN'}{'off'} /> $Lang::tr{'off'}</td></tr>
 252 </table>
 253
 254 <br />
 255
 256 <table width='95%' cellspacing='0'>
 257         <tr bgcolor='$color{'color20'}'>
 258                 <td colspan='2' align='left'>
 259                         <b>$Lang::tr{'application layer gateways'}</b>
 260                 </td>
 261         </tr>
 262         <tr>
 263                 <td align='left' width='60%'>FTP</td>
 264                 <td align='left'>
 265                         $Lang::tr{'on'} <input type='radio' name='CONNTRACK_FTP' value='on' $checked{'CONNTRACK_FTP'}{'on'} /> /
 266                         <input type='radio' name='CONNTRACK_FTP' value='off' $checked{'CONNTRACK_FTP'}{'off'} /> $Lang::tr{'off'}
 267                 </td>
 268         </tr>
 269         <tr>
 270                 <td align='left' width='60%'>H.323</td>
 271                 <td align='left'>
 272                         $Lang::tr{'on'} <input type='radio' name='CONNTRACK_H323' value='on' $checked{'CONNTRACK_H323'}{'on'} /> /
 273                         <input type='radio' name='CONNTRACK_H323' value='off' $checked{'CONNTRACK_H323'}{'off'} /> $Lang::tr{'off'}
 274                 </td>
 275         </tr>
 276         <tr>
 277                 <td align='left' width='60%'>IRC</td>
 278                 <td align='left'>
 279                         $Lang::tr{'on'} <input type='radio' name='CONNTRACK_IRC' value='on' $checked{'CONNTRACK_IRC'}{'on'} /> /
 280                         <input type='radio' name='CONNTRACK_IRC' value='off' $checked{'CONNTRACK_IRC'}{'off'} /> $Lang::tr{'off'}
 281                 </td>
 282         </tr>
 283         <tr>
 284                 <td align='left' width='60%'>PPTP</td>
 285                 <td align='left'>
 286                         $Lang::tr{'on'} <input type='radio' name='CONNTRACK_PPTP' value='on' $checked{'CONNTRACK_PPTP'}{'on'} /> /
 287                         <input type='radio' name='CONNTRACK_PPTP' value='off' $checked{'CONNTRACK_PPTP'}{'off'} /> $Lang::tr{'off'}
 288                 </td>
 289         </tr>
 290         <tr>
 291                 <td align='left' width='60%'>SIP</td>
 292                 <td align='left'>
 293                         $Lang::tr{'on'} <input type='radio' name='CONNTRACK_SIP' value='on' $checked{'CONNTRACK_SIP'}{'on'} /> /
 294                         <input type='radio' name='CONNTRACK_SIP' value='off' $checked{'CONNTRACK_SIP'}{'off'} /> $Lang::tr{'off'}
 295                 </td>
 296         </tr>
 297         <tr>
 298                 <td align='left' width='60%'>TFTP</td>
 299                 <td align='left'>
 300                         $Lang::tr{'on'} <input type='radio' name='CONNTRACK_TFTP' value='on' $checked{'CONNTRACK_TFTP'}{'on'} /> /
 301                         <input type='radio' name='CONNTRACK_TFTP' value='off' $checked{'CONNTRACK_TFTP'}{'off'} /> $Lang::tr{'off'}
 302                 </td>
 303         </tr>
 304 </table>
 305
 306 <br />
 307 <table width='95%' cellspacing='0'>
 308 <tr bgcolor='$color{'color20'}'><td colspan='2' align='left'><b>$Lang::tr{'fw default drop'}</b></td></tr>
 309 <tr><td align='left' width='60%'>$Lang::tr{'drop action'}</td><td><select name='FWPOLICY'>
 310 <option value='DROP' $selected{'FWPOLICY'}{'DROP'}>DROP</option>
 311 <option value='REJECT' $selected{'FWPOLICY'}{'REJECT'}>REJECT</option></select>
 312 </td></tr>
 313 <tr><td align='left' width='60%'>$Lang::tr{'drop action1'}</td><td><select name='FWPOLICY1'>
 314 <option value='DROP' $selected{'FWPOLICY1'}{'DROP'}>DROP</option>
 315 <option value='REJECT' $selected{'FWPOLICY1'}{'REJECT'}>REJECT</option></select>
 316 </td></tr>
 317 <tr><td align='left' width='60%'>$Lang::tr{'drop action2'}</td><td><select name='FWPOLICY2'>
 318 <option value='DROP' $selected{'FWPOLICY2'}{'DROP'}>DROP</option>
 319 <option value='REJECT' $selected{'FWPOLICY2'}{'REJECT'}>REJECT</option></select>
 320 </td></tr>
 321 </table>
 322
 323 <br />
 324 <table width='100%' cellspacing='0'>
 325 <tr><td align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}'>
 326 <input type='submit' name='ACTION' value=$Lang::tr{'save'} />
 327 </form></td></tr>
 328 </table>
 329 </form>
 330 END
 331 ;
 332 &Header::closebox();
 333
 334 &Header::openbox('100%', 'center', $Lang::tr{'fwdfw pol title'});
 335         if ($fwdfwsettings{'POLICY'} eq 'MODE1'){ $selected{'POLICY'}{'MODE1'} = 'selected'; } else { $selected{'POLICY'}{'MODE1'} = ''; }
 336         if ($fwdfwsettings{'POLICY'} eq 'MODE2'){ $selected{'POLICY'}{'MODE2'} = 'selected'; } else { $selected{'POLICY'}{'MODE2'} = ''; }
 337         if ($fwdfwsettings{'POLICY1'} eq 'MODE1'){ $selected{'POLICY1'}{'MODE1'} = 'selected'; } else { $selected{'POLICY1'}{'MODE1'} = ''; }
 338         if ($fwdfwsettings{'POLICY1'} eq 'MODE2'){ $selected{'POLICY1'}{'MODE2'} = 'selected'; } else { $selected{'POLICY1'}{'MODE2'} = ''; }
 339 print <<END;
 340         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 341         <table width='100%' border='0'>
 342                 <tr><td colspan='3' style='font-weight:bold;color:red;' align='left'>FORWARD </td></tr>
 343                 <tr><td colspan='3' align='left'>$Lang::tr{'fwdfw pol text'}</td></tr>
 344                 <tr><td colspan='3'><hr /></td></tr>
 345                 <tr><td width='15%' align='left'>       <select name='POLICY' style="width: 100px">
 346                 <option value='MODE1' $selected{'POLICY'}{'MODE1'}>$Lang::tr{'fwdfw pol block'}</option>
 347                 <option value='MODE2' $selected{'POLICY'}{'MODE2'}>$Lang::tr{'fwdfw pol allow'}</option></select>
 348             <input type='submit' name='ACTION' value=$Lang::tr{'save'} /><input type='hidden' name='defpol' value='1'></td>
 349 END
 350         print "</tr></table></form>";
 351         print"<br><br>";
 352         print <<END;
 353         <form method='post' action='$ENV{'SCRIPT_NAME'}'>
 354         <table width='100%' border='0'>
 355                 <tr><td colspan='3' style='font-weight:bold;color:red;' align='left'>OUTGOING </td></tr>
 356                 <tr><td colspan='3' align='left'>$Lang::tr{'fwdfw pol text1'}</td></tr>
 357                 <tr><td colspan='3'><hr /></td></tr>
 358                 <tr><td width='15%' align='left'>       <select name='POLICY1' style="width: 100px">
 359                 <option value='MODE1' $selected{'POLICY1'}{'MODE1'}>$Lang::tr{'fwdfw pol block'}</option>
 360                 <option value='MODE2' $selected{'POLICY1'}{'MODE2'}>$Lang::tr{'fwdfw pol allow'}</option></select>
 361             <input type='submit' name='ACTION' value='$Lang::tr{'save'}' /><input type='hidden' name='defpol' value='1'></td>
 362 END
 363         print "</tr></table></form>";
 364         &Header::closebox();
 365
 366 &Header::closebigbox();
 367 &Header::closepage();