Apache::ASP eidiot fix

author ivan <ivan>

Mon, 30 Jul 2001 10:43:58 +0000 (10:43 +0000)

committer ivan <ivan>

Mon, 30 Jul 2001 10:43:58 +0000 (10:43 +0000)
author ivan <ivan>
Mon, 30 Jul 2001 10:43:58 +0000 (10:43 +0000)
committer ivan <ivan>
Mon, 30 Jul 2001 10:43:58 +0000 (10:43 +0000)
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm

index 6078ad9..98f26f3 100644 (file)
--- 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 {