d3fc5f998a
* remove cache, cache setup is not easy, todays servers do not really * need it anymore * add prototypes and fix parameter issues * suppress redefinition
47 lines
1.0 KiB
Perl
Executable File
47 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
|
|
use Data::Dumper;
|
|
|
|
use JSON();
|
|
use params();
|
|
use config();
|
|
use log();
|
|
use playout();
|
|
|
|
my $r = shift;
|
|
|
|
binmode STDOUT, ":encoding(UTF-8)";
|
|
|
|
if ( $0 =~ /upload_playout.*?\.cgi$/ ) {
|
|
|
|
# read POST content
|
|
my $buffer = '';
|
|
my $content = '';
|
|
while ( $r->read( $buffer, 65536 ) ) {
|
|
$content .= $buffer;
|
|
}
|
|
$content = "{}" unless $content;
|
|
|
|
# parse GET content
|
|
( my $cgi, my $params, my $error ) = params::get($r);
|
|
|
|
my $config = config::getFromScriptLocation();
|
|
my $debug = $config->{system}->{debug};
|
|
print "Content-type:text/plain\n\n";
|
|
|
|
my $json = JSON::decode_json($content);
|
|
$json->{project_id} = $params->{project_id} if defined $params->{project_id};
|
|
$json->{studio_id} = $params->{studio_id} if defined $params->{studio_id};
|
|
$config->{access}->{write} = 1;
|
|
my $result = playout::sync( $config, $json );
|
|
$config->{access}->{write} = 0;
|
|
|
|
print "upload playout result:" . Dumper($result);
|
|
}
|
|
|
|
1;
|