quota/log_parser.pl

   1 # log_parser.pl
   2 # Functions for parsing this module's logs
   3
   4 do 'quota-lib.pl';
   5
   6 # parse_webmin_log(user, script, action, type, object, &params)
   7 # Converts logged information from this module into human-readable form
   8 sub parse_webmin_log
   9 {
  10 local ($user, $script, $action, $type, $object, $p) = @_;
  11 $object = &html_escape($object);
  12 if ($action eq 'activate') {
  13         return &text($p->{'mode'} == 1 ? 'log_activate_u' :
  14                      $p->{'mode'} == 2 ? 'log_activate_g' :
  15                      'log_activate_ug', "<tt>$object</tt>");
  16         }
  17 elsif ($action eq 'deactivate') {
  18         return &text($p->{'mode'} == 1 ? 'log_deactivate_u' :
  19                      $p->{'mode'} == 2 ? 'log_deactivate_g' :
  20                      'log_deactivate_ug', "<tt>$object</tt>");
  21         }
  22 elsif ($action eq 'save') {
  23         return &text('log_save', "<tt>$object</tt>",
  24                                  "<tt>$p->{'filesys'}</tt>");
  25         }
  26 elsif ($action eq 'sync') {
  27         return &text($type eq 'user' ? 'log_sync' : 'log_gsync',
  28                      "<tt>$object</tt>");
  29         }
  30 elsif ($action eq 'grace') {
  31         return &text($type eq 'user' ? 'log_grace_u' : 'log_grace_g',
  32                      "<tt>$object</tt>");
  33         }
  34 elsif ($action eq 'check') {
  35         return &text('log_check', "<tt>$object</tt>");
  36         }
  37 elsif ($action eq 'copy') {
  38         return &text($type eq 'user' ? 'log_copy_u' : 'log_copy_g',
  39                      "<tt>$object</tt>");
  40         }
  41 elsif ($action eq 'email') {
  42         return &text('log_email_'.$type, "<tt>$object</tt>");
  43         }
  44 else {
  45         return undef;
  46         }
  47 }
  48