archive

- Random tools & helpful resources for IRC

git clone git://git.acid.vegas/archive.git

killreconnect.pl (313B)

      1 use strict;
      2 use Irssi;
      3 
      4 Irssi::signal_add('event error', sub { Irssi::signal_stop(); });
      5 
      6 Irssi::signal_add('event kill', sub {
      7     my ($server, $args, $nick, $address) = @_;
      8     my $reason = $args;
      9     $reason =~ s/^.*://g;
     10     Irssi::print("You were killed by $nick ($reason)."); 
     11     Irssi::signal_stop(); 
     12 });