#!/usr/bin/perl
# $Id "Getopt::Long Test after packaging by pp" $
# $Revision: 0 $
# $Source /home/root-hjo/script.pl $
use strict;
use warnings;
use Getopt::Long;
use DateTime::Format::ISO8601;

my ($pstart, $ptype, $help);

GetOptions( "t=s" => \$ptype, "s=i" => \$pstart, "h" => \$help );

#############################################################################
#                                   MAIN                                    #############################################################################

check_input($pstart, $ptype, $help);

#############################################################################
#                                 FUNCTIONS                                 #############################################################################

#################################check_input#################################
sub check_input {
    my ($date, $type, $help) = @_;

    if ( ( (defined($type) == '0') || (defined($date) == '0') ) && (defined($help) == '0') ) {
        die qq{Error while calling script\nUSAGE : ./script.pl -t [D|W|M|S] -s [DATE]\n\n};
    }

    if (defined($help) == '1') {
        print_usage();
        die qq{\n};
    }
    else {
        if (defined($type) == '1' ){
            if (($type ne 'D') && ($type ne 'W') && ($type ne 'M') && ($type ne 'S') ) {
                die qq{Error : the given period is not valid\n};
            }
            else {print qq{period OK\n}};
        }

        if (defined($date) == '1') {
            check_date($date);
        }
    }
}
#############################################################################

#################################check_date##################################
sub check_date {
    my $s = $_[0];
    my $date;

    eval { $date = DateTime::Format::ISO8601->parse_datetime("$s"); };
    if ( $@ ) {
        die qq{Error : the date doesn't exist or is not like YYYYMMDD\n}
    }
    else {print qq{date OK\n}} ;
}
#############################################################################

###############################print_usage###################################
sub print_usage {
    print qq{\n};
    print qq{USAGE : ./script.pl -t <D|W|M|S> -s [DATE]\n};
    print qq{\n};
    print qq{  -t       specifies the type of period for which the information\n};
    print qq{           is retrieved\n};
    print qq{     D     scale : day\n};
    print qq{     W     scale : week\n};
    print qq{     M     scale : month\n};
    print qq{     S     scale : a few seconds\n};
    print qq{\n};
    print qq{  -s       start date to retrieve data\n};
    print qq{           (format YYYYMMDD)\n};
    print qq{\n};
    print qq{  -h       displays this help then stops\n};
}
#############################################################################
__END__