Return to lond CVS log | Up to [LON-CAPA] / loncom |
version 1.178.2.17, 2004/04/19 11:28:18 | version 1.178.2.18, 2004/04/19 11:32:35 |
---|---|
Line 2385 sub TmpPutHandler { | Line 2385 sub TmpPutHandler { |
my $store; | my $store; |
$tmpsnum++; | $tmpsnum++; |
my $pid = $$; | my $id=$$.'_'.$clientip.'_'.$tmpsnum; |
my $id=$$.'_'.$clientip.'_'.$tmpsnum.'_'.$pid; | |
$id=~s/\W/\_/g; | $id=~s/\W/\_/g; |
$what=~s/\n//g; | $what=~s/\n//g; |
my $execdir=$perlvar{'lonDaemons'}; | my $execdir=$perlvar{'lonDaemons'}; |