#!/usr/bin/perl
# showweather.pl
$version     = "v.1.4";
$lastchanged = "18 June 2007";
# Copyright 2006 Steven Lucy slucy@uchicago.edu
# Released under the GPL version 2
# If you modify this code, I would enjoy seeing your version -- email me at address above.

# This perl script sticks a bunch of weather on one page.  Currently shows Chicago, but
# could easily be changed for any other city by changing the source files...

#There is a helper script, grabweather.sh, which should be run by cron every 30 minutes.

# preliminaries ================================================

use CGI qw/:standard/;

$datadir = "/var/www/weather";

# print source code if requested by user:#{{{
if (param("print") eq "grabweather.sh") {
    print "Content-type: text/plain\n\n";
    print `cat grabweather.sh`;
    exit;
}

if (param("print") eq "showweather.pl") {
    print "Content-type: text/plain\n\n";
    print `cat showweather.pl`;
    exit;
}#}}}

@supported_cities = ("chicago", "sf", "boston", "nola", "statecollege");#{{{

$current_url = url(-relative=>1, -query=>1);

$current_url =~ m/(^|\/)([^\/]*)\.pl/;
$selected_city = $2;
$selected_city = "" if ($selected_city eq "" ||
			$selected_city eq "showweather" ||
			$selected_city eq "index");
$city = $selected_city;

%zones = ("chicago" => "America/Chicago",
	  "sf" => "America/Los_Angeles",
	  "boston" => "America/New_York",
	  "nola" => "America/Chicago",
	  "statecollege" => "America/New_York");

%pretty = ("chicago" => "Chicago",
	   "sf" => "San Francisco",
	   "boston" => "Boston",
	   "nola" => "New Orleans",
	   "statecollege" => "State College, PA"
	   );

%datafile = ("chicago" => "KMDW.xml",
	     "sf" => "KSFO.xml",
	     "boston" => "KBOS.xml",
	     "nola" => "KNEW.xml",
	     "statecollege" => "KUNV.xml");

%forecasts = ("chicago" => "mdw",
	      "sf" => "sfo",
	      "boston" => "bos",
	      "nola" => "new",
	      "statecollege" => "unv");

%radar_pics = (
	       "chicago_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/centgrtlakes_loop.gif" alt="radar loop" width="300" height="285" />},
	       "chicago_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/LOT_loop.gif" alt="radar loop" width="300" height="275" />},
	       "boston_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/northeast_loop.gif" alt="radar loop" width="300" height="285" />},
	       "boston_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/BOX_loop.gif" alt="radar loop" width="300" height="275" />},
	       "sf_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/pacsouthwest_loop.gif" alt="radar loop" width="300" height="285" />},
	       "sf_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/MUX_loop.gif" alt="radar loop" width="300" height="275" />},
	       "nola_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/southmissbly_loop.gif" alt="radar loop" width="300" height="285" />},
	       "nola_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/LIX_loop.gif" alt="radar loop" width="300" height="275" />},
	       "statecollege_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/northeast_loop.gif" alt="radar loop" width="300" height="285" />},
	       "statecollege_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/CCX_loop.gif" alt="radar loop" width="300" height="275" />},

	      );

%clocks = ("chicago" => ["Chicago", "YerkesObIL"],
	   "sf" => ["SanFranCA", "MtHamCA"],
	   "boston" => ["Boston"],
	   "nola"  => ["NewOrlLA"],
	   "statecollege" => ["StateCollegePA"]);


# grab parameters from CGI:

$radar_pic = param("radar_pic");
$radar_size = param("radar_size");
$clouds_size = param("clouds_size");

# set up some defaults:
$city = "sf" unless ($city);
$ENV{"TZ"} = $zones{$city};

### - perlbal testing
my $ifout = `/sbin/ifconfig eth0|grep inet`;
$ifout =~ m/\s+inet\saddr:([\d\.]+)\s.+/g;
$server = $1;
#
$default{"radar_pic"}    = "mosaic";
$default{"radar_size"}   = "small";
$default{"clouds_size"}  = "small";

$radar_pic   = $default{"radar_pic"}   unless ($radar_pic);
$radar_size  = $default{"radar_size"}  unless ($radar_size);
$clouds_size = $default{"clouds_size"} unless ($clouds_size);#}}}

&begin_html();
&print_current_conditions();
&print_radar_pic();
&print_clouds_pic();
&print_forecast();
&print_astro();
&print_nat_loop();
&print_links();
&print_footer();


