diff options
Diffstat (limited to 'util')
-rwxr-xr-x | util/vndb.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/util/vndb.pl b/util/vndb.pl index b845cb26..b6056dd4 100755 --- a/util/vndb.pl +++ b/util/vndb.pl @@ -46,6 +46,7 @@ TUWF::set( %O, pre_request_handler => \&reqinit, error_404_handler => \&handle404, + log_format => \&logformat, # for compatibility with YAWF validate_templates => { mail => { regex => qr/^[^@<>]+@[^@.<>]+(?:\.[^@.<>]+)+$/ }, @@ -124,3 +125,12 @@ sub handle404 { $self->htmlFooter; } + +# log user IDs (necessary for determining performance issues, user preferences +# have a lot of influence in this) +sub logformat { + my($self, $uri, $msg) = @_; + sprintf "[%s] %s %s: %s\n", scalar localtime(), $uri, + $self->authInfo->{id} ? 'u'.$self->authInfo->{id} : '-', $msg; +} + |