#!/usr/bin/perl
system("/usr/bin/wget -O /tmp/wx http://api.wunderground.com/auto/wui/geo/WXCurrentObXML/index.xml?query=MUC");

open FILE, "/tmp/wx";
while ($line = <FILE>) {
	if ($line =~ /<([a-z_]+)>(.+?)</) {
		$xml{$1} = $2;
	}
}

$warmkalt = ($xml{temp_c} < 10) ? "cold" : "warm";

$xml{temp_c} =~ s/-/minus /;

$text = "Good Morning. It is ".$xml{temp_c}." deg C $warmkalt, ".$xml{weather};
$text .= ", wind ".$xml{wind_string};

system("echo $text | /home/user/bin/morse.sh");
system("/usr/bin/cwbiff");