# -*-perl-*-
# keitairc/lib/plugins/00nick
# nickꗗ
# $Id: 00nick,v 1.2 2008/01/13 15:31:09 morimoto Exp $
# $Source: /cvsroot/keitairc/lib/plugins/00nick,v $

$plugin = {
	name => 'nick',
	action_imprementation => sub {
		my ($request, $name, $session_id, $param_string) = @_;
		my $cid = $param_string;
		my $channel = $::ib->cid2name($cid);
		my @loop;
		for my $nick (sort $::ib->list_nick($cid)){
			my $p = {};
			$p->{nick} = $nick;
			$p->{op} = $::ib->get_nick_op($cid, $nick);
			$p->{realname} = $::ib->get_nick_realname($cid, $nick);
			Encode::from_to($p->{realname}, 'jis', 'shiftjis');
			push @loop, $p;
		}
		my $ci = new Keitairc::ClientInfo($request);
		my $view = new Keitairc::View($::cf, $ci);
		return $view->render('nick.html', {
			channel_compact => $::ib->compact_channel_name($cid),
			loop => \@loop
			     });
	}
};

1;
