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%%%' ],
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;
use Color::Scheme;
- use HTML::Widgets::SelectLayers 0.07;
+ use HTML::Widgets::SelectLayers 0.07; #should go away in favor of
+ #selectlayers.html
use Locale::Country;
+ use Business::US::USPS::WebTools::AddressStandardization;
use FS;
use FS::UID qw(cgisuidsetup dbh getotaker datasrc driver_name);
use FS::Record qw(qsearch qsearchs fields dbdef str2time_sql);
use FS::cust_main_county;
use FS::cust_pay;
use FS::cust_pkg;
+ use FS::part_pkg_taxclass;
use FS::cust_pkg_reason;
use FS::cust_refund;
use FS::cust_svc;
use FS::reason_type;
use FS::reason;
use FS::cust_main_note;
+ use FS::tax_class;
+ use FS::cust_tax_location;
+ use FS::part_pkg_taxproduct;
+ use FS::part_pkg_taxoverride;
+ use FS::part_pkg_taxrate;
+ use FS::tax_rate;
if ( %%%RT_ENABLED%%% ) {
eval '
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 $@;
}
};
- unless ( $HTML::Mason::r->filename =~ /\/rt\/.*NoAuth/ ) { #RT
+ #is this conditional a bad idea entirely, hmm
+ unless (
+ $HTML::Mason::r->filename =~ /\/rt\/.*NoAuth/ #RT images/JS
+ && $HTML::Mason::r->filename !~ /\/rt\/REST\// #but NOT mail gw
+ ) {
$cgi = new CGI;
&cgisuidsetup($cgi);
#&cgisuidsetup($r);
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__};
# if ( $@ ) {
# $RT::Logger->crit($@);
# }
+ warn $@ if $@;
undef %session;