usermin/syslog_logs.pl

   1 # Contains a function to supply the syslog module with extra logs
   2
   3 do 'usermin-lib.pl';
   4
   5 # syslog_getlogs()
   6 # Returns the Usermin error log
   7 sub syslog_getlogs
   8 {
   9 local %miniserv;
  10 &get_usermin_miniserv_config(\%miniserv);
  11 if ($miniserv{'errorlog'} eq '-') {
  12         # Logging to stdout
  13         return ( );
  14         }
  15 elsif ($miniserv{'errorlog'}) {
  16         # Specific file
  17         return ( { 'file' => $miniserv{'errorlog'},
  18                    'desc' => $text{'syslog_errorlog'},
  19                    'active' => 1, } );
  20         }
  21 elsif ($miniserv{'logfile'} =~ /^(.*)\/[^\/]+$/) {
  22         # Relative to main log
  23         return ( { 'file' => "$1/miniserv.error",
  24                    'desc' => $text{'syslog_errorlog'},
  25                    'active' => 1, } );
  26         }
  27 }
  28