Formated by GeSHi
use Irssi 20020217; # Irssi 0.8.0
$VERSION = "1.1";
%IRSSI = (
    authors     =>  "Matti 'qvr' Hiljanen",
    contact     =>  "matti\@hiljanen.com",
    name        =>  "wkb",
    description =>  "A simple word kickbanner",
    license     =>  "Public Domain",
    url         =>  "http://matin.maapallo.org/softa/irssi",
);
 
use strict;
use Irssi;
 
my @channels =
  qw(#zalud);
 
my @words =
  qw(medved);
 
my @gods =
  qw(Dj_Bass);
 
sub sig_public {
    my ($server, $msg, $nick, $address, $target) = @_;
 
    return if $nick eq $server->{nick};
 
    my $rmsg = $msg;
    $rmsg =~ s/[\000-\037]//g;
    $msg = lc($msg);
 
    # bad word
    my $nono = 0;
    foreach (@words) { $nono = 1 if $msg =~ /([\A]|[^a-z])$_([\Z]|[^a-z])/ }   
    return unless $nono;
 
    # channel? 
    my $react = 0;
    foreach (@channels) { $react = 1 if lc($target) eq lc($_) }
    return unless $react;
 
    # god-like person?
    my $jumala = 0;
    foreach (@gods) { $jumala = 1 if lc($nick) =~ /$_/ }
    return if $jumala;
 
 
 
    $server->command("kick $target $nick kick");
    Irssi::print("Word kick: Kicking $nick from $target. (Povedal $rmsg)");
}
 
Irssi::signal_add_last('message public', 'sig_public');
Parsed in 0.01071 seconds