Return to lond CVS log | Up to [LON-CAPA] / loncom |
version 1.42, 2001/03/24 21:29:35 | version 1.43, 2001/03/27 12:49:18 |
---|---|
Line 986 sub make_new_child { | Line 986 sub make_new_child { |
my $store; | my $store; |
my $execdir=$perlvar{'lonDaemons'}; | my $execdir=$perlvar{'lonDaemons'}; |
if ($store=IO::File->new(">$execdir/tmp/$id")) { | if ($store=IO::File->new(">$execdir/tmp/$id")) { |
$reply=~s/\&/\n/g; | |
print $store $reply; | print $store $reply; |
close $store; | close $store; |
print $client "ok\n"; | print $client "ok\n"; |