From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Mon, 27 Nov 2023 10:31:15 +0000 (+0100)
Subject: headers
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=07160072015893bc6cdf192a0f0361fe9fedc7db;p=nb.git

headers
---

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index ccd17606..18007524 100644
--- 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(@_);
 }