version 1.24, 2002/12/09 16:15:51
|
version 1.25.2.1, 2004/08/05 21:01:20
|
Line 5
|
Line 5
|
# lcuseradd - LON-CAPA setuid script to coordinate all actions |
# lcuseradd - LON-CAPA setuid script to coordinate all actions |
# with adding a user with filesystem privileges (e.g. author) |
# with adding a user with filesystem privileges (e.g. author) |
# |
# |
# YEAR=2000 |
|
# 10/27,10/29,10/30 Scott Harrison |
|
# YEAR=2001 |
|
# 10/21,11/13,11/15 Scott Harrison |
|
# YEAR=2002 |
# YEAR=2002 |
# May 19, 2002 Ron Fox |
# May 19, 2002 Ron Fox |
# - Removed creation of the pulic_html directory. This directory |
# - Removed creation of the pulic_html directory. This directory |
Line 218 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\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 284 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 |