version 1.19, 2007/08/22 19:03:04
|
version 1.22, 2010/10/12 09:53:45
|
Line 2
|
Line 2
|
|
|
# The Learning Online Network with CAPA |
# The Learning Online Network with CAPA |
# |
# |
|
# $Id$ |
|
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
Line 76 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 86 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 127 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; |
} |
} |