diff options
author | ivan <ivan> | 2003-08-07 12:47:27 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-08-07 12:47:27 +0000 |
commit | abf5c5442afce5198f6289840791c96f58254e85 (patch) | |
tree | 424620194a7de53093feabaffdae198045225a83 /htetc/handler.pl | |
parent | 117a674a7e37ff2f4f90fcf34710dfad288ac8a9 (diff) |
- switch to mason by default
- minimum mason version 1.1 (and doc)
- evaluate .html files with mason/asp
- turn on profiling with mason like with Apache::ASP (redirects not working)
- (start of) includes
Diffstat (limited to 'htetc/handler.pl')
-rw-r--r-- | htetc/handler.pl | 50 |
1 files changed, 34 insertions, 16 deletions
diff --git a/htetc/handler.pl b/htetc/handler.pl index 2b645cef4..b28cfe9e2 100644 --- a/htetc/handler.pl +++ b/htetc/handler.pl @@ -7,7 +7,7 @@ package HTML::Mason; # Bring in main Mason package. -use HTML::Mason; +use HTML::Mason 1.1; # Bring in ApacheHandler, necessary for mod_perl integration. # Uncomment the second line (and comment the first) to use @@ -120,29 +120,47 @@ sub handler use FS::export_svc; use FS::msgcat; - *CGI::redirect = sub { + *notCGI::redirect = sub { my( $self, $location ) = @_; use vars qw($m); - #http://www.masonhq.com/docs/faq/#how_do_i_do_an_external_redirect - $m->clear_buffer; - # The next two lines are necessary to stop Apache from re-reading - # POSTed data. - $r->method('GET'); - $r->headers_in->unset('Content-length'); - $r->content_type('text/html'); - #$r->err_header_out('Location' => $location); - $r->header_out('Location' => $location); - $r->header_out('Content-Type' => 'text/html'); - $m->abort(302); - - ''; + + if ( defined(@DBIx::Profile::ISA) ) { #profiling redirect + + # my $page = + + + # return $page; + + } else { #normal redirect + + #http://www.masonhq.com/docs/faq/#how_do_i_do_an_external_redirect + $m->clear_buffer; + # The next two lines are necessary to stop Apache from re-reading + # POSTed data. + $r->method('GET'); + $r->headers_in->unset('Content-length'); + $r->content_type('text/html'); + #$r->err_header_out('Location' => $location); + $r->header_out('Location' => $location); + $r->header_out('Content-Type' => 'text/html'); + $m->abort(302); + + ''; + } + }; $cgi = new CGI; &cgisuidsetup($cgi); #&cgisuidsetup($r); $p = popurl(2); - } + + sub include { + use vars qw($m); + $m->scomp(@_); + } + + } # end package HTML::Mason::Commands; $r->content_type('text/html'); #eorar |