diff options
| author | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-07 14:40:08 +0200 |
|---|---|---|
| committer | Paul Buetow (pluto.buetow.org) <paul@buetow.org> | 2013-09-07 14:40:08 +0200 |
| commit | 84940ae5e4d0f603f0eb2df51e3a24f2e2da3d24 (patch) | |
| tree | ec576f0644f5dcc2c0f990ff111c001dca567161 | |
| parent | 6a10e933c16378307d389f8b7d78af887476cacd (diff) | |
add info msg
| -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"; } } |