summaryrefslogtreecommitdiffstats
path: root/scripts/nocollide.pl
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
commit03929dac2a29664878d2c971648a4fe1fb698462 (patch)
tree02c5e2b3e006234aa29545f7a93a1ce01b291a8b /scripts/nocollide.pl
parentInitial commit. (diff)
downloadirssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.tar.xz
irssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.zip
Adding upstream version 20231031.upstream/20231031upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts/nocollide.pl')
-rw-r--r--scripts/nocollide.pl118
1 files changed, 118 insertions, 0 deletions
diff --git a/scripts/nocollide.pl b/scripts/nocollide.pl
new file mode 100644
index 0000000..d2f8177
--- /dev/null
+++ b/scripts/nocollide.pl
@@ -0,0 +1,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');