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

Checkpoint the jabber support. The chatroom stuff is not operational

though, so it is not called.
parent 02c974b7
......@@ -42,6 +42,7 @@ my $BUGDBSUPPORT = @BUGDBSUPPORT@;
my $CHATSUPPORT = @CHATSUPPORT@;
my $ELABINELAB = @ELABINELAB@;
my $MODBUDDIES = "$TB/sbin/modjabberbuddies";
my $SETCHATMEMBERS = "$TB/sbin/setchatmembers";
my $SETGROUPS = "$TB/sbin/setgroups";
my $SSH = "$TB/bin/sshtb";
my $SAVEUID = $UID;
......@@ -214,6 +215,12 @@ foreach my $token (@addlist) {
if ($CHATSUPPORT) {
system("$MODBUDDIES -a $pid:$gid $user") == 0 or
fatal("$MODBUDDIES '-a $pid:$gid $user' failed!");
# Does not work yet.
if (0) {
system("$SETCHATMEMBERS -g $gid $pid") == 0 or
fatal("$SETCHATMEMBERS '-g $gid $pid' failed!");
}
}
}
......@@ -263,8 +270,14 @@ foreach my $token (@remlist) {
if ($CHATSUPPORT) {
my $chatargs = "";
foreach my $group (@delgroups) {
$chatargs = "$chatargs $pid:$group";
# Does not work yet.
if (0) {
foreach my $group (@delgroups) {
$chatargs = "$chatargs $pid:$group";
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!");
......
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