sub begin_html {#{{{
$timeformat = '%e %b %Y %k:%M %Z';
$time = `date +'$timeformat'`;
$utime = `date -u +'$timeformat'`;

my $othercities = "";
for $i (@supported_cities) {
    $othercities .= qq{ - <a href="$i.pl">$pretty\{$i\}</a> } unless ($i eq $city);
}
print <<END;
Content-type: text/html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<title>weather</title>
<meta http-equiv="Refresh" content="900"/>
<link rel="stylesheet" type="text/css" href="/css/weathorr.css" />
</head>

<body>

<div class="header"><span style="float: left;">Server: $server: $pretty{$city}
$othercities
</span>

<span class="updates" style="display: inline;">
<span class="day">Page loaded</span> at <span class="number">$time</span> or <span class="number">$utime</span>
</span><span style="clear: both; display: block; height: 0px;"></span></div>
END
}#}}}

sub print_current_conditions {#{{{
open(FILE, "< $datadir/$datafile{$city}") or die "Can't open file: $!";
 
while (<FILE>){ #go through XML file
    chomp;
    if (/^[ 	]*</) { #data
	m/<([^<>]*)>([^<>]*)<[^<>]*>/;
	$c{$1} = $2; #build hash!
    } else {;} #nodata
};

close(FILE);

#make date pretty:
($dayofweek, $day, $month, $year, $time, $zone, $zonehuman)
  = split(/ +/, $c{"observation_time_rfc822"}, 7);
$time =~ s/:00$//;
$up = "$dayofweek $day $month $year $time $zonehuman";

#radation in basement of regenstein:
if ($city eq "chicago") {
    $rad = `wget -q -T 3 -O- --tries=1 http://www.lib.uchicago.edu/~dean/float.htm | grep Current`;
    $rad =~ s/^[\D]*(\d*)[\D]*$/$1/;
    $radtext = qq{<span class="day">Current radiation</span> in the basement of the Regenstein Library: <span class="number">$rad</span> &mu;R/hr <a href="http://dwarmstr.blogspot.com/2005/12/live-radiation-reports-from-my-office.html">(info)</a><br />};
}

#make some changes to wind variable
$c{"wind_mph"} =~ s/\..*//; #who cares about tenths of a mph?

$wind_gust = " with gusts <span class=\"number\">$c{'wind_gust_mph'}</span>" unless $c{"wind_gust_mph"} =~ /NA/;

print<<END;
<div class="current">
<span class="day">Temp:</span> <span class="number">$c{"temp_f"} F</span> ($c{"temp_c"} C),
<span class="day">Windchill:</span> <span class="number">$c{"windchill_f"} F</span> ($c{"windchill_c"} C)<br />
<span class="day">Clouds:</span> <span class="number">$c{"weather"}</span>,
<span class="day">Wind</span> from <span class="number">$c{"wind_dir"}</span>
at <span class="number">$c{"wind_mph"} mph</span>$wind_gust<br />
$radtext
<span class="day">Updated at</span> <span class="number">$up</span> ($c{"station_id"})
</div>
END
}#}}}

sub print_radar_pic {#{{{

$show_radar_pic = $radar_pics{$city."_".$radar_pic};
$show_radar_pic =~ s/width.*\//\// if ($radar_size eq "big");

$current_url = url(-relative=>1, -query=>1);
#$current_url =~ s/index.pl//;

$radar_options = &print_loop_options("radar_pic", $radar_pic, (keys(%radar_pics)));
$radar_options .= " - " . &print_loop_options("radar_size", $radar_size, (qw{ big small }));

print <<END;
<div class="images">
<div class="oneimage"><div class="header">radar (precipitation)</div>$show_radar_pic<span class="imageoptions">$radar_options</span></div>
END
}#}}}

sub print_clouds_pic {#{{{

$current_url = url(-relative=>1, -query=>1);

$show_clouds_pic = qq{<img src="http://www.ssec.wisc.edu/data/g8/wisgifanim.gif" alt="satellite loop" width="320" height="240" />};
$show_clouds_pic =~ s/width.*\//\// if ($clouds_size eq "big");

$clouds_options = &print_loop_options("clouds_size", $clouds_size, (qw{ big small }));

if ($city eq "chicago") {
print qq{<div class="oneimage"><div class="header">satellite (clouds)</div>$show_clouds_pic<span class="imageoptions">$clouds_options</span></div>};
}
print<<END;
<div style="clear: both;"></div>
</div>
END
}#}}}

