From 84940ae5e4d0f603f0eb2df51e3a24f2e2da3d24 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (pluto.buetow.org)" Date: Sat, 7 Sep 2013 14:40:08 +0200 Subject: add info msg --- Xerl/Main/Global.pm | 10 ++++++---- 1 file 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"; } } -- cgit v1.2.3