summaryrefslogtreecommitdiffstats
path: root/ftp_wizard/Proftpd.pm
diff options
context:
space:
mode:
Diffstat (limited to 'ftp_wizard/Proftpd.pm')
-rwxr-xr-xftp_wizard/Proftpd.pm40
1 files changed, 38 insertions, 2 deletions
diff --git a/ftp_wizard/Proftpd.pm b/ftp_wizard/Proftpd.pm
index ad42e864..ca8a466b 100755
--- a/ftp_wizard/Proftpd.pm
+++ b/ftp_wizard/Proftpd.pm
@@ -46,6 +46,27 @@ my $o = {
defaultimage => "$ENV{__WIZ_HOME__}ftp_wizard/images/FTP.png"
};
+my %opt = (
+ "SystemLog" => "/var/log/proftpd/proftpd.log",
+ "TransferLog" => "/var/log/proftpd/xferlog",
+ "Extendedlog" => "/var/log/proftpd/ftp.log",
+ "LogFormat default" => "\"%h %l %u %t \"%r\" %s %b\"",
+ "LogFormat auth" => "\"%v [%P] %h %t \"%r\" %s\"",
+ "LogFormat write" => "\"%h %l %u %t \"%r\" %s %b\"",
+ "ServerIdent" => "off",
+ "DeferWelcome" => "on",
+ "DisplayConnect" => "/etc/banner-proftpd",
+ "AccessDenyMsg" => "\" !-!! ACCESS DENY !!-! SEEMS YOU HAVE NO RIGHT THERE !!\"",
+ "AccessGrantMsg" => "\" -- Guest access granted for %u --\"",
+ "IdentLookups" => "off",
+ "UseReverseDNS" => "off",
+ "TimesGMT" => "off",
+ "DirFakeUser" => "off nobody",
+ "DirFakeGroup" => "off nobody",
+ "DeleteAbortedStores" => "off",
+ "PersistentPasswd" => "off",
+ );
+
$o->{pages} = {
welcome => {
name => N("FTP Server Configuration Wizard") . "\n\n" . N("This wizard will help you configuring the FTP Server for your network."),
@@ -185,7 +206,6 @@ sub change_options {
my ($var, $var_in_conf) = @_;
my $file = "/etc/proftpd.conf";
my $status;
- print "now in change options\n";
if ($var == 1) { $status = "on" } else { $status = "off" }
if ( any { /^$var_in_conf/ } cat_($file)) {
substInFile { s/$var_in_conf.*/$var_in_conf $status/ } $file;
@@ -194,6 +214,17 @@ sub change_options {
}
}
+sub add_options {
+ my ($var, $value) = @_;
+ my $file = "/etc/proftpd.conf";
+ if ( any { /^$var/ } cat_($file)) {
+ substInFile { s/$var.*/$var $value/ } $file;
+ } else {
+ append_to_file($file, "$var $value\n")
+ }
+}
+
+
sub do_it {
$::testing and return;
my $wiz_ftp_internal = $o->{var}{wiz_ftp_external} ? 1 : true $o->{var}{wiz_ftp_internal};
@@ -303,7 +334,12 @@ sub do_it {
substInFile { s/DefaultRoot.*/$data/ } $file;
} else {
append_to_file($file, "$data\n");
- }
+ }
+
+ my $cle, my $val;
+ while (($cle, $val) = each %opt) {
+ add_options($cle, $val);
+ }
if (services::is_service_running('proftpd')) {
services::restart('proftpd')