#slogan <woord>
use utf8;
use URI::Escape;
use URI::Escape;
sub slogan
{
    my ($msg, $dbh, $kanaal, $server) = @_;
    #if ($server->{tag} eq 'localhost')
    #{ return 'Vanwege te veel misbruik is deze functie alleen op IRC beschikbaar.'; }

    my $content = download("http://www.sloganizer.net/en/?slogan=".uri_escape($msg));
    if ($content eq '')
    { return 'Niks teruggekregen! Wellicht is Sloganizer onbereikbaar.'; }
    ($content) = grep(/<div class="slogan" id="slogan">/, split(/[\r\n]+/, $content));
    $content =~ s/<div class="slogan" id="slogan">.<b>([^<]*)<\/b>.<\/div>/$1/;
    return striphtml($content);
}

sub slogan_help
{
    return "Maak een leuke slogan van een woord: slogan <woord>\n";
}

1;