Added SILC Thread Queue API

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

diff --git a/apps/irssi/scripts/autorejoin.pl b/apps/irssi/scripts/autorejoin.pl
index 3738f5fcbe472ae4f50bf0c5cc39690741a82477..2d23449f879beac3045b85458631e89746fcade1 100644 (file)
--- a/apps/irssi/scripts/autorejoin.pl
+++ b/apps/irssi/scripts/autorejoin.pl
@@ -6,8 +6,19 @@
 # will just result as ban. You've probably misunderstood the idea of /KICK
 # if you kick/get kicked all the time "just for fun" ...
 
-use strict;
+use Irssi;
 use Irssi::Irc;
+use strict;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = "1.00";
+%IRSSI = (
+    authors     => 'Timo Sirainen',
+    name        => 'autorejoin',
+    description => 'Automatically rejoin to channel after kicked',
+    license     => 'Public Domain',
+    changed    => 'Sun Mar 10 23:18 EET 2002'
+);
 
 sub channel_rejoin {
   my ($server, $channel) = @_;
@@ -28,7 +39,7 @@ sub event_rejoin_kick {
   return if ($server->{nick} ne $nick);
 
   # check if we want to autorejoin this channel
-  my @chans = split(/ ,/, Irssi::settings_get_str('autorejoin_channels'));
+  my @chans = split(/[ ,]+/, Irssi::settings_get_str('autorejoin_channels'));
   foreach my $chan (@chans) {
     if (lc($chan) eq lc($channel)) {
       channel_rejoin($server, $channel);