use lib '/export/home/motodev/bin/';
use Getopt::Std;
use Date::Manip;
use CDMAConfig;
use cdlPg;



getopt('ZDHCO');
# Get command line parameters
# -Z - which market to produce reports for - separate each market by a comma - default is all
# -D - Date
# -H - Hour
# -C - Crontab run - if set to 1, means that the script is being called from the crontab
#       and certain variables should be adjusted accordingly.
# -O - OMC to run
#
# -R - Force collection ??? - NOT CURRENLTY SUPPORTED
#
# Variables produced are $opt_T, $opt_Z, $opt_D, $opt_H and $opt_C


if($opt_C == "1") {
	        #Script being called from cron.....set date and hour to current time.
		$hour = (localtime)[2];
		$hour = sprintf ("%02d", $hour); #find previous hour
		$day = &UnixDate("today","%y%m%d");
		$dispday = &UnixDate("today","%Y%m%d");
		$date = $day . $hour; 
} else {
	$opt_H ? ( $hour = $opt_H ) : ( die "Must supply Hour\n" );
        $opt_D ? ( $day = $opt_D ) : ( die "Must supply Date\n" );
        $date = $day . $hour;
	$dispday = "20" . $day . $hour;
}


# Error checking for parameter variables
$opt_Z ? ( $mkt = $opt_Z ) : ( die "Must supply Market\n" );
#$opt_O ? ( $omc = $opt_O ) : ( die "Must supply OMC\n" );


$rel = $CDMAConfig::MAR_CDL_FORMAT{$mkt};
$omcaddr = $CDMAConfig::OMC_ADDRESSES{$mkt}{$omc};
$begin = $hour . "0000";
$end = $hour . "5959";
$file = $CDMAConfig::REPORT_PATH . $mkt . "/pdfs/$dispday$hour.$mkt.$rel.$omc.Pg.pdfs";
#$file = "/export/home/motorola/cdl_pdf/" . $mkt . "/$dispday$hour.$mkt.r$rel.omc$omc.pdfs";
$table = "cdl_" . $dispday . $hour;

#print "$mkt, $omcaddr, $mkt, $begin, $end, $day, $file, $table, $rel";

%mktomcs = %{$CDMAConfig::OMC_ADDRESSES{$mkt}};
@mktkys = @{[ keys %mktomcs ]};

foreach $mktky (@mktkys) {

	my $file = "/export/home/motorola/cdl_pdf/" . $mkt . "/$dispday$hour.$mkt.r$rel.omc$mktky.pdfs";
	push @fstopn, $file;


}

#print join("\n", @fstopn);

#@fstopn = ("/home/kevin/tmp/file1","/home/kevin/tmp/file2");


$kocdl = cdlPg->new($mkt, $omcaddr, $mkt, $begin, $end, $day, $file, $table, $rel, \@fstopn);
$dbcon = $kocdl->connectDB;
$kocdl->getData($dbcon);

__END__