#!/usr/bin/perl

use POSIX;
use XML::Parser;
use XML::Simple;
use Data::Dumper;
use LWP::Simple;
#use Switch;

my $url = "http://apple.accuweather.com/adcbin/apple/Apple_Weather_Data.asp?zip$
my $file = get($url);
$file =~ s/encoding="[^"] "//;
my $xs1 = XML::Simple->new();

if(-e "/var/lib/asterisk/sounds/currentconditions.ulaw") {
        unlink("/var/lib/asterisk/sounds/currentconditions.ulaw");
}
if(-e "/var/lib/asterisk/sounds/planets.ulaw") {
        unlink("/var/lib/asterisk/sounds/planets.ulaw");
}
if(-e "/var/lib/asterisk/sounds/forecast.ulaw") {
        unlink("/var/lib/asterisk/sounds/forecast.ulaw");
}

my $doc = $xs1->XMLin($file, ForceContent => 1);

# this is the current conditions section

my $city = $doc->{CurrentConditions}->{City}->{content};
$city =~ s/^\s*(.*?)\s*$/$1/;
my $speech_text = "Current conditions for $city, ";
print "City: " , $city , "\n";