mirror of
https://github.com/weechat/weechat.git
synced 2026-06-25 12:26:40 +02:00
Julien Louis
58 lines
1.8 KiB
Perl
58 lines
1.8 KiB
Perl
# 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;
|
|
}
|
|
|
|
|