loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.579, 2023/06/07 14:21:52	version 1.581, 2024/06/22 14:29:36
Line 7525 undef $perlvarref;	Line 7525 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 8880 sub currentversion {	Line 8880 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)