latest renders with -l, get.pl to wget from asdf.us

2 files changed, 11 insertions, 1 deletions

diff --git a/datasets/get.pl b/datasets/get.pl
new file mode 100755
index 0000000..8b821c6
--- /dev/null
+++ b/datasets/get.pl
@@ -0,0 +1,4 @@
+#!/usr/bin/perl
+
+foreach (@ARGV){ system('/usr/bin/wget', 'https://asdf.us/neural/' . $_); }
+
diff --git a/latest.pl b/latest.pl
index b20ca1c..1e3a46e 100644
--- a/latest.pl
+++ b/latest.pl
@@ -26,14 +26,20 @@ sub process($){
   my @epoch = split("-", $ep);
   $name .= "-" . $epoch[0];
 
+  if (! $epoch[0]) {
+    return 0;
+  }
   if (-e "output/" . $name . ".mp3") {
     return 1;
   }
 
   print $name . "\n";
-  if ($opt_l) {
+  if (!$opt_l) {
     return 0;
   }
+  print "\n";
+  print "_______________________________________________________________\n";
+  print "\n";
   system('/bin/bash', 'mix.sh', $path, $name);
   return 0;
 }