nabo.pl

• package main
  • cmd_nabo
• EOF

use strict;
use vars qw($VERSION %IRSSI);

use Irssi;

$VERSION = '1.00';
%IRSSI = (
	  authors=> '_aa_',
	  contact=> 'Jared@anal0g.org',
	  name=> 'Notice All But One',
	  description=> 'Sends a notice to all members of a channel except the specified nick',
	  license=> 'Public Domain',
	  url=> 'http://anal0g.org/perl',
	  changed=> 'Sun Oct 22 02:14 CDT 2006',
	  );

sub cmd_nabo {
    my ($args, $server, $channel) = @_;
    my @arg = split(/ /,$args);
    my $target = shift(@arg);
    my $message = join(/ /,@arg);
    if ($channel->{type} ne "CHANNEL") {
	Irssi::print("Dumbass.");
	return;
      }
    for ($channel->nicks()) {
	my $nick = $_->{nick};
	if ($nick ne $target) {
	    Irssi::print("$nick -> $message !-> $target");
	    $server->send_raw("NOTICE $nick $message");
	    sleep 1;
	}
    }
}

Irssi::command_bind('nabo', 'cmd_nabo');