Handle hostnames with upper-case letters
[webmin.git] / syslog-ng / log_parser.pl
1 # log_parser.pl
2 # Functions for parsing this module's logs
3
4 do 'syslog-ng-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 'source' || $type eq 'destination' ||
12     $type eq 'filter' || $type eq 'log') {
13         return &text('log_'.$action.'_'.$type,
14                      "<tt>".&html_escape($object)."</tt>");
15         }
16 elsif ($type eq 'sources' || $type eq 'destinations' ||
17        $type eq 'filters' || $type eq 'logs') {
18         return &text('log_'.$action.'_'.$type, $object);
19         }
20 else {
21         return $text{'log_'.$action};
22         }
23 }
24