--- nickban.pl.orig 2003-09-23 17:39:42.000000000 +0200 +++ scripts/nickban.pl 2004-12-21 01:22:27.000000000 +0100 @@ -1,10 +1,10 @@ $VERSION = "1.1"; %IRSSI = ( - authors => "Roeland 'Trancer' Nieuwenhuis", - contact => "irssi\@trancer.nl", - name => "nickban", - description => "A simple nick banner. If it encounters a nick it bans its host", - license => "Public Domain" + authors => "Roeland 'Trancer' Nieuwenhuis", + contact => "irssi\@trancer.nl", + name => "nickban", + description => "A simple nick banner. If it encounters a nick it bans its host", + license => "Public Domain" ); use strict; @@ -24,10 +24,10 @@ my($server, $channel, $nick, $address) = @_; # Are we opped? - return unless $server->channel_find($channel)->{chanop}; + return unless $server->channel_find($channel)->{chanop}; # If the nick is a server, stop it. - return if $nick eq $server->{nick}; + return if $nick eq $server->{nick}; # Is the user a banned nick? my $nono = 0; @@ -41,10 +41,10 @@ # User voiced or op'd? # Pretty useless, but ok - return if $server->channel_find($channel)->nick_find($nick)->{op} || $server->channel_find($channel)->nick_find($nick)->{voice}; + return if $server->channel_find($channel)->nick_find($nick)->{op} || $server->channel_find($channel)->nick_find($nick)->{voice}; - $server->command("kickban $channel $nick $kickreason"); + $server->command("kickban $channel $nick $kickreason"); Irssi::print("Nick banning $nick on $channel. Banned."); } -Irssi::signal_add_last('message join', 'nick_banner'); \ No newline at end of file +Irssi::signal_add_last('message join', 'nick_banner');