sub print_loop_options {#{{{
    my $option_name = shift;
    my $option_current = shift;
    my @option_list = @_;
    my $options ="";

    for $pic (@option_list) {
	if ($pic =~ /^(${city}_|small|big)/ ) {
	    $pic =~ s/^${city}_//;
	    if ($pic eq $option_current) { #no link needed
		$options .= "<span class=\"currentop ooption\">";
	    } else { #change!
		my $new_url = $current_url;
		if ($pic eq $default{$option_name}) { #del from url
		    $new_url =~ s/$option_name=\w*[;&]?//;
		    $new_url =~ s/[;?&]$//;
		} else { #need to set in url
		    if ($new_url =~ /$option_name=/) { #just need to change
			$new_url =~ s/$option_name=[^&;]*/$option_name=$pic/;
		    } else { #need to add to url
			$new_url .= "?" unless ($new_url =~ /\?/);
			$new_url .= ";" unless ($new_url =~ /[;&?]$/);
			$new_url .= "$option_name=$pic";
		    }
		}
		$options .= qq{<span class="ooption"><a class="options" href="$new_url">};
		$end_a = 1;
	    }
	    $options .= $pic . ($end_a ? "</a></span>" : "</span>");
	    $end_a = 0;
	}
    }

    return $options;
}#}}}

sub print_forecast {#{{{
print "<div class=\"insert\">",
      "<div class=\"header\">forecast</div>\n";

      open(FORECAST, "< $datadir/$forecasts{$city}.forecast") or die "Can't open file $!";

      if ($city eq "chicago") {
	  my $ready = 0;
	  $forecast = "NWS Chicago Metropolitan Forecast -- ";
	  while(<FORECAST>) {
	      $ready = 1 if (/^CHICAGO MET/);
	      $ready = 0 if (/\$\$/);
	      if ($ready == 1) {
		  if (/^CHICAGO MET/ || /^NATIONAL WEA/ || /^[ 	]*$/) {;}
		  else {
		      s/^\.([^.]*)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		      s/^(TODAY|TONIGHT)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		      $forecast .= (/<span/ ? "\n<br />" : "") . lc($_);
		  }
	      }
	  }
      } elsif ($city eq "sf") {;
	  while(<FORECAST>) {
	      if (/SAN FRANCISCO/) {
		  $forecast = "NWS San Francisco Peninsula Forecast -- ";
		  s/.*-(.*)&&.*/$1/;
		  s/<br> \.([^.]*)\.\.\./~~<span class="day">$1...<\/span>/g;
		  s/<br>//g;
		  s/~~/\n<br \/>/g;
		  $forecast .= lc($_);
	      }
	  }

      } elsif ($city eq "boston") {
	  my $ready = 0;
	  $forecast = "NWS Boston Forecast -- ";
	  while(<FORECAST>) {
	      s/<span[^>]*>//g;
	      s/<\/span>//g;
	      $ready = 1 if (/^INCLUDING/);
	      $ready = 0 if (/<\/pre>/);
	      if ($ready == 1) {
		  if (/^INCLUDING/ || /^[ 	]*$/) {;}
		  else {
		      s/^\.([^.]*)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		      s/^(TODAY|TONIGHT)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		      $forecast .= (/<span/ ? "\n<br />" : "") . lc($_);
		  }
	      }
	  }
      } elsif ($city eq "nola") {
	  $forecast = "NWS Orleans Parish Forecast -- ";
	  my $ready = 0;
	  while (<FORECAST>) {
	      $ready = 1 if (/^INCLUDING/);
	      $ready = 2 if ($ready == 1 and /^\d/);
	      $ready = 0 if (/<\/PRE>/);
	      if ($ready == 2) {
		  if (/^INCLUDING/ || /^[ 	]*$/) {;}
		  else {
		      s/<B><FONT SIZE=\+1 COLOR="#800000">/<br\/>\n<span class="day">/;
		      s/<\/FONT><\/B>/...<\/span>/;
		      $forecast .= lc($_);
		  }
	      }
	  }
      } elsif ($city eq "statecollege") {
	  $forecast = "NWS Southern Centre Forecast -- ";
	  my $ready = 0;
	  while(<FORECAST>) {
	      if (/ E[DC]T.*2007$/) {
		  $ready++;
	      }
	      if ($ready == 2) {
		  if (/\$\$/) {
		      $ready = 0;
		      next;
		  }
		  s/^\.([^.]*)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		  s/^(TODAY|TONIGHT)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		  $forecast .= (/<span/ ? "\n<br />" : "") . lc($_);
	      }
	  }
      }

      close(FORECAST);
      print $forecast;
      print "</div>\n";
}#}}}

