--- loncom/lond 2004/04/19 11:28:18 1.178.2.17 +++ loncom/lond 2004/04/19 11:32:35 1.178.2.18 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.178.2.17 2004/04/19 11:28:18 foxr Exp $ +# $Id: lond,v 1.178.2.18 2004/04/19 11:32:35 foxr Exp $ # # Copyright Michigan State University Board of Trustees # @@ -53,7 +53,7 @@ my $DEBUG = 1; # Non zero to ena my $status=''; my $lastlog=''; -my $VERSION='$Revision: 1.178.2.17 $'; #' stupid emacs +my $VERSION='$Revision: 1.178.2.18 $'; #' stupid emacs my $remoteVERSION; my $currenthostid; my $currentdomainid; @@ -2385,8 +2385,7 @@ sub TmpPutHandler { my $store; $tmpsnum++; - my $pid = $$; - my $id=$$.'_'.$clientip.'_'.$tmpsnum.'_'.$pid; + my $id=$$.'_'.$clientip.'_'.$tmpsnum; $id=~s/\W/\_/g; $what=~s/\n//g; my $execdir=$perlvar{'lonDaemons'};