• Files
• Commits
• Log
• Graph
• Stats

#!/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;