diff options
Diffstat (limited to 'scripts/perl/fortune.pl')
| -rw-r--r-- | scripts/perl/fortune.pl | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/scripts/perl/fortune.pl b/scripts/perl/fortune.pl new file mode 100644 index 000000000..5eba1405c --- /dev/null +++ b/scripts/perl/fortune.pl @@ -0,0 +1,57 @@ +# This script is a port from the original fortune.pl irssi script written by +# Ivo Marino <eim@cpan.org>. This script is in the public domain +# +# Author: Julien Louis <ptitlouis@sysif.net> + +weechat::register("fortune", "0.1", "", "Send a random fortune cookie to a specified nick"); + +weechat::add_command_handler ("fortune", fortune, "Send a random fortune cookie to a specified nick", + "<nick> [lang]", + "<nick> The nickname to send the fortune cookie\n" . + " [lang] The cookie language (Default: en)\n", + "%n %-"); + +sub fortune { + + my ($server, $param) = @_; + my $return = weechat::PLUGIN_RC_OK; + my $cookie = ''; + + if ($param) { + + if ($server) { + (my $nick, my $lang) = split (' ', $param); + $lang = 'en' unless ($lang eq 'de'|| $lang eq 'it' || $lang eq +'en' || $lang eq 'fr' ); + weechat::print ("Nick: " . $nick . ", Lang: \"" . $lang . "\""); + + if ($lang eq 'de') { + $cookie = `fortune -x`; + } elsif ($lang eq 'it') { + $cookie = `fortune -a italia`; + } else { + $cookie = `fortune -a fortunes literature riddles`; + } + + $cookie =~ s/\s*\n\s*/ /g; + if ($cookie) { + $channel = weechat::get_info("channel"); + if ($channel) { + weechat::command($nick . ": " . $cookie, $channel); + } + } else { + weechat::print ("No cookie."); + $return = weechat::PLUGIN_RC_KO; + } + } else { + weechat::print ("Not connected to server"); + $return = weechat::PLUGIN_RC_KO; + } + } else { + weechat::print ("Usage: /fortune <nick> [language]"); + $return = weechat::PLUGIN_RC_KO; + } + return $return; +} + + |