sub print_astro {#{{{
    print
	qq{<div class="static">},
	qq{<div class="header">astronomical weather predictions</div>\n};
    for $clock (@{$clocks{$city}}) {
	print<<END;
	    <a href="http://cleardarksky.com/c/${clock}key.html"><img src="http://cleardarksky.com/c/${clock}csk.gif" alt="$clock clear sky clock" width="338" height="121"/></a>\n
END
    }
	print "</div>\n";
}#}}}

sub print_nat_loop {#{{{
print <<END;
<div class="static">
<div class="header">national radar loop</div>
<img src="http://radar.weather.gov/Conus/Loop/NatLoop_Small.gif" alt="national radar loop"/>
</div>
END
}#}}}

sub print_links {#{{{
    if ($city eq "chicago") {
	print <<END;
	<div class="static">
	    <div class="header">links</div>
	    <ul style="margin-top: 0;">
	    <li>Chicago:
	    <ul><li><a href="http://weather.noaa.gov/weather/current/KMDW.html">
	    Current conditions at Midway (KMDW)</a></li>
	    <li><a href="http://www.crh.noaa.gov/lot/lfp.php">
	    Chicago text forecast</a></li>
	    <li><a href="http://www.srh.noaa.gov/fwd/productviewnation.php?pil=LOTAFDLOT;version=0">
	    Illinois technical discussion</a></li>
	    <li>Radar loops: 
	    <ul><li>national gif:
	    <a href="http://radar.weather.gov/Conus/full_loop.php">big</a>
	    <a href="http://radar.weather.gov/Conus/index_loop.php">small</a>
	    </li>
	    <li> Chicago java:
	    <a href="http://radar.weather.gov/radar.php?rid=lot;product=N0R;overlay=11101111;loop=yes">short-range</a>
	    <a href="http://radar.weather.gov/radar.php?rid=lot;product=N0Z;overlay=11101111;loop=yes">long-range</a>
	    </li>
	    <li> Chicago gif:
	    <a href="http://radar.weather.gov/radar_lite.php?rid=lot&amp;product=N0R&amp;loop=yes">short-range</a>
	    <a href="http://radar.weather.gov/radar_lite.php?rid=lot&amp;product=N0Z&amp;loop=yes">long-range</a>
	    </li>
	    <li> Other:
	    <a href="http://radar.weather.gov/radar.php?rid=mkx;product=N0R;overlay=11101111;loop=yes">Milwaukee</a>
	    <a href="http://radar.weather.gov/radar.php?rid=lsx;product=N0R;overlay=11101111;loop=yes">St. Louis</a>
	    </li>
	    </ul>
	    </li>

	    <li>satellite: <a href="http://www.ssec.wisc.edu/data/east/latest_eastvis.gif">
	    visual</a> - <a href="http://www.ssec.wisc.edu/data/east/latest_eastir.gif">
	    infrared</a> - <a href="http://www.ssec.wisc.edu/data/g8/latest_g8msn.gif">
	    small (vis/ir)</a> - <a href="http://www.ssec.wisc.edu/data/geo/east/">animated</a></li>
	    </ul></li>
	    <li>Williams Bay:
	    <ul>
	    <li><a href="http://weather.noaa.gov/weather/current/KJVL.html">
	    Current conditions at Janesvile (KJVL)</a></li>
	    <li><a href="http://www.crh.noaa.gov/product.php?site=mkx;product=NOWMKX;format=ci">
	    Southern Wisconsin short term forecast</a></li>
	    <li><a href="http://www.crh.noaa.gov/grb/data/products/wizones">
	    Wisconsin text forecast</a></li>
	    <li><a href="http://nfsi-server.yerkes.uchicago.edu/Ftproot/webpub/yerkes_weather/index.htm">Yerkes weather</a></li>
	    </ul></li></ul>
	    </div>
END
    }
}#}}}

sub print_footer {#{{{
print <<END;
<hr/>

<div class="footer">
Code last changed $lastchanged ($version). Steven Lucy
&lt;<a href="mailto:slucy\@uchicago.edu">slucy\@uchicago.edu</a>&gt;<br/>
Source code released under the <a href="http://www.gnu.org/copyleft/gpl.html">GPL v.2</a>:
<a href="?print=showweather.pl">showweather.pl</a>
<a href="?print=grabweather.sh">grabweather.sh</a><br/>
W3C <a href="http://validator.w3.org/check?uri=referer">XHTML</a> <a href="http://jigsaw.w3.org/css-validator/check/referer">CSS</a>
</div>
</body>
</html>
END
}#}}}
#!/usr/bin/perl
# showweather.pl
$version     = "v.1.4";
$lastchanged = "18 June 2007";
# Copyright 2006 Steven Lucy slucy@uchicago.edu
# Released under the GPL version 2
# If you modify this code, I would enjoy seeing your version -- email me at address above.

