#!/usr/bin/perl
use strict;
use warnings;
my $sec;
my $min;
my $hour;
my $mday1;
my $mon1;
my $year;
my $wday;
my $yday;
my $isdst;
my $line;
my @current_mon;
($sec,$min,$hour,$mday1,$mon1,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
my $mon = sprintf("%02d", $mon1+1);
my $mday = sprintf("%02d", $mday1);
my $flagfile = "/home/rmgdal01/wave_files/" . $year . $mon . $mday . "_good_flag";
my @mon_last_day1=(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my @mon_last_day2=(31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
my @mon_last_day;
my @two_days;
if ($year%4==0) {
   @mon_last_day=@mon_last_day2;
} else {
   @mon_last_day=@mon_last_day1;
}

if ($mday1==$mon_last_day[$mon1]&&$mon!=12) {    ## if today is the last of this month
   @two_days=($mon, sprintf("%02d",$mon1+2), $mday,"01"); ## array for two dates, [month, tmr month, day, tmr day]
} elsif ($mday1==$mon_last_day[$mon1]&&$mon==12) {
   @two_days=($mon, "01", $mday,"01");
} else {
   @two_days=($mon, $mon, $mday, sprintf("%02d", $mday1+1));
}


#print $flagfile;
if (-e $flagfile){
  unlink glob("wave_*.php");

  ############################################################################### 

  ########### Create the "values" in the hidden input area ######################
  my $hidden_value1;
  my $hidden_value2;
  my $hidden_value3;
  my $hidden_value4;
  my $hour;

  print $hidden_value1,"\n";
  print $hidden_value2,"\n";
  print $hidden_value3,"\n";
  print $hidden_value4,"\n";

  for (my $j=0; $j<=1; $j++){
    my $mon2 = $two_days[$j];
    my $day = $two_days[$j+2];
    if ($mon2=="01"&&$day=="01"&&$mon==12) {
      $year=$year+1;
    }
    for (my $h=0; $h<=23; $h+=1){
      
      $hour = sprintf("%02d", $h);
# Test 2016/7/31
      $hidden_value1=$hidden_value1 . "/dalcoast/output/wave_plot/grid1/" . $year . $mon2 . $day . $hour . "_wv_grid1.gif, ";
#      $hidden_value1="/var/www/dalcoast/output/wave_plot/grid1/" . $year . $mon2 . $day . $hour . "_wv_grid1.gif, ";
      $hidden_value2=$hidden_value2 . "/dalcoast/output/wave_plot/grid2/" . $year . $mon2 . $day . $hour . "_wv_grid2.gif, ";
#      $hidden_value2="/var/www/dalcoast/output/wave_plot/grid2/" . $year . $mon2 . $day . $hour . "_wv_grid2.gif, ";
      $hidden_value3=$hidden_value3 . "/dalcoast/output/wave_plot/grid3/" . $year . $mon2 . $day . $hour . "_wv_grid3.gif, ";
#      $hidden_value3="/var/www/dalcoast/output/wave_plot/grid3/" . $year . $mon2 . $day . $hour . "_wv_grid3.gif, ";
      $hidden_value4=$hidden_value4 . "/dalcoast/output/wave_plot/grid4/" . $year . $mon2 . $day . $hour . "_wv_grid4.gif, ";
#      $hidden_value4="/var/www/dalcoast/output/wave_plot/grid4/" . $year . $mon2 . $day . $hour . "_wv_grid4.gif, ";
    }
  }
    
  #print $hidden_value;
  ###############################################################################

  ######### Create the page with the hidden value made above ####################
  open(FILE1,"<root_wave_L1_data.php") or die;
  open(FILE2,"<root_wave_L2_data.php") or die;
  open(FILE3,"<root_wave_L3_data.php") or die;
  open(FILE4,"<root_wave_L5_data.php") or die;
  open(OUTFILE1, '>>wave_L1_data.php') or die;
  open(OUTFILE2, '>>wave_L2_data.php') or die;
  open(OUTFILE3, '>>wave_L3_data.php') or die;
  open(OUTFILE4, '>>wave_L5_data.php') or die;
  while (my $lines1=<FILE1>){
    $lines1 =~ s/hidden_values/$hidden_value1/;
    print OUTFILE1 $lines1;
  }
  while (my $lines2=<FILE2>){
    $lines2 =~ s/hidden_values/$hidden_value2/;
    print OUTFILE2 $lines2;
  }
  while (my $lines3=<FILE3>){
    $lines3 =~ s/hidden_values/$hidden_value3/;
    print OUTFILE3 $lines3;
  }
  while (my $lines4=<FILE4>){
    $lines4 =~ s/hidden_values/$hidden_value4/;
    print OUTFILE4 $lines4;
  }
  unlink $flagfile;
}
 else{
  exit;
}