diff options
author | ivan <ivan> | 2001-07-30 10:43:58 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-07-30 10:43:58 +0000 |
commit | f7caf50929669fdf317f1ab51767ac93a1f743fc (patch) | |
tree | d7da1c38e54a2fc5ad61fd0926ee9ae7bec2e0f5 /FS/FS/CGI.pm | |
parent | 2066bf9d3ebb4e53c49ab8b4b447c4eb88e425a4 (diff) |
Apache::ASP eidiot fix
Diffstat (limited to 'FS/FS/CGI.pm')
-rw-r--r-- | FS/FS/CGI.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index 6078ad9..98f26f3 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -43,7 +43,10 @@ Returns an HTML header. =cut sub header { - my($title,$menubar)=@_; + my($title,$menubar,$etc)=@_; + #use Carp; + #confess $etc if defined $etc; + $etc = '' unless defined $etc; my $x = <<END; <HTML> @@ -52,7 +55,7 @@ sub header { $title </TITLE> </HEAD> - <BODY BGCOLOR="#e8e8e8"> + <BODY BGCOLOR="#e8e8e8"$etc> <FONT SIZE=7> $title </FONT> @@ -124,6 +127,9 @@ sub eidiot { warn "eidiot depriciated"; idiot(@_); if (exists $ENV{MOD_PERL}) { + $main::Response->End() + if defined $main::Response + && $main::Response->isa('Apache::ASP::Response'); require Apache; Apache::exit(); } else { |