#!/usr/bin/perl

#usage example: perl updateWeb.pl 3 '1_day'
#$ARGV[0] = platform_id
#$ARGV[1] = time_interval

my $graph_path = '/usr2/prod/buoys/perl/graph';
my $dir_path = "/var/www/html/carocoops_website/images/EN/".$ARGV[0]."/graph/".$ARGV[1];

#Springmaid DO platform
if ($ARGV[0] == 3) {

        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "3" "22" "m_date" "m_value" "0" "50" "var1" "Salinity" "ppt" "var1" 360 $dir_path\_salinity_small.png 300 150`;
        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "3" "22" "m_date" "m_value" "0" "50" "var1" "Salinity" "ppt" "var1" 360 $dir_path\_salinity.png 600 300`;

        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "1" "20" "m_date" "m_value" "42" "100" "(var1-32)*5/9" "Water Temperature" "deg F" "var1*9/5+32" 360 $dir_path\_water_temp_small.png 300 150`;
        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "1" "20" "m_date" "m_value" "42" "100" "(var1-32)*5/9" "Water Temperature" "deg F" "var1*9/5+32" 360 $dir_path\_water_temp.png 600 300`;

        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "4" "23" "m_date" "m_value" "0" "10" "var1" "Pressure" "psia" "var1" 360 $dir_path\_pressure_small.png 300 150`;
        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "4" "23" "m_date" "m_value" "0" "10" "var1" "Pressure" "psia" "var1" 360 $dir_path\_pressure.png 600 300`;

        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "6" "25" "m_date" "m_value" "0" "50" "var1" "Dissolved Oxygen" "mg/L" "var1" 360 $dir_path\_DO_absolute_small.png 300 150`;
        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "6" "25" "m_date" "m_value" "0" "50" "var1" "Dissolved Oxygen" "mg/L" "var1" 360 $dir_path\_DO_absolute.png 600 300`;

        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "5" "24" "m_date" "m_value" "0" "100" "var1" "Dissolved Oxygen" "percent" "var1" 360 $dir_path\_DO_percent.png 600 300`;

        `cd $graph_path; perl graphSingleLinePlotGraph.pl singleLineMultiObsTable TimeLast $ARGV[1] $ARGV[0] "DB_WLS" "multi_obs" "7" "26" "m_date" "m_value" "0" "100" "var1" "Remaining Power" "percent" "var1" 360 $dir_path\_remaining_power.png 600 300`;

}