open (FILE, "/inetsrv/wwwroot/asheville.com/weatherfeed/HO_01.txt"); @lines=; close (FILE); print "Content-type: text/html\n\n"; if (!($ENV{'HTTP_REFERER'} =~ /asheville.com/)) { print "
The information contained on this page is (c) 1998 Asheville.com, and The Weather Channel. Unauthorized frame-trapping is strictly prohibited.

Please visit Asheville.com for the most comprehensive information about Asheville and it's surrounding areas.

"; } #print "$lines[0]"; ($call,$city,$state,$currtemp,$cond,$temp,$barometer,$temp,$humid,$wspeed,$wdirection) = split(/,/,$lines[0]); open (FILE, "/inetsrv/wwwroot/asheville.com/weather/codes.txt"); @lines=; close (FILE); foreach $line (@lines) { ($code,$desc) = split(/,/,$line); $desc =~ s/ /
/; if ($code eq $cond) {$currcond = $desc} }if ($wdirection eq "*") { $wind = "calm"; } else { $wind = "from the $wdirection at $wspeed MPH"; }($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); if ($sec < 10) { $sec = "0$sec"; } if ($min < 10) { $min = "0$min"; } if ($hour < 10) { $hour = "0$hour"; } if ($mon < 10) { $mon = "0$mon"; } if ($mday < 10) { $mday = "0$mday"; } #$month = ($mon + 1); @months = ("January","February","March","April","May","June","July","August","September","October","November","December"); $date = "$months[$mon] $mday, 19$year"; if ($hour > 11) { $hour = $hour - 12; if ($hour eq 0) {$hour = "12"} $tod = "pm"; } else { $tod = "am"; } $time = "$hour\:$min $tod"; open (FILE, "/inetsrv/wwwroot/asheville.com/weatherfeed/f5_01.txt"); @lines=; close (FILE); ($call,$city,$state,$temp,$temp,$temp1,$temp,$temp,$temp,$day1,$cond1,$high1,$low1,$rise1,$set1,$day2,$cond2,$high2,$low2,$rise2,$set2,$day3,$cond3,$high3,$low3,$rise3,$set3,$day4,$cond4,$high4,$low4,$rise4,$set4,$day5,$cond5,$high5,$low5,$rise5,$set5) = split(/,/,$lines[0]); if ($low5 eq "*") { ($call,$city,$state,$day1,$cond1,$high1,$low1,$rise1,$set1,$day2,$cond2,$high2,$low2,$rise2,$set2,$day3,$cond3,$high3,$low3,$rise3,$set3,$day4,$cond4,$high4,$low4,$rise4,$set4,$day5,$cond5,$high5,$low5,$rise5,$set5) = split(/,/,$lines[0]); } open (FILE, "/inetsrv/wwwroot/asheville.com/weather/codes.txt"); @lines=; close (FILE); foreach $line (@lines) { ($code,$desc) = split(/,/,$line); $desc =~ s/ /
/; if ($code eq $cond1) {$cdesc1 = $desc} if ($code eq $cond2) {$cdesc2 = $desc} if ($code eq $cond3) {$cdesc3 = $desc} if ($code eq $cond4) {$cdesc4 = $desc} if ($code eq $cond5) {$cdesc5 = $desc} } print <Asheville.com:Outdoors:Weather


Asheville, NC
$date
 current conditions as of $time EDT
 		$currcond
 current temp: $currtemp°F
$currcond
 wind: $wind
relative humidity: $humid%
barometer: $barometer inches
5-day forecast:

$day1 $day2 $day3 $day4 $day5
$cdesc1 $cdesc2 $cdesc3 $cdesc4 $cdesc5
hi $high1°
lo $low1°		 hi $high2°
lo $low2°		 hi $high3°
lo $low3°		 hi $high4°
lo $low4°		 hi $high5°
lo $low5°

Click here to view regional satellite image.


EndItem open (FILE, "/inetsrv/wwwroot/mainst/tony/tony.html"); @lines=; close (FILE); foreach $line (@lines) { print $line; } print <


asheville.com HOME


Copyright 1997 GSA Online. All rights reserved. Questions? Comments? Call 281-3300

EndItem exit;