loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.25, 2003/02/03 18:03:52	version 1.25.2.2, 2004/09/02 19:04:53
Line 214 if ($status) {	Line 214 if ($status) {
print "Done adding user\n" unless $noprint;	print "Done adding user\n" unless $noprint;
# Make www a member of that user group.	# Make www a member of that user group.
my $groups=`/usr/bin/groups www` or exit(6);	my $groups=`/usr/bin/groups www` or exit(6);
	# untaint
	my ($safegroups)=($groups=~/:\s*([\s\w]+)/);
	$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);
my @ugrouplist=grep {!/www\|$safeusername/} @grouplist;	my @ugrouplist=grep {!/www\|$safeusername/} @grouplist;
Line 280 if (-e '/var/run/httpd.pid') {	Line 283 if (-e '/var/run/httpd.pid') {
open(PID,'/var/run/httpd.pid');	open(PID,'/var/run/httpd.pid');
my $pid=<PID>;	my $pid=<PID>;
close(PID);	close(PID);
$pid=~s/\D+//g;	my ($safepid)=($pid=~s/(\D+)//g);
if ($pid) {	if ($pid) {
system('kill','-USR1',"$pid");	system('kill','-USR1',"$safepid");
}	}
}	}
# -------------------------------------------------------- Exit script	# -------------------------------------------------------- Exit script