get script now supports urls

1 files changed, 6 insertions, 1 deletions

diff --git a/latest.pl b/latest.pl
index ddd5952..1bb7932 100755
--- a/latest.pl
+++ b/latest.pl
@@ -5,7 +5,8 @@ use Getopt::Std;
 
 our $opt_l; # mix and upload files
 our $opt_v; # print log for all files
-getopts('lav');
+our $opt_n; # name/tag for file
+getopts('lavn:');
 
 our $matches = 0;
 if (scalar @ARGV) {
@@ -73,6 +74,10 @@ sub process($){
   #  return 0;
   #}
 
+  if ($opt_l && $opt_n) {
+    $name .= '-' . $opt_n;
+  }
+
   if (-e "output/" . $name . ".mp3") {
     return 1;
   }