print curl output

1 files changed, 19 insertions, 13 deletions

diff --git a/dir-to-movie.pl b/dir-to-movie.pl
index 240880a..c0cfb45 100755
--- a/dir-to-movie.pl
+++ b/dir-to-movie.pl
@@ -58,14 +58,14 @@ if ($i == 0) {
 }
 
 my $parent_dir = "../..";
-
+my $dataset = $tag;
 if ($tag =~ /\//) {
   $parent_dir .= "/..";
   $tag =~ s/\//_/g;
+} else {
+  $dataset = $tag;
 }
 
-mkdir("$parent_dir/renders");
-
 my $ffmpeg = `ffmpeg -i ./tmp/frame_%05d.png -y -c:v libx264 -vf fps=25 -pix_fmt yuv420p -s 1024x512 $parent_dir/renders/$tag.mp4`;
 
 my @lines = split("\n", $ffmpeg);
@@ -75,16 +75,22 @@ for my $line (@lines) {
 if (defined $endpoint) {
   print("upload to $endpoint\n");
   print("$module $tag $parent_dir/renders/$tag.mp4\n");
-  system("curl",
-    "-X", "POST",
-    "-F", "module=$module",
-    "-F", "activity=live",
-    "-F", "generated=true",
-    "-F", "dataset=$tag",
-    "-F", "datatype=video",
-    "-F", "file=@$parent_dir/renders/$tag.mp4",
-    $endpoint
-  );
+  my $curl = `curl -X POST -F module=$module -F activity=live -F generated=true -F dataset=$tag -F datatype=video -F file=@$parent_dir/renders/$tag.mp4 $endpoint`
+  my @lines = split("\n", $curl);
+  for my $line (@lines) {
+    print $line;
+  }
+
+  # system("curl",
+  #   "-X", "POST",
+  #   "-F", "module=$module",
+  #   "-F", "activity=live",
+  #   "-F", "generated=true",
+  #   "-F", "dataset=$tag",
+  #   "-F", "datatype=video",
+  #   "-F", "file=@$parent_dir/renders/$tag.mp4",
+  #   $endpoint
+  # );
 }
 
 print "rendered: $tag.mp4\n";