diff options
Diffstat (limited to 'ftp_wizard/Proftpd.pm')
| -rwxr-xr-x | ftp_wizard/Proftpd.pm | 40 |
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') |