#!/usr/local/bin/perl
use POSIX;
print "Content-type: text/html\n\n";
print "
";
print " ASOS Station Observations and Zone Forecast ";
print "";
print "";
print "To display the latest Model forecast, enter the
";
print "station identifier (ICAO abbrevbiation) below
";
print "
";
$ENV{'PATH'} = '/usr/local/weather/bin/solaris/weather';
print '';
read (STDIN, $user_input, $ENV{'CONTENT_LENGTH'});
$sID = substr($user_input,5,4);
print "\n";
print "";
@model_eta = `/usr/local/weather/bin/solaris/weather -c exteta $sID l `;
# @model_ngm = `/usr/local/weather/bin/solaris/weather -c extngm $sID l `;
# @model_avn = `/usr/local/weather/bin/solaris/weather -c extngm $sID l `;
# @model_mrf = `/usr/local/weather/bin/solaris/weather -c extmrf $sID l `;
# @model_ngp = `/usr/local/weather/bin/solaris/weather -c extnogaps $sID l `;
$day_count = 0;
@eta_dh = $model_eta[6];
@eta_day;
@eta_hour;
#print "$model_eta[6]";
#print "$eta_dh[0]";
for ( $i = 20; $i >= 90; $i = $i + 7 )
{
print "Loop Works!
";
$eta_day[$day_count] = substr($eta_dh[0],$i,2);
print "$eta_dh[0],$i,2)";
$eta_hour[$day_count] = substr($eta_dh[0],$i+3,2);
print "Eta Day: $eta_day[$day_count]
";
print "Eta Hour: $eta_hour[$day_count]
";
}
#$eta_day1 = substr($model_eta[6],20,2);
#print "$eta_day1";
print "\n\n";
end;