

open (FILE, "/inetsrv/wwwroot/asheville.com/weatherfeed/HO_01.txt");
@lines=<FILE>;
close (FILE);
print "Content-type: text/html\n\n";
if (!($ENV{'HTTP_REFERER'} =~ /asheville.com/)) {
	print "<blockquote><b>The information contained on this page is (c) 1998 Asheville.com, and The Weather Channel.  Unauthorized frame-trapping is strictly prohibited. <br><br>Please visit <a href=\"http://www.asheville.com/\" target=_top>Asheville.com</a> for the most comprehensive information about Asheville and it's surrounding areas.<br><br></blockquote>";
	}
#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=<FILE>;
close (FILE);
foreach $line (@lines) {	
	($code,$desc) = split(/,/,$line);
	$desc =~ s/ /<br>/;	
	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=<FILE>;
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=<FILE>;
close (FILE);
foreach $line (@lines) {	($code,$desc) = split(/,/,$line);
	$desc =~ s/ /<br>/;
		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 <<EndItem;

  			<html><head><title>Asheville.com:Outdoors:Weather</title></head>			
  			<body bgcolor="#ffffff"><center><img src="/images/weather.gif"><br><br>
  			 <TABLE WIDTH="600" CELLSPACING=0 CELLPADDING=0 BORDER=0>
			<TR>
			  <TD VALIGN=TOP WIDTH=40%>
			    <FONT FACE="ARIAL,HELVETICA" SIZE=4>
			    <B>Asheville, NC</B><BR>
			    <FONT SIZE=3>$date<BR>
			</FONT>
			    <FONT SIZE=2>current conditions as of $time EDT<BR></FONT>
			    </FONT>
			  </TD>
			  <TD ALIGN=CENTER WIDTH=20%>
			   <IMG SRC="/images/weather/current_D/uppercase/$cond.gif" ALT="$currcond" ><BR>
			  </TD>
			  <TD WIDTH=40%>
			    <FONT FACE="ARIAL,HELVETICA" SIZE=4>
			    <B>current temp: $currtemp&deg;F <BR>

			$currcond<BR></B>
			    <FONT SIZE=2>
			    wind:  $wind<BR>
			    relative humidity: $humid%<BR>
			    barometer: $barometer inches<BR>
			    </FONT>
			    </FONT>
			  </TD>
			</TR>
			</TABLE>


		<blockquote>		     <FONT FACE="ARIAL,HELVETICA" SIZE=3>
		      <B>5-day forecast: </B>
		      <FONT SIZE=2>

		      <BR><BR></blockquote>
<center>		<TABLE WIDTH=500 CELLPADDING=2 CELLSPACING=0 BORDER=0>
		<TR>
		<TD WIDTH=20% ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$day1</B></FONT></TD>
		<TD WIDTH=20% ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$day2</B></FONT></TD>
		<TD WIDTH=20% ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$day3</B></FONT></TD>
		<TD WIDTH=20% ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$day4</B></FONT></TD>
		<TD WIDTH=20% ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$day5</B></FONT></TD>
		</TR>
		<TR>
		<TD ALIGN=CENTER><IMG SRC="/images/weather/current_D/uppercase/$cond1.gif" ALT="" WIDTH=52 HEIGHT=52></TD>
		<TD ALIGN=CENTER><IMG SRC="/images/weather/current_D/uppercase/$cond2.gif" ALT="" WIDTH=52 HEIGHT=52></TD>
		<TD ALIGN=CENTER><IMG SRC="/images/weather/current_D/uppercase/$cond3.gif" ALT="" WIDTH=52 HEIGHT=52></TD>
		<TD ALIGN=CENTER><IMG SRC="/images/weather/current_D/uppercase/$cond4.gif" ALT="" WIDTH=52 HEIGHT=52></TD>
		<TD ALIGN=CENTER><IMG SRC="/images/weather/current_D/uppercase/$cond5.gif" ALT="" WIDTH=52 HEIGHT=52></TD>
		</TR>
		<TR>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$cdesc1</B></FONT></TD>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$cdesc2</B></FONT></TD>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$cdesc3</B></FONT></TD>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$cdesc4</B></FONT></TD>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2><B>$cdesc5</B></FONT></TD>
		</TR>
		<TR>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2>hi $high1&deg;<BR>lo $low1&deg;</FONT></TD>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2>hi $high2&deg;<BR>lo $low2&deg;</FONT></TD>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2>hi $high3&deg;<BR>lo $low3&deg;</FONT></TD>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2>hi $high4&deg;<BR>lo $low4&deg;</FONT></TD>
		<TD ALIGN=CENTER><FONT FACE="ARIAL,HELVETICA" SIZE=2>hi $high5&deg;<BR>lo $low5&deg;</FONT></TD>
		</TR>
		</TABLE>		</center>		  
		<br><A HREF="/weatherfeed/southeast_sat_450x284.gif">
		<FONT size=+1>Click here to view regional satellite image.</a>
		</font>		<br>
		
<br>
<a name="tony">
<table border=0 cellpadding="7" width=600><tr><td valign=top>

<img src="/images/tony.gif"></td><td>
<br>

EndItem


open (FILE, "/inetsrv/wwwroot/mainst/tony/tony.html");
@lines=<FILE>;
close (FILE);


foreach $line (@lines) {
  print $line; }


print <<EndItem;
  </td></tr>
</table>
		
		
		<br><br> 		<IMG SRC="/images/navibar.GIF" WIDTH="600" HEIGHT="68" ALIGN="BOTTOM" BORDER="0"
USEMAP="#navibar" ISMAP>
<font FACE="Helvetica, Verdana,Arial,Times"><b><a href="../home.html">asheville.com HOME</a> </font><br> 
<br><br>

<font size="-2" FACE="Helvetica, Verdana,Arial,Times">Copyright 1997 GSA Online. All rights reserved. Questions? Comments? Call 281-3300<br><br>

</CENTER>


<P>





<MAP Name="navibar">


<AREA Shape="Rect" coords = "516,-2,583,68"  HREF="/visitors/">


<AREA Shape="Rect" coords = "433,0,500,70"  HREF="/news/">


<AREA Shape="Rect" coords = "357,-1,424,69"  HREF="/outdoors/">


<AREA Shape="Rect" coords = "271,-2,338,68"  HREF="/shopping/">


<AREA Shape="Rect" coords = "184,-1,251,69"  HREF="/community/">


<AREA Shape="Rect" coords = "101,-2,168,68"  HREF="/restaurants/">


<AREA Shape="Rect" coords = "18,-2,85,68"  HREF="/entertainment/">


</MAP>

EndItem

exit;