From a064dfa16bb9ea9ede32d435a5f9de0facf7156c Mon Sep 17 00:00:00 2001
From: Jules Laplace <julescarbon@gmail.com>
Date: Thu, 13 Sep 2018 20:15:08 +0200
Subject: print curl output

---
 dir-to-movie.pl | 28 ++++++++++------------------
 1 file changed, 10 insertions(+), 18 deletions(-)

(limited to 'dir-to-movie.pl')

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";
-- 
cgit v1.2.3-70-g09d2