dir to movie ignore single frames

1 files changed, 11 insertions, 1 deletions

diff --git a/dir-to-movie.pl b/dir-to-movie.pl
index 0698241..4efeb7e 100755
--- a/dir-to-movie.pl
+++ b/dir-to-movie.pl
@@ -9,10 +9,12 @@ STDOUT->autoflush(1);
 my $tag = "pix2pixhd_" . time;
 my $module = "pix2pixhd";
 my $endpoint = undef;
+my $prefix = "ren";
 GetOptions (
   "tag=s"  => \$tag,
   "module=s" => \$module,
-  "endpoint=s" => \$endpoint
+  "endpoint=s" => \$endpoint,
+  "prefix=s" => \$prefix,
 )
 or die("Error in command line arguments\n");
 
@@ -41,11 +43,19 @@ print $pwd . "\n";
 mkdir('./tmp');
 
 for my $line (@lines) {
+  if ($line !~ /$prefix/) {
+    next;
+  }
   chomp $line;
   system('ln', '-s', $pwd . $line, sprintf('./tmp/frame_%05d.png', $i));
   $i += 1;
 }
 
+if ($i == 0) {
+  print "No frames found.\n";
+  exit(1);
+}
+
 my $ffmpeg = `ffmpeg -i ./tmp/frame_%05d.png -y -c:v libx264 -vf fps=25 -pix_fmt yuv420p -s 1024x512 ../../renders/$tag.mp4`;
 
 my @lines = split("\n", $ffmpeg);