#temp <locatie>
use utf8;
use Date::Format;
sub temp
{
    my ($msg) = @_, my ($content, $i, $msgorig), my @content;
    $msgorig = $msg;
    if (!defined($msg) || $msg =~ m/^\s*$/) { $msg = 'Schiphol'; }
    else { $msg = ucfirst($msg); }

    $content = download('http://www.knmi.nl/actueel/');
    if ($content)
    {
        @content = split(/[\r\n]+/, $content);
        for($i = 0; $i <= $#content; $i++)
        {
            if (index(lc $content[$i], lc ">$msg") >= 0)
            { $i += 2; last; }
        }
        my $temp = $content[$i];
        $temp =~ s/<[^>]*>//g;
        $temp =~ s/[^\d\.-]//g;
        $content = $temp eq '' ? 'Niks gevonden! Kijk voor een overzicht van locaties op http://www.knmi.nl/actueel/' : "$temp°C in $msg";
        cache("temp $msgorig", $content, time2str('%Y-%m-%d %H:%M:%S', time+600));
        return $content;
    }
    else
    { return "Niks gevonden! Wellicht is 't KNMI down."; }
}

sub temp_help
{
    my $return;
    $return  = "Toon de huidige temperatuur: temp <locatie>\n";
    $return .= "Bv.: temp Twenthe\n";
    $return .= "Kijk voor een overzicht van locaties op http://www.knmi.nl/actueel/\n";
    return $return;
}

1;