d3fc5f998a
* remove cache, cache setup is not easy, todays servers do not really * need it anymore * add prototypes and fix parameter issues * suppress redefinition
44 lines
920 B
Perl
Executable File
44 lines
920 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
|
|
use Data::Dumper;
|
|
|
|
use params();
|
|
use config();
|
|
use log();
|
|
use events();
|
|
use time();
|
|
|
|
binmode STDOUT, ":encoding(UTF-8)";
|
|
|
|
my $r = shift;
|
|
( my $cgi, my $params, my $error ) = params::get($r);
|
|
if ( $0 =~ /events.*?\.cgi$/ ) {
|
|
|
|
my $config = config::getFromScriptLocation();
|
|
|
|
$params->{template} = '' unless defined $params->{template};
|
|
$params->{recordings} = 1 if $params->{template} =~ /events_playout/;
|
|
|
|
$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";
|
|
}
|
|
|
|
1;
|