Commit 5ceab9d5 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Oops, watch for case of already having been removed from the groups.

parent ba1e6e0c
......@@ -268,19 +268,23 @@ foreach my $token (@remlist) {
# Tell chat subsystem to change groups ...
#
if ($CHATSUPPORT) {
my $chatargs = "";
my @optlist = ();
# Does not work yet.
if (0) {
foreach my $group (@delgroups) {
$chatargs = "$chatargs $pid:$group";
foreach my $group (@delgroups) {
push(@optlist, "$pid:$group");
# Does not work yet.
if (0) {
system("$SETCHATMEMBERS -g $group $pid") == 0 or
fatal("$SETCHATMEMBERS '-g $group $pid' failed!");
}
}
system("$MODBUDDIES -r $chatargs $user") == 0 or
fatal("$MODBUDDIES '-r $chatargs $user' failed!");
if (@optlist) {
my $chatargs = join(",", @optlist);
system("$MODBUDDIES -r $chatargs $user") == 0 or
fatal("$MODBUDDIES '-r $chatargs $user' failed!");
}
}
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment