/usr/share/perl5/Audio/Nama/Engine_cleanup_subs.pm is in nama 1.078-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 | # ----------- Engine cleanup (post-recording) -----------
package Audio::Nama;
use Modern::Perl;
our (
$debug,
$debug2,
$offset_run_flag,
$offset_mark,
$ui,
%bn,
%tn,
$this_edit,
);
sub rec_cleanup {
$debug2 and print "&rec_cleanup\n";
$debug && print("transport still running, can't cleanup"),return if transport_running();
if( my (@files) = new_files_were_recorded() ){
say join $/, "Now reviewing your recorded files...", (@files);
(grep /Mixdown/, @files)
? command_process('mixplay')
: post_rec_configure();
undef $offset_run_flag if ! defined $this_edit;
reconfigure_engine();
}
}
sub adjust_offset_recordings {
map {
$_->set(playat => $offset_mark);
say $_->name, ": offsetting to $offset_mark";
} Audio::Nama::ChainSetup::engine_wav_out_tracks();
}
sub post_rec_configure {
$ui->global_version_buttons(); # recreate
adjust_offset_recordings();
# toggle buses of recorded tracks to MON
map{ $bn{$_->group}->set(rw => 'MON') } Audio::Nama::ChainSetup::engine_wav_out_tracks();
$ui->refresh();
}
sub new_files_were_recorded {
return unless my @files = Audio::Nama::ChainSetup::really_recording();
$debug and print join $/, "intended recordings:", @files;
my @recorded =
grep { my ($name, $version) = /([^\/]+)_(\d+).wav$/;
if (-e ) {
if (-s > 44100) { # 0.5s x 16 bits x 44100/s
$debug and print "found bigger than 44100 bytes:\n";
$debug and print "$_\n";
$tn{$name}->set(version => undef) if $tn{$name};
$ui->update_version_button($tn{$name}->n, $version);
1;
}
else { unlink $_; 0 }
}
} @files;
if(@recorded){
rememoize();
say join $/,"recorded:",@recorded;
}
map{ get_wav_info($_) } @recorded;
@recorded
}
1;
__END__
|