mirror of git://git.acid.vegas/archive.git
22 lines
515 B
Perl
22 lines
515 B
Perl
# AntiFuckYou (SAJOIN Auto-Part Script)
|
|
# Developed by acidvegas in Perl
|
|
# http://github.com/acidvegas/irssi
|
|
# antifuckyou.pl
|
|
|
|
use strict;
|
|
use Irssi;
|
|
|
|
sub anti_fuckyou {
|
|
my ($server, $msg, $nick, $address, $target) = @_;
|
|
if ($msg =~ /You were forced to join.*/) {
|
|
my $rand = &getRandom();
|
|
my $server_addr = $server->{real_address};
|
|
if ($nick eq $server_addr) {
|
|
$msg =~ s/.*\W(\w)/$1/;
|
|
$server->command("PART #$msg");
|
|
}
|
|
}
|
|
}
|
|
|
|
Irssi::signal_add('message irc notice', 'anti_fuckyou');
|