|
version 1.489.2.43.2.9, 2023/07/10 00:54:42
|
version 1.489.2.43.2.11, 2024/08/18 16:20:24
|
|
Line 7076 undef $perlvarref;
|
Line 7076 undef $perlvarref;
|
| # ----------------------------- Make sure this process is running from user=www |
# ----------------------------- Make sure this process is running from user=www |
| my $wwwid=getpwnam('www'); |
my $wwwid=getpwnam('www'); |
| if ($wwwid!=$<) { |
if ($wwwid!=$<) { |
| my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
my $emailto="$perlvar{'lonAdmEMail'} $perlvar{'lonSysEMail'}"; |
| my $subj="LON: $currenthostid User ID mismatch"; |
my $subj="LON: $currenthostid User ID mismatch"; |
| system("echo 'User ID mismatch. lond must be run as user www.' |". |
system("echo 'User ID mismatch. lond must be run as user www.' |". |
| " mail -s '$subj' $emailto > /dev/null"); |
" mail -s '$subj' $emailto > /dev/null"); |
|
Line 8284 sub currentversion {
|
Line 8284 sub currentversion {
|
| if (-e $ulsdir) { |
if (-e $ulsdir) { |
| if(-d $ulsdir) { |
if(-d $ulsdir) { |
| if (opendir(LSDIR,$ulsdir)) { |
if (opendir(LSDIR,$ulsdir)) { |
| |
if (-e $fname) { |
| |
$version=0; |
| |
} |
| my $ulsfn; |
my $ulsfn; |
| while ($ulsfn=readdir(LSDIR)) { |
while ($ulsfn=readdir(LSDIR)) { |
| # see if this is a regular file (ignore links produced earlier) |
# see if this is a regular file (ignore links produced earlier) |
![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom