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

use Irssi;
$VERSION = '1.00';
%IRSSI = (
   authors     => 's.luksch',
   contact     => 'mail@lookshe.de',
   name        => 'voice unvoiced users',
   description => 'voice unvoiced users by putting ,v nicklist on chan',
   license     => 'Public Domain',
);

sub cmd_voice {
   my ($data, $server, $witem)=@_;
   my $channel=get_cur_channel();
   my $nick;
   my $nicklist="";
   
   if ( $channel ) {
      foreach $nick (get_cur_channel()->nicks()) {
         if (!$nick->{op} && !$nick->{halfop} && !$nick->{voice}) {
            $nicklist="$nicklist $nick->{nick}";
         }
      }
      if (!$nicklist eq "") {
         $nicklist=",v$nicklist";
         $witem->command('SAY '.$nicklist);
      }
   }
}

sub get_cur_channel() {
   my $server_o = Irssi::active_server();
   my $window_o = Irssi::active_win();
   my @items = $window_o->items();
   my $item_o;
   foreach $item_o (@items) {
      next unless($item_o->is_active());
                        
      my $channel = $item_o->{name};
      my $channel_o = $server_o->channel_find($channel);

      return $channel_o if($channel_o);
   }

   return ();
}

Irssi::command_bind('voice_ubuntu', 'cmd_voice');