#!/usr/bin/perl -w # mod_cgi instance script for FileUploader::Outreach module: use strict; use warnings; use lib ( '/home/raj/perl5/lib/perl5', '/home/raj/apps/FileUploader/lib', ); use FindBin qw($RealBin); # load AFTER local::lib Carp or FindBin loads system use lib $RealBin . '/../../lib'; #BEGIN { # Error handlers: # $SIG{__WARN__} = sub { require Carp; Carp::cluck(@_) }; # warnings with stack trace to log # use CGI::Carp qw(fatalsToBrowser); # use CGI::HTMLError trace => 1; # use CGI::Carp::DebugScreen; # $SIG{__WARN__} = sub { CORE::die(@_) }; # use Carp::Always; # $SIG{ __DIE__ } = sub { Carp::confess( @_ ) }; #} use FileUploader::ErrorHandler; use FileUploader::Outreach; my $app = FileUploader::Outreach->new( PARAMS => { cfg_file => '/home/raj/apps/FileUploader/lib/config.pl', file_type => 'outreach_flow_data', } ); $app->run;