| … | |
… | |
| 431 | |
431 | |
| 432 | if ($st->rows) { |
432 | if ($st->rows) { |
| 433 | my @jobs; |
433 | my @jobs; |
| 434 | |
434 | |
| 435 | while ($st->fetch) { |
435 | while ($st->fetch) { |
| 436 | push @jobs, [$activity_level, $freq, job $nice, $mode, $aft_freq, "LM=LM"] |
|
|
| 437 | unless -e "/root/aor/$mode,$freq"; |
436 | next if -e "/root/aor/$mode,$freq"; |
|
|
437 | |
|
|
438 | push @jobs, [$mode, $freq, $activity_level, |
|
|
439 | job $nice, $mode, $aft_freq, "LM=LM"] |
| 438 | } |
440 | } |
| 439 | |
441 | |
| 440 | for (@jobs) { |
442 | for (@jobs) { |
| 441 | my ($activity_level, $freq, $job) = @$_; |
443 | my ($mode, $freq, $activity_level, $job) = @$_; |
| 442 | |
444 | |
| 443 | my $lm = $job->result; |
445 | my $lm = $job->result; |
| 444 | |
446 | |
| 445 | if ($lm >= $activity_level) { |
447 | if ($lm >= $activity_level) { |
| 446 | warn "scan $job->{mode} $job->{freq} $lm\n"; |
448 | warn "record $job->{mode} $job->{freq} $lm\n"; |
| 447 | (job $nice-1, $mode, $job->{freq}, "LM=LM", sub { |
449 | (job $nice-1, $mode, $job->{freq}, "LM=LM", sub { |
| 448 | # (job $nice-1, 0, 98400000, "LM=LM", sub { |
450 | # (job $nice-1, 0, 98400000, "LM=LM", sub { |
| 449 | acmd $playback_on; |
451 | acmd $playback_on; |
| 450 | my $data = record_nsamples $record_rate * 10; |
452 | my $data = record_nsamples $record_rate * 10; |
| 451 | acmd $playback_off; |
453 | acmd $playback_off; |
