#!/usr/bin/perl -w

use strict;

my $name = "everyone";
my $vers = "0.1";
my $desc = "Highlights everyone in the channel";

sub everyone_cb;

Xchat::register($name, $vers, $desc);
Xchat::hook_command($name, \&everyone_cb);
Xchat::print("everyone loaded successfully");

sub everyone_cb {
    
    my $nicks = "";
    my @list = Xchat::get_list("users");
    
    foreach my $user (@list) {
        $nicks .= $user->{"nick"} . " ";
    }
    
    Xchat::command("SAY $nicks");
    
    return Xchat::EAT_ALL;
    
}