-#!/usr/bin/perl\r
-#\r
-# SmoothWall CGIs\r
-#\r
-# This code is distributed under the terms of the GPL\r
-#\r
-# (c) The SmoothWall Team\r
-# Copyright (c) 2002/04/13 Steve Bootes - Add destination IP support\r
-#\r
-# $Id: xtaccess.cgi,v 1.6.2.15 2005/03/05 08:44:32 eoberlander Exp $\r
-#\r
- \r
-use strict;\r
-\r
-# enable only the following on debugging purpose\r
-#use warnings;\r
-#use CGI::Carp 'fatalsToBrowser';\r
-\r
-require 'CONFIG_ROOT/general-functions.pl';\r
-require "${General::swroot}/lang.pl";\r
-require "${General::swroot}/header.pl";\r
-\r
-#workaround to suppress a warning when a variable is used only once\r
-my @dummy = ( ${Header::colouryellow} );\r
-undef (@dummy);\r
-\r
-my %cgiparams=();\r
-my %checked=();\r
-my %selected=();\r
-my $errormessage = '';\r
-my $filename = "${General::swroot}/xtaccess/config";\r
-my $aliasfile = "${General::swroot}/ethernet/aliases";\r
-my $changed = 'no';\r
-\r
-&Header::showhttpheaders();\r
-\r
-$cgiparams{'ENABLED'} = 'off';\r
-$cgiparams{'ACTION'} = '';\r
-$cgiparams{'SRC'} = '';\r
-$cgiparams{'DEST_PORT'} = '';\r
-$cgiparams{'REMARK'} ='';\r
-&Header::getcgihash(\%cgiparams);\r
-open(FILE, $filename) or die 'Unable to open config file.';\r
-my @current = <FILE>;\r
-close(FILE);\r
-\r
-if ($cgiparams{'ACTION'} eq $Lang::tr{'add'})\r
-{\r
- unless($cgiparams{'PROTOCOL'} =~ /^(tcp|udp)$/) { $errormessage = $Lang::tr{'invalid input'}; }\r
- unless(&General::validipormask($cgiparams{'SRC'}))\r
- {\r
- if ($cgiparams{'SRC'} ne '') {\r
- $errormessage = $Lang::tr{'source ip bad'}; }\r
- else {\r
- $cgiparams{'SRC'} = '0.0.0.0/0'; }\r
- }\r
- unless($errormessage){ $errormessage = &General::validportrange($cgiparams{'DEST_PORT'},'dst'); }\r
- if ( ! $errormessage)\r
- {\r
- $cgiparams{'REMARK'} = &Header::cleanhtml($cgiparams{'REMARK'});\r
-\r
- if($cgiparams{'EDITING'} eq 'no') {\r
- open(FILE,">>$filename") or die 'Unable to open config file.';\r
- flock FILE, 2;\r
- print FILE "$cgiparams{'PROTOCOL'},$cgiparams{'SRC'},$cgiparams{'DEST_PORT'},$cgiparams{'ENABLED'},$cgiparams{'DEST'},$cgiparams{'REMARK'}\n";\r
- } else {\r
- open(FILE, ">$filename") or die 'Unable to open config file.';\r
- flock FILE, 2;\r
- my $id = 0;\r
- foreach my $line (@current)\r
- {\r
- $id++;\r
- if ($cgiparams{'EDITING'} eq $id) {\r
- print FILE "$cgiparams{'PROTOCOL'},$cgiparams{'SRC'},$cgiparams{'DEST_PORT'},$cgiparams{'ENABLED'},$cgiparams{'DEST'},$cgiparams{'REMARK'}\n";\r
- } else { print FILE "$line"; }\r
- }\r
- }\r
- close(FILE);\r
- undef %cgiparams;\r
- $changed = 'yes';\r
- &General::log($Lang::tr{'external access rule added'});\r
- system('/usr/local/bin/setxtaccess');\r
- } else {\r
- # stay on edit mode if an error occur\r
- if ($cgiparams{'EDITING'} ne 'no')\r
- {\r
- $cgiparams{'ACTION'} = $Lang::tr{'edit'};\r
- $cgiparams{'ID'} = $cgiparams{'EDITING'};\r
- }\r
- }\r
-}\r
-if ($cgiparams{'ACTION'} eq $Lang::tr{'remove'})\r
-{\r
- my $id = 0;\r
- open(FILE, ">$filename") or die 'Unable to open config file.';\r
- flock FILE, 2;\r
- foreach my $line (@current)\r
- {\r
- $id++;\r
- unless ($cgiparams{'ID'} eq $id) { print FILE "$line"; }\r
- }\r
- close(FILE);\r
- system('/usr/local/bin/setxtaccess');\r
- &General::log($Lang::tr{'external access rule removed'});\r
-}\r
-if ($cgiparams{'ACTION'} eq $Lang::tr{'toggle enable disable'})\r
-{\r
- open(FILE, ">$filename") or die 'Unable to open config file.';\r
- flock FILE, 2;\r
- my $id = 0;\r
- foreach my $line (@current)\r
- {\r
- $id++;\r
- unless ($cgiparams{'ID'} eq $id) { print FILE "$line"; }\r
- else\r
- {\r
- chomp($line);\r
- my @temp = split(/\,/,$line);\r
- print FILE "$temp[0],$temp[1],$temp[2],$cgiparams{'ENABLE'},$temp[4],$temp[5]\n";\r
- }\r
- }\r
- close(FILE);\r
- system('/usr/local/bin/setxtaccess');\r
-}\r
-if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'})\r
-{\r
- my $id = 0;\r
- foreach my $line (@current)\r
- {\r
- $id++;\r
- if ($cgiparams{'ID'} eq $id)\r
- {\r
- chomp($line);\r
- my @temp = split(/\,/,$line);\r
- $cgiparams{'PROTOCOL'} = $temp[0];\r
- $cgiparams{'SRC'} = $temp[1];\r
- $cgiparams{'DEST_PORT'} = $temp[2];\r
- $cgiparams{'ENABLED'} = $temp[3];\r
- $cgiparams{'DEST'} = $temp[4];\r
- $cgiparams{'REMARK'} = $temp[5];\r
- }\r
- }\r
-}\r
-\r
-if ($cgiparams{'ACTION'} eq '')\r
-{\r
- $cgiparams{'PROTOCOL'} = 'tcp';\r
- $cgiparams{'DEST'} = '0.0.0.0';\r
- $cgiparams{'ENABLED'} = 'on';\r
-}\r
-\r
-$selected{'PROTOCOL'}{'udp'} = '';\r
-$selected{'PROTOCOL'}{'tcp'} = '';\r
-$selected{'PROTOCOL'}{$cgiparams{'PROTOCOL'}} = "selected='selected'";\r
-\r
-$selected{'DEST'}{$cgiparams{'DEST'}} = "selected='selected'";\r
-\r
-$checked{'ENABLED'}{'off'} = '';\r
-$checked{'ENABLED'}{'on'} = '';\r
-$checked{'ENABLED'}{$cgiparams{'ENABLED'}} = "checked='checked'";\r
-\r
-&Header::openpage($Lang::tr{'external access configuration'}, 1, '');\r
-\r
-&Header::openbigbox('100%', 'left', '', $errormessage);\r
-\r
-if ($errormessage) {\r
- &Header::openbox('100%', 'left', $Lang::tr{'error messages'});\r
- print "<class name='base'>$errormessage\n";\r
- print " </class>\n";\r
- &Header::closebox();\r
-}\r
-\r
-print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";\r
-\r
-my $buttontext = $Lang::tr{'add'};\r
-if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'}) {\r
- &Header::openbox('100%', 'left', $Lang::tr{'edit a rule'});\r
- $buttontext = $Lang::tr{'update'};\r
-} else {\r
- &Header::openbox('100%', 'left', $Lang::tr{'add a new rule'});\r
-}\r
-print <<END\r
-<table width='100%'>\r
-<tr>\r
-<td width='10%'>\r
-<select name='PROTOCOL'>\r
-<option value='udp' $selected{'PROTOCOL'}{'udp'}>UDP</option>\r
-<option value='tcp' $selected{'PROTOCOL'}{'tcp'}>TCP</option>\r
-</select>\r
-</td>\r
-<td class='base'><font color='${Header::colourred}'>$Lang::tr{'source network'}</font></td>\r
-<td><input type='text' name='SRC' value='$cgiparams{'SRC'}' size='32' /></td>\r
-<td class='base'><font color='${Header::colourred}'>$Lang::tr{'destination port'}:</font></td>\r
-<td><input type='text' name='DEST_PORT' value='$cgiparams{'DEST_PORT'}' size='5' /></td>\r
-</tr>\r
-</table>\r
-<table width='100%'>\r
-<tr>\r
-<td width='10%' class='base'>$Lang::tr{'enabled'}<input type='checkbox' name='ENABLED' $checked{'ENABLED'}{'on'} /></td>\r
-<td class='base'><font color='${Header::colourred}'>$Lang::tr{'destination ip'}: </font>\r
-<select name='DEST'>\r
-<option value='0.0.0.0' $selected{'DEST'}{'0.0.0.0'}>DEFAULT IP</option>\r
-END\r
-;\r
-\r
-open(ALIASES, "$aliasfile") or die 'Unable to open aliases file.';\r
-while (<ALIASES>)\r
-{\r
- chomp($_);\r
- my @temp = split(/\,/,$_);\r
- if ($temp[1] eq 'on') {\r
- print "<option value='$temp[0]' $selected{'DEST'}{$temp[0]}>$temp[0]";\r
- if (defined $temp[2] and ($temp[2] ne '')) { print " ($temp[2])"; }\r
- print "</option>\n";\r
- }\r
-}\r
-close(ALIASES);\r
-print <<END\r
-</select>\r
-</td>\r
-</tr>\r
-</table>\r
-<table width='100%'>\r
-<tr>\r
-<td width ='10%' class='base'>\r
-<font class='boldbase'>$Lang::tr{'remark'}:</font> <img src='/blob.gif' alt='*' />\r
-</td>\r
-<td width='65%'>\r
-<input type='text' name='REMARK' value='$cgiparams{'REMARK'}' size='55' maxlength='50' />\r
-</td>\r
-<td width='25%' align='center'>\r
-<input type='hidden' name='ACTION' value='$Lang::tr{'add'}' />\r
-<input type='submit' name='SUBMIT' value='$buttontext' />\r
-</td>\r
-</tr>\r
-</table>\r
-<table width='100%'>\r
-<tr>\r
-<td class='base' width='30%'><img src='/blob.gif' alt ='*' align='top' /> <font class='base'>$Lang::tr{'this field may be blank'}</font>\r
-</td>\r
-</tr>\r
-</table>\r
-END\r
-;\r
-if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'}) {\r
- print "<input type='hidden' name='EDITING' value='$cgiparams{'ID'}' />\n";\r
-} else {\r
- print "<input type='hidden' name='EDITING' value='no' />\n";\r
-}\r
-\r
-&Header::closebox();\r
-print "</form>\n";\r
-\r
-&Header::openbox('100%', 'left', $Lang::tr{'current rules'});\r
-print <<END\r
-<table width='100%'>\r
-<tr>\r
-<td width='10%' class='boldbase' align='center'><b>$Lang::tr{'proto'}</b></td>\r
-<td width='20%' class='boldbase' align='center'><b>$Lang::tr{'source ip'}</b></td>\r
-<td width='20%' class='boldbase' align='center'><b>$Lang::tr{'destination ip'}</b></td>\r
-<td width='15%' class='boldbase' align='center'><b>$Lang::tr{'destination port'}</b></td>\r
-<td width='30%' class='boldbase' align='center'><b>$Lang::tr{'remark'}</b></td>\r
-<td width='5%' class='boldbase' colspan='3' align='center'><b>$Lang::tr{'action'}</b></td>\r
-</tr>\r
-END\r
-;\r
-\r
-# If something has happened re-read config\r
-if($cgiparams{'ACTION'} ne '' or $changed ne 'no')\r
-{\r
- open(FILE, $filename) or die 'Unable to open config file.';\r
- @current = <FILE>;\r
- close(FILE);\r
-}\r
-my $id = 0;\r
-foreach my $line (@current)\r
-{\r
- $id++;\r
- chomp($line);\r
- my @temp = split(/\,/,$line);\r
- my $protocol = '';\r
- my $gif = '';\r
- my $gdesc = '';\r
- my $toggle = '';\r
- if ($temp[0] eq 'udp') {\r
- $protocol = 'UDP'; }\r
- else {\r
- $protocol = 'TCP' }\r
- if($cgiparams{'ACTION'} eq $Lang::tr{'edit'} && $cgiparams{'ID'} eq $id) {\r
- print "<tr bgcolor='${Header::colouryellow}'>\n"; }\r
- elsif ($id % 2) {\r
- print "<tr bgcolor='${Header::table1colour}'>\n"; }\r
- else {\r
- print "<tr bgcolor='${Header::table2colour}'>\n"; }\r
- if ($temp[3] eq 'on') { $gif='on.gif'; $toggle='off'; $gdesc=$Lang::tr{'click to disable'};}\r
- else { $gif='off.gif'; $toggle='on'; $gdesc=$Lang::tr{'click to enable'}; }\r
- if ($temp[1] eq '0.0.0.0/0') {\r
- $temp[1] = $Lang::tr{'caps all'}; }\r
- # catch for 'old-style' rules file - assume default ip if\r
- # none exists\r
- if (!&General::validip($temp[4]) || $temp[4] eq '0.0.0.0') {\r
- $temp[4] = 'DEFAULT IP'; }\r
- $temp[5] = '' unless defined $temp[5];\r
-print <<END\r
-<td align='center'>$protocol</td>\r
-<td align='center'>$temp[1]</td>\r
-<td align='center'>$temp[4]</td>\r
-<td align='center'>$temp[2]</td>\r
-<td align='left'> $temp[5]</td>\r
-<td align='center'>\r
-<form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>\r
-<input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' title='$gdesc' alt='$gdesc' />\r
-<input type='hidden' name='ID' value='$id' />\r
-<input type='hidden' name='ENABLE' value='$toggle' />\r
-<input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}' />\r
-</form>\r
-</td>\r
-<td align='center'>\r
-<form method='post' name='frmb$id' action='$ENV{'SCRIPT_NAME'}'>\r
-<input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' title='$Lang::tr{'edit'}' alt='$Lang::tr{'edit'}' />\r
-<input type='hidden' name='ID' value='$id' />\r
-<input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />\r
-</form>\r
-</td>\r
-<td align='center'>\r
-<form method='post' name='frmc$id' action='$ENV{'SCRIPT_NAME'}'>\r
-<input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />\r
-<input type='hidden' name='ID' value='$id' />\r
-<input type='hidden' name='ACTION' value='$Lang::tr{'remove'}' />\r
-</form>\r
-</td>\r
-\r
-</tr>\r
-END\r
- ;\r
-}\r
-print "</table>\n";\r
-\r
-# If the xt access file contains entries, print Key to action icons\r
-if ( ! -z "$filename") {\r
-print <<END\r
-<table>\r
-<tr>\r
- <td class='boldbase'> <b>$Lang::tr{'legend'}:</b></td>\r
- <td> <img src='/images/on.gif' alt='$Lang::tr{'click to disable'}' /></td>\r
- <td class='base'>$Lang::tr{'click to disable'}</td>\r
- <td> <img src='/images/off.gif' alt='$Lang::tr{'click to enable'}' /></td>\r
- <td class='base'>$Lang::tr{'click to enable'}</td>\r
- <td> <img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>\r
- <td class='base'>$Lang::tr{'edit'}</td>\r
- <td> <img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>\r
- <td class='base'>$Lang::tr{'remove'}</td>\r
-</tr>\r
-</table>\r
-END\r
-;\r
-}\r
-\r
-&Header::closebox();\r
-\r
-&Header::closebigbox();\r
-\r
-&Header::closepage();\r
+#!/usr/bin/perl
+#
+# SmoothWall CGIs
+#
+# This code is distributed under the terms of the GPL
+#
+# (c) The SmoothWall Team
+# Copyright (c) 2002/04/13 Steve Bootes - Add destination IP support
+#
+# $Id: xtaccess.cgi,v 1.6.2.15 2005/03/05 08:44:32 eoberlander Exp $
+#
+
+use strict;
+
+# enable only the following on debugging purpose
+#use warnings;
+#use CGI::Carp 'fatalsToBrowser';
+
+require 'CONFIG_ROOT/general-functions.pl';
+require "${General::swroot}/lang.pl";
+require "${General::swroot}/header.pl";
+
+#workaround to suppress a warning when a variable is used only once
+my @dummy = ( ${Header::colouryellow} );
+undef (@dummy);
+
+my %cgiparams=();
+my %checked=();
+my %selected=();
+my $errormessage = '';
+my $filename = "${General::swroot}/xtaccess/config";
+my $aliasfile = "${General::swroot}/ethernet/aliases";
+my $changed = 'no';
+
+&Header::showhttpheaders();
+
+$cgiparams{'ENABLED'} = 'off';
+$cgiparams{'ACTION'} = '';
+$cgiparams{'SRC'} = '';
+$cgiparams{'DEST_PORT'} = '';
+$cgiparams{'REMARK'} ='';
+&Header::getcgihash(\%cgiparams);
+open(FILE, $filename) or die 'Unable to open config file.';
+my @current = <FILE>;
+close(FILE);
+
+if ($cgiparams{'ACTION'} eq $Lang::tr{'add'})
+{
+ unless($cgiparams{'PROTOCOL'} =~ /^(tcp|udp)$/) { $errormessage = $Lang::tr{'invalid input'}; }
+ unless(&General::validipormask($cgiparams{'SRC'}))
+ {
+ if ($cgiparams{'SRC'} ne '') {
+ $errormessage = $Lang::tr{'source ip bad'}; }
+ else {
+ $cgiparams{'SRC'} = '0.0.0.0/0'; }
+ }
+ unless($errormessage){ $errormessage = &General::validportrange($cgiparams{'DEST_PORT'},'dst'); }
+ if ( ! $errormessage)
+ {
+ $cgiparams{'REMARK'} = &Header::cleanhtml($cgiparams{'REMARK'});
+
+ if($cgiparams{'EDITING'} eq 'no') {
+ open(FILE,">>$filename") or die 'Unable to open config file.';
+ flock FILE, 2;
+ print FILE "$cgiparams{'PROTOCOL'},$cgiparams{'SRC'},$cgiparams{'DEST_PORT'},$cgiparams{'ENABLED'},$cgiparams{'DEST'},$cgiparams{'REMARK'}\n";
+ } else {
+ open(FILE, ">$filename") or die 'Unable to open config file.';
+ flock FILE, 2;
+ my $id = 0;
+ foreach my $line (@current)
+ {
+ $id++;
+ if ($cgiparams{'EDITING'} eq $id) {
+ print FILE "$cgiparams{'PROTOCOL'},$cgiparams{'SRC'},$cgiparams{'DEST_PORT'},$cgiparams{'ENABLED'},$cgiparams{'DEST'},$cgiparams{'REMARK'}\n";
+ } else { print FILE "$line"; }
+ }
+ }
+ close(FILE);
+ undef %cgiparams;
+ $changed = 'yes';
+ &General::log($Lang::tr{'external access rule added'});
+ system('/usr/local/bin/setxtaccess');
+ } else {
+ # stay on edit mode if an error occur
+ if ($cgiparams{'EDITING'} ne 'no')
+ {
+ $cgiparams{'ACTION'} = $Lang::tr{'edit'};
+ $cgiparams{'ID'} = $cgiparams{'EDITING'};
+ }
+ }
+}
+if ($cgiparams{'ACTION'} eq $Lang::tr{'remove'})
+{
+ my $id = 0;
+ open(FILE, ">$filename") or die 'Unable to open config file.';
+ flock FILE, 2;
+ foreach my $line (@current)
+ {
+ $id++;
+ unless ($cgiparams{'ID'} eq $id) { print FILE "$line"; }
+ }
+ close(FILE);
+ system('/usr/local/bin/setxtaccess');
+ &General::log($Lang::tr{'external access rule removed'});
+}
+if ($cgiparams{'ACTION'} eq $Lang::tr{'toggle enable disable'})
+{
+ open(FILE, ">$filename") or die 'Unable to open config file.';
+ flock FILE, 2;
+ my $id = 0;
+ foreach my $line (@current)
+ {
+ $id++;
+ unless ($cgiparams{'ID'} eq $id) { print FILE "$line"; }
+ else
+ {
+ chomp($line);
+ my @temp = split(/\,/,$line);
+ print FILE "$temp[0],$temp[1],$temp[2],$cgiparams{'ENABLE'},$temp[4],$temp[5]\n";
+ }
+ }
+ close(FILE);
+ system('/usr/local/bin/setxtaccess');
+}
+if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'})
+{
+ my $id = 0;
+ foreach my $line (@current)
+ {
+ $id++;
+ if ($cgiparams{'ID'} eq $id)
+ {
+ chomp($line);
+ my @temp = split(/\,/,$line);
+ $cgiparams{'PROTOCOL'} = $temp[0];
+ $cgiparams{'SRC'} = $temp[1];
+ $cgiparams{'DEST_PORT'} = $temp[2];
+ $cgiparams{'ENABLED'} = $temp[3];
+ $cgiparams{'DEST'} = $temp[4];
+ $cgiparams{'REMARK'} = $temp[5];
+ }
+ }
+}
+
+if ($cgiparams{'ACTION'} eq '')
+{
+ $cgiparams{'PROTOCOL'} = 'tcp';
+ $cgiparams{'DEST'} = '0.0.0.0';
+ $cgiparams{'ENABLED'} = 'on';
+}
+
+$selected{'PROTOCOL'}{'udp'} = '';
+$selected{'PROTOCOL'}{'tcp'} = '';
+$selected{'PROTOCOL'}{$cgiparams{'PROTOCOL'}} = "selected='selected'";
+
+$selected{'DEST'}{$cgiparams{'DEST'}} = "selected='selected'";
+
+$checked{'ENABLED'}{'off'} = '';
+$checked{'ENABLED'}{'on'} = '';
+$checked{'ENABLED'}{$cgiparams{'ENABLED'}} = "checked='checked'";
+
+&Header::openpage($Lang::tr{'external access configuration'}, 1, '');
+
+&Header::openbigbox('100%', 'left', '', $errormessage);
+
+if ($errormessage) {
+ &Header::openbox('100%', 'left', $Lang::tr{'error messages'});
+ print "<class name='base'>$errormessage\n";
+ print " </class>\n";
+ &Header::closebox();
+}
+
+print "<form method='post' action='$ENV{'SCRIPT_NAME'}'>\n";
+
+my $buttontext = $Lang::tr{'add'};
+if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'}) {
+ &Header::openbox('100%', 'left', $Lang::tr{'edit a rule'});
+ $buttontext = $Lang::tr{'update'};
+} else {
+ &Header::openbox('100%', 'left', $Lang::tr{'add a new rule'});
+}
+print <<END
+<table width='100%'>
+<tr>
+<td width='10%'>
+<select name='PROTOCOL'>
+<option value='udp' $selected{'PROTOCOL'}{'udp'}>UDP</option>
+<option value='tcp' $selected{'PROTOCOL'}{'tcp'}>TCP</option>
+</select>
+</td>
+<td class='base'><font color='${Header::colourred}'>$Lang::tr{'source network'}</font></td>
+<td><input type='text' name='SRC' value='$cgiparams{'SRC'}' size='32' /></td>
+<td class='base'><font color='${Header::colourred}'>$Lang::tr{'destination port'}:</font></td>
+<td><input type='text' name='DEST_PORT' value='$cgiparams{'DEST_PORT'}' size='5' /></td>
+</tr>
+</table>
+<table width='100%'>
+<tr>
+<td width='10%' class='base'>$Lang::tr{'enabled'}<input type='checkbox' name='ENABLED' $checked{'ENABLED'}{'on'} /></td>
+<td class='base'><font color='${Header::colourred}'>$Lang::tr{'destination ip'}: </font>
+<select name='DEST'>
+<option value='0.0.0.0' $selected{'DEST'}{'0.0.0.0'}>DEFAULT IP</option>
+END
+;
+
+open(ALIASES, "$aliasfile") or die 'Unable to open aliases file.';
+while (<ALIASES>)
+{
+ chomp($_);
+ my @temp = split(/\,/,$_);
+ if ($temp[1] eq 'on') {
+ print "<option value='$temp[0]' $selected{'DEST'}{$temp[0]}>$temp[0]";
+ if (defined $temp[2] and ($temp[2] ne '')) { print " ($temp[2])"; }
+ print "</option>\n";
+ }
+}
+close(ALIASES);
+print <<END
+</select>
+</td>
+</tr>
+</table>
+<table width='100%'>
+<tr>
+<td width ='10%' class='base'>
+<font class='boldbase'>$Lang::tr{'remark'}:</font> <img src='/blob.gif' alt='*' />
+</td>
+<td width='65%'>
+<input type='text' name='REMARK' value='$cgiparams{'REMARK'}' size='55' maxlength='50' />
+</td>
+<td width='25%' align='center'>
+<input type='hidden' name='ACTION' value='$Lang::tr{'add'}' />
+<input type='submit' name='SUBMIT' value='$buttontext' />
+</td>
+</tr>
+</table>
+<table width='100%'>
+<tr>
+<td class='base' width='30%'><img src='/blob.gif' alt ='*' align='top' /> <font class='base'>$Lang::tr{'this field may be blank'}</font>
+</td>
+</tr>
+</table>
+END
+;
+if ($cgiparams{'ACTION'} eq $Lang::tr{'edit'}) {
+ print "<input type='hidden' name='EDITING' value='$cgiparams{'ID'}' />\n";
+} else {
+ print "<input type='hidden' name='EDITING' value='no' />\n";
+}
+
+&Header::closebox();
+print "</form>\n";
+
+&Header::openbox('100%', 'left', $Lang::tr{'current rules'});
+print <<END
+<table width='100%'>
+<tr>
+<td width='10%' class='boldbase' align='center'><b>$Lang::tr{'proto'}</b></td>
+<td width='20%' class='boldbase' align='center'><b>$Lang::tr{'source ip'}</b></td>
+<td width='20%' class='boldbase' align='center'><b>$Lang::tr{'destination ip'}</b></td>
+<td width='15%' class='boldbase' align='center'><b>$Lang::tr{'destination port'}</b></td>
+<td width='30%' class='boldbase' align='center'><b>$Lang::tr{'remark'}</b></td>
+<td width='5%' class='boldbase' colspan='3' align='center'><b>$Lang::tr{'action'}</b></td>
+</tr>
+END
+;
+
+# If something has happened re-read config
+if($cgiparams{'ACTION'} ne '' or $changed ne 'no')
+{
+ open(FILE, $filename) or die 'Unable to open config file.';
+ @current = <FILE>;
+ close(FILE);
+}
+my $id = 0;
+foreach my $line (@current)
+{
+ $id++;
+ chomp($line);
+ my @temp = split(/\,/,$line);
+ my $protocol = '';
+ my $gif = '';
+ my $gdesc = '';
+ my $toggle = '';
+ if ($temp[0] eq 'udp') {
+ $protocol = 'UDP'; }
+ else {
+ $protocol = 'TCP' }
+ if($cgiparams{'ACTION'} eq $Lang::tr{'edit'} && $cgiparams{'ID'} eq $id) {
+ print "<tr bgcolor='${Header::colouryellow}'>\n"; }
+ elsif ($id % 2) {
+ print "<tr bgcolor='${Header::table1colour}'>\n"; }
+ else {
+ print "<tr bgcolor='${Header::table2colour}'>\n"; }
+ if ($temp[3] eq 'on') { $gif='on.gif'; $toggle='off'; $gdesc=$Lang::tr{'click to disable'};}
+ else { $gif='off.gif'; $toggle='on'; $gdesc=$Lang::tr{'click to enable'}; }
+ if ($temp[1] eq '0.0.0.0/0') {
+ $temp[1] = $Lang::tr{'caps all'}; }
+ # catch for 'old-style' rules file - assume default ip if
+ # none exists
+ if (!&General::validip($temp[4]) || $temp[4] eq '0.0.0.0') {
+ $temp[4] = 'DEFAULT IP'; }
+ $temp[5] = '' unless defined $temp[5];
+print <<END
+<td align='center'>$protocol</td>
+<td align='center'>$temp[1]</td>
+<td align='center'>$temp[4]</td>
+<td align='center'>$temp[2]</td>
+<td align='left'> $temp[5]</td>
+<td align='center'>
+<form method='post' name='frma$id' action='$ENV{'SCRIPT_NAME'}'>
+<input type='image' name='$Lang::tr{'toggle enable disable'}' src='/images/$gif' title='$gdesc' alt='$gdesc' />
+<input type='hidden' name='ID' value='$id' />
+<input type='hidden' name='ENABLE' value='$toggle' />
+<input type='hidden' name='ACTION' value='$Lang::tr{'toggle enable disable'}' />
+</form>
+</td>
+<td align='center'>
+<form method='post' name='frmb$id' action='$ENV{'SCRIPT_NAME'}'>
+<input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' title='$Lang::tr{'edit'}' alt='$Lang::tr{'edit'}' />
+<input type='hidden' name='ID' value='$id' />
+<input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />
+</form>
+</td>
+<td align='center'>
+<form method='post' name='frmc$id' action='$ENV{'SCRIPT_NAME'}'>
+<input type='image' name='$Lang::tr{'remove'}' src='/images/delete.gif' title='$Lang::tr{'remove'}' alt='$Lang::tr{'remove'}' />
+<input type='hidden' name='ID' value='$id' />
+<input type='hidden' name='ACTION' value='$Lang::tr{'remove'}' />
+</form>
+</td>
+
+</tr>
+END
+ ;
+}
+print "</table>\n";
+
+# If the xt access file contains entries, print Key to action icons
+if ( ! -z "$filename") {
+print <<END
+<table>
+<tr>
+ <td class='boldbase'> <b>$Lang::tr{'legend'}:</b></td>
+ <td> <img src='/images/on.gif' alt='$Lang::tr{'click to disable'}' /></td>
+ <td class='base'>$Lang::tr{'click to disable'}</td>
+ <td> <img src='/images/off.gif' alt='$Lang::tr{'click to enable'}' /></td>
+ <td class='base'>$Lang::tr{'click to enable'}</td>
+ <td> <img src='/images/edit.gif' alt='$Lang::tr{'edit'}' /></td>
+ <td class='base'>$Lang::tr{'edit'}</td>
+ <td> <img src='/images/delete.gif' alt='$Lang::tr{'remove'}' /></td>
+ <td class='base'>$Lang::tr{'remove'}</td>
+</tr>
+</table>
+END
+;
+}
+
+&Header::closebox();
+
+&Header::closebigbox();
+
+&Header::closepage();
projects / people / pmueller / ipfire-2.x.git / blobdiff