Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.51, 2001/03/21 02:18:14 | version 1.52, 2001/03/21 02:24:00 |
---|---|
Line 593 sub output_results { | Line 593 sub output_results { |
$replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; | $replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
$reply=~/(.*?)\_/; | $reply=~/(.*?)\_/; |
my $hostname=$1; | my $hostname=$1; |
sleep 3; # temporary fix, need to check for completion and status | |
{ | { |
while (1) { | while (1) { |
last if -e $replyfile; | last if -e $replyfile; |