summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdatasets/get.pl4
-rw-r--r--latest.pl8
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;
}