diff options
Diffstat (limited to 'latest.pl')
| -rwxr-xr-x | latest.pl | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -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; } |
