wuftpd/save_log.cgi

   1 #!/usr/local/bin/perl
   2 # save_log.cgi
   3 # Save logging options
   4
   5 require './wuftpd-lib.pl';
   6 &error_setup($text{'log_err'});
   7 &ReadParse();
   8
   9 &lock_file($config{'ftpaccess'});
  10 $conf = &get_ftpaccess();
  11
  12 $in{'commands'} =~ s/\0/,/g;
  13 if ($in{'commands'}) {
  14         push(@log, { 'name' => 'log',
  15                      'values' => [ 'commands', $in{'commands'} ] } );
  16         }
  17
  18 $in{'transfers'} =~ s/\0/,/g;
  19 if ($in{'transfers'}) {
  20         push(@log, { 'name' => 'log',
  21                      'values' => [ 'transfers', $in{'transfers'},
  22                                    $in{'direction'} ] } );
  23         }
  24
  25 $in{'security'} =~ s/\0/,/g;
  26 if ($in{'security'}) {
  27         push(@log, { 'name' => 'log',
  28                      'values' => [ 'security', $in{'security'} ] } );
  29         }
  30
  31 if ($in{'syslog'} == 1) {
  32         push(@log, { 'name' => 'log',
  33                      'values' => [ 'syslog' ] } );
  34         }
  35 elsif ($in{'syslog'} == 2) {
  36         push(@log, { 'name' => 'log',
  37                      'values' => [ 'syslog+xferlog' ] } );
  38         }
  39
  40
  41 &save_directive($conf, 'log', \@log);
  42 &flush_file_lines();
  43 &unlock_file($config{'ftpaccess'});
  44 &webmin_log("log", undef, undef, \%in);
  45 &redirect("");