version 1.14, 2001/01/10 17:49:56
|
version 1.15, 2001/01/10 18:47:35
|
Line 60 ENDERROUT
|
Line 60 ENDERROUT
|
# --------------------------------------- Make sure that LON-CAPA is configured |
# --------------------------------------- Make sure that LON-CAPA is configured |
# I only test for one thing here (lonHostID). This is just a safeguard. |
# I only test for one thing here (lonHostID). This is just a safeguard. |
if ('{[[[[lonHostID]]]]}' eq $perlvar{'lonHostID'}) { |
if ('{[[[[lonHostID]]]]}' eq $perlvar{'lonHostID'}) { |
print("User ID mismatch. This program must be run as user 'www'\n"); |
print("Unconfigured machine.\n"); |
$emailto=$perlvar{'lonSysEMail'}; |
$emailto=$perlvar{'lonSysEMail'}; |
$hostname=`/bin/hostname`; |
$hostname=`/bin/hostname`; |
chop $hostname; |
chop $hostname; |