diff options
Diffstat (limited to 'Xerl/Main')
| -rw-r--r-- | Xerl/Main/Global.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Xerl/Main/Global.pm b/Xerl/Main/Global.pm index a6582b1..6672ef0 100644 --- a/Xerl/Main/Global.pm +++ b/Xerl/Main/Global.pm @@ -67,15 +67,17 @@ sub REDIRECT ($) { return undef; } -sub _HTTP_DESCR ($) { - my $status = shift; +sub _HTTP_DESCR ($;$) { + my ($status, $infomsg) = @_; + + $infomsg //= ''; if ( $status == 404 ) { - "Status: 404 Not Found\015\012\n\n" + "Status: 404 Not Found $infomsg\015\012\n\n" } else { - "Status: 405 Method not allowed\015\012\n\n"; + "Status: 405 Method not allowed $infomsg\015\012\n\n"; } } |