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/global.asa | |
| 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/global.asa')
| -rw-r--r-- | htetc/global.asa | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/htetc/global.asa b/htetc/global.asa index 6f76fd256..21e112e6b 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -72,7 +72,8 @@ sub Script_OnStart { &cgisuidsetup($cgi); $p = popurl(2); #print $cgi->header( '-expires' => 'now' ); - dbh->{'private_profile'} = {} if dbh->can('sprintProfile'); + #dbh->{'private_profile'} = {} if dbh->can('sprintProfile'); + dbh->{'private_profile'} = {} if UNIVERSAL::can(dbh, 'sprintProfile') ); #really should check for FS::Profiler or something # Devel::AutoProfiler _our_ VERSION? thanks a fucking lot @@ -109,7 +110,7 @@ sub Script_OnFlush { #$$ref = $cgi->header() . $$ref; #warn "Script_OnFlush called with dbh ". dbh. "\n"; #if ( dbh->can('sprintProfile') ) { - if ( UNIVERSAL::can(dbh,'sprintProfile') ) { + if ( UNIVERSAL::can(dbh, 'sprintProfile') ) { #warn "dbh can sprintProfile\n"; if ( lc($Response->{ContentType}) eq 'text/html' ) { #con #warn "contenttype is sprintProfile\n"; @@ -137,7 +138,11 @@ if ( defined(@DBIx::Profile::ISA) ) { my $page = $cgi->header. qq!<HTML><BODY>Redirect to <A HREF="$location">$location</A><BR><BR>!. - '<PRE>'. encode_entities(dbh->sprintProfile()). + '<PRE>'. + ( UNIVERSAL::can(dbh, 'sprintProfile') + ? encode_entities(dbh->sprintProfile()) + : 'DBIx::Profile missing sprintProfile method;'. + 'unpatched or too old?' ). "\n\n". &sprintAutoProfile(). '</PRE>'. '</BODY></HTML>'; dbh->{'private_profile'} = {}; |