From 69ecd0e15d3de36b56ad133d5ae57dcddc53c63e Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 7 Aug 2003 13:08:00 +0000 Subject: - turn on profiling with mason like with Apache::ASP (redirects now working) - fix mason error with new view/cust_main.cgi UI --- htetc/global.asa | 4 ++-- htetc/handler.pl | 18 +++++++++++++----- 2 files changed, 15 insertions(+), 7 deletions(-) (limited to 'htetc') diff --git a/htetc/global.asa b/htetc/global.asa index 21e112e6b..c7056fc03 100644 --- a/htetc/global.asa +++ b/htetc/global.asa @@ -137,8 +137,8 @@ if ( defined(@DBIx::Profile::ISA) ) { my( $self, $location) = @_; my $page = $cgi->header. - qq!Redirect to $location

!. - '

'.
+      qq!Redirect to $location!.
+      '

'.
         ( UNIVERSAL::can(dbh, 'sprintProfile')
             ? encode_entities(dbh->sprintProfile())
             : 'DBIx::Profile missing sprintProfile method;'.
diff --git a/htetc/handler.pl b/htetc/handler.pl
index b28cfe9e2..8f079af33 100644
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -120,16 +120,24 @@ sub handler
       use FS::export_svc;
       use FS::msgcat;
 
-      *notCGI::redirect = sub {
+      *CGI::redirect = sub {
         my( $self, $location ) = @_;
         use vars qw($m);
 
         if ( defined(@DBIx::Profile::ISA) ) { #profiling redirect
 
-       #   my $page =
-
-
-       #   return $page;
+          my $page =
+            qq!Redirect to $location!.
+            '

'.
+              ( UNIVERSAL::can(dbh, 'sprintProfile')
+                  ? encode_entities(dbh->sprintProfile())
+                  : 'DBIx::Profile missing sprintProfile method;'.
+                    'unpatched or too old?'                        ).
+            #"\n\n". &sprintAutoProfile().  ''.
+            "\n\n".                         ''.
+            '';
+          dbh->{'private_profile'} = {};
+          return $page;
 
         } else { #normal redirect
 
-- 
cgit v1.2.1