#!/usr/bin/perl
use strict;
use warnings;
my $flagfile = "/home/rmgdal01/dalcoast_files/img_ready.txt";
if (-e $flagfile) {
  unlink glob("salinity_*.php");
  unlink glob("temp_*.php");
  unlink glob("sse_*.php");
  my @juliannum_pin=(0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365);
  my @juliannum_run=(0, 31, 60, 91, 121, 152, 182, 213, 244, 274, 305, 335, 366);
  ############### Obtain the information in the flag file ########################
  my $i=0;
  my $match_date;
  open(FILE, "/home/rmgdal01/dalcoast_files/old_flag") or die;
  while(my $lines=<FILE>){
    $lines =~ m/(\d+)/g;
    $match_date = $1;  
  }
  close(FILE);
  my $tsec;
  my $tmin;
  my $thour;
  my $tmday;
  my $tmon;
  my $tyear;
  my $wday;
  my $yday;
  my $isdst;
  my $juliannum_today;
  my $juliannum_tmr;
  my $juliannum_endday;
  my $year = substr $match_date, 0, 4;
  my $month = substr $match_date, 4, 2;
  my $day = substr $match_date, 6, 2;
  if ($year % 4==0&&($year % 100 !=0 || $year % 400 == 0)){
      $juliannum_today=$juliannum_run[$month-1]+$day;
  }
  else {
      $juliannum_today=$juliannum_pin[$month-1]+$day;
  }
  my $jtoday=sprintf("%03d", $juliannum_today);
  $juliannum_tmr=$juliannum_today+1;
  ############################################################################### 

  ########### Create the "values" in the hidden input area ######################
  my $hidden_value1_s;
  my $hidden_value2_s;
  my $hidden_value3_s;
  my $hidden_value4_s;
  my $hidden_value1_t;
  my $hidden_value2_t;
  my $hidden_value3_t;
  my $hidden_value1_e;
  my $hidden_value2_e;
  my $hidden_value3_e;
  my $hour;
  my $jday;
  my $level1="L1";
  my $level2="L2";
  my $level4="L4";
  my $level5="L5";
  for (my $j=$juliannum_today; $j<=$juliannum_tmr; $j++){
    $jday=sprintf("%03d", $j);
    for (my $h=0; $h<=21; $h+=3){
      $hour = sprintf("%02d", $h);
      $hidden_value1_s=$hidden_value1_s . "/dalcoast/output/gif_s/" . "$year$jday$hour" . "_L5.gif, ";
      $hidden_value2_s=$hidden_value2_s . "/dalcoast/output/gif_s/" . "$year$jday$hour" . "_L4.gif, ";
      $hidden_value3_s=$hidden_value3_s . "/dalcoast/output/gif_s/" . "$year$jday$hour" . "_L2.gif, ";
      
      $hidden_value1_t=$hidden_value1_t . "/dalcoast/output/gif_t/" . "$year$jday$hour" . "_L5.gif, ";
      $hidden_value2_t=$hidden_value2_t . "/dalcoast/output/gif_t/" . "$year$jday$hour" . "_L4.gif, ";
      $hidden_value3_t=$hidden_value3_t . "/dalcoast/output/gif_t/" . "$year$jday$hour" . "_L2.gif, ";
     
      $hidden_value1_e=$hidden_value1_e . "/dalcoast/output/gif_e/" . "$year$jday$hour" . "_L1.gif, ";
      $hidden_value2_e=$hidden_value2_e . "/dalcoast/output/gif_e/" . "$year$jday$hour" . "_L2.gif, ";
      $hidden_value3_e=$hidden_value3_e . "/dalcoast/output/gif_e/" . "$year$jday$hour" . "_L5.gif, ";
    }
  }
    
  #print $hidden_value;
  ###############################################################################

  ######### Create the page with the hidden value made above ####################
  open(FILE1S,"<root_salinity_L5_data.php") or die;
  open(FILE2S,"<root_salinity_L4_data.php") or die;
  open(FILE3S,"<root_salinity_L2_data.php") or die;
  open(OUTFILE1S, '>>salinity_L5_data.php') or die;
  open(OUTFILE2S, '>>salinity_L4_data.php') or die;
  open(OUTFILE3S, '>>salinity_L2_data.php') or die;
  
  open(FILE1T,"<root_temp_L5_data.php") or die;
  open(FILE2T,"<root_temp_L4_data.php") or die;
  open(FILE3T,"<root_temp_L2_data.php") or die;
  open(OUTFILE1T, '>>temp_L5_data.php') or die;
  open(OUTFILE2T, '>>temp_L4_data.php') or die;
  open(OUTFILE3T, '>>temp_L2_data.php') or die;
  
  open(FILE1E,"<root_sse_L1_data.php") or die;
  open(FILE2E,"<root_sse_L2_data.php") or die;
  open(OUTFILE1E, '>>sse_L1_data.php') or die;
  open(OUTFILE2E, '>>sse_L2_data.php') or die;
  while (my $lines1=<FILE1S>){
    $lines1 =~ s/hidden_values/$hidden_value1_s/;
    print OUTFILE1S $lines1;
  }
  while (my $lines2=<FILE2S>){
    $lines2 =~ s/hidden_values/$hidden_value2_s/;
    print OUTFILE2S $lines2;
  }
  while (my $lines3=<FILE3S>){
    $lines3 =~ s/hidden_values/$hidden_value3_s/;
    print OUTFILE3S $lines3;
  }
  while (my $lines4=<FILE4S>){
    $lines4 =~ s/hidden_values/$hidden_value4_s/;
    print OUTFILE4S $lines4;
  }
  while (my $lines11=<FILE1T>){
    $lines11 =~ s/hidden_values/$hidden_value1_t/;
    print OUTFILE1T $lines11;
  }
  while (my $lines22=<FILE2T>){
    $lines22 =~ s/hidden_values/$hidden_value2_t/;
    print OUTFILE2T $lines22;
  }
  while (my $lines33=<FILE3T>){
    $lines33 =~ s/hidden_values/$hidden_value3_t/;
    print OUTFILE3T $lines33
  }
  
  while (my $lines111=<FILE1E>){
    $lines111 =~ s/hidden_values/$hidden_value1_e/;
    print OUTFILE1E $lines111;
  }
  while (my $lines222=<FILE2E>){
    $lines222 =~ s/hidden_values/$hidden_value2_e/;
    print OUTFILE2E $lines222;
  }
  while (my $lines333=<FILE3E>){
    $lines333 =~ s/hidden_values/$hidden_value3_e/;
    print OUTFILE3E $lines333
  }
  unlink $flagfile;
}
else {
  exit;
}