afa56e9e1e
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.
102 lines
2.5 KiB
Perl
Executable File
102 lines
2.5 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use warnings "all";
|
|
use strict;
|
|
use Data::Dumper;
|
|
|
|
use params();
|
|
use config();
|
|
use template();
|
|
use studios();
|
|
use series();
|
|
|
|
binmode STDOUT, ":utf8";
|
|
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::getFromScriptLocation();
|
|
$params = check_params( $config, $params );
|
|
|
|
list_series( $config, $params );
|
|
|
|
sub list_series {
|
|
my $config = shift;
|
|
my $params = shift;
|
|
|
|
$config->{access}->{write} = 0;
|
|
|
|
my $project_id = $params->{project_id};
|
|
my $studio_id = $params->{studio_id};
|
|
my $location = $params->{location};
|
|
|
|
if ( defined $location ) {
|
|
my $studios = studios::get(
|
|
$config,
|
|
{
|
|
project_id => $project_id,
|
|
location => $location
|
|
}
|
|
);
|
|
|
|
$studio_id = $studios->[0]->{id};
|
|
}
|
|
|
|
my $conditions = {};
|
|
$conditions->{project_id} = $project_id if defined $project_id;
|
|
$conditions->{studio_id} = $studio_id if defined $studio_id;
|
|
|
|
if ( scalar( keys %$conditions ) == 0 ) {
|
|
$params->{info} .= "missing parameters";
|
|
return;
|
|
}
|
|
$params->{info} .= Dumper($conditions);
|
|
|
|
my $series = series::get_event_age( $config, $conditions );
|
|
my $series2 = [];
|
|
for my $serie ( sort { lc $a->{series_name} cmp lc $b->{series_name} } (@$series) ) {
|
|
next if $serie->{days_over} > 80;
|
|
next if $serie->{days_over} == 0;
|
|
next unless defined $serie->{series_name};
|
|
next if $serie->{series_name} eq '_single_';
|
|
push @$series2, $serie;
|
|
}
|
|
$params->{series} = $series2;
|
|
|
|
$params->{info} .= "no results found" if scalar(@$series) == 0;
|
|
$params->{info} = '';
|
|
|
|
template::process( $config, 'print', 'templates/series.html', $params );
|
|
}
|
|
|
|
sub check_params {
|
|
my $config = shift;
|
|
my $params = shift;
|
|
|
|
my $checked = {};
|
|
|
|
my $debug = $params->{debug} || '';
|
|
if ( $debug =~ /([a-z\_\,]+)/ ) {
|
|
$debug = $1;
|
|
}
|
|
$checked->{debug} = $debug;
|
|
|
|
for my $param ( 'project_id', 'studio_id' ) {
|
|
if ( ( defined $params->{$param} ) && ( $params->{$param} =~ /^\d+$/ ) ) {
|
|
$checked->{$param} = $params->{$param};
|
|
}
|
|
}
|
|
|
|
for my $param ('location') {
|
|
if ( defined $params->{$param} ) {
|
|
$checked->{$param} = $params->{$param};
|
|
$checked->{$param} =~ s/^\s+//g;
|
|
$checked->{$param} =~ s/\s+$//g;
|
|
}
|
|
}
|
|
|
|
return $checked;
|
|
}
|
|
|