Added SILC Thread Queue API

[runtime.git] / apps / irssi / scripts / quitmsg.pl

diff --git a/apps/irssi/scripts/quitmsg.pl b/apps/irssi/scripts/quitmsg.pl
index 981b15a05f59c9bb8a4751380049f16ef241687b..41bddaa8439354f703b641f0bc212e0783585c4d 100644 (file)
--- a/apps/irssi/scripts/quitmsg.pl
+++ b/apps/irssi/scripts/quitmsg.pl
@@ -4,6 +4,16 @@
 use Irssi;
 use Irssi::Irc;
 use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.00";
+%IRSSI = (
+    authors     => 'Timo Sirainen',
+    name        => 'quitmsg',
+    description => 'Random quit messages',
+    license     => 'Public Domain',
+    changed    => 'Sun Mar 10 23:18 EET 2002'
+);
 
 my $quitfile = glob "~/.irssi/irssi.quit";
 
@@ -28,7 +38,7 @@ sub cmd_quit {
        close(f);
 
        foreach my $server (Irssi::servers) {
-               $server->command("/disconnect ".$server->{tag}." $quitmsg");
+               $server->command("disconnect ".$server->{tag}." $quitmsg");
        }
 }