used in rt autohandler. i wonder why this never bit before

[freeside.git] / htetc / handler.pl

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 9605b8f..09bada4 100644 (file)
--- a/htetc/handler.pl
+++ b/htetc/handler.pl
@@ -37,6 +37,8 @@ if ( %%%RT_ENABLED%%% ) {
 my %interp = (
   request_class        => 'HTML::Mason::Request::ApacheHandler',
   data_dir             => '%%%MASONDATA%%%',
+  error_mode           => 'output',
+  error_format         => 'html',
   ignore_warnings_expr => '.',
   comp_root            => [
                             [ 'freeside' => '%%%FREESIDE_DOCUMENT_ROOT%%%'    ],
@@ -118,6 +120,7 @@ sub handler
       use Text::CSV_XS;
       use Spreadsheet::WriteExcel;
       use Business::CreditCard 0.30; #for mask-aware cardtype()
+      use NetAddr::IP;
       use String::Approx qw(amatch);
       use Chart::LinesPoints;
       use Chart::Mountain;
@@ -226,7 +229,8 @@ sub handler
           use Text::Wrapper;
           use Time::ParseDate;
           use HTML::Scrubber;
-          use Text::Quoted;
+          #use Text::Quoted; #slow, unreliable, segfaults and is optional
+          use Time::HiRes;
         ';
         die $@ if $@;
       }
@@ -335,8 +339,6 @@ sub handler
     if ( $r->filename =~ /\/rt\// ) { #RT
 
       $ah->interp($rt_interp);
-      # MasonX::Request::ExtendedCompRoot
-      #$ah->interp->comp_root( '/rt'. $ah->interp->comp_root() );
 
       local $SIG{__WARN__};
       local $SIG{__DIE__};
@@ -360,6 +362,7 @@ sub handler
 #    if ( $@ ) {
 #      $RT::Logger->crit($@);
 #    }
+    warn $@ if $@;
 
     undef %session;