#!/usr/bin/perl
use strict;
use warnings;
my $mday;
my $mday1;
my $mon;
my $year;
my $day;
my $flagfile;

my @flagfiles = glob("/home/rmgdal01/wave_files/*_good_flag");

foreach $flagfile (@flagfiles) {
     print "flagfile is $flagfile\n";

    my $date = $flagfile;
    $date=~s/.*\/([0-9]{4})([0-9]{2})([0-9]{2})_good_flag/$1:$2:$3/;
    ($year, $mon, $mday) = split /:/,$date;
    $mday1 = $mday;
    $mday1=~s/^0//;

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


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

  ########### 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);
      $hidden_value1=$hidden_value1 . "/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_value3=$hidden_value3 . "/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, ";
    }
  }
    
  #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;
}