Mercurial > ~darius > hgwebdir.cgi > wh1080

view web/db.php @ 7:9a14029b3782

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- Wait longer (100msec) for a read, and reduce the number of retries to match. - Print out if we read OK after more than 1 attempt for diagnostic purposes.
author Daniel O'Connor <darius@dons.net.au>
date Thu, 11 Feb 2010 12:47:59 +1030
parents 9dab44dcb331
children
line wrap: on
line source

<!-- 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); ?>