--- loncom/lond 2020/03/30 11:04:03 1.561 +++ loncom/lond 2020/05/04 17:05:10 1.562 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.561 2020/03/30 11:04:03 raeburn Exp $ +# $Id: lond,v 1.562 2020/05/04 17:05:10 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -65,7 +65,7 @@ my $DEBUG = 0; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.561 $'; #' stupid emacs +my $VERSION='$Revision: 1.562 $'; #' stupid emacs my $remoteVERSION; my $currenthostid="default"; my $currentdomainid; @@ -4887,9 +4887,9 @@ sub course_sessions_handler { next if ($filename=~/^\./); next if ($filename=~/^publicuser_/); next if ($filename=~/^[a-f0-9]+_(linked|lti_\d+)\.id$/); - if ($filename =~ /^($LONCAPA::match_user)_\d+_($LONCAPA::match_domain)_/) { + if ($filename =~ /^($LONCAPA::match_username)_\d+_($LONCAPA::match_domain)_/) { my ($uname,$udom) = ($1,$2); - next unless (-e "$perlvar{'lonDaemons'}/$uname$dbsuffix"); + next unless (-e "$perlvar{'lonDaemons'}/tmp/$uname$dbsuffix"); my $mtime = (stat("$perlvar{'lonIDsDir'}/$filename"))[9]; my $since=$now-$mtime; if ($lastactivity < 0) {