+# NB 22.11.23
package NB::CGI;
-# NB 22.11.23: TODO
use strict;
+our $PARAM_UTF8 = 1 unless defined $PARAM_UTF8;
use parent qw/CGI/;
+&CGI::charset('utf-8') if $CGI::PARAM_UTF8;
my $isTextOutput = 0;
sub textOutput {{
};
}}
+sub header {
+ my $status = '200 OK';
+
+ if (!CGI::nph())
+ {
+ for (my $i=0;$i<@_-1;$i++)
+ {
+ next if $_[$i] ne '-status';
+ $status = $_[$i+1];
+ splice(@_,$i,2);
+ }
+ }
+ my @head = ();
+ $ENV{SERVER_PROTOCOL} ||= 'HTTP/1.1';
+ push @head,$ENV{SERVER_PROTOCOL}." $status\r\n";
+ #delete $_->{'status'};
+ push @head,CGI::header(@_);
+ return join('',@head);
+}
+
sub start_html {
local $_ = &CGI::start_html(@_);
s/<!DOCTYPE .*?>/<!DOCTYPE html>/s;
projects / nb.git / commitdiff