#!/usr/bin/perl
use CGI;
use LWP::Simple;

$cgiobject=new CGI;
#$cgiobject->use_named_parameters;

print $cgiobject->header;
# Forecast
$forecastURL="ftp://tgftp.nws.noaa.gov/data/forecasts/city/va/washington_dulles_intl_airport.txt";
$forecastPage=get($forecastURL);
@inlines = split ('\n',$forecastPage);
$noinlines = @inlines;
$count=0;
foreach $line (@inlines) {
    if ($line =~ /^\./) {
        $line =~ /\.(.*)\.\.\.\s(.*\.)/;
        $timeperiod[$count] = $1;
        $forecast[$count] = $2;
        $count++;
    }
}
# Current temp and conditions
$tempURL="ftp://tgftp.nws.noaa.gov/data/observations/state_roundup/va/vaz051.txt";
$tempPage=get($tempURL);
@inlines = split ('\n',$tempPage);
foreach $line (@inlines) {
    if ($line =~ /DULLES/) {
	$tempF = substr $line, 25, 3;
#        $wind = substr $line, 36, 6;
	$conditions = substr $line, 15, 8;
        $conditions = lc $conditions;
        $conditions = ucfirst $conditions;
    }
}
# Get blog info from journal.html
$blogURL="http://www.restondigital.com/blog/journal.html";
$blogPage=get($blogURL);
if ($blogPage =~ /<div class=\"date\">(.*?)<\/div>/) {
    $newblogdate = $1;
}
else {
    $newblogdate = "N/A";
}
$blogPage=~s/\n//g;
if ($blogPage =~ /<a name=\".*?\"><\/a>(.*?)<span/) {
    $entry = $1;
}
else {
    $entry = "N/A";
}
open(INFILE,"</restondigital/data/bwtemplate.html");
@templatePage=<INFILE>;
# following joins infile into one variable
    $resultPage=join("",@templatePage);

    $resultPage=~s/<!--INSERT BLOGDATE HERE-->/$newblogdate/;
    $resultPage=~s/<!--INSERT ENTRY HERE-->/$entry/;
$resultPage=~s/<!--TEMP HERE-->/$tempF F $conditions/;
$resultPage=~s/<!--DAY1 FORECAST HERE-->/$timeperiod[0]<br>$forecast[0]/;
$resultPage=~s/<!--DAY2 FORECAST HERE-->/$timeperiod[1]<br>$forecast[1]/;
$resultPage=~s/<!--DAY3 FORECAST HERE-->/$timeperiod[2]<br>$forecast[2]/;
$resultPage=~s/<!--DAY4 FORECAST HERE-->/$timeperiod[3]<br>$forecast[3]/;

    close(INFILE);
    print $resultPage;