diff options
| author | ivan <ivan> | 1998-11-09 04:55:42 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-09 04:55:42 +0000 |
| commit | 56e72de1b164208a7de037c0acba3fd2552176cb (patch) | |
| tree | 4140f338c59dbbfe98bd74a2cfa2f6a5ab0b99f6 /site_perl/CGI.pm | |
| parent | e6f96a8435359ef6d24d16ec69650172c7e6b5ce (diff) | |
support depriciated CGI::Base as well as CGI.pm (for now)
Diffstat (limited to 'site_perl/CGI.pm')
| -rw-r--r-- | site_perl/CGI.pm | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/site_perl/CGI.pm b/site_perl/CGI.pm index 0e6daeebc..f9fbdaebd 100644 --- a/site_perl/CGI.pm +++ b/site_perl/CGI.pm @@ -82,7 +82,12 @@ Sends headers and an HTML error message. sub idiot { my($error)=@_; my($cgi)=FS::UID::cgi; - print $cgi->header, <<END; + if ( $cgi->isa('CGI::Base') ) { + CGI::Base::SendHeaders; + } else { + print $cgi->header; + } + print <<END; <HTML> <HEAD> <TITLE>Error processing your request</TITLE> @@ -119,11 +124,9 @@ Not OO. Not complete. -Uses CGI-modules instead of CGI.pm - =head1 SEE ALSO -L<CGI::Base> +L<CGI>, L<CGI::Base> =head1 HISTORY @@ -137,7 +140,10 @@ lose the background, eidiot ivan@sisd.com 98-sep-2 pod ivan@sisd.com 98-sep-12 $Log: CGI.pm,v $ -Revision 1.3 1998-11-08 10:50:19 ivan +Revision 1.4 1998-11-09 04:55:42 ivan +support depriciated CGI::Base as well as CGI.pm (for now) + +Revision 1.3 1998/11/08 10:50:19 ivan s/CGI::Base/CGI/; etc. |