Mercurial > ~darius > hgwebdir.cgi > wh1080
diff web/db.php @ 0:9dab44dcb331
Initial commit of Greg's code from http://www.lemis.com/grog/tmp/wh1080.tar.gz
| author | Daniel O'Connor <darius@dons.net.au> |
|---|---|
| date | Tue, 09 Feb 2010 13:44:25 +1030 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/web/db.php Tue Feb 09 13:44:25 2010 +1030 @@ -0,0 +1,374 @@ +<!-- for Emacs, this is a -*- mode: html-fill; coding: utf-8 -*- document --> +<!-- $Id: db.php,v 1.6 2010/02/07 03:25:04 grog Exp $ --> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> + +<?php +{ + $title = "Dereel weather observations"; + $subtitle = ""; + include "header.php"; + include "weathergraph.php"; + $id = '$Id: db.php,v 1.6 2010/02/07 03:25:04 grog Exp $'; +} +?> + +<html xmlns="http://www.w3.org/1999/xhtml"> + <head> + <?php pagetitle0 ($title); ?> + <meta http-equiv="refresh" content="900" ;=""> + </head> + + <body> + <?php pageheader0 ($title); ?> + + <div align="justify"> + <p> + This is an experimental page that I'm working on as part of my weather reporting software. + It'll grow over time. In the meantime, you can get more complete version of this + information from the <?php href + ("http://www.wunderground.com/weatherstation/WXDailyHistory.asp?ID=IVICTORI124", + "Wunderground page"); ?> for this station. + </p> + +<?php + +{ + $doplot = "/home/grog/src/weather/WH-1080/plots/doplots"; + $weatherdir = "/home/grog/public_html/weather"; + $me = basename ($_SERVER ["SCRIPT_FILENAME"]); + + if (array_key_exists ("date", $_GET)) + { + $mydate = validdate ($_GET ["date"], "date"); + if (is_array ($mydate)) /* valid date */ + $date = formatdate ("Y-m-d", $mydate); + else + { + print <<< EOS + <p> + <font color="red">Invalid date: $mydate. Using today's date</font> + </p> +EOS; + $date = date ("Y-m-d"); + } + } + else + { + $mydate = getdate (); + $date = date ("Y-m-d"); + } + + $istoday = $date == date ("Y-m-d"); /* if today, get current readings */ + + /* Environment to check for graphs */ + $yesterday = formatdate ("Ymd", (addsecs ($mydate, -86400))); + $tomorrow = formatdate ("Ymd", (addsecs ($mydate, 86400))); + + + print <<< EOS + + <!-- Select new date --> + <table> + <tr> + <td align="left"> + <form action="$me" method="get"> + <input type="submit" value="Previous day"/> + <input size="20" maxlength="20" type="hidden" name="date" value="$yesterday"/> + </form> + </td> + + <td> + <form action="$me" method="get"> + <table summary="Parameter input" cellspacing="2" border="0"> + <tr> + <td> + <input type="submit" value="New date:"/> + </td> + + <!-- value --> + <td> + <input size="20" maxlength="20" type="text" name="date" value="$date" /> + </td> + </tr> + </table> + </form> + </td> +EOS; + + if (! $istoday) + print <<< EOS + <td align="right"> + <form action="$me" method="get"> + <input type="submit" value="Next day"/> + <input size="20" maxlength="20" type="hidden" name="date" value="$tomorrow"/> + </form> + </td> + + <td align="right"> + <form action="$me" method="get"> + <input type="submit" value="Today"/> + </form> + </td> + +EOS; + print <<< EOS + + </tr> + </table> + +EOS; + + /* Set up database stuff */ + /* XXX This stuff should come from config */ + require "db.inc"; + $hostname = "localhost"; + $username = "grog"; + $password = ""; + $database = "weather"; + $dbtable = "observations"; + $station_id = "Dereel"; + + /* Connect to the server */ + if (! ($connection = @ mysql_pconnect ($hostname, $username, $password))) + showerror (); + + if (! mysql_select_db ($database, $connection)) + showerror (); + + if ($istoday) + { + $now = time (); + $start = time () - 600; /* 5 minutes ago */ + + $wind_directions = array ("N", "NNE", "NE", "ENE", "E", "ESE", "SE", "SSE", + "S", "SSW", "SW", "WSW", "W", "WNW", "NW", "NNW"); + $result = mysql_query (<<< EOS +SELECT AVG(inside_humidity), + AVG(inside_temp), + AVG(inside_dewpoint), + AVG(outside_humidity), + AVG(outside_temp), + AVG(outside_dewpoint), + AVG(pressure_msl), + AVG(wind_speed), + AVG(wind_gust), + AVG(wind_direction), + SUM(rain) +FROM $dbtable +WHERE unix_timestamp(timestamp(date,time)) >= $start + AND unix_timestamp(timestamp(date, time)) <= $now + AND station_id = "$station_id" +EOS + , $connection ); + + if (! $result) + showerror (); + if ($row = mysql_fetch_array ($result, MYSQL_NUM)) + { + $inside_humidity = sprintf ("%2.0f", $row [0]); + $inside_temperature = sprintf ("%2.1f", $row [1]); + $inside_dewpoint = sprintf ("%2.1f", $row [2]); + $outside_humidity = sprintf ("%2.1f", $row [3]); + $outside_temperature = sprintf ("%2.1f", $row [4]); + $outside_dewpoint = sprintf ("%2.1f", $row [5]); + $pressure_msl = sprintf ("%2.1f", $row [6]); + $wind_speed = sprintf ("%2.1f", $row [7]); + $wind_gust = sprintf ("%2.1f", $row [8]); + $wind_direction = sprintf ("%2.1f", $row [9]); + $rain = sprintf ("%2.1f", $row [10]); + $wind_direction_text = $wind_directions [($row [9] + 11.25) / 22.5]; + } + } + + $result = mysql_query (<<< EOS +SELECT @max_inside_humidity := MAX(inside_humidity), + @min_inside_humidity := MIN(inside_humidity), + @max_inside_temp := MAX(inside_temp), + @min_inside_temp := MIN(inside_temp), + @max_inside_dewpoint := MAX(inside_dewpoint), + @min_inside_dewpoint := MIN(inside_dewpoint), + @max_outside_humidity := MAX(outside_humidity), + @min_outside_humidity := MIN(outside_humidity), + @max_outside_temp := MAX(outside_temp), + @min_outside_temp := MIN(outside_temp), + @max_outside_dewpoint := MAX(outside_dewpoint), + @min_outside_dewpoint := MIN(outside_dewpoint), + @max_pressure_msl := MAX(pressure_msl), + @min_pressure_msl := MIN(pressure_msl), + @max_wind_speed := MAX(wind_speed), + @min_wind_speed := MIN(wind_speed), + @max_wind_gust := MAX(wind_gust), + @min_wind_gust := MIN(wind_gust), + SUM(rain) +FROM $dbtable +WHERE date = "$date" + AND station_id = "$station_id" +EOS + , $connection ); + + if (! $result) + showerror (); + if ($row = mysql_fetch_array ($result, MYSQL_NUM)) + { + $max_inside_humidity = sprintf ("%2.1f", $row [0]); + $min_inside_humidity = sprintf ("%2.1f", $row [1]); + $max_inside_temp = sprintf ("%2.1f", $row [2]); + $min_inside_temp = sprintf ("%2.1f", $row [3]); + $max_inside_dewpoint = sprintf ("%2.1f", $row [4]); + $min_inside_dewpoint = sprintf ("%2.1f", $row [5]); + $max_outside_humidity = sprintf ("%2.1f", $row [6]); + $min_outside_humidity = sprintf ("%2.1f", $row [7]); + $max_outside_temp = sprintf ("%2.1f", $row [8]); + $min_outside_temp = sprintf ("%2.1f", $row [9]); + $max_outside_dewpoint = sprintf ("%2.1f", $row [10]); + $min_outside_dewpoint = sprintf ("%2.1f", $row [11]); + $max_pressure_msl = sprintf ("%2.1f", $row [12]); + $min_pressure_msl = sprintf ("%2.1f", $row [13]); + $max_wind_speed = sprintf ("%2.1f", $row [14]); + $min_wind_speed = sprintf ("%2.1f", $row [15]); + $max_wind_gust = sprintf ("%2.1f", $row [16]); + $min_wind_gust = sprintf ("%2.1f", $row [17]); + $sum_rain = sprintf ("%2.1f", $row [18]); + } + + $vars = array ("inside_humidity", + "inside_temp", + "inside_dewpoint", + "outside_humidity", + "outside_temp", + "outside_dewpoint", + "pressure_msl", + "wind_speed", + "wind_gust"); + foreach ($vars as $var) + { + $result = mysql_query (<<< EOS +SELECT time from $dbtable +WHERE date = "$date" + AND station_id = "$station_id" + AND $var = @max_$var +LIMIT 1 +EOS + , $connection ); + + if (! $result) + showerror (); + if ($row = mysql_fetch_array ($result, MYSQL_NUM)) + { + $max = "max_{$var}_time"; + $$max = $row [0]; + } + else + { + print <<< EOS + <p> + No data found for $date. + </p> + </body> +</html> +EOS; + exit; + } + $result = mysql_query (<<< EOS +SELECT time from $dbtable +WHERE date = "$date" + AND station_id = "$station_id" + AND $var = @min_$var +LIMIT 1 +EOS + , $connection ); + + if (! $result) + showerror (); + if ($row = mysql_fetch_array ($result, MYSQL_NUM)) + { + $min = "min_{$var}_time"; + $$min = $row [0]; + } + } +} + ?> + + <h2> + <?php + if ($istoday) + { + $timetext = date ("H:i:s"); + print "Readings for today at $timetext"; + } + else + print "Readings for $date"; + ?> + + </h2> + <table> + <?php + if ($istoday) /* include current readings */ + makerows (<<< EOS +- Minimum At Maximum At Current +Outside temperature (°C) $min_outside_temp $min_outside_temp_time $max_outside_temp $max_outside_temp_time $outside_temperature +Outside dewpoint (°C) $min_outside_dewpoint $min_outside_dewpoint_time $max_outside_dewpoint $max_outside_dewpoint_time $outside_dewpoint +Outside humidity (%) $min_outside_humidity $min_outside_humidity_time $max_outside_humidity $max_outside_humidity_time $outside_humidity + +Inside temperature (°C) $min_inside_temp $min_inside_temp_time $max_inside_temp $max_inside_temp_time $inside_temperature +Inside dewpoint (°C) $min_inside_dewpoint $min_inside_dewpoint_time $max_inside_dewpoint $max_inside_dewpoint_time $inside_dewpoint +Inside humidity (%) $min_inside_humidity $min_inside_humidity_time $max_inside_humidity $max_inside_humidity_time $inside_humidity + +Pressure (hPa) $min_pressure_msl $min_pressure_msl_time $max_pressure_msl $max_pressure_msl_time $pressure_msl +Wind speed (km/h) $min_wind_speed $min_wind_speed_time $max_wind_speed $max_wind_speed_time $wind_speed +Wind gust (km/h) $min_wind_gust $min_wind_gust_time $max_wind_gust $max_wind_gust_time $wind_gust +Wind direction (°) $wind_direction ($wind_direction_text) +Day's rainfall (mm) $sum_rain + +EOS +, "lrcrcr"); + else + makerows (<<< EOS +- Minimum At Maximum At +Outside temperature (°C) $min_outside_temp $min_outside_temp_time $max_outside_temp $max_outside_temp_time +Outside dewpoint (°C) $min_outside_dewpoint $min_outside_dewpoint_time $max_outside_dewpoint $max_outside_dewpoint_time +Outside humidity (%) $min_outside_humidity $min_outside_humidity_time $max_outside_humidity $max_outside_humidity_time + +Inside temperature (°C) $min_inside_temp $min_inside_temp_time $max_inside_temp $max_inside_temp_time +Inside dewpoint (°C) $min_inside_dewpoint $min_inside_dewpoint_time $max_inside_dewpoint $max_inside_dewpoint_time +Inside humidity (%) $min_inside_humidity $min_inside_humidity_time $max_inside_humidity $max_inside_humidity_time + +Pressure (hPa) $min_pressure_msl $min_pressure_msl_time $max_pressure_msl $max_pressure_msl_time +Wind speed (km/h) $min_wind_speed $min_wind_speed_time $max_wind_speed $max_wind_speed_time +Wind gust (km/h) $min_wind_gust $min_wind_gust_time $max_wind_gust $max_wind_gust_time +Day's rainfall (mm) $sum_rain + +EOS +, "lrcrc"); +?> + </table> + + <h2> + Graphs for <?php echo $date ?> + </h2> + <?php + /* + * Ensure that we have the graph files. Well, ensure that we have at least the first. + */ + if ( ! file_exists ("$weatherdir/rain-$date-small.png")) + system ("$doplot $date 2>/dev/null >/dev/null"); + ?> + <div align="left"> + <?php showgraphs (<<< EOS +temperatures-$date Temperatures +5days-$date Five day temperatures +humidity-$date humidity +wind-$date wind +pressure-$date pressure +rain-$date rain +BoM-Dereel-$date BoM-Dereel +BoM-Dereel-pressure-$date BoM-Dereel-pressure +EOS +); +?> + + </div> + </div> + +<?php pagefooter ($id); ?>