diff options
| author | Arnaud Desmons <adesmons@mandriva.com> | 2002-07-26 09:09:23 +0000 |
|---|---|---|
| committer | Arnaud Desmons <adesmons@mandriva.com> | 2002-07-26 09:09:23 +0000 |
| commit | 73b46aef2e46fbd345e1186dc28c33ac64283e0f (patch) | |
| tree | affb176fc0830978c877c1b101a540df06dda777 /ftp_wizard | |
| parent | 5d75e46ff0ec8953afbd152439861bbb43a5f8bb (diff) | |
| download | drakwizard-73b46aef2e46fbd345e1186dc28c33ac64283e0f.tar drakwizard-73b46aef2e46fbd345e1186dc28c33ac64283e0f.tar.gz drakwizard-73b46aef2e46fbd345e1186dc28c33ac64283e0f.tar.bz2 drakwizard-73b46aef2e46fbd345e1186dc28c33ac64283e0f.tar.xz drakwizard-73b46aef2e46fbd345e1186dc28c33ac64283e0f.zip | |
ftp conf perl module, just do_it
Diffstat (limited to 'ftp_wizard')
| -rw-r--r-- | ftp_wizard/scripts/Ftpconf.pm | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/ftp_wizard/scripts/Ftpconf.pm b/ftp_wizard/scripts/Ftpconf.pm new file mode 100644 index 00000000..a2c57f04 --- /dev/null +++ b/ftp_wizard/scripts/Ftpconf.pm @@ -0,0 +1,57 @@ +#!/usr/bin/perl + +package Ftpconf; +require "__WIZ_HOME__/common/scripts/Vareqval.pm"; +use MDK::Common; +use strict; + +sub true_or_false { + my ($val) = @_; + + $val eq "0" || $val eq "\'0\'" || $val eq "\"0\"" || + $val eq "false" || $val eq "\'false\'" || $val eq "\"false\"" and + return 0; + $val eq "1" || $val eq "\'1\'" || $val eq "\"1\"" || + $val eq "true" || $val eq "\'true\'" || $val eq "\"true\"" and + return 1; + 0; +} + +sub do_it { + my %mdk = Vareqval->get("/etc/sysconfig/mdk_serv"); + $mdk{wiz_ftp_external} = $ENV{wiz_ftp_external} if defined $ENV{wiz_ftp_external} or + die "wiz_ftp_external not defined in env !"; + $mdk{wiz_ftp_internal} = $ENV{wiz_ftp_internal} if defined $ENV{wiz_ftp_internal} or + die "wiz_ftp_internal not defined in env !"; + $mdk{wiz_ftp_external} = true_or_false($mdk{wiz_ftp_external}); + $mdk{wiz_ftp_internal} = $mdk{wiz_ftp_external} ? 1 : true_or_false($mdk{wiz_ftp_internal}); + my $wiz_ftp_internal = $mdk{wiz_ftp_internal}; + my $wiz_ftp_external = $mdk{wiz_ftp_external}; + my $wiz_device = $mdk{wiz_device} if defined $mdk{wiz_device} or + die "wiz_device not in /etc/sysconfig/mdk_serv"; + Vareqval->commit("/etc/sysconfig/mdk_serv", \%mdk); + + my $file = "/etc/ftphosts"; + die "no ftp configuration file found ! warning." if (!-f $file); + MDK::Common::cp_af($file, $file . ".orig"); + open(NEW, "> $file") or die "error while opening $file: $!"; + my $date = `date`; + print NEW "# host access file +# Everything after a '#' is treated as comment, +# empty lines are ignored +# acces allowed without host restriction done +# by script $date\n"; + if ($wiz_ftp_internal && !$wiz_ftp_external) { + my %mdk = Vareqval->get("/etc/sysconfig/network-scripts/ifcfg-".$wiz_device); + my $wiz_ip_net = $mdk{NETWORK} if defined $mdk{NETWORK} or + die "NETWORK not in /etc/sysconfig/network-scripts/ifcfg-".$wiz_device; + ($wiz_ip_net) = ($wiz_ip_net =~ /(.*)\..*/); + print NEW "allow * $wiz_ip_net.*\n"; + } + elsif (!$wiz_ftp_external) { + print NEW "deny * *\n"; + } + + system("service xinetd restart"); +} + |