--- loncom/Attic/lchtmldir	2004/08/05 20:33:50	1.6
+++ loncom/Attic/lchtmldir	2004/09/02 18:59:24	1.8
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # The Learning Online Network with CAPA
 #
@@ -238,7 +238,6 @@ exit 0;
 
 sub EnableRoot {
     if ($wwwid==$>) {
-        print ("EnableRoot $< $>\n");
 	($<,$>)=($>,$<);
 	($(,$))=($),$();
     }
@@ -269,7 +268,7 @@ sub JoinGroup {
 
     my $groups = `/usr/bin/groups www`;
     # untaint
-    my ($safegroups)=($groups=~/([\s\w]+)/);
+    my ($safegroups)=($groups=~/:\s+([\s\w]+)/);
     $groups=$safegroups;
     chomp $groups; $groups=~s/^\S+\s+\:\s+//;
     my @grouplist=split(/\s+/,$groups);