loncom/lcinstallfile - diff

Return to lcinstallfile CVS log

Up to [LON-CAPA] / loncom

version 1.4, 2009/05/13 15:04:03	version 1.5, 2010/10/12 10:14:25
Line 69 my $noprint = 1;	Line 69 my $noprint = 1;
print ("In lcinstallfile\n") unless $noprint;	print ("In lcinstallfile\n") unless $noprint;

my $wwwid=getpwnam('www');	my $wwwid=getpwnam('www');
&disable_root_capability;	#&disable_root_capability;
if ($wwwid!=$>) {	if ($wwwid!=$<) {
print("User ID mismatch. This program must be run as user 'www'\n")	print("User ID mismatch. This program must be run as user 'www'\n")
unless $noprint;	unless $noprint;
exit 1;	exit 1;