version 1.106, 2001/11/28 19:26:20
|
version 1.107, 2001/11/28 19:30:32
|
Line 1033 ENDPOP
|
Line 1033 ENDPOP
|
BLOOP: while(1) { |
BLOOP: while(1) { |
my $sn=0; |
my $sn=0; |
last BLOOP unless $bloop; |
last BLOOP unless $bloop; |
|
last BLOOP unless $timeremain; |
RLOOP: foreach my $rkey (sort keys %rhash) { |
RLOOP: foreach my $rkey (sort keys %rhash) { |
$sn++; |
$sn++; |
next RLOOP if $orkey{$rkey}; |
next RLOOP if $orkey{$rkey}; |
Line 1074 ENDPOP
|
Line 1075 ENDPOP
|
$r->rflush(); |
$r->rflush(); |
$tflag=0; |
$tflag=0; |
} |
} |
if ($temp>1) { |
|
sleep 1; |
|
$timeremain--; |
|
$elapsetime++; |
|
last WLOOP; |
|
} |
|
if (-e "$replyfile.end") { |
if (-e "$replyfile.end") { |
$bloop--; |
$bloop--; |
$orkey{$rkey}=1; |
$orkey{$rkey}=1; |
Line 1123 ENDPOP
|
Line 1118 ENDPOP
|
} |
} |
last WLOOP; |
last WLOOP; |
} |
} |
|
if ($temp>1) { |
|
sleep 1; |
|
$timeremain--; |
|
$elapsetime++; |
|
last WLOOP; |
|
} |
last WLOOP unless $timeremain; |
last WLOOP unless $timeremain; |
sleep 1; |
sleep 1; |
$timeremain--; |
$timeremain--; |