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

config cache issues

Browse Source 
By default the configuration cached by the mod_perl2 instance.
You can disable cache by setting cache/config=0.
You should disable cache only if you have multiple calcms instances
running on the same mod_perl2 server with different configuration.

The Location of the configuration will be determined by config module
now.
This commit is contained in:
Milan
2018-09-22 21:39:20 +02:00
parent e043493847
commit afa56e9e1e
12 changed files with 303 additions and 293 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lib/calcms/config.pm
View File

@@ -3,6 +3,7 @@ package config;
use warnings;
use strict;
use FindBin();
use Config::General();
use base 'Exporter';
@@ -19,7 +20,7 @@ sub set {
sub get {
my $filename = shift;
return $config if defined $config;;
return $config if ( defined $config ) && ( $config->{cache}->{cache_config} == 1 );
my $configuration = Config::General->new(
-ConfigFile => $filename,
@@ -29,5 +30,11 @@ sub get {
return $config;
}
sub getFromScriptLocation() {
FindBin::again();
my $configFile = $FindBin::Bin . '/config/config.cgi';
return config::get($configFile);
}
#do not delete last line
1;

2
website/agenda/add_comment.cgi
View File

@@ -23,7 +23,7 @@ binmode STDOUT, ":utf8";
my $r=shift;
(my $cgi, my $params, my $error)=params::get($r);
my $config = config::get('./config/config.cgi');
my $config = config::getFromScriptLocation();
my $debug = $config->{system}->{debug};
my $request={

27
website/agenda/aggregate.cgi
View File

@@ -21,7 +21,8 @@ if ( $0 =~ /aggregate.*?\.cgi$/ ) {
my %params = $cgi->Vars();
my $params = \%params;
my $config = config::get('config/config.cgi');
my $config = config::getFromScriptLocation();
my $debug = $config->{system}->{debug};
my $mem_debug = $config->{system}->{debug_memory};
my $base_dir = $config->{locations}->{base_dir};
@@ -32,9 +33,9 @@ if ( $0 =~ /aggregate.*?\.cgi$/ ) {
$output_header .= "Content-type:text/html; charset=UTF-8;\n\n";
}
$params->{exclude_locations} = 1;
$params->{exclude_projects} = 1;
$params->{exclude_event_images} = 1;
$params->{exclude_locations} = 1;
$params->{exclude_projects} = 1;
$params->{exclude_event_images} = 1;
# $output_header.='<!DOCTYPE html>'."\n";
my $request = {
@@ -71,9 +72,9 @@ if ( $0 =~ /aggregate.*?\.cgi$/ ) {
my $menu = { content => '' };
$list->{day} = '' unless defined $list->{day};
$list->{day} = $params->{date} if (defined $params->{date}) && ($params->{date} ne '');
$list->{day} = $params->{from_date} if (defined $params->{from_date}) && ($params->{from_date} ne '');
$list->{day} = 'today' if $list->{day} eq '';
$list->{day} = $params->{date} if ( defined $params->{date} ) && ( $params->{date} ne '' );
$list->{day} = $params->{from_date} if ( defined $params->{from_date} ) && ( $params->{from_date} ne '' );
$list->{day} = 'today' if $list->{day} eq '';
$menu = aggregator::get_menu( $config, $request, $list->{day}, $list->{results} );
@@ -121,15 +122,15 @@ if ( $0 =~ /aggregate.*?\.cgi$/ ) {
$content =~ s/(<(div|span)\s+id="calcms_title".*?>).*?(<\/(div|span)>)/$list->{project_title}/g;
my $values = [];
for my $value ($list->{'program'}, $list->{'series_name'}, $list->{'title'}, $list->{'location'}, $list->{'project_title'}){
next unless defined $value;
next if $value eq '';
push @$values, $value;
for my $value ( $list->{'program'}, $list->{'series_name'}, $list->{'title'}, $list->{'location'}, $list->{'project_title'} ) {
next unless defined $value;
next if $value eq '';
push @$values, $value;
}
my $title = join (' - ', @$values);
my $title = join( ' - ', @$values );
$content=~s/(<title>)(.*?)(<\/title>)/$1$title$3/;
$content =~ s/(<title>)(.*?)(<\/title>)/$1$title$3/;
$js = '';
if ( ( defined $list->{event_id} ) && ( $list->{event_id} ne '' ) ) {

2
website/agenda/cal.cgi
View File

@@ -22,7 +22,7 @@ binmode STDOUT, ":encoding(UTF-8)";
if ( $0 =~ /cal.*?\.cgi$/ ) {
( my $cgi, my $params, my $error ) = params::get($r);
my $config = config::get('config/config.cgi');
my $config = config::getFromScriptLocation();
my $debug = $config->{system}->{debug};
my $request = {

131
website/agenda/category.cgi
View File

@@ -21,27 +21,26 @@ binmode STDOUT, ":utf8";
my $r = shift;
( my $cgi, my $params, my $error ) = params::get($r);
my $config = config::get('config/config.cgi');
my $config = config::getFromScriptLocation();
my $debug = $config->{system}->{debug};
my $request = {
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => check_params( $config, $params ),
},
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => check_params( $config, $params ),
},
};
$params = $request->{params}->{checked};
my $cache = {};
if ( $config->{cache}->{use_cache} eq '1' ) {
cache::configure('categories.html');
$cache = cache::load( $config, $params );
if ( defined $cache->{content} ) {
print $cache->{content};
return;
}
cache::configure('categories.html');
$cache = cache::load( $config, $params );
if ( defined $cache->{content} ) {
print $cache->{content};
return;
}
}
my $dbh = db::connect($config);
@@ -56,87 +55,87 @@ $template_parameters->{use_client_cache} = $config->{cache}->{use_client_cache}
my $template = $params->{template};
my $out = '';
template::process($config, $out, $params->{template}, $template_parameters );
template::process( $config, $out, $params->{template}, $template_parameters );
print $out;
#write to cache
if ( $config->{cache}->{use_cache} eq '1' ) {
$cache->{content} = $out;
cache::save($cache);
$cache->{content} = $out;
cache::save($cache);
}
sub getProjects {
my $dbh = shift;
my $config = shift;
my $dbh = shift;
my $config = shift;
my $excludedProjects = {};
if ( defined $config->{filter}->{projects_to_exclude} ) {
for my $project ( split( /\,/, $config->{filter}->{projects_to_exclude} ) ) {
$project =~ s/^\s+//g;
$project =~ s/\s+$//g;
$excludedProjects->{$project} = 1;
}
}
my $excludedProjects = {};
if ( defined $config->{filter}->{projects_to_exclude} ) {
for my $project ( split( /\,/, $config->{filter}->{projects_to_exclude} ) ) {
$project =~ s/^\s+//g;
$project =~ s/\s+$//g;
$excludedProjects->{$project} = 1;
}
}
my $projects = project::get_sorted($config);
my $results = [];
for my $project (@$projects) {
next if defined $excludedProjects->{ $project->{name} };
my $categories = getCategories( $dbh, $config, $project->{name} );
$project->{isEmpty} = 1 if scalar(@$categories) == 0;
$project->{categories} = $categories;
my $projects = project::get_sorted($config);
my $results = [];
for my $project (@$projects) {
next if defined $excludedProjects->{ $project->{name} };
my $categories = getCategories( $dbh, $config, $project->{name} );
$project->{isEmpty} = 1 if scalar(@$categories) == 0;
$project->{categories} = $categories;
$project->{js_name} = $project->{name};
$project->{js_name} =~ s/[^a-zA-Z\_0-9]/\_/g;
$project->{js_name} =~ s/\_+/\_/g;
push @$results, $project;
}
return $results;
$project->{js_name} = $project->{name};
$project->{js_name} =~ s/[^a-zA-Z\_0-9]/\_/g;
$project->{js_name} =~ s/\_+/\_/g;
push @$results, $project;
}
return $results;
}
sub getCategories {
my $dbh = shift;
my $config = shift;
my $project = shift;
my $dbh = shift;
my $config = shift;
my $project = shift;
my $cond = '';
my $bind_values = [];
if ( ( $project ne '' ) && ( $project ne 'all' ) ) {
$cond = 'where project=?';
$bind_values = [$project];
}
my $cond = '';
my $bind_values = [];
if ( ( $project ne '' ) && ( $project ne 'all' ) ) {
$cond = 'where project=?';
$bind_values = [$project];
}
my $query = qq{
my $query = qq{
select name, count(name) sum
from calcms_categories
$cond
group by name
order by sum desc, name
};
my $categories = db::get( $dbh, $query, $bind_values );
my $categories = db::get( $dbh, $query, $bind_values );
my $results = [];
for my $category (@$categories) {
push @$results, $category if $category->{sum} > 1;
}
my $results = [];
for my $category (@$categories) {
push @$results, $category if $category->{sum} > 1;
}
return $results;
return $results;
}
sub check_params {
my $config = $_[0];
my $params = $_[1];
my $config = $_[0];
my $params = $_[1];
my $template = template::check($config, $params->{template}, 'categories.html' );
my $template = template::check( $config, $params->{template}, 'categories.html' );
my $debug = $params->{debug} || '';
if ( $debug =~ /([a-z\_\,]+)/ ) {
$debug = $1;
}
my $debug = $params->{debug} || '';
if ( $debug =~ /([a-z\_\,]+)/ ) {
$debug = $1;
}
return {
template => $template,
debug => $debug
};
return {
template => $template,
debug => $debug
};
}

34
website/agenda/events.cgi
View File

@@ -6,7 +6,6 @@ no warnings 'redefine';
use Data::Dumper;
#use utf8;
use DBI;
use CGI qw(header param Vars);
$CGI::POST_MAX = 1000;
@@ -18,35 +17,32 @@ use log();
use events();
use time();
#binmode STDOUT, ":utf8";
binmode STDOUT, ":encoding(UTF-8)";
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');
my $config = config::getFromScriptLocation();
$params->{template} = '' unless defined $params->{template};
$params->{recordings} = 1 if $params->{template} =~ /events_playout/;
$params->{recordings} = 1 if $params->{template} =~ /events_playout/;
$params->{exclude_locations} = 1;
$params->{exclude_projects} = 1;
$params->{exclude_locations} = 1;
$params->{exclude_projects} = 1;
$params->{exclude_event_images} = 1;
my $request = {
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => events::check_params( $config, $params ),
},
};
my $output = '';
events::get_cached_or_render( $output, $config, $request );
print $output. "\n";
my $request = {
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => events::check_params( $config, $params ),
},
};
my $output = '';
events::get_cached_or_render( $output, $config, $request );
print $output. "\n";
}
1;

1
website/agenda/planung/calendar.cgi
View File

@@ -1417,6 +1417,7 @@ sub print_event {
my $attr = '';
if ( $class =~ /play/ ) {
#$event->{rms_image}=~s/\.png/.svg/;
$attr .= ' rms="' . $event->{rms_image} . '"' if defined $event->{rms_image};
$attr .= ' start="' . $event->{start} . '"' if defined $event->{start};
}

51
website/agenda/planung/create_events.cgi
View File

@@ -39,9 +39,9 @@ my $user_presets = uac::get_user_presets(
);
$params->{default_studio_id} = $user_presets->{studio_id};
$params->{studio_id} = $params->{default_studio_id}
if ( ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' ) );
if ( !defined $params->{action} ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' );
$params->{project_id} = $user_presets->{project_id}
if ( ( !( defined $params->{action} ) ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' ) );
if ( !defined $params->{action} ) || ( $params->{action} eq '' ) || ( $params->{action} eq 'login' );
#print STDERR $params->{project_id}."\n";
my $request = {
@@ -87,9 +87,14 @@ sub show_events {
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{assign_series_events} == 1 ) {
uac::permissions_denied('assign_series_events');
uac::permissions_denied('read_events');
return;
}
my $events = getDates( $config, $request );
$params->{events} = $events;
$params->{total} = scalar(@$events);
$params->{action} = 'show';
template::process( $config, 'print', $params->{template}, $params );
}
@@ -106,6 +111,31 @@ sub create_events {
}
print STDERR "create events\n";
my $dates = getDates( $config, $request );
print STDERR "<pre>found " . ( scalar @$dates ) . " dates\n";
my $events = [];
for my $date (@$dates) {
#print STDERR $date->{start}."\n";
push @$events, createEvent( $config, $request, $date );
}
$params->{events} = $events;
$params->{total} = scalar(@$events);
$params->{action} = 'created';
template::process( $config, 'print', $params->{template}, $params );
}
sub getDates {
my $config = shift;
my $request = shift;
my $params = $request->{params}->{checked};
my $permissions = $request->{permissions};
unless ( $permissions->{read_event} == 1 ) {
uac::permissions_denied('read_event');
return;
}
my $project_id = $params->{project_id};
my $studio_id = $params->{studio_id};
@@ -126,8 +156,7 @@ sub create_events {
}
$params->{from_date} = $from_date;
$params->{till_date} = $till_date;
print STDERR "create events from $from_date to $till_date\n";
print STDERR "$0: get events from $from_date to $till_date\n";
my $dates = series_dates::getDatesWithoutEvent(
$config,
@@ -138,16 +167,8 @@ sub create_events {
till => $till_date
}
);
print STDERR "<pre>found " . ( scalar @$dates ) . " dates\n";
my $events = [];
for my $date (@$dates) {
#print STDERR $date->{start}."\n";
push @$events, createEvent( $config, $request, $date );
}
$params->{created_events} = $events;
$params->{created_total} = scalar(@$events);
template::process( $config, 'print', $params->{template}, $params );
return $dates;
}
sub createEvent {
@@ -191,7 +212,7 @@ sub check_params {
#actions and roles
$checked->{action} = '';
if ( defined $params->{action} ) {
if ( $params->{action} =~ /^(create_events)$/ ) {
if ( $params->{action} =~ /^(create_events|show_events)$/ ) {
$checked->{action} = $params->{action};
}
}

63
website/agenda/planung/templates/create_events.html
View File

@@ -1,33 +1,17 @@
<TMPL_IF .allow.scan_series_events>
<script type="text/javascript">
<TMPL_IF .getBack>
$(document).ready(
function(){
getBack()
}
);
</TMPL_IF>
function assign_series(project_id, studio_id){
if (project_id == '') return false;
if (studio_id == '') return false;
var url="create_events.cgi?project_id="+project_id+'&studio_id='+studio_id+'&action=create_events';
$('#create_event_form').submit();
return false;
}
<TMPL_IF .allow.read_event> <script type="text/javascript">
<TMPL_IF .getBack>
$(document).ready(function() {
getBack()
});
</TMPL_IF>
</script>
<h1>create events from schedule</h1>
<form id="create_event_form">
<input type="hidden" name="project_id" value="<TMPL_VAR .project_id>">
<input type="hidden" name="studio_id" value="<TMPL_VAR .studio_id>">
<input type="hidden" name="action" value="create_events">
duration
<form id="create_event_form" method="post">
<input type="hidden" name="project_id"
value="<TMPL_VAR .project_id>"> <input type="hidden"
name="studio_id" value="<TMPL_VAR .studio_id>"> duration
<select name="duration">
<option value="7">1 week</option>
<option value="14">2 weeks</option>
@@ -35,20 +19,25 @@ function assign_series(project_id, studio_id){
<option value="28">4 weeks</option>
</select>
<button target="_blank"
onclick="assign_series('<TMPL_VAR .project_id>', '<TMPL_VAR .studio_id>');return false;"
>create</button>
<TMPL_IF .allow.read_event>
<button target="_blank" type='submit' name="action" value="show">show</button>
</TMPL_IF>
<TMPL_IF .allow.assign_series_events>
<button target="_blank" type='submit' name="action"
value="create_events">create</button>
</TMPL_IF>
</form>
<div class="view" style="clear:both">
created <TMPL_VAR created_total> events from <TMPL_VAR from_date> till <TMPL_VAR till_date><br>
<TMPL_LOOP created_events> events created
<TMPL_var start><TMPL_var full_title><br>
</TMPL_LOOP>
<div class="view" style="clear: both">
<TMPL_VAR action> <TMPL_VAR created_total>
events from <TMPL_VAR from_date> till <TMPL_VAR till_date>
<br>
</view>
<TMPL_LOOP events> <TMPL_var start> <TMPL_var
full_title> <br></TMPL_LOOP> </view>
</body>
</html>
</body>
</html>
<TMPL_ELSE> missing permission to read events
</TMPL_IF>

3
website/agenda/series.cgi
View File

@@ -16,8 +16,7 @@ print "Content-Type: text/html; charset=utf-8\n\n";
my $r = shift;
( my $cgi, my $params, my $error ) = params::get($r);
my $config = config::get('config/config.cgi');
my $config = config::getFromScriptLocation();
$params = check_params( $config, $params );
list_series( $config, $params );

226
website/agenda/series_names.cgi
View File

@@ -2,6 +2,7 @@
#use utf8;
use warnings "all";
#use diagnostics;
use strict;
use Data::Dumper;
@@ -23,17 +24,16 @@ binmode STDOUT, ":utf8";
my $r = shift;
( my $cgi, my $params, my $error ) = params::get($r);
my $config = config::get('config/config.cgi');
my $config = config::getFromScriptLocation();
my $debug = $config->{system}->{debug};
#get request
my $request = {
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => check_params( $config, $params )
},
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => check_params( $config, $params )
},
};
$params = $request->{params}->{checked};
@@ -41,12 +41,12 @@ $params = $request->{params}->{checked};
#read cache
my $cache = {};
if ( $config->{cache}->{use_cache} eq '1' ) {
cache::configure('series_names.html');
$cache = cache::load( $config, $params );
if ( defined $cache->{content} ) {
print $cache->{content};
return;
}
cache::configure('series_names.html');
$cache = cache::load( $config, $params );
if ( defined $cache->{content} ) {
print $cache->{content};
return;
}
}
#connect
@@ -56,111 +56,111 @@ my $dbh = db::connect($config);
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($config, $out, $params->{template}, $template_parameters );
template::process( $config, $out, $params->{template}, $template_parameters );
print $out;
#write to cache
if ( $config->{cache}->{use_cache} eq '1' ) {
$cache->{content} = $out;
cache::save($cache);
$cache->{content} = $out;
cache::save($cache);
}
$cache = undef;
$out = undef;
sub getProjects {
my $dbh = shift;
my $config = shift;
my $params = shift;
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}->{projects_to_exclude} ) {
for my $project ( split( /\,/, $config->{filter}->{projects_to_exclude} ) ) {
$project =~ s/^\s+//g;
$project =~ s/\s+$//g;
$excludedProjects->{$project} = 1;
}
}
my $excludedProjects = {};
if ( defined $config->{filter}->{projects_to_exclude} ) {
for my $project ( split( /\,/, $config->{filter}->{projects_to_exclude} ) ) {
$project =~ s/^\s+//g;
$project =~ s/\s+$//g;
$excludedProjects->{$project} = 1;
}
}
my $results = [];
for my $project (@$projects) {
next if defined $excludedProjects->{ $project->{name} };
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 $series_names = getSeriesNames( $dbh, $config, $project->{name}, $params );
$project->{isEmpty} = 1 if scalar(@$series_names) == 0;
$project->{series_names} = $series_names;
$project->{js_name} = $project->{name};
$project->{js_name} =~ s/[^a-zA-Z\_0-9]/\_/g;
$project->{js_name} =~ s/\_+/\_/g;
$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 ) && ( scalar @$series_names > 0 ) ) {
$series_names->[-1]->{last} = 1;
$prev_series_names->[-1]->{last} = 0 if ( defined $prev_series_names ) && ( sclar @$prev_series_names > 0 ) ;
$prev_series_names = $series_names;
}
push @$results, $project;
}
return $results;
#mark last series_name entry of all non empty projects
if ( ( defined $series_names ) && ( scalar @$series_names > 0 ) ) {
$series_names->[-1]->{last} = 1;
$prev_series_names->[-1]->{last} = 0 if ( defined $prev_series_names ) && ( sclar @$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;
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}->{locations_to_exclude} ) {
my @exclude = ();
for my $location ( split( /\,/, $config->{filter}->{locations_to_exclude} ) ) {
$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}->{locations_to_exclude} ) {
my @exclude = ();
for my $location ( split( /\,/, $config->{filter}->{locations_to_exclude} ) ) {
$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}->{projects_to_exclude} ) {
my @exclude = ();
for my $project ( split( /\,/, $config->{filter}->{projects_to_exclude} ) ) {
$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}->{projects_to_exclude} ) {
my @exclude = ();
for my $project ( split( /\,/, $config->{filter}->{projects_to_exclude} ) ) {
$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
@@ -168,38 +168,38 @@ sub getSeriesNames {
order by series_name
};
my $series_names = db::get( $dbh, $query, $bind_values );
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_';
}
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;
return $series_names;
}
sub check_params {
my $config = shift;
my $params = shift;
my $config = shift;
my $params = shift;
my $template = template::check($config, $params->{template}, 'series_names.html' );
my $template = template::check( $config, $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,
};
}

47
website/agenda/upload_playout.cgi
View File

@@ -1,6 +1,5 @@
#! /usr/bin/perl -w
#use utf8;
use warnings "all";
use strict;
@@ -10,7 +9,6 @@ $CGI::DISABLE_UPLOADS = 1;
use Data::Dumper;
#use Apache2::Request;
use JSON();
use params();
use config();
@@ -19,37 +17,36 @@ use playout();
my $r = shift;
#binmode STDOUT, ":utf8";
binmode STDOUT, ":encoding(UTF-8)";
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::getFromScriptLocation();
my $debug = $config->{system}->{debug};
my $len = $r->headers_in()->get('Content-Length');
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;
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 Dumper($content)."\n";
#print Dumper($r);
#print Dumper($json);
print "upload playout result:" . Dumper($result);
#print Dumper($content)."\n";
#print Dumper($r);
#print Dumper($json);
print "upload playout result:" . Dumper($result);
}
1;