#!/usr/bin/perl -wT
use Getopt::Std;
use Getopt::Long;

GetOptions( "help" => \$help,
            "file=s"  => \$file,
            "database=s" => \$database,

            "user=s" => \$user,
            "password=s" => \$password);

#-h ARG, -f ARG, -d ARG, -u ARG, -p ARG sets $args{h},sets $args{f}, sets $args{d}, sets $args{u}, sets $args{p}

getopts("hf:d:u:p:", \%args);

if ($args>=2){
	$help=$args{h};
	$file=$args{f};
	$database=$args{d};
	$user=$args{u};
	$password=$args{p};

}elsif ($help){
	print "rip_sched -h/--help -f/--file datafile -d/--database database -u/--user database-user -p/--password database-password\n";
	exit 0;
}