getttttt

1 files changed, 6 insertions, 1 deletions

diff --git a/get.pl b/get.pl
index ac6d0bd..5f4cf78 100755
--- a/get.pl
+++ b/get.pl
@@ -68,8 +68,13 @@ if ($video_fn) {
   print "Video filename: $video_fn\n";
   my $tag = sanitize($video_fn);
   print "creating dataset: $tag\n";
+  my @partz = split(".", $video_fn);
+  my $ext = $partz[$#partz];
+  my $new_fn = $tag . '.' . $ext;
+  system('mv', $video_fn, $new_fn);
+  print "new video filename: $video_fn\n";
   mkdir($tag);
-  system('ffmpeg', '-i', $video_fn, "-filter:v", "scale=1024x512", $tag . '/frame_%05d.png');
+  system('ffmpeg', '-i', $new_fn, "-filter:v", "scale=1024x512", $tag . '/frame_%05d.png');
   print "created dataset: $tag\n";
 }