Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
autoop.pl	3.33 KB	-rw-r--r--
autorejoin.pl	2 KB	-rw-r--r--
buf.pl	4.51 KB	-rw-r--r--
command.pl	477 B	-rw-r--r--
dns.pl	5.41 KB	-rw-r--r--
kills.pl	2.84 KB	-rw-r--r--
mail.pl	12.11 KB	-rw-r--r--
mlock.pl	3.41 KB	-rw-r--r--
msg-event.pl	1.08 KB	-rw-r--r--
quitmsg.pl	896 B	-rw-r--r--
redirect.pl	982 B	-rw-r--r--
scriptassist.pl	37.14 KB	-rw-r--r--
usercount.pl	5.53 KB	-rw-r--r--

Code Editor : kills.pl

# Display kills with more understandable messages.
# for irssi 0.7.98 by Timo Sirainen

# There's one kind of nick collision this script doesn't handle - if the
# collision is detected by the server you're connected to, it won't use
# kill as quit reason, but "Nick collision(new)" or "..(old)". This is pretty
# easy to understand already, happens hardly ever(?) and it can be faked
# so I thought better not change it to kill message.

# There's a pretty good explanation of (ircnet) ircd's server kills in
# http://www.irc.org/tech_docs/ircnet/kills.html

use strict;
use Irssi;
use vars qw($VERSION %IRSSI);

$VERSION = "1.00";
%IRSSI = (
    authors	=> 'Timo Sirainen',
    name	=> 'kills',
    description	=> 'Displays kills with more understandable messages',
    license	=> 'Public Domain',
    changed	=> 'Sun Mar 10 23:18 EET 2002'
);

Irssi::theme_register([
  'kill_public', '{channick $0} {chanhost $1} killed by {nick $2}$3 {reason $4}'
]);

sub msg_quit {
  my ($server, $nick, $addr, $data) = @_;

my $localkill;
  if ($data =~ /^Killed $([^ ]*) \((.*)$\)$/) {
    # remote kill
    $localkill = 0;
  } elsif ($data =~ /^Local Kill by ([^ ]*) $(.*)$/) {
    # local kill
    $localkill = 1;
  } else {
    return;
  }

my $killer = $1;
  my $killmsg = $2;
  my $msg = "\002Nick collision\002: ";

my @printargs = ();
  if ($killmsg =~ /([^ ]*) != (.*)/) {
    # 1 != 2
    my $server1 = $1, my $server2 = $2;

$server1 =~ s/([^\[]*)\[([^\]]*)\]/\1/;
    $msg .= "$2 != $server2";
  } elsif ($killmsg =~ /([^ ]*) <- (.*)/) {
    # 1 <- 2
    my $server1 = $1, my $server2 = $2;

if ($server1 =~ /^$/) {
      # (addr1)server1 <- (add2)server2
      $server1 =~ s/^\(([^$]*)\)//;
      my $nick1 = $1;
      $server2 =~ s/^$([^$]*)\)//;
      my $nick2 = $1;

$msg .= "server $server1";
      $msg .= " (nick from $nick1)" if $nick1;
      $msg .= " <- ";
      $msg .= "\002$server2\002";
      $msg .= " (nick from \002$nick2\002)" if $nick2;
    } elsif ($server1 =~ /\)$/ || $server2 =~ /\)$/) {
      # server1(nick) <- server2
      # server1 <- server2(nick)
      $server1 =~ s/$([^$]*)\)$//;
      my $oldnick = $1;
      $server2 =~ s/$([^$]*)\)$//;
      $oldnick = $1 if $1;
      $msg = "\002Nick change collision\002: $server1 <- \002$server2\002 (old nick \002$oldnick\002)";
    } else {
      # server1 <- server2
      $msg = "\002Nick/server collision\002: $server1 <- \002$server2\002";
    }
  } else {
    # something else, just show it as-is
    $msg = $killmsg;
  }

my @list = $server->nicks_get_same($nick);
  while (@list) {
    my $channel = $list[0];
    shift @list;
    # skip nick record
    shift @list;

$channel->printformat(MSGLEVEL_QUITS, 'kill_public',
                          $nick, $addr, $killer,
			  $localkill ? " (local)" : "", $msg);
  }

Irssi::signal_stop();
}

Irssi::signal_add('message quit', 'msg_quit');

${this.title}

Code Editor : kills.pl