0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added a function to send to all but one user

Browse source
This commit is contained in:
Gunter Labes 2007-06-29 04:17:41 +00:00
parent 6915046927
commit a255a0c576
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
utils/wesnothd.pl
View file

@ -60,6 +60,13 @@ sub send_error($$) {
&send_data($doc,$sock);
}
sub send_to_lobby {
my ($doc, @users, $exclude);
foreach my $sock (@users) {
&send_data($doc, $sock) unless $sock eq $exclude;
}
}
sub socket_connected($) {
my ($sock) = @_;
print STDERR "connected: $sock\n";
@ -176,7 +183,7 @@ sub received_packet($$) {
} elsif(my $message = &wml::has_child($doc, 'message')) {
my $attr = $message->{'attr'};
$attr->{'sender'} = $socket_user_name{$sock};
&send_data($doc, keys %lobby_players);
&send_to_lobby($doc, keys %lobby_players, $sock);
}
return;
}