• Files
• Commits
• Log
• Graph
• Stats

#!/usr/bin/perl -w

# mod_cgi instance script for FileUploader::BCR_ABL module:

use strict;
use warnings;

BEGIN {
    use FindBin qw($RealBin); # warn $RealBin;
    use lib (
        '/home/raj/perl5/lib/perl5',
        '/home/raj/www/perl-lib/FileUploader/lib',
        $RealBin . '/../../lib'
    );
    # Error handlers:
    # $SIG{__WARN__} = sub { require Carp; Carp::cluck(@_) }; # warnings with stack trace to log
    use FileUploader::ErrorHandler; 
    # 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::BCR_ABL;

my $app = FileUploader::BCR_ABL->new(
    PARAMS => {
        cfg_file  => '/home/raj/www/perl-lib/FileUploader/lib/config.pl', 
        file_type => 'bcr_abl',
    }
);

$app->run;