diff options
author | ivan <ivan> | 2007-02-05 11:35:58 +0000 |
---|---|---|
committer | ivan <ivan> | 2007-02-05 11:35:58 +0000 |
commit | 8b3782a95dcbc9fe5311b0522416791055a32f4d (patch) | |
tree | 2b221feb9900eed6ab756ecc8e01fedf5e7359b7 /FS/FS/CGI.pm | |
parent | 528d77167b1af6fde15ec1902361b74968d7d432 (diff) |
not supporting Apache::ASP anymore
Diffstat (limited to 'FS/FS/CGI.pm')
-rw-r--r-- | FS/FS/CGI.pm | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm index c91c01f..15561d7 100644 --- a/FS/FS/CGI.pm +++ b/FS/FS/CGI.pm @@ -79,14 +79,7 @@ Sets an http header. sub http_header { my ( $header, $value ) = @_; if (exists $ENV{MOD_PERL}) { - if ( defined $main::Response - && $main::Response->isa('Apache::ASP::Response') ) { #Apache::ASP - if ( $header =~ /^Content-Type$/ ) { - $main::Response->{ContentType} = $value; - } else { - $main::Response->AddHeader( $header => $value ); - } - } elsif ( defined $HTML::Mason::Commands::r ) { #Mason + if ( defined $HTML::Mason::Commands::r ) { #Mason ## is this the correct pacakge for $r ??? for 1.0x and 1.1x ? if ( $header =~ /^Content-Type$/ ) { $HTML::Mason::Commands::r->content_type($value); @@ -186,12 +179,7 @@ If running under mod_perl, calles Apache::exit, otherwise, calls exit. sub myexit { if (exists $ENV{MOD_PERL}) { - if ( defined $main::Response - && $main::Response->isa('Apache::ASP::Response') ) { #Apache::ASP - $main::Response->End(); - require Apache; - Apache::exit(); - } elsif ( defined $HTML::Mason::Commands::m ) { #Mason + if ( defined $HTML::Mason::Commands::m ) { #Mason #$HTML::Mason::Commands::m->flush_buffer(); $HTML::Mason::Commands::m->abort(); die "shouldn't fall through to here (mason \$m->abort didn't)"; |