1 files changed, 0 insertions, 57 deletions
diff --git a/scripts/perl/fortune.pl b/scripts/perl/fortune.pl
deleted file mode 100644
index 5eba1405c..000000000
--- a/scripts/perl/fortune.pl
+++ /dev/null
@@ -1,57 +0,0 @@
-# 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;
-}
-
-