• Files
• Commits
• Log
• Graph
• Stats

#!/usr/bin/env perl

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

#==============================================================================
# ErrorHandler's global $SIG{__DIE__} causes problems in File::stat in Perl 5.14
use File::stat (); # solution is to call *before* ErrorHandler:
use FileUploader::ErrorHandler; # or better still - replace with plack middleware
#==============================================================================

use FileUploader::InitialRequests;
my %args = (
    PARAMS => {
        cfg_file  => '/home/raj/apps/FileUploader/lib/config.pl',
        file_type => 'initial_requests',
    },
);
FileUploader::InitialRequests->new(%args)->run;