projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e6f96a8
)
support depriciated CGI::Base as well as CGI.pm (for now)
author
ivan
<ivan>
Mon, 9 Nov 1998 04:55:42 +0000
(
04:55
+0000)
committer
ivan
<ivan>
Mon, 9 Nov 1998 04:55:42 +0000
(
04:55
+0000)
site_perl/CGI.pm
patch
|
blob
|
history
diff --git
a/site_perl/CGI.pm
b/site_perl/CGI.pm
index
0e6daee
..
f9fbdae
100644
(file)
--- 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;
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>
<HTML>
<HEAD>
<TITLE>Error processing your request</TITLE>
@@
-119,11
+124,9
@@
Not OO.
Not complete.
Not complete.
-Uses CGI-modules instead of CGI.pm
-
=head1 SEE ALSO
=head1 SEE ALSO
-L<CGI::Base>
+L<CGI
>, L<CGI
::Base>
=head1 HISTORY
=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 $
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.
s/CGI::Base/CGI/; etc.