From 3ea2f8f581a857920b7c2f4d1d3a0a12401758ec Mon Sep 17 00:00:00 2001
From: jules on spawn <spawn@cortex>
Date: Tue, 10 Apr 2018 15:20:00 +0200
Subject: build

---
 latest.pl | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'latest.pl')

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;
 }
-- 
cgit v1.2.3-70-g09d2