print curl output

1 files changed, 6 insertions, 2 deletions

diff --git a/dir-to-movie.pl b/dir-to-movie.pl
index 0e85b73..f97953d 100755
--- a/dir-to-movie.pl
+++ b/dir-to-movie.pl
@@ -75,9 +75,13 @@ for my $line (@lines) {
 
 if (defined $endpoint) {
   print("upload to $endpoint\n");
-  print("$module $tag $parent_dir/renders/$tag.mp4\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";
+  print $curl . "\n\n";
 
   # system("curl",
   #   "-X", "POST",