#!/usr/local/bin/perl -w
use strict;
use Getopt::Long;

# Parse command line arguments and assign corresponding variables
GetOptions
(
    'i|init=s'   => \( my $INIT = undef ), # Specify the root directory
    'u|upload'   => \( my $UPLOAD = undef ),
    'v|verbose'  => \( my $VERBOSE  = 0 ),
);

unless ( defined $INIT )
{
    print <<EOF
Kapiti Exception Report
Usage: $0 [options]
Options:
-i|--init [file]    Specify the path to initialization file
-u|--upload         Upload the result into database
-v|--verbose        Let the report generator print more information

EOF
;
    exit(1);
}

# continue on...