This file is indexed.

/usr/share/irssi/scripts/nocollide.pl is in irssi-scripts 20131030.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
#
# This script will change your nickname if in given time (/SET collision_time [seconds])
# there are more than specific number of collisions (/SET collision_count [number]) on
# single channel. After change next nick collisions are ignored for given time
# (/SET collsion_ignore [seconds]).
# Settings:
#		/SET collision_avoid [On/Off] (default is on, if off - action disabled)
#		/SET collision_count [number]
#		/SET collision_time [seconds]
#		/SET collision_ignore [seconds]
#		/SET collision_baselen [0-6]

use strict;
use Irssi;
use Irssi::Irc;

use vars qw($VERSION %IRSSI);
$VERSION = "0.2.3";
%IRSSI = (
	'authors'		=> 'Marcin Rozycki',
	'contact'		=> 'derwan@irssi.pl',
	'name'			=> 'nocollide',
	'description'		=> 'Automatically changes nick (to randnick or uid on ircd 2.11) when certain amount of nick colissions'.
	                           'takes place on channel',
	'url'			=> 'http://derwan.irssi.pl',
	'license'		=> 'GNU GPL v2',
	'changed'		=> 'Mon Feb 16 10:08:59 CET 2004',
);

my $default_time = 5;
my $default_count = 2;
my $default_ignore = 10;
my $default_baselen = 5;

Irssi::settings_add_bool('misc', 'collision_avoid', 1);
Irssi::settings_add_int('misc', 'collision_time', $default_time);
Irssi::settings_add_int('misc', 'collision_count', $default_count);
Irssi::settings_add_int('misc', 'collision_ignore', $default_ignore);
Irssi::settings_add_int('misc', 'collision_baselen', $default_baselen);

my %collision = ();
my %collision_changed = ();

sub sig_message_quit {
	my ($server, $nick, $null, $quit_msg) = @_;

	# based on cras'es kills.pl
	return if ($quit_msg !~ /^Killed \(([^ ]*) \((.*)\)\)$/ or !$server or !$server->{connected} or
			!$nick or !Irssi::settings_get_bool('collision_avoid'));

	my $time = time(); my $tag = lc($server->{tag}); my $change = 0;

	my $check_time = Irssi::settings_get_int('collision_time');
	$check_time = $default_time if (!$check_time or $check_time !~ /^\d+$/);

	my $check_count = Irssi::settings_get_int('collision_count');
	$check_count = $default_count if (!$check_count or $check_count !~ /^\d+$/);
	$check_count = 10 if (--$check_count > 10);

	my $ignore = Irssi::settings_get_int('collision_ignore');
	$ignore = $default_ignore if (!$ignore or $ignore !~ /^\d+$/);

	my $version = $server->{version};
	$version = 0 unless ( defined $version );
	
	my @list = $server->nicks_get_same($nick);
	while (my $channel = shift(@list)) {
		shift(@list);

		my $chan = lc($channel->{name});
		unshift @{$collision{$tag}{$chan}}, $time; $#{$collision{$tag}{$chan}} = 10;
		next if ( $server->{nick} =~ m/^\d/ );
		
		next unless ($check_count > 0 and $check_time > 0);

		my $test = $collision{$tag}{$chan}[$check_count];
		if ($test and $test >= ($time - $check_time)) {
			my $last = $collision_changed{$tag};
			next if ($last and ($time - $last) < $ignore);
			
			$collision_changed{$tag} = $time;
			delete $collision{$tag}{$chan};
			next if ($change++);

			if ( $version =~ m/^2.11/ ) {
				$channel->print("%RNick collision alert%n in %_".$channel->{name}."%_ \(rate ".($check_count + 1)."\:$check_time\). Changing nick to %_uid%_!", MSGLEVEL_CLIENTCRAP);
				$server->send_raw('NICK 0');
				next;
			}
			
			my $len = Irssi::settings_get_int('collision_baselen');
			$len = 6 if ($len > 6);
			my $nick = randnick(substr($server->{nick}, 0, $len));
			$channel->print("%RNick collision alert%n in %_".$channel->{name}."%_ \(rate ".($check_count + 1)."\:$check_time\). Changing nick to \'%_$nick%_\'", MSGLEVEL_CLIENTCRAP);
			$server->command("NICK $nick");
		}
	}
}

# str randnick($prefix, $nicklen);
# returns random nickname
sub randnick {
	my ($base, $length) = @_;
	$length = 9 if (!$length or $length !~ /^\d+$/);

	# based on fahren's void.scr for LiCe
	my $chars = 'aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ_-0123456789';
	my $cchars = (length($base)) ? 64 : 53;

	while (length($base) < $length)
	{
		$base .= substr($chars, int(rand($cchars)), 1);
		$cchars = 64 if ($cchars == 53);
	}
	return $base;
}

Irssi::signal_add_first('message quit', 'sig_message_quit');