use strict;
use vars qw($VERSION %IRSSI);
use Irssi;
#use Data::Dumper;

$VERSION = '1.1';
%IRSSI = (
	authors     => 'syscrash2k, nightm4re',
	contact     => 'syscrash2k@gmail.com, daf@minuslab.net',
	name        => 'l3ibs',
	description => 'This script prints a list of nicks in the current channel with an optional announcment afterwards.' ,
	license     => 'GPL2',
);

sub say {
	my ($data, $server, $channel, $window) = @_;
	my @nicks = $channel->nicks;
	my $nicklist = "";
	for my $nick (@nicks) {
#		print Dumper($nick);
		if ($nick->{'nick'} ne $channel->{'ownnick'}->{'nick'}) {
			$nicklist .= "$nick->{'nick'} ";
		}
	}
	$channel->command("SAY $nicklist");
	$channel->command("SAY " . uc($_[0])) if ($_[0] ne '');
}

Irssi::command_bind l3ibs => \&say;