# This perl script sticks a bunch of weather on one page.  Currently shows Chicago, but
# could easily be changed for any other city by changing the source files...

#There is a helper script, grabweather.sh, which should be run by cron every 30 minutes.

# preliminaries ================================================

use CGI qw/:standard/;

$datadir = "/home/slucy/weather";

# print source code if requested by user:#{{{
if (param("print") eq "grabweather.sh") {
    print "Content-type: text/plain\n\n";
    print `cat grabweather.sh`;
    exit;
}

if (param("print") eq "showweather.pl") {
    print "Content-type: text/plain\n\n";
    print `cat showweather.pl`;
    exit;
}#}}}

@supported_cities = ("chicago", "sf", "boston", "nola", "statecollege");#{{{

$current_url = url(-relative=>1, -query=>1);

$current_url =~ m/(^|\/)([^\/]*)\.pl/;
$selected_city = $2;
$selected_city = "" if ($selected_city eq "" ||
			$selected_city eq "showweather" ||
			$selected_city eq "index");
$city = $selected_city;

%zones = ("chicago" => "America/Chicago",
	  "sf" => "America/Los_Angeles",
	  "boston" => "America/New_York",
	  "nola" => "America/Chicago",
	  "statecollege" => "America/New_York");

%pretty = ("chicago" => "Chicago",
	   "sf" => "San Francisco",
	   "boston" => "Boston",
	   "nola" => "New Orleans",
	   "statecollege" => "State College, PA"
	   );

%datafile = ("chicago" => "KMDW.xml",
	     "sf" => "KSFO.xml",
	     "boston" => "KBOS.xml",
	     "nola" => "KNEW.xml",
	     "statecollege" => "KUNV.xml");

%forecasts = ("chicago" => "mdw",
	      "sf" => "sfo",
	      "boston" => "bos",
	      "nola" => "new",
	      "statecollege" => "unv");

%radar_pics = (
	       "chicago_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/centgrtlakes_loop.gif" alt="radar loop" width="300" height="285" />},
	       "chicago_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/LOT_loop.gif" alt="radar loop" width="300" height="275" />},
	       "boston_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/northeast_loop.gif" alt="radar loop" width="300" height="285" />},
	       "boston_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/BOX_loop.gif" alt="radar loop" width="300" height="275" />},
	       "sf_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/pacsouthwest_loop.gif" alt="radar loop" width="300" height="285" />},
	       "sf_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/MUX_loop.gif" alt="radar loop" width="300" height="275" />},
	       "nola_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/southmissbly_loop.gif" alt="radar loop" width="300" height="285" />},
	       "nola_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/LIX_loop.gif" alt="radar loop" width="300" height="275" />},
	       "statecollege_mosaic" =>
	       qq{<img src="http://radar.weather.gov/Conus/Loop/northeast_loop.gif" alt="radar loop" width="300" height="285" />},
	       "statecollege_single" =>
	       qq{<img src="http://www.srh.noaa.gov/ridge/lite/N0R/CCX_loop.gif" alt="radar loop" width="300" height="275" />},

	      );

%clocks = ("chicago" => ["Chicago", "YerkesObIL"],
	   "sf" => ["SanFranCA", "MtHamCA"],
	   "boston" => ["Boston"],
	   "nola"  => ["NewOrlLA"],
	   "statecollege" => ["StateCollegePA"]);


# grab parameters from CGI:

$radar_pic = param("radar_pic");
$radar_size = param("radar_size");
$clouds_size = param("clouds_size");

# set up some defaults:
$city = "chicago" unless ($city);
$ENV{"TZ"} = $zones{$city};

$default{"radar_pic"}    = "mosaic";
$default{"radar_size"}   = "small";
$default{"clouds_size"}  = "small";

$radar_pic   = $default{"radar_pic"}   unless ($radar_pic);
$radar_size  = $default{"radar_size"}  unless ($radar_size);
$clouds_size = $default{"clouds_size"} unless ($clouds_size);#}}}

&begin_html();
&print_current_conditions();
&print_radar_pic();
&print_clouds_pic();
&print_forecast();
&print_astro();
&print_nat_loop();
&print_links();
&print_footer();


