Handle hostnames with upper-case letters
[webmin.git] / mailcap / log_parser.pl
1 # log_parser.pl
2 # Functions for parsing this module's logs
3
4 do 'mailcap-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 if ($type eq 'mailcap') {
12   return &text('log_'.$action.'_mailcap', "<tt>".&html_escape($object)."</tt>");
13   }
14 elsif ($type eq 'mailcaps') {
15   return &text('log_'.$action.'_mailcaps', $object);
16   }
17 else {
18   return undef;
19   }
20 }
21