--- loncom/lond 2023/07/09 00:46:44 1.489.2.43.2.8 +++ loncom/lond 2024/08/18 16:20:24 1.489.2.43.2.11 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.489.2.43.2.8 2023/07/09 00:46:44 raeburn Exp $ +# $Id: lond,v 1.489.2.43.2.11 2024/08/18 16:20:24 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -63,7 +63,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.489.2.43.2.8 $'; #' stupid emacs +my $VERSION='$Revision: 1.489.2.43.2.11 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -4941,7 +4941,7 @@ sub lti_handler { # Side effects: # The reply will contain the LTI payload, as & separated key=value pairs, # where value is itself a frozen hash, if the required key and secret -# for the apecific tool ID are available. The payload data are retrieved from +# for the specific tool ID are available. The payload data are retrieved from # a call to Lond::sign_lti_payload(), and the reply is encrypted before being # written to $client. # @@ -7076,7 +7076,7 @@ undef $perlvarref; # ----------------------------- Make sure this process is running from user=www my $wwwid=getpwnam('www'); if ($wwwid!=$<) { - my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; + my $emailto="$perlvar{'lonAdmEMail'} $perlvar{'lonSysEMail'}"; my $subj="LON: $currenthostid User ID mismatch"; system("echo 'User ID mismatch. lond must be run as user www.' |". " mail -s '$subj' $emailto > /dev/null"); @@ -8284,6 +8284,9 @@ sub currentversion { if (-e $ulsdir) { if(-d $ulsdir) { if (opendir(LSDIR,$ulsdir)) { + if (-e $fname) { + $version=0; + } my $ulsfn; while ($ulsfn=readdir(LSDIR)) { # see if this is a regular file (ignore links produced earlier)