loncom/lchtmldir - diff

Return to lchtmldir CVS log

Up to [LON-CAPA] / loncom

version 1.6, 2004/08/05 20:33:50	version 1.8, 2004/09/02 18:59:24
Line 1	Line 1
#!/usr/bin/perl -w	#!/usr/bin/perl

# The Learning Online Network with CAPA	# The Learning Online Network with CAPA
#	#
Line 238 exit 0;	Line 238 exit 0;

sub EnableRoot {	sub EnableRoot {
if ($wwwid==$>) {	if ($wwwid==$>) {
print ("EnableRoot $< $>\n");
($<,$>)=($>,$<);	($<,$>)=($>,$<);
($(,$))=($),$();	($(,$))=($),$();
}	}
Line 269 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);