headers

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index ccd1760673935060cab03cf9af4b0d9f171f97aa..18007524b033c944c4f6860734cb1128f1831452 100644 (file)
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -8,6 +8,7 @@ $CGI::PARAM_UTF8 = 1;
 #$CGI::PARAM_UTF8 = 1 unless defined $CGI::PARAM_UTF8;
 #&CGI::init;
 &CGI::charset('utf-8') if $CGI::PARAM_UTF8;
+my $NO_HEADERS = 0;
 
 my $isTextOutput = 0;
 sub textOutput {{
@@ -86,7 +87,7 @@ sub textOutput {{
 }}
 
 sub header_status {
-       my %status = (
+       my %status_codes = (
                100 => "Continue",
                101 => "Switching Protocols",
                102 => "Processing",
@@ -172,13 +173,18 @@ sub header_status {
                530 => "Site is frozen",
                599 => "Network connect timeout error",
        );
-       my $status = shift;
+  return "" if $NO_HEADERS;
+  my($self,@p) = &CGI::self_or_default(@_);
+       my $status = shift @p;
        return '' unless $status;
-  $status = $status." ".$status{$status} if $status{$status};
+  #die $status;
+  #die $status_codes{$status};
+  $status = $status." ".$status_codes{$status} if $status_codes{$status};
   return ($ENV{SERVER_PROTOCOL}||'HTTP/1.1')." $status\r\n";
 }
 
 sub header {
+  return "" if $NO_HEADERS;
   my($self,@p) = &CGI::self_or_default(@_);
   # NB 27.11.23 my $status = '200 OK';
   my $status = '';
@@ -224,6 +230,12 @@ sub _tag_func {
   return &CGI::_tag_func(@_);
 }
 
+sub no_headers {
+  my($self,@p) = &CGI::self_or_default(@_);
+  $NO_HEADERS = $p[0] if @p;
+  return $NO_HEADERS;
+}
+
 sub tag {
        return &_tag_func(@_);
 }