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

43
website/agenda/events.cgi
View File

@@ -1,6 +1,7 @@
#! /usr/bin/perl -w
use warnings "all";
#no warnings 'redefine';
#use diagnostics;
use strict;
@@ -9,7 +10,7 @@ use Data::Dumper;
#use utf8;
use DBI;
use CGI qw(header param Vars);
$CGI::POST_MAX = 1000;
$CGI::POST_MAX = 1000;
$CGI::DISABLE_UPLOADS = 1;
use params;
@@ -21,28 +22,30 @@ use time;
#binmode STDOUT, ":utf8";
binmode STDOUT, ":encoding(UTF-8)";
my $r=shift;
(my $cgi, my $params, my $error)=params::get($r);
my $r = shift;
( my $cgi, my $params, my $error ) = params::get($r);
if ($0=~/events.*?\.cgi$/){
#my $cgi=new CGI();
#my %params=$cgi->Vars();
our $config=config::get('config/config.cgi');
if ( $0 =~ /events.*?\.cgi$/ ) {
$params->{recordings}=1 if $params->{template}=~/events_playout/;
my $request={
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => events::check_params($config, $params),
},
};
#events::init($request);
log::init($request);
#my $cgi=new CGI();
#my %params=$cgi->Vars();
our $config = config::get('config/config.cgi');
my $output='';
events::get_cached_or_render($output, $config, $request);
print $output."\n";
$params->{recordings} = 1 if $params->{template} =~ /events_playout/;
my $request = {
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => events::check_params( $config, $params ),
},
};
#events::init($request);
log::init($request);
my $output = '';
events::get_cached_or_render( $output, $config, $request );
print $output. "\n";
}
1;