add playout section
This commit is contained in:
Milan
@@ -2,12 +2,13 @@
|
||||
|
||||
#use utf8;
|
||||
use warnings "all";
|
||||
|
||||
#use diagnostics;
|
||||
use strict;
|
||||
use Data::Dumper;
|
||||
|
||||
use CGI qw(header param Vars);
|
||||
$CGI::POST_MAX = 1000;
|
||||
$CGI::POST_MAX = 1000;
|
||||
$CGI::DISABLE_UPLOADS = 1;
|
||||
|
||||
use params;
|
||||
@@ -21,187 +22,187 @@ use project;
|
||||
|
||||
binmode STDOUT, ":utf8";
|
||||
|
||||
my $r=shift;
|
||||
(my $cgi, my $params, my $error)=params::get($r);
|
||||
my $config = config::get('config/config.cgi');
|
||||
my $r = shift;
|
||||
( my $cgi, my $params, my $error ) = params::get($r);
|
||||
my $config = config::get('config/config.cgi');
|
||||
|
||||
my $debug=$config->{system}->{debug};
|
||||
my $debug = $config->{system}->{debug};
|
||||
|
||||
#get request
|
||||
my $request={
|
||||
url => $ENV{QUERY_STRING},
|
||||
params => {
|
||||
original => $params,
|
||||
checked => check_params($config, $params)
|
||||
},
|
||||
my $request = {
|
||||
url => $ENV{QUERY_STRING},
|
||||
params => {
|
||||
original => $params,
|
||||
checked => check_params( $config, $params )
|
||||
},
|
||||
};
|
||||
log::init($request);
|
||||
|
||||
$params=$request->{params}->{checked};
|
||||
$params = $request->{params}->{checked};
|
||||
|
||||
#read cache
|
||||
my $cache={};
|
||||
if ($config->{cache}->{use_cache} eq '1'){
|
||||
cache::configure('series_names.html');
|
||||
log::write($config, 'cache_files',cache::get_map()) if ($debug);
|
||||
$cache=cache::load($config, $params);
|
||||
if (defined $cache->{content}){
|
||||
print $cache->{content};
|
||||
return;
|
||||
};
|
||||
my $cache = {};
|
||||
if ( $config->{cache}->{use_cache} eq '1' ) {
|
||||
cache::configure('series_names.html');
|
||||
log::write( $config, 'cache_files', cache::get_map() ) if ($debug);
|
||||
$cache = cache::load( $config, $params );
|
||||
if ( defined $cache->{content} ) {
|
||||
print $cache->{content};
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
#connect
|
||||
my $dbh=db::connect($config);
|
||||
my $dbh = db::connect($config);
|
||||
|
||||
#fill template
|
||||
my $template_parameters={};
|
||||
$template_parameters->{projects} = getProjects($dbh, $config, $params);
|
||||
my $template_parameters = {};
|
||||
$template_parameters->{projects} = getProjects( $dbh, $config, $params );
|
||||
$template_parameters->{debug} = $config->{system}->{debug};
|
||||
$template_parameters->{server_cache} = $config->{cache}->{server_cache} if ($config->{cache}->{server_cache});
|
||||
$template_parameters->{use_client_cache} = $config->{cache}->{use_client_cache} if ($config->{cache}->{use_client_cache});
|
||||
$template_parameters->{server_cache} = $config->{cache}->{server_cache} if ( $config->{cache}->{server_cache} );
|
||||
$template_parameters->{use_client_cache} = $config->{cache}->{use_client_cache} if ( $config->{cache}->{use_client_cache} );
|
||||
|
||||
#output template
|
||||
my $template=$params->{template};
|
||||
my $out='';
|
||||
template::process($out, $params->{template}, $template_parameters);
|
||||
my $template = $params->{template};
|
||||
my $out = '';
|
||||
template::process( $out, $params->{template}, $template_parameters );
|
||||
print $out;
|
||||
|
||||
#write to cache
|
||||
if ($config->{cache}->{use_cache} eq '1'){
|
||||
$cache->{content}=$out;
|
||||
cache::save($cache);
|
||||
if ( $config->{cache}->{use_cache} eq '1' ) {
|
||||
$cache->{content} = $out;
|
||||
cache::save($cache);
|
||||
}
|
||||
$cache=undef;
|
||||
$out=undef;
|
||||
$cache = undef;
|
||||
$out = undef;
|
||||
|
||||
sub getProjects{
|
||||
my $dbh = shift;
|
||||
my $config = shift;
|
||||
my $params = shift;
|
||||
sub getProjects {
|
||||
my $dbh = shift;
|
||||
my $config = shift;
|
||||
my $params = shift;
|
||||
|
||||
my $prev_series_names=undef;
|
||||
my $projects=project::get_sorted($config);
|
||||
my $prev_series_names = undef;
|
||||
my $projects = project::get_sorted($config);
|
||||
|
||||
my $excludedProjects={};
|
||||
if (defined $config->{filter}->{exclude_projects}){
|
||||
for my $project ( split(/\,/, $config->{filter}->{exclude_projects}) ){
|
||||
$project=~s/^\s+//g;
|
||||
$project=~s/\s+$//g;
|
||||
$excludedProjects->{$project}=1;
|
||||
}
|
||||
}
|
||||
my $excludedProjects = {};
|
||||
if ( defined $config->{filter}->{exclude_projects} ) {
|
||||
for my $project ( split( /\,/, $config->{filter}->{exclude_projects} ) ) {
|
||||
$project =~ s/^\s+//g;
|
||||
$project =~ s/\s+$//g;
|
||||
$excludedProjects->{$project} = 1;
|
||||
}
|
||||
}
|
||||
|
||||
my $results=[];
|
||||
for my $project (@$projects){
|
||||
next if defined $excludedProjects->{$project->{name}};
|
||||
|
||||
my $series_names=getSeriesNames($dbh, $config, $project->{name}, $params);
|
||||
$project->{isEmpty}=1 if scalar(@$series_names)==0;
|
||||
$project->{series_names}=$series_names;
|
||||
my $results = [];
|
||||
for my $project (@$projects) {
|
||||
next if defined $excludedProjects->{ $project->{name} };
|
||||
|
||||
$project->{js_name}=$project->{name};
|
||||
$project->{js_name}=~s/[^a-zA-Z\_0-9]/\_/g;
|
||||
$project->{js_name}=~s/\_+/\_/g;
|
||||
my $series_names = getSeriesNames( $dbh, $config, $project->{name}, $params );
|
||||
$project->{isEmpty} = 1 if scalar(@$series_names) == 0;
|
||||
$project->{series_names} = $series_names;
|
||||
|
||||
#mark last series_name entry of all non empty projects
|
||||
if ((defined $series_names) && (@$series_names>0)){
|
||||
$series_names->[-1]->{last}=1;
|
||||
$prev_series_names->[-1]->{last}=0 if((defined $prev_series_names) && (@$prev_series_names>0));
|
||||
$prev_series_names=$series_names;
|
||||
}
|
||||
push @$results, $project;
|
||||
$project->{js_name} = $project->{name};
|
||||
$project->{js_name} =~ s/[^a-zA-Z\_0-9]/\_/g;
|
||||
$project->{js_name} =~ s/\_+/\_/g;
|
||||
|
||||
#mark last series_name entry of all non empty projects
|
||||
if ( ( defined $series_names ) && ( @$series_names > 0 ) ) {
|
||||
$series_names->[-1]->{last} = 1;
|
||||
$prev_series_names->[-1]->{last} = 0 if ( ( defined $prev_series_names ) && ( @$prev_series_names > 0 ) );
|
||||
$prev_series_names = $series_names;
|
||||
}
|
||||
push @$results, $project;
|
||||
}
|
||||
return $results;
|
||||
}
|
||||
|
||||
sub getSeriesNames{
|
||||
my $dbh=shift;
|
||||
my $config = shift;
|
||||
my $project=shift;
|
||||
my $params=shift;
|
||||
sub getSeriesNames {
|
||||
my $dbh = shift;
|
||||
my $config = shift;
|
||||
my $project = shift;
|
||||
my $params = shift;
|
||||
|
||||
my $debug=$config->{system}->{debug};
|
||||
my $bind_values=[];
|
||||
my $debug = $config->{system}->{debug};
|
||||
my $bind_values = [];
|
||||
|
||||
my @conds=();
|
||||
if (defined $config->{filter}->{exclude_locations}){
|
||||
my @exclude=();
|
||||
for my $location ( split(/\,/, $config->{filter}->{exclude_locations}) ){
|
||||
$location=~s/^\s+//g;
|
||||
$location=~s/\s+$//g;
|
||||
push @exclude,'?';
|
||||
push @$bind_values, $location;
|
||||
}
|
||||
push @conds,'location not in ('.join(',',@exclude).')';
|
||||
}
|
||||
my @conds = ();
|
||||
if ( defined $config->{filter}->{exclude_locations} ) {
|
||||
my @exclude = ();
|
||||
for my $location ( split( /\,/, $config->{filter}->{exclude_locations} ) ) {
|
||||
$location =~ s/^\s+//g;
|
||||
$location =~ s/\s+$//g;
|
||||
push @exclude, '?';
|
||||
push @$bind_values, $location;
|
||||
}
|
||||
push @conds, 'location not in (' . join( ',', @exclude ) . ')';
|
||||
}
|
||||
|
||||
if (defined $config->{filter}->{exclude_projects}){
|
||||
my @exclude=();
|
||||
for my $project ( split(/\,/, $config->{filter}->{exclude_projects}) ){
|
||||
$project=~s/^\s+//g;
|
||||
$project=~s/\s+$//g;
|
||||
push @exclude,'?';
|
||||
push @$bind_values, $project;
|
||||
}
|
||||
push @conds,'project not in ('.join(',',@exclude).')';
|
||||
}
|
||||
if ( defined $config->{filter}->{exclude_projects} ) {
|
||||
my @exclude = ();
|
||||
for my $project ( split( /\,/, $config->{filter}->{exclude_projects} ) ) {
|
||||
$project =~ s/^\s+//g;
|
||||
$project =~ s/\s+$//g;
|
||||
push @exclude, '?';
|
||||
push @$bind_values, $project;
|
||||
}
|
||||
push @conds, 'project not in (' . join( ',', @exclude ) . ')';
|
||||
}
|
||||
|
||||
if (($project ne '') && ($project ne 'all')){
|
||||
push @conds,'project=?';
|
||||
push @$bind_values,$project;
|
||||
}
|
||||
if ( ( $project ne '' ) && ( $project ne 'all' ) ) {
|
||||
push @conds, 'project=?';
|
||||
push @$bind_values, $project;
|
||||
}
|
||||
|
||||
if (($params->{search} ne '')){
|
||||
push @conds, 'series_name like ?';
|
||||
push @$bind_values,'%'.$params->{search}.'%';
|
||||
}
|
||||
if ( ( $params->{search} ne '' ) ) {
|
||||
push @conds, 'series_name like ?';
|
||||
push @$bind_values, '%' . $params->{search} . '%';
|
||||
}
|
||||
|
||||
my $where='';
|
||||
if (@conds>0){
|
||||
$where='where '.join(' and ',@conds);
|
||||
}
|
||||
my $where = '';
|
||||
if ( @conds > 0 ) {
|
||||
$where = 'where ' . join( ' and ', @conds );
|
||||
}
|
||||
|
||||
my $query=qq{
|
||||
my $query = qq{
|
||||
select series_name, count(series_name) sum
|
||||
from calcms_events
|
||||
$where
|
||||
group by series_name
|
||||
order by series_name
|
||||
};
|
||||
|
||||
my $series_names=db::get($dbh, $query, $bind_values);
|
||||
|
||||
for my $series(@$series_names){
|
||||
$series->{series_name}='' unless defined $series->{series_name};
|
||||
$series->{series_name}=~s/\"//g;
|
||||
$series->{series_name}='ohne' if $series->{series_name} eq '';
|
||||
$series->{series_name}='Einzelsendung' if $series->{series_name} eq '_single_';
|
||||
}
|
||||
my $series_names = db::get( $dbh, $query, $bind_values );
|
||||
|
||||
return $series_names;
|
||||
for my $series (@$series_names) {
|
||||
$series->{series_name} = '' unless defined $series->{series_name};
|
||||
$series->{series_name} =~ s/\"//g;
|
||||
$series->{series_name} = 'ohne' if $series->{series_name} eq '';
|
||||
$series->{series_name} = 'Einzelsendung' if $series->{series_name} eq '_single_';
|
||||
}
|
||||
|
||||
return $series_names;
|
||||
}
|
||||
|
||||
sub check_params{
|
||||
my $config = shift;
|
||||
my $params = shift;
|
||||
sub check_params {
|
||||
my $config = shift;
|
||||
my $params = shift;
|
||||
|
||||
my $template=template::check($params->{template}, 'series_names.html');
|
||||
my $template = template::check( $params->{template}, 'series_names.html' );
|
||||
|
||||
my $debug=$params->{debug}||'';
|
||||
if ($debug=~/([a-z\_\,]+)/){
|
||||
$debug=$1;
|
||||
}
|
||||
my $debug = $params->{debug} || '';
|
||||
if ( $debug =~ /([a-z\_\,]+)/ ) {
|
||||
$debug = $1;
|
||||
}
|
||||
|
||||
my $search=$params->{q}||$params->{search}||$params->{term}||'';
|
||||
if ($search=~/([a-z0-9A-Z\_\,]+)/){
|
||||
$search=$1;
|
||||
}
|
||||
my $search = $params->{q} || $params->{search} || $params->{term} || '';
|
||||
if ( $search =~ /([a-z0-9A-Z\_\,]+)/ ) {
|
||||
$search = $1;
|
||||
}
|
||||
|
||||
return {
|
||||
template => $template,
|
||||
debug => $debug,
|
||||
search => $search,
|
||||
}
|
||||
return {
|
||||
template => $template,
|
||||
debug => $debug,
|
||||
search => $search,
|
||||
};
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user