summaryrefslogtreecommitdiffstats
path: root/ftp_wizard/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'ftp_wizard/scripts')
-rw-r--r--ftp_wizard/scripts/Ftpconf.pm57
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");
+}
+