#!/usr/bin/perl

my $tmp_dir = "./tmp";
my $region = shift;

###################################################
# is the region correct? was it even given?
###################################################
$region = lc($region);
unless (($region =~ /^ny$/) || ($region =~ /^ln$/) || ($region =~ /^tk$/) || ($region =~ /^hk$/) || ($region =~ /^se$/) || ($region =~ /^mo$/) ) {
        print "The acceptable regions are:\nNY\nLN\nTK\nHK\nSE\nMO\n";
        exit(-1);
}

print "=========== DATE INITIALIZATION ===========\n";

############################################
# get today's date in the mm/dd/yyyy format
############################################
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
$year = 1900 + $year;
$mon = $mon + 1;

if ($mon =~ /(\d)/) {
        $mon = "0" . $1;
}
if ($mday =~ /(\d)/) {
        $mday = "0" . $1;
}

my $today = $mon . "/" . $mday . "/" . $year;
print "Today is: $today\n";

###############################################
# get tomorrow's date in the mm/dd/yyyy format
###############################################
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time + 86400);
$year = 1900 + $year;
$mon = $mon + 1;

if ($mon =~ /(\d)/) {
        $mon = "0" . $1;
}
if ($mday =~ /(\d)/) {
        $mday = "0" . $1;
}

my $tomorrow = $mon . "/" . $mday . "/" . $year;
print "Tomorrow is: $tomorrow\n";

###############################################
# get yesterday's date in the mm/dd/yyyy format
###############################################
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time - 86400);
$year = 1900 + $year;
$mon = $mon + 1;

if ($mon =~ /(\d)/) {
        $mon = "0" . $1;
}
if ($mday =~ /(\d)/) {
        $mday = "0" . $1;
}

my $yesterday = $mon . "/" . $mday . "/" . $year;
print "Yesterday is: $yesterday\n";

################################################################
# process the input. parse it, place everything into variables.
################################################################

open(MSOUT, "$tmp_dir/$region") or die "Couldn't open $tmp_dir/$region: $!\n";

print "\n=========== INPUT ===========\n";

while (<MSOUT>) {
   s/^\s+//;
   s/\s+$//;
   my $line = $_;
   chomp($line);
   next unless length > 0;
   print "$line\n";

   #
   #   COCARRY      StoreToDDI   DONE
   #
   if ($line =~ /^COCARRY\s+StoreToDDI\s+(.*)/) {
	$COCARRY_StoreToDDI_desc = $1;
   }
   
   #
   #   COCARRY      rundate      7/3/2009
   #
   elsif ($line =~ /^COCARRY\s+rundate\s+(.*)/) {
	 $COCARRY_rundate_desc = $1;
   }
  
   #
   #   ROLL         ignore_local
   #
   elsif ($line =~ /^ROLL\s+ignore_local$/) {
         $ROLL_ignore_local_desc = "nothing";
   }

   #
   #   ROLL         ignore_local
   #
   elsif ($line =~ /^ROLL\s+ignore_local\s+(.*)/) {
         $ROLL_ignore_local_desc = $1;
   }

   #
   #   ROLL         mark         DONE     07/03/2009 22:09
   #
   elsif ($line =~ /^ROLL\s+mark\s+(\w+)\s+(\d+\/\d+\/\d+)\s(\d+:\d+)/) {
         $ROLL_mark_desc = $1;
	 $ROLL_mark_desc_date = $2;
	 $ROLL_mark_desc_time = $3;
   }
   
   #
   #   ROLL         position     DONE     07/03/2009 22:08
   #
   elsif ($line =~ /^ROLL\s+position\s+(\w+)\s+(\d+\/\d+\/\d+)\s(\d+:\d+)/) {
         $ROLL_position_desc = $1;
	 $ROLL_position_desc_date = $2;
	 $ROLL_position_desc_time = $3;
   }

   #
   #   ROLL         rundate      07/03/2009
   #
   elsif ($line =~ /^ROLL\s+rundate\s+(.*)/) {
         $ROLL_rundate_desc = $1;
   }

   #
   #   ROLL         spot         DONE     07/03/2009 22:08
   #
   elsif ($line =~ /^ROLL\s+spot\s+(\w+)\s+(\d+\/\d+\/\d+)\s(\d+:\d+)/) {
         $ROLL_spot_desc = $1;
         $ROLL_spot_desc_date = $2;
         $ROLL_spot_desc_time = $3;
   }

   #
   #   SPLAdj       data         DONE Jul  4 2009 12:51AM
   #
   elsif ($line =~ /^SPLAdj\s+data\s+(\w+)\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLAdj_data_desc = $1;
         $SPLAdj_data_desc_date = $2;
         $SPLAdj_data_desc_time = $3;
	 $SPLAdj_data_desc_ampm = $4;
   }
   
   #
   #   SPLAdj       lastcompdate Jul  3 2009 12:00AM
   #
   elsif ($line =~ /^SPLAdj\s+lastcompdate\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLAdj_lastcompdate_desc_date = $1;
         $SPLAdj_lastcompdate_desc_time = $2;
	 $SPLAdj_lastcompdate_desc_ampm = $3;
   }

   #
   #   SPLAdj       rundate      Jul  3 2009 12:00AM
   #
   elsif ($line =~ /^SPLAdj\s+rundate\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLAdj_rundate_desc_date = $1;
         $SPLAdj_rundate_desc_time = $2;
         $SPLAdj_rundate_desc_ampm = $3;
   }
  
   #
   #   SPLbatch     data         DONE Jul  3 2009 11:55PM
   #
   elsif ($line =~ /^SPLbatch\s+data\s+(\w+)\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLbatch_data_desc = $1;
         $SPLbatch_data_desc_date = $2;
         $SPLbatch_data_desc_time = $3;
         $SPLbatch_data_desc_ampm = $4;
   }

   #
   #   SPLbatch     lastcompdate Jul  3 2009 12:00AM
   #
   elsif ($line =~ /^SPLbatch\s+lastcompdate\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLbatch_lastcompdate_desc_date = $1;
         $SPLbatch_lastcompdate_desc_time = $2;
         $SPLbatch_lastcompdate_desc_ampm = $3;
   }

   #
   #   SPLbatch     rundate      Jul  3 2009 12:00AM
   #
   elsif ($line =~ /^SPLbatch\s+rundate\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLbatch_rundate_desc_date = $1;
         $SPLbatch_rundate_desc_time = $2;
         $SPLbatch_rundate_desc_ampm = $3;
   }

   #
   #   SPLbatchNew  data         DONE Jul  4 2009 12:50AM
   #
   elsif ($line =~ /^SPLbatchNew\s+data\s+(\w+)\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLbatchNew_data_desc = $1;
         $SPLbatchNew_data_desc_date = $2;
         $SPLbatchNew_data_desc_time = $3;
         $SPLbatchNew_data_desc_ampm = $4;
   }


   #
   #   SPLbatchNew  lastcompdate Jul  3 2009 12:00AM
   #
   elsif ($line =~ /^SPLbatchNew\s+lastcompdate\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLbatchNew_lastcompdate_desc_date = $1;
         $SPLbatchNew_lastcompdate_desc_time = $2;
         $SPLbatchNew_lastcompdate_desc_ampm = $3;
   }


   #
   #   SPLbatchNew  rundate      Jul  3 2009 12:00AM
   #
   elsif ($line =~ /^SPLbatchNew\s+rundate\s+(\w+\s+\d+\s\d+)\s(\d+:\d+)(\w+)/) {
         $SPLbatchNew_rundate_desc_date = $1;
         $SPLbatchNew_rundate_desc_time = $2;
         $SPLbatchNew_rundate_desc_ampm = $3;
   }

}
close(MSOUT);


