#!/usr/bin/perl -w

BEGIN {
    sub print_help {
    print <<_STR_;
NAME:
    .
SYNOPSIS:
    PERL5LIB=/www/opals/module OPALS_CONF=/etc/opals/conf/\$SITECODE \\
        $0 [param1] [param2] [...]
DESCRIPTION:
    -param1  description 1...
_STR_
    }

    if (!$ENV{'PERL5LIB'} || !$ENV{'OPALS_CONF'}) {
        print_help();
        exit 1;
    }
}

#use Getopt::Std;
#
#my %options = ();
#getopts("c:",\%options);
#my $configFile = $options{c};

use Opals::Context;
use Opals::Date qw(
    date_getDeadLineDate
    date_getDeadLineDateTime
);

use strict;
my $dbh = Opals::Context->dbh();;
END {
    if ($dbh) {
        $dbh->disconnect();
    }
}

$| = 1;
# Codes start...

print date_getDeadLineDate(7,'2013-04-22 15:18:33'),"\n";
print date_getDeadLineDateTime(10,'2013-04-30 15:18:33'),"\n";

# Codes end.

exit 0;
################################################################################


#sub {
#}
############################################################