sub begin_html {#{{{
$timeformat = '%e %b %Y %k:%M %Z';
$time = `date +'$timeformat'`;
$utime = `date -u +'$timeformat'`;

my $othercities = "";
for $i (@supported_cities) {
    $othercities .= qq{ - <a href="$i.pl">$pretty\{$i\}</a> } unless ($i eq $city);
}

print <<END;
Content-type: text/html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<title>weather</title>
<meta http-equiv="Refresh" content="900"/>
<link rel="stylesheet" type="text/css" href="/css/weathorr.css" />
</head>

<body>

<div class="header"><span style="float: left;">server:$1 $pretty{$city}
$othercities
</span>

<span class="updates" style="display: inline;">
<span class="day">Page loaded</span> at <span class="number">$time</span> or <span class="number">$utime</span>
</span><span style="clear: both; display: block; height: 0px;"></span></div>
END
}#}}}

sub print_current_conditions {#{{{
open(FILE, "< $datadir/$datafile{$city}") or die "Can't open file: $!";
 
while (<FILE>){ #go through XML file
    chomp;
    if (/^[ 	]*</) { #data
	m/<([^<>]*)>([^<>]*)<[^<>]*>/;
	$c{$1} = $2; #build hash!
    } else {;} #nodata
};

close(FILE);

#make date pretty:
($dayofweek, $day, $month, $year, $time, $zone, $zonehuman)
  = split(/ +/, $c{"observation_time_rfc822"}, 7);
$time =~ s/:00$//;
$up = "$dayofweek $day $month $year $time $zonehuman";

#radation in basement of regenstein:
if ($city eq "chicago") {
    $rad = `wget -q -T 3 -O- --tries=1 http://www.lib.uchicago.edu/~dean/float.htm | grep Current`;
    $rad =~ s/^[\D]*(\d*)[\D]*$/$1/;
    $radtext = qq{<span class="day">Current radiation</span> in the basement of the Regenstein Library: <span class="number">$rad</span> &mu;R/hr <a href="http://dwarmstr.blogspot.com/2005/12/live-radiation-reports-from-my-office.html">(info)</a><br />};
}

#make some changes to wind variable
$c{"wind_mph"} =~ s/\..*//; #who cares about tenths of a mph?

$wind_gust = " with gusts <span class=\"number\">$c{'wind_gust_mph'}</span>" unless $c{"wind_gust_mph"} =~ /NA/;

print<<END;
<div class="current">
<span class="day">Temp:</span> <span class="number">$c{"temp_f"} F</span> ($c{"temp_c"} C),
<span class="day">Windchill:</span> <span class="number">$c{"windchill_f"} F</span> ($c{"windchill_c"} C)<br />
<span class="day">Clouds:</span> <span class="number">$c{"weather"}</span>,
<span class="day">Wind</span> from <span class="number">$c{"wind_dir"}</span>
at <span class="number">$c{"wind_mph"} mph</span>$wind_gust<br />
$radtext
<span class="day">Updated at</span> <span class="number">$up</span> ($c{"station_id"})
</div>
END
}#}}}

sub print_radar_pic {#{{{

$show_radar_pic = $radar_pics{$city."_".$radar_pic};
$show_radar_pic =~ s/width.*\//\// if ($radar_size eq "big");

$current_url = url(-relative=>1, -query=>1);
#$current_url =~ s/index.pl//;

$radar_options = &print_loop_options("radar_pic", $radar_pic, (keys(%radar_pics)));
$radar_options .= " - " . &print_loop_options("radar_size", $radar_size, (qw{ big small }));

print <<END;
<div class="images">
<div class="oneimage"><div class="header">radar (precipitation)</div>$show_radar_pic<span class="imageoptions">$radar_options</span></div>
END
}#}}}

sub print_clouds_pic {#{{{

$current_url = url(-relative=>1, -query=>1);

$show_clouds_pic = qq{<img src="http://www.ssec.wisc.edu/data/g8/wisgifanim.gif" alt="satellite loop" width="320" height="240" />};
$show_clouds_pic =~ s/width.*\//\// if ($clouds_size eq "big");

$clouds_options = &print_loop_options("clouds_size", $clouds_size, (qw{ big small }));

if ($city eq "chicago") {
print qq{<div class="oneimage"><div class="header">satellite (clouds)</div>$show_clouds_pic<span class="imageoptions">$clouds_options</span></div>};
}
print<<END;
<div style="clear: both;"></div>
</div>
END
}#}}}

