better indication of why these things are the way they are

[freeside.git] / htetc / handler.pl

diff --git a/htetc/handler.pl b/htetc/handler.pl
index 9605b8f..caa266d 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;
@@ -146,6 +149,7 @@ sub handler
       use FS::cust_credit_bill;
       use FS::cust_main qw(smart_search);
       use FS::cust_main_county;
+      use FS::part_pkg_taxclass;
       use FS::cust_pay;
       use FS::cust_pkg;
       use FS::cust_pkg_reason;
@@ -221,12 +225,22 @@ sub handler
           use RT::CustomFieldValues;
           use RT::ObjectCustomFieldValues;
 
+          #blah.  manually updated from RT::Interface::Web::Handler
           use RT::Interface::Web;
           use MIME::Entity;
           use Text::Wrapper;
           use Time::ParseDate;
+          use Time::HiRes;
           use HTML::Scrubber;
-          use Text::Quoted;
+
+          #slow, unreliable, segfaults and is optional
+          #see rt/html/Ticket/Elements/ShowTransactionAttachments
+          #use Text::Quoted;
+
+          #?#use File::Path qw( rmtree );
+          #?#use File::Glob qw( bsd_glob );
+          #?#use File::Spec::Unix;
+
         ';
         die $@ if $@;
       }
@@ -335,8 +349,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 +372,7 @@ sub handler
 #    if ( $@ ) {
 #      $RT::Logger->crit($@);
 #    }
+    warn $@ if $@;
 
     undef %session;