First proftpd parser

1 files changed, 113 insertions, 0 deletions

diff --git a/ftp_wizard/scripts/ProFtpconf.pm b/ftp_wizard/scripts/ProFtpconf.pm
new file mode 100644
index 00000000..0893099d
--- /dev/null
+++ b/ftp_wizard/scripts/ProFtpconf.pm
@@ -0,0 +1,113 @@
+#!/usr/bin/perl
+
+package ProFtpconf;
+use MDK::Common;
+use strict;
+require "__WIZ_HOME__/common/scripts/Vareqval.pm";
+
+sub	true_or_false {
+    my	($val) = @_;
+
+    $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/proftpd.conf";
+    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 $allow = "all";
+    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 =~ /(.*)\..*/);
+	$allow = "$wiz_ip_net.";
+    }
+    elsif (!$wiz_ftp_external) {
+	$allow = "none";
+    }
+    my $file = "/etc/proftpd.conf";
+    open (NEW, "< $file");
+    my $exist = 0;
+    while (<NEW>) {
+	if (m/^\s*<Global>/s...m/^\s*<\/Global>/s ) {
+	    if (m/^\s*<Limit LOGIN>/s...m/^\s*<\/Limit>/s ) {
+		if (/^\s*(?!\#)\s*Order .*$/) {
+		    $exist += 1;
+		}
+		if (/^\s*(?!\#)\s*Allow .*$/) {
+		    $exist += 1;
+		}
+		if (/^\s*(?!\#)\s*Deny .*$/) {
+		    $exist += 1;
+		}
+	    }
+	}
+    }
+    close (NEW);
+    if ($exist < 3) {
+	substInFile {
+	    if (m/^\s*<Global>/s...m/^\s*<\/Global>/s ) {
+		if (m/^\s*<Limit LOGIN>/s...m/^\s*<\/Limit>/s ) {
+		    s/^\s*(?!\#)\s*Order .*$/\#$&\n/s;
+		    s/^\s*(?!\#)\s*Allow .*$/\#$&\n/s;
+		    s/^\s*(?!\#)\s*Deny .*$/\#$&\n/s;
+		}
+	    }
+	} $file;
+	open (NEW, ">> $file");
+	print NEW '
+<Global>
+  <Limit LOGIN>
+    Order allow,deny
+    Allow from ' .$allow.'
+    Deny from all
+  </Limit>
+</Global>';
+	close NEW;
+    }
+    else {
+	substInFile {
+	    if (m/^\s*<Global>/s...m/^\s*<\/Global>/s ) {
+		if (m/^\s*<Limit LOGIN>/s...m/^\s*<\/Limit>/s ) {
+		    if (/^\s*(?!\#)\s*Order .*$/i) {
+			if (!/\s*Order\s*allow,\s*deny\s*$/) {
+			    s//\#$&\n    Order allow,deny\n/;
+			}
+		    }
+		    if (/^\s*(?!\#)\s*Allow .*$/i) {
+			if (!/\s*Allow\s*from\s*$allow\s*$/) {
+			    s//\#$&\n    Allow from $allow/;
+			}
+		    }
+		    if (/^\s*(?!\#)\s*Deny .*$/i) {
+			if (!/\s*Deny\s*from\s*all\s*$/) {
+			    s//\#$&\n    Deny from all\n/;
+			}
+		    }
+		}
+	    }
+	} $file;
+    }
+    system("/etc/rc.d/init.d/proftpd restart");
+    10;
+}
+1;
+