From 05401dc3db9414986a2a1477e1e5fa08778da45c Mon Sep 17 00:00:00 2001 From: jules on spawn Date: Tue, 10 Apr 2018 10:45:47 +0200 Subject: latest renders with -l, get.pl to wget from asdf.us --- datasets/get.pl | 4 ++++ latest.pl | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) create mode 100755 datasets/get.pl 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; } -- cgit v1.2.3-70-g09d2