sub print_loop_options {#{{{
    my $option_name = shift;
    my $option_current = shift;
    my @option_list = @_;
    my $options ="";

    for $pic (@option_list) {
	if ($pic =~ /^(${city}_|small|big)/ ) {
	    $pic =~ s/^${city}_//;
	    if ($pic eq $option_current) { #no link needed
		$options .= "<span class=\"currentop ooption\">";
	    } else { #change!
		my $new_url = $current_url;
		if ($pic eq $default{$option_name}) { #del from url
		    $new_url =~ s/$option_name=\w*[;&]?//;
		    $new_url =~ s/[;?&]$//;
		} else { #need to set in url
		    if ($new_url =~ /$option_name=/) { #just need to change
			$new_url =~ s/$option_name=[^&;]*/$option_name=$pic/;
		    } else { #need to add to url
			$new_url .= "?" unless ($new_url =~ /\?/);
			$new_url .= ";" unless ($new_url =~ /[;&?]$/);
			$new_url .= "$option_name=$pic";
		    }
		}
		$options .= qq{<span class="ooption"><a class="options" href="$new_url">};
		$end_a = 1;
	    }
	    $options .= $pic . ($end_a ? "</a></span>" : "</span>");
	    $end_a = 0;
	}
    }

    return $options;
}#}}}

sub print_forecast {#{{{
print "<div class=\"insert\">",
      "<div class=\"header\">forecast</div>\n";

      open(FORECAST, "< $datadir/$forecasts{$city}.forecast") or die "Can't open file $!";

      if ($city eq "chicago") {
	  my $ready = 0;
	  $forecast = "NWS Chicago Metropolitan Forecast -- ";
	  while(<FORECAST>) {
	      $ready = 1 if (/^CHICAGO MET/);
	      $ready = 0 if (/\$\$/);
	      if ($ready == 1) {
		  if (/^CHICAGO MET/ || /^NATIONAL WEA/ || /^[ 	]*$/) {;}
		  else {
		      s/^\.([^.]*)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		      s/^(TODAY|TONIGHT)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		      $forecast .= (/<span/ ? "\n<br />" : "") . lc($_);
		  }
	      }
	  }
      } elsif ($city eq "sf") {;
	  while(<FORECAST>) {
	      if (/SAN FRANCISCO/) {
		  $forecast = "NWS San Francisco Peninsula Forecast -- ";
		  s/.*-(.*)&&.*/$1/;
		  s/<br> \.([^.]*)\.\.\./~~<span class="day">$1...<\/span>/g;
		  s/<br>//g;
		  s/~~/\n<br \/>/g;
		  $forecast .= lc($_);
	      }
	  }

      } elsif ($city eq "boston") {
	  my $ready = 0;
	  $forecast = "NWS Boston Forecast -- ";
	  while(<FORECAST>) {
	      s/<span[^>]*>//g;
	      s/<\/span>//g;
	      $ready = 1 if (/^INCLUDING/);
	      $ready = 0 if (/<\/pre>/);
	      if ($ready == 1) {
		  if (/^INCLUDING/ || /^[ 	]*$/) {;}
		  else {
		      s/^\.([^.]*)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		      s/^(TODAY|TONIGHT)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		      $forecast .= (/<span/ ? "\n<br />" : "") . lc($_);
		  }
	      }
	  }
      } elsif ($city eq "nola") {
	  $forecast = "NWS Orleans Parish Forecast -- ";
	  my $ready = 0;
	  while (<FORECAST>) {
	      $ready = 1 if (/^INCLUDING/);
	      $ready = 2 if ($ready == 1 and /^\d/);
	      $ready = 0 if (/<\/PRE>/);
	      if ($ready == 2) {
		  if (/^INCLUDING/ || /^[ 	]*$/) {;}
		  else {
		      s/<B><FONT SIZE=\+1 COLOR="#800000">/<br\/>\n<span class="day">/;
		      s/<\/FONT><\/B>/...<\/span>/;
		      $forecast .= lc($_);
		  }
	      }
	  }
      } elsif ($city eq "statecollege") {
	  $forecast = "NWS Southern Centre Forecast -- ";
	  my $ready = 0;
	  while(<FORECAST>) {
	      if (/ E[DC]T.*2007$/) {
		  $ready++;
	      }
	      if ($ready == 2) {
		  if (/\$\$/) {
		      $ready = 0;
		      next;
		  }
		  s/^\.([^.]*)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		  s/^(TODAY|TONIGHT)\.\.\.(.*)/<span class="day">$1...<\/span>$2/;
		  $forecast .= (/<span/ ? "\n<br />" : "") . lc($_);
	      }
	  }
      }

      close(FORECAST);
      print $forecast;
      print "</div>\n";
}#}}}

