summaryrefslogtreecommitdiff
path: root/latest.pl
diff options
context:
space:
mode:
Diffstat (limited to 'latest.pl')
-rw-r--r--latest.pl17
1 files changed, 16 insertions, 1 deletions
diff --git a/latest.pl b/latest.pl
index f1d1aa9..33bfb73 100644
--- a/latest.pl
+++ b/latest.pl
@@ -23,6 +23,20 @@ sub process($){
}
closedir DIR;
+ my $sampz = $path . "samples/";
+ return 0 unless -e $sampz;
+ my $c = 0;
+ opendir DIR, $sampz or die $!;
+ while (readdir DIR) {
+ next unless /wav$/;
+ $c += 1;
+ last;
+ }
+ closedir DIR;
+ if ($c == 0) {
+ return 0;
+ }
+
my @epoch = split("-", $ep);
$name .= "-" . $epoch[0];
@@ -37,13 +51,14 @@ sub process($){
return 1;
}
- print $name . "\n";
if (!$opt_l) {
return 0;
}
print "\n";
print "_______________________________________________________________\n";
print "\n";
+ print $name . ", $c samples\n";
+ print "\n";
system('/bin/bash', 'mix.sh', $path, $name);
return 0;
}