mirror of
https://github.com/webmin/webmin.git
synced 2026-02-07 16:02:14 +00:00
46 lines
1011 B
Perl
Executable File
46 lines
1011 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# save_log.cgi
|
|
# Save logging options
|
|
|
|
require './wuftpd-lib.pl';
|
|
&error_setup($text{'log_err'});
|
|
&ReadParse();
|
|
|
|
&lock_file($config{'ftpaccess'});
|
|
$conf = &get_ftpaccess();
|
|
|
|
$in{'commands'} =~ s/\0/,/g;
|
|
if ($in{'commands'}) {
|
|
push(@log, { 'name' => 'log',
|
|
'values' => [ 'commands', $in{'commands'} ] } );
|
|
}
|
|
|
|
$in{'transfers'} =~ s/\0/,/g;
|
|
if ($in{'transfers'}) {
|
|
push(@log, { 'name' => 'log',
|
|
'values' => [ 'transfers', $in{'transfers'},
|
|
$in{'direction'} ] } );
|
|
}
|
|
|
|
$in{'security'} =~ s/\0/,/g;
|
|
if ($in{'security'}) {
|
|
push(@log, { 'name' => 'log',
|
|
'values' => [ 'security', $in{'security'} ] } );
|
|
}
|
|
|
|
if ($in{'syslog'} == 1) {
|
|
push(@log, { 'name' => 'log',
|
|
'values' => [ 'syslog' ] } );
|
|
}
|
|
elsif ($in{'syslog'} == 2) {
|
|
push(@log, { 'name' => 'log',
|
|
'values' => [ 'syslog+xferlog' ] } );
|
|
}
|
|
|
|
|
|
&save_directive($conf, 'log', \@log);
|
|
&flush_file_lines();
|
|
&unlock_file($config{'ftpaccess'});
|
|
&webmin_log("log", undef, undef, \%in);
|
|
&redirect("");
|