Initial import

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;
+}
+
+