print "\n=========== AFTER PARSING ===========\n";
print "-- COCARRY StoreToDDI: $COCARRY_StoreToDDI_desc\n";	
print "-- COCARRY rundate: $COCARRY_rundate_desc\n";
print "-- ROLL ignore_local: $ROLL_ignore_local_desc\n";
print "-- ROLL mark desc: $ROLL_mark_desc - $ROLL_mark_desc_date - $ROLL_mark_desc_time\n";
print "-- ROLL position: $ROLL_position_desc - $ROLL_position_desc_date - $ROLL_position_desc_time\n";
print "-- ROLL rundate: $ROLL_rundate_desc\n";
print "-- ROLL spot desc: $ROLL_spot_desc - $ROLL_spot_desc_date - $ROLL_spot_desc_time\n";
print "-- SPLAdj data desc: $SPLAdj_data_desc - $SPLAdj_data_desc_date - $SPLAdj_data_desc_time - $SPLAdj_data_desc_ampm\n";
print "-- SPLAdj lastcompdate desc: $SPLAdj_lastcompdate_desc_date - $SPLAdj_lastcompdate_desc_time - $SPLAdj_lastcompdate_desc_ampm\n";
print "-- SPLAdj rundate desc: $SPLAdj_rundate_desc_date - $SPLAdj_rundate_desc_time - $SPLAdj_rundate_desc_ampm\n";
print "-- SPLbatch data desc: $SPLbatch_data_desc - $SPLbatch_data_desc_date - $SPLbatch_data_desc_time - $SPLbatch_data_desc_ampm\n";
print "-- SPLbatch lastcompdate desc: $SPLbatch_lastcompdate_desc_date - $SPLbatch_lastcompdate_desc_time - $SPLbatch_lastcompdate_desc_ampm\n";
print "-- SPLbatch rundate desc: $SPLbatch_rundate_desc_date - $SPLbatch_rundate_desc_time - $SPLbatch_rundate_desc_ampm\n";
print "-- SPLbatchNew data desc: $SPLbatchNew_data_desc - $SPLbatchNew_data_desc_date - $SPLbatchNew_data_desc_time - $SPLbatchNew_data_desc_ampm\n";
print "-- SPLbatchNew lastcompdate desc: $SPLbatchNew_lastcompdate_desc_date - $SPLbatchNew_lastcompdate_desc_time - $SPLbatchNew_lastcompdate_desc_ampm\n";
print "-- SPLbatchNew rundate desc: $SPLbatchNew_rundate_desc_date - $SPLbatchNew_rundate_desc_time - $SPLbatchNew_rundate_desc_ampm\n";