sub restrictToCurrentRoom {
    my $text = shift();
    my @rooms = ();
    my @users = &getOnlineUsers();
    my %info = &loadInfo();
    my $nickname = lc($info{nick});
    my $raum = $chatters{$nickname}->{room};
    foreach my $user(@users) {
        $user = lc($user);
        my $room = $chatters{$user}->{room};
        if(lc($room) eq lc($raum)) {
         my $handle = $chatters{$user}->{client};
         delete $chatters{$user} if(!$handle->send("$text
\r"));
        }
    }
    &logMessage("[$info{room}] $text");
}