diff options
Diffstat (limited to 'dir-to-movie.pl')
| -rwxr-xr-x | dir-to-movie.pl | 8 |
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", |