• Files
• Commits
• Log
• Graph
• Stats

#!/usr/bin/perl -w

# mod_cgi instance script for FileUploader::InitialRequests 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'
    );

   # use CGI::Carp qw(fatalsToBrowser);
   # use CGI::HTMLError trace => 1;
    use FileUploader::ErrorHandler; 
}

use FileUploader::InitialRequests;

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

$app->run;