pbot/modules/map.pl

#!/usr/bin/perl

# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

use LWP::Simple;

my ($text, $buffer, $location);

if ($#ARGV < 0)
{
  print "Try again. Please specify the location you would like to search for nearby cities around.\n";
  die;
}

$location = join("+", @ARGV);

$location =~ s/,/%2C/;

if ($location =~ m/\+-(.*)/)
{
  # -arguments?
  $location =~ s/\+-.*//;
}

$text = get("http://weather.yahoo.com/search/weather2?p=$location");

$location =~ s/\+/ /g;
$location =~ s/%2C/,/g;

if ($text =~ m/No match found/)
{
  print "$location is not a valid location for this service.\n";
  die;
}

my $found = 0;
my $buf;
my $i;

if ($text =~ m/location matches\:/g)
{
  $buf = "Multiple locations found: ";

  while ($text =~ m/<a\shref="\/forecast\/(.*?)">(.*?)<\/a>/g)
  {
    $i = $1;
    $buffer = $2;

    $buffer =~ s/<b>//g;
    $buffer =~ s/<\/b>//g;
    $buffer =~ s/^\s+//;

    $buf = $buf . "$buffer - ";

    if ($location =~ m/$buffer/i)
    {
      $text = get("http://weather.yahoo.com/forecast/$i");
      $found = 1;
    }
  }
  $buf = $buf. "please specify one of these.\n";
  if (not $found)
  {
    print $buf;
    die;
  }
}

  my ($country, $state, $city);

  $text =~ m/<a href="\/">Weather<\/a>\s>/g;
  $text =~ m/<a href=.*?>(.*?)<\/a>\s>/g;
  $country = $1;

  if ($country eq "North America")
  {
    $text =~ m/<a href=.*?>(.*?)<\/a>\s>/g;
    $country = $1;
  }

  if ($country ne "Canada")
  {
    $text =~ m/<a href=.*?>(.*?)<\/a>\s>/g;
    $state = $1;
  }

  $text =~ m/^(.*?)<\/b><\/font>/mg;
  $city = $1;

  $text =~ m/Nearby.*?Locations/sgi;

  print "$country, $state, $city - Nearby Locations: ";

  while ($text =~ m/<a href=\"\/forecast\/.*?\.html\">(.*?)<\/a>/gi)
  {
    $buf = $1;
    $buf =~ s/<.*?>//gi;
    print "$buf, ";
  }
  print "\n";