From: Nicolas Boisselier Date: Wed, 22 Nov 2023 22:18:31 +0000 (+0100) Subject: lib/perl/NB/CGI.pm X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=4d78ad50bddb99754ac9c9bb1025e2bc7f7eaa4b;p=nb.git lib/perl/NB/CGI.pm --- diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm index d179c660..1dc85381 100644 --- a/lib/perl/NB/CGI.pm +++ b/lib/perl/NB/CGI.pm @@ -3,11 +3,13 @@ package NB::CGI; use strict; use parent qw/CGI/; +my $isTextOutput = 0; sub textOutput {{ no warnings 'redefine'; no warnings 'once'; #return unless $Opt{html}; + $isTextOutput = 1; *CGI::_tag_func = sub { my $tagname = shift; my ($q,$a,@rest) = CGI::self_or_default(@_); @@ -76,4 +78,23 @@ sub textOutput {{ }; }} + +sub start_html { + local $_ = &CGI::start_html(@_); + s///s; + return $_; +} + +sub _tag_func { + shift if ref($_[0]) eq __PACKAGE__; # for case: $cgi->_tag_func + return &CGI::_tag_func(@_); +} + +sub tag { + return &_tag_func(@_); +} + +sub text { + return $isTextOutput; +} 1;