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