loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.38, 2005/07/29 17:33:18	version 1.39, 2006/08/25 21:25:22
Line 121 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}	Line 121 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}
# Do not print error messages.	# Do not print error messages.
my $noprint=1;	my $noprint=1;

# Error file:

my $error_file; # This is either the error file name or undef.

print "In lcuseradd\n" unless $noprint;	print "In lcuseradd\n" unless $noprint;

# ----------------------------- Make sure this process is running from user=www	# ----------------------------- Make sure this process is running from user=www
Line 357 if (-e '/var/run/httpd.pid') {	Line 353 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);
my $pid=~ /(\D+)/;	$pid=~ /(\D+)/;
my $safepid = $1;	my $safepid = $1;
if ($pid) {	if ($pid) {
system('kill','-USR1',"$safepid");	system('kill','-USR1',"$safepid");