loncom/lchtmldir - diff

Return to lchtmldir CVS log

Up to [LON-CAPA] / loncom

version 1.20, 2007/08/22 19:53:22	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");
}	}
Line 129 if( $authentication ne "unix:" &&	Line 129 if( $authentication ne "unix:" &&
$authentication ne "localauth:") {	$authentication ne "localauth:") {
if($DEBUG) {	if($DEBUG) {
print("Invalid authentication parameter: ".$authentication."\n");	print("Invalid authentication parameter: ".$authentication."\n");
print("Should be one of: unix, internal, krb4, localauth\n");	print("Should be one of-- unix: internal: krb4: krb5: localauth:\n");
}	}
exit 3;	exit 3;
}	}