#!/usr/bin/perl

use LWP::Simple;

$USAGE = "Usage:\n";
$USAGE .= "$0 <location>\n";
$USAGE .= "\n";

if (@ARGV == 0) {
  print $USAGE;
  exit;
}

$StationID    = $ARGV[0];
$URL          = 'http://www.wunderground.com/cgi-bin/findweather/getForecast?query=' . $StationID;
$DataFileName = "$StationID.dat";

$document = get($URL);

$document =~ s|<b>||g;
$document =~ s|</b>||g;
$document =~ s/((?<=[^A-Za-z,])[ \t]+)|([ \t]+(?=\W))//g;
$document =~ s/\n//g;
$document =~ s/\r//g;

if ($document =~ /Observed at/) {
  ($time, $place) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Updated:(.*?)<br>Observed at(.*?)\(|);
  ($TempC) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Temperature</td><td>.*?(\d+\.?\d*)&nbsp;&#176;C|);
  ($TempF) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Temperature</td><td>.*?(\d+\.?\d*)&nbsp;&#176;F|);
  ($humidity) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Humidity</td><td>(\d+\.?\d*)\%|);
  ($conditions) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Conditions</td><td>(.+?)</td></tr>|);
  ($DewPointF) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Dew Point</td><td>.*?(\d+\.?\d*)&nbsp;&#176;F|);
  ($DewPointC) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Dew Point</td><td>.*?(\d+\.?\d*)&nbsp;&#176;C|);
  ($Pressure_mmHg) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Pressure</td><td>.*?(\d+\.?\d*)&nbsp;in|);
  ($Pressure_hPa) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Pressure</td><td>.*?(\d+\.?\d*)&nbsp;hPa|);
  ($Wind) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Wind</td><td>(.*?)</td></tr>|);
  ($WindDirection) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Wind</td><td>(.+?) at|);
  ($WindSpeed_kmh) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Wind</td><td>.*?(\d+\.?\d*)&nbsp;km/h|);
  ($WindSpeed_mph) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Wind</td><td>.*?(\d+\.?\d*)&nbsp;mph|);
  ($WindGust) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Wind Gust</td><td>(.*?)</td></tr>|);
  ($WindGust_kmh) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Wind Gust</td><td>.*?(\d+\.?\d*)&nbsp;km/h|);
  ($WindGust_mph) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Wind Gust</td><td>.*?(\d+\.?\d*)&nbsp;mph|);
  ($Visibility) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Visibility</td><td>(.*?)</td></tr>|);
  ($Visibility_miles) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Visibility</td><td>.*?(\d+\.?\d*)&nbsp;miles|);
  ($Visibility_km) =
    ($document =~ m|<tr BGCOLOR=.*?><td.*?>Visibility</td><td>.*?(\d+\.?\d*)&nbsp;kilometers|);

  print "Location         : \"" . $place . "\"\n";
  print "Time             : \"" . $time . "\"\n";
  print "Conditions       : " . $conditions . "\n";
  print "UTC              : " . "10:10" . "\n";
  print "Temperature      : " . $TempC . " C (" . $TempF . " F)\n";
  print "Dew Point        : " . $DewPointC . " C (" . $DewPointF . " F)\n";
#  print "Wind chill       : " . $chill . "\n";
  print "Pressure         : " . $Pressure_hPa . " hPa (" . $Pressure_mmHg . " mmHg)\n";
  print "Humidity         : " . $humidity . " %\n";
  print "Wind             : " . $Wind . "\n";
  if ($Wind == "Calm") {
    print "Wind             : Calm\n";
  }
#  } else {
    print "Wind direction   : " . $WindDirection . "\n";
    print "Wind speed       : " . $WindSpeed_kmh . " km/h (" . $WindSpeed_mph . " mph)\n";
#  }
  if ($WindGust != "-") {
    print "Wind ghust       : " . $WindGust_kmh . " km/h (" . $WindGust_mph . " mph)\n";
  }
  if ($Visibility != "-") {
    print "Visibility       : " . $Visibility_km . " kilometers (" . $Visibility_miles . " miles)\n";
  }
  else {
    print "Visibility       : " . $Visibility . "\n";
  }
}
else {
  print("HTML parser failed.\n");
#  print($document);
}