1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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;
}
|
