![[BACK]](/icons/back.gif){kind=icon}
Return to lchtmldir CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to lchtmldir CVS log | Up to [LON-CAPA] / loncom |
| version 1.7, 2004/08/05 20:35:55 | version 1.8, 2004/09/02 18:59:24 |
|---|---|
| Line 268 sub JoinGroup { | Line 268 sub JoinGroup { |
| my $groups = `/usr/bin/groups www`; | my $groups = `/usr/bin/groups www`; |
| # untaint | # untaint |
| my ($safegroups)=($groups=~/([\s\w]+)/); | my ($safegroups)=($groups=~/:\s+([\s\w]+)/); |
| $groups=$safegroups; | $groups=$safegroups; |
| chomp $groups; $groups=~s/^\S+\s+\:\s+//; | chomp $groups; $groups=~s/^\S+\s+\:\s+//; |
| my @grouplist=split(/\s+/,$groups); | my @grouplist=split(/\s+/,$groups); |