summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-11 17:09:12 +0000
committerdamien <damien@mandriva.com>2001-04-11 17:09:12 +0000
commit7659b5411c57fdbf78235dc6b65b6d0a2df2ed71 (patch)
treeb49601a44d065556eb1bcfaba16f25c217775ec1 /perl-install
parent8dcd36d7ddc8908f6b7046d9427d604451a5a95f (diff)
downloaddrakx-7659b5411c57fdbf78235dc6b65b6d0a2df2ed71.tar
drakx-7659b5411c57fdbf78235dc6b65b6d0a2df2ed71.tar.gz
drakx-7659b5411c57fdbf78235dc6b65b6d0a2df2ed71.tar.bz2
drakx-7659b5411c57fdbf78235dc6b65b6d0a2df2ed71.tar.xz
drakx-7659b5411c57fdbf78235dc6b65b6d0a2df2ed71.zip
installation of package : not at the same place
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/tinyfirewall.pm36
1 files changed, 19 insertions, 17 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm
index 7d3b87ae9..cd29ca6e2 100644
--- a/perl-install/tinyfirewall.pm
+++ b/perl-install/tinyfirewall.pm
@@ -124,17 +124,17 @@ sub DoInterface {
# my $popimap = sub { $_[0] or return; $settings{FORCE_PASV_FTP} = 11; mapn {$settings{"$_[0]"} = "$_[1]"; }
#[ qw(FORCE_PASV_FTP TCP_BLOCKED_SERVICES UDP_BLOCKED_SERVICES ICMP_ALLOWED_TYPES ENABLE_SRC_ADDR_VERIFY IP_MASQ_NETWORK IP_MASQ_MODULES REJECT_METHOD) ] ,
#[ "N", "6000:6020", "2049", "destination-unreachable echo-reply time-exceeded" , "Y", "", "", "DENY" ]; };
-my $popimap = sub {
- $_[0] or return;
- $settings{'FORCE_PASV_FTP'} = "N";
- $settings{TCP_BLOCKED_SERVICES}= "6000:6020";
- $settings{UDP_BLOCKED_SERVICES}= "2049";
- $settings{ICMP_ALLOWED_TYPES}= "destination-unreachable echo-reply time-exceeded";
- $settings{ENABLE_SRC_ADDR_VEIFY}= "Y";
- $settings{IP_MASQ_NETWORK}= "";
- $settings{IP_MASQ_MODULES}= "";
- $settings{REJECT_METHOD}= "DENY";
-};
+ my $popimap = sub {
+ $_[0] or return;
+ $settings{'FORCE_PASV_FTP'} = "N";
+ $settings{TCP_BLOCKED_SERVICES}= "6000:6020";
+ $settings{UDP_BLOCKED_SERVICES}= "2049";
+ $settings{ICMP_ALLOWED_TYPES}= "destination-unreachable echo-reply time-exceeded";
+ $settings{ENABLE_SRC_ADDR_VEIFY}= "Y";
+ $settings{IP_MASQ_NETWORK}= "";
+ $settings{IP_MASQ_MODULES}= "";
+ $settings{REJECT_METHOD}= "DENY";
+ };
# my $ntp = sub { $_[0] or return; mapn { $settings{$_[0]} = $_[1] } ['ICMP_OUTBOUND_DISABLED_TYPES}', 'LOG_FAILURES'], [ "", "N"] };
my $ntp = sub { $_[0] or return;
$settings{'ICMP_OUTBOUND_DISABLED_TYPES}'} = "";
@@ -145,6 +145,13 @@ my $popimap = sub {
my (undef, undef, @netstat) = `/bin/netstat -in`;
$settings{DHCP_IFACES} = join(' ', split(' ', $settings{DHCP_IFACES}), map { /(\S+)/ } @netstat );
} else { $settings{DHCP_IFACES} = "" } };
+ my $install = sub {
+ if ($in->standalone::pkgs_install(Kernel22() ? "ipchains" : "iptables", "Bastille")) {
+ $in->ask_warn('', _("Failure installing the needed packages : %s and Bastille.
+ Try to install them manually.", Kernel22() ? "ipchains" : "iptables") );
+ $in->exit(0);
+ }
+ };
my $quit = sub {
$_[0] or $in->exit(0);
SaveConfig();
@@ -170,7 +177,7 @@ my $popimap = sub {
"/etc/rc.d/init.d/bastille-firewall stop", "/etc/rc.d/init.d/bastille-firewall start"); };
my @struct = (
[$GetNetworkInfo],
- [],
+ [undef , undef, undef, $install ],
[undef , undef, undef, undef, ["tcp", "80"], ["tcp", "443"]],
[undef , undef, undef, undef, ["tcp", "53"], ["udp", "53"]],
[undef , undef, undef, undef, ["tcp", "22"]],
@@ -187,11 +194,6 @@ my $popimap = sub {
@struct = ( @struct, [undef , _("Don't Save"), _("Save & Quit"), $quit ] );
$messages[9]=$messages[11];
}
- if ($in->standalone::pkgs_install(Kernel22() ? "ipchains" : "iptables", "Bastille")) {
- $in->ask_warn('', _("Failure installing the needed packages : %s and Bastille.
- Try to install them manually.", Kernel22() ? "ipchains" : "iptables") );
- $in->exit(0);
- }
for (my $i=0;$i<@struct;$i++) {
$::Wizard_no_previous = $i == 0;
$::Wizard_finished = $i == $#struct;