Miscellany

sub msgc
{
    my @playerInChannel = ts::searchPlayer(1, cach::GettoChannelID());
    my $ok = 1;
    my $player;
    foreach $player(@playerInChannel)
    {
        my $message;
        foreach $message(@_)
        {
            print $socket "msgu $player->[0] \@" . "$message\n";
            $ok = 0 if(<$socket> !~ /^OK\s*$/);
        }
    }
    return 1 if($ok);
    return 0;
}