X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fscripts%2Fautorejoin.pl;fp=apps%2Firssi%2Fscripts%2Fautorejoin.pl;h=0000000000000000000000000000000000000000;hb=72c2de619079457f7a68100eb13385275a424a23;hp=2d23449f879beac3045b85458631e89746fcade1;hpb=e7b6c157b80152bf9fb9266e6bdd93f9fb0db776;p=runtime.git diff --git a/apps/irssi/scripts/autorejoin.pl b/apps/irssi/scripts/autorejoin.pl deleted file mode 100644 index 2d23449f..00000000 --- a/apps/irssi/scripts/autorejoin.pl +++ /dev/null @@ -1,52 +0,0 @@ -# automatically rejoin to channel after kicked - -# /SET autorejoin_channels #channel1 #channel2 ... - -# NOTE: I personally don't like this feature, in most channels I'm in it -# 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 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) = @_; - - # check if channel has password - my $chanrec = $server->channel_find($channel); - my $password = $chanrec->{key} if ($chanrec); - - # We have to use send_raw() because the channel record still - # exists and irssi won't even try to join to it with command() - $server->send_raw("JOIN $channel $password"); -} - -sub event_rejoin_kick { - my ($server, $data) = @_; - my ($channel, $nick) = split(/ +/, $data); - - return if ($server->{nick} ne $nick); - - # check if we want to autorejoin this channel - my @chans = split(/[ ,]+/, Irssi::settings_get_str('autorejoin_channels')); - foreach my $chan (@chans) { - if (lc($chan) eq lc($channel)) { - channel_rejoin($server, $channel); - last; - } - } -} - -Irssi::settings_add_str('misc', 'autorejoin_channels', ''); -Irssi::signal_add('event kick', 'event_rejoin_kick');