print curl output

1 files changed, 10 insertions, 18 deletions

diff --git a/dir-to-movie.pl b/dir-to-movie.pl
index f97953d..b109415 100755
--- a/dir-to-movie.pl
+++ b/dir-to-movie.pl
@@ -75,24 +75,16 @@ for my $line (@lines) {
 
 if (defined $endpoint) {
   print("upload to $endpoint\n");
-  print("$module $tag $parent_dir/renders/$tag.mp4\n\n");
-  my $curl_cmd = "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 `pwd` . "\n";
-  print $curl_cmd . "\n\n";
-
-  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`;
-  print $curl . "\n\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
-  # );
+  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";