cluster-copy/log_parser.pl

   1 # log_parser.pl
   2 # Functions for parsing this module's logs
   3
   4 do 'cluster-copy-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, $long) = @_;
  11 if ($action eq 'deletes') {
  12         # Deleting multiple jobs
  13         return &text('log_deletes', $object);
  14         }
  15 else {
  16         # Some action on a job
  17         local @files = split(/\t+/, $p->{'files'});
  18         local $files = @files > 1 ? scalar(@files)." files"
  19                                   : join(", ", @files);
  20         local @servers = split(/\s+/, $p->{'servers'});
  21         local $servers = scalar(@servers);
  22         return &text('log_'.$action, $files, $servers);
  23         }
  24 }
  25