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

copy current state of medienstaatsvertrag.org, to be verified

Browse Source
This commit is contained in:
Milan
2017-12-18 10:58:50 +01:00
parent 8b35e7c5c2
commit 69e5d0e4c6
401 changed files with 74197 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

294
lib/calcms/aggregator.pm Normal file
View File

@@ -0,0 +1,294 @@
use warnings "all";
use strict;
use events;
use comments;
use calendar;
use project;
package aggregator;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(get_cache configure_cache put_cache get_list check_params);
our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK ] );
#my $cgi=undef;
sub get_list{
my $config = shift;
my $request=shift;
my $params=$request->{params}->{checked};
my $debug=$config->{system}->{debug};
#customize prefiltered request parameters
$request->{params}->{original}->{date}=$request->{params}->{checked}->{date};
if ($params->{event_id}ne''){
$request->{params}->{original}->{template}='event_details.html';
}else{
$request->{params}->{original}->{template}='event_list.html';
}
$request->{params}->{checked} = events::check_params($config, $request->{params}->{original});
log::write($config, 'params',$request->{params}->{checked}) if ($debug);
my $content='';
my $results=events::get($config, $request);
events::render($content, $config, $request, $results);
# calendar::get_cached_or_render($content,$request);
#set url to embed as last loaded url in javascript
my $date=$params->{date}||'';
$date='heute' if ($params->{date}eq'today');
$date=$results->[0]->{day} if ($params->{event_id}ne'');
my $url='';
#$config->{controllers}->{events}.'/'.$date.'/';
if ($params->{from_date}ne'' && $params->{till_date}ne''){
$url=$config->{controllers}->{events}.'/'.$params->{from_date}.'/'.$params->{till_date} ;
}else{
$url=$config->{controllers}->{events}.'/'.$params->{from_date}.'/'.$params->{till_date} ;
}
#count most projects
my $used_projects={};
for my $result (@$results){
my $project=$result->{project_title}||'';
$used_projects->{$project}++;
}
my @used_projects=reverse sort {$used_projects->{$a} <=> $used_projects->{$b}} (keys %$used_projects);
my $most_used_project=$used_projects[0];
#use Data::Dumper;print STDERR Dumper(\@used_projects);
return {
day => $results->[0]->{day},
start_datetime => $results->[0]->{start_datetime},
event_id => $results->[0]->{event_id},
program => $results->[0]->{program},
project_title => $most_used_project,
series_name => $results->[0]->{series_name},
title => $results->[0]->{title},
content => $content,
results => $results,
url => $url,
};
}
sub get_menu{
my $config = shift;
my $request=shift;
my $date=shift;
my $results=shift;
my $params=$request->{params}->{checked};
#load details only on demand
if ($params->{event_id}ne''){
$request->{params}->{original}->{template}='event_menu.html';
$request->{params}->{original}->{event_id}=undef;
$request->{params}->{original}->{date}=$date;
$request->{params}->{checked} =events::check_params($config, $request->{params}->{original});
$results=events::get($config, $request);
}else{
$request->{params}->{checked}->{template}=template::check('event_menu.html');
}
#events menu
my $output='';
events::render($output, $config, $request, $results);
return {
content => $output
};
}
sub get_calendar{
my $config = shift;
my $request=shift;
my $date=shift;
my $params=$request->{params}->{checked};
my $debug=$config->{system}->{debug};
$request->{params}->{original}->{template} = 'calendar.html';
$request->{params}->{original}->{date} = $date if (defined $date);
$request->{params}->{checked} = calendar::check_params($config, $request->{params}->{original});
$params = $request->{params}->{checked};
log::write($config, 'params',$params) if ($debug);
#set query string for caching
my $options=[];
push (@$options,'date='.$params->{date}) if ($params->{date} ne'');
push (@$options,'from_date='.$params->{from_date}) if ($params->{from_date} ne'');
push (@$options,'till_date='.$params->{till_date}) if ($params->{till_date} ne'');
$ENV{QUERY_STRING}=''.join("&",@$options);
my $content='';
calendar::get_cached_or_render($content, $config, $request);
return {
content => $content
};
}
sub get_newest_comments{
my $config = shift;
my $request=shift;
my $params={
template =>'comments_newest.html',
limit => 10,
type =>'list',
show_max => 3
};
$request={
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => comments::check_params($config, $params),
},
config => $config,
connection => $request->{connection}
};
my $content='';
comments::get_cached_or_render($content, $config, $request);
return {
content => $content
};
}
sub get_cache{
my $config = shift;
my $request = shift;
my $params =$request->{params}->{checked};
my $debug=$config->{system}->{debug};
if ($config->{cache}->{use_cache} == 1){
configure_cache($config);
log::write($config, 'cache_files',cache::get_map()) if ($debug);
my $cache=cache::load($config, $params);
log::write($config, 'cache_files',$cache->{action}) if ($debug);
return $cache;
}
return{};
}
sub configure_cache{
my $config = shift;
cache::init();
my $controllers=$config->{controllers};
my $date_pattern=$cache::date_pattern;
# cache::add_map('' ,'programm/index.html');
cache::add_map('date=today' ,'programm/'.$controllers->{events}.'/today.html');
cache::add_map('date='.$date_pattern ,'programm/'.$controllers->{events}.'/$1-$2-$3.html');
cache::add_map('from_date='.$date_pattern.'&till_date='.$date_pattern ,'programm/'.$controllers->{events}.'/$1-$2-$3_$4-$5-$6.html');
cache::add_map('event_id=(\d+)' ,'programm/'.$controllers->{event}.'/$1.html');
}
sub put_cache{
my $config = shift;
my $request = shift;
my $cache = shift;
#write to cache
if ($config->{cache}->{use_cache} == 1){
cache::save($cache);
}
}
sub check_params{
my $config = shift;
my $params = shift;
#get start and stop from projects
my $range= project::get_date_range($config);
my $start_date = $range->{start_date};
my $end_date = $range->{end_date};
# my $project_name=$config->{project}||'';
# log::error($config, 'no default project configured') if($project_name eq '');
# log::error($config, "no configuration found for project '$project_name'") unless(exists($config->{projects}->{$project_name}));
# my $project=$config->{projects}->{$project_name}||'';
# log::erorr($config, 'no configuration found for project') if($project eq'');
# if ((defined $params->{project}) && ($params->{project}=~/(\w+)/)){
# $project=$config->{projects}->{$1} if exists($config->{projects}->{$1});
# }
#filter for date
my $date=time::check_date($params->{date});
#print STDERR $date."\n";
if ($date eq ''){
$date=time::time_to_date(time()) ;
}
#
if ($date eq 'today'){
$date=time::get_event_date($config);
}
# $date =$config->{date}->{start_date} if ($date lt $config->{date}->{start_date});
# $date =$config->{date}->{end_date} if ($date gt $config->{date}->{end_date});
$date =$start_date if $date lt $start_date;
$date =$end_date if $date gt $end_date;
#filter for date
# my $date=time::check_date($params->{date});
my $time=time::check_time($params->{time});
if ((defined $params->{today}) && ($params->{today}eq'1')){
$date =time::time_to_date(time());
$params->{date}=$date;
};
my $from_date=time::check_date($params->{from_date});
my $till_date=time::check_date($params->{till_date});
my $previous_series=$params->{previous_series} || '';
if(($previous_series)&&($previous_series=~/(\d+)/)){
$params->{event_id}=events::get_previous_event_of_series(undef, $config, $1);
}
my $next_series=$params->{next_series} || '';
if(($next_series)&&($next_series=~/(\d+)/)){
$params->{event_id}=events::get_next_event_of_series(undef, $config, $1);
}
my $event_id=$params->{event_id}||'';
unless ($event_id eq''){
if ($event_id=~/(\d+)/){
$event_id=$1;
}else{
log::error($config, "invalid event_id");
}
}
my $debug=$params->{debug}||'';
if ($debug=~/([a-z\_\,]+)/){
$debug=$1;
}
#set query string for caching
if ((!exists $ENV{QUERY_STRING}) || ($ENV{QUERY_STRING}eq'')){
my $options=[];
push (@$options,'date='.$date) if $date ne'';
push (@$options,'from_date='.$from_date) if $from_date ne'';
push (@$options,'till_date='.$till_date) if $till_date ne'';
push (@$options,'event_id='.$event_id) if $event_id ne'';
$ENV{QUERY_STRING}=''.join("&",@$options);
}
return {
date => $date,
time => $time,
from_date => $from_date,
till_date => $till_date,
event_id => $event_id,
# project => $project,
debug => $debug,
};
;
}
#do not delete last line!
1;