loncom/lchtmldir - diff

Return to lchtmldir CVS log

Up to [LON-CAPA] / loncom

version 1.21, 2008/05/30 13:37:48	version 1.22, 2010/10/12 09:53:45
Line 78 use LONCAPA qw(:match);	Line 78 use LONCAPA qw(:match);
$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/sbin:/home/httpd/perl';	$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/sbin:/home/httpd/perl';
delete @ENV{qw{IFS CDPATH ENV BASH_ENV}};	delete @ENV{qw{IFS CDPATH ENV BASH_ENV}};

my $DEBUG = 1; # .nonzero -> Debug printing enabled.	my $DEBUG = 0; # .nonzero -> Debug printing enabled.
my $path_sep = "/"; # Unix like operating systems.	my $path_sep = "/"; # Unix like operating systems.


Line 88 if ($DEBUG) {	Line 88 if ($DEBUG) {
print("Checking uid...\n");	print("Checking uid...\n");
}	}
my $wwwid = getpwnam('www');	my $wwwid = getpwnam('www');
&DisableRoot;
if($wwwid != $>) {	if($wwwid != $<) {
if ($DEBUG) {	if ($DEBUG) {
print("User ID incorrect. This program must be run as user 'www'\n");	print("User ID incorrect. This program must be run as user 'www'\n");
}	}