sub print_astro {#{{{
    print
	qq{<div class="static">},
	qq{<div class="header">astronomical weather predictions</div>\n};
    for $clock (@{$clocks{$city}}) {
	print<<END;
	    <a href="http://cleardarksky.com/c/${clock}key.html"><img src="http://cleardarksky.com/c/${clock}csk.gif" alt="$clock clear sky clock" width="338" height="121"/></a>\n
END
    }
	print "</div>\n";
}#}}}

sub print_nat_loop {#{{{
print <<END;
<div class="static">
<div class="header">national radar loop</div>
<img src="http://radar.weather.gov/Conus/Loop/NatLoop_Small.gif" alt="national radar loop"/>
</div>
END
}#}}}

sub print_links {#{{{
    if ($city eq "chicago") {
	print <<END;
	<div class="static">
	    <div class="header">links</div>
	    <ul style="margin-top: 0;">
	    <li>Chicago:
	    <ul><li><a href="http://weather.noaa.gov/weather/current/KMDW.html">
	    Current conditions at Midway (KMDW)</a></li>
	    <li><a href="http://www.crh.noaa.gov/lot/lfp.php">
	    Chicago text forecast</a></li>
	    <li><a href="http://www.srh.noaa.gov/fwd/productviewnation.php?pil=LOTAFDLOT;version=0">
	    Illinois technical discussion</a></li>
	    <li>Radar loops: 
	    <ul><li>national gif:
	    <a href="http://radar.weather.gov/Conus/full_loop.php">big</a>
	    <a href="http://radar.weather.gov/Conus/index_loop.php">small</a>
	    </li>
	    <li> Chicago java:
	    <a href="http://radar.weather.gov/radar.php?rid=lot;product=N0R;overlay=11101111;loop=yes">short-range</a>
	    <a href="http://radar.weather.gov/radar.php?rid=lot;product=N0Z;overlay=11101111;loop=yes">long-range</a>
	    </li>
	    <li> Chicago gif:
	    <a href="http://radar.weather.gov/radar_lite.php?rid=lot&amp;product=N0R&amp;loop=yes">short-range</a>
	    <a href="http://radar.weather.gov/radar_lite.php?rid=lot&amp;product=N0Z&amp;loop=yes">long-range</a>
	    </li>
	    <li> Other:
	    <a href="http://radar.weather.gov/radar.php?rid=mkx;product=N0R;overlay=11101111;loop=yes">Milwaukee</a>
	    <a href="http://radar.weather.gov/radar.php?rid=lsx;product=N0R;overlay=11101111;loop=yes">St. Louis</a>
	    </li>
	    </ul>
	    </li>

	    <li>satellite: <a href="http://www.ssec.wisc.edu/data/east/latest_eastvis.gif">
	    visual</a> - <a href="http://www.ssec.wisc.edu/data/east/latest_eastir.gif">
	    infrared</a> - <a href="http://www.ssec.wisc.edu/data/g8/latest_g8msn.gif">
	    small (vis/ir)</a> - <a href="http://www.ssec.wisc.edu/data/geo/east/">animated</a></li>
	    </ul></li>
	    <li>Williams Bay:
	    <ul>
	    <li><a href="http://weather.noaa.gov/weather/current/KJVL.html">
	    Current conditions at Janesvile (KJVL)</a></li>
	    <li><a href="http://www.crh.noaa.gov/product.php?site=mkx;product=NOWMKX;format=ci">
	    Southern Wisconsin short term forecast</a></li>
	    <li><a href="http://www.crh.noaa.gov/grb/data/products/wizones">
	    Wisconsin text forecast</a></li>
	    <li><a href="http://nfsi-server.yerkes.uchicago.edu/Ftproot/webpub/yerkes_weather/index.htm">Yerkes weather</a></li>
	    </ul></li></ul>
	    </div>
END
    }
}#}}}

sub print_footer {#{{{
print <<END;
<hr/>

<div class="footer">
Code last changed $lastchanged ($version). Steven Lucy
&lt;<a href="mailto:slucy\@uchicago.edu">slucy\@uchicago.edu</a>&gt;<br/>
Source code released under the <a href="http://www.gnu.org/copyleft/gpl.html">GPL v.2</a>:
<a href="?print=showweather.pl">showweather.pl</a>
<a href="?print=grabweather.sh">grabweather.sh</a><br/>
W3C <a href="http://validator.w3.org/check?uri=referer">XHTML</a> <a href="http://jigsaw.w3.org/css-validator/check/referer">CSS</a>
</div>
</body>
</html>
END
}#}}}