Texas Whitewater Levels

#!/usr/bin/perl require "/var/www/servers/amphibious.org/html/cgi-bin/water-common"; print < Texas Whitewater Levels EOT my $time = read_data(); read_sites(); foreach my $id (sort hashAlph (keys %Name)) { my $name = $Name {$id}; my $county = $County{$id}; my $state = $State {$id}; my $class = $Class {$id}; my $site = $Site {$id}; my $type = $Type {$site}; my $avail = $Avail {$id}; my $good = $Good {$id}; my $high = $High {$id}; my $date; my $stage; my $flow; my $pstage; my $pflow; if($site =~ /(\d+)\+(\d+)/) { $date = $Date{$1}; $stage = "n/a"; $type = $Type{$1}; $flow = $Flow{$1} + $Flow{$2}; $pflow = $PFlow{$1} + $PFlow{$2}; } else { $date = $Date{$site}; $stage = $Stage{$site}; $flow = $Flow{$site}; $pstage = $PStage{$site}; $pflow = $PFlow{$site}; } my $fgcolor = "black"; my $bgcolor = "yellow"; my $change = "stable"; if($good eq "0") { $fgcolor = "black"; $bgcolor = "white"; if($stage > $pstage) { $change = "rise"; } elsif($stage < $pstage) { $change = "fall"; } } elsif($avail =~ /F/) { if($flow > $high) { $fgcolor = "white"; $bgcolor = "bgcolor=blue"; } elsif($flow > $good) { $fgcolor = "black"; $bgcolor = "lime"; } if($flow > $pflow) { $change = "rise"; } elsif($flow < $pflow) { $change = "fall"; } } elsif($avail =~ /H/) { if($stage > $high) { $fgcolor = "white"; $bgcolor = "bgcolor=blue"; } elsif($stage > $good) { $fgcolor = "black"; $bgcolor = "lime"; } if($stage > $pstage) { $change = "rise"; } elsif($stage < $pstage) { $change = "fall"; } } if($type eq "USGS") { $gauge_url = "http://waterdata.usgs.gov/nwis/uv?period=1&site_no=$site"; } else { $gauge_url = "http://www.lcra.org/water/XML_upper.html?type=print"; } print "\n"; } print <
EOT printf "Data last updated $time\n"; print <

Many of the suggested flow levels come from Steve Daniel's excellent book _Texas_Whitewater_

EOT

Water Levels
Name	State	Class	Gauge	Last Updated	Stage	Flow
$name	$state	$class	$site	$date	$stage	$flow