1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
#!/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("");
|
