kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add playout section

Browse Source
This commit is contained in:
Milan
2018-01-14 18:47:32 +01:00
parent 69e5d0e4c6
commit 7b43d7a807
60 changed files with 8792 additions and 7753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

52
website/agenda/upload_playout.cgi Normal file → Executable file
View File

@@ -5,10 +5,11 @@ use warnings "all";
use strict;
use CGI qw(header param Vars);
$CGI::POST_MAX = 1000;
$CGI::POST_MAX = 1000;
$CGI::DISABLE_UPLOADS = 1;
use Data::Dumper;
#use Apache2::Request;
use JSON;
use params;
@@ -16,38 +17,39 @@ use config;
use log;
use playout;
my $r=shift;
my $r = shift;
#binmode STDOUT, ":utf8";
binmode STDOUT, ":encoding(UTF-8)";
if ($0=~/upload_playout.*?\.cgi$/){
if ( $0 =~ /upload_playout.*?\.cgi$/ ) {
# read POST content
my ($buf, $content);
while( $r->read($buf,8192) ){
$content .= $buf;
}
$content= "{}" unless $content;
# read POST content
my ( $buf, $content );
while ( $r->read( $buf, 8192 ) ) {
$content .= $buf;
}
$content = "{}" unless $content;
# parse GET content
(my $cgi, my $params, my $error)=params::get($r);
# parse GET content
( my $cgi, my $params, my $error ) = params::get($r);
my $config=config::get('config/config.cgi');
my $debug=$config->{system}->{debug};
my $len = $r->headers_in()->get('Content-Length');
print "Content-type:text/plain\n\n";
my $config = config::get('config/config.cgi');
my $debug = $config->{system}->{debug};
my $len = $r->headers_in()->get('Content-Length');
print "Content-type:text/plain\n\n";
my $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 Dumper($content)."\n";
#print Dumper($r);
#print Dumper($json);
print "result:".Dumper($result);
my $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 Dumper($content)."\n";
#print Dumper($r);
#print Dumper($json);
print "result:" . Dumper($result);
}
1;