remove cache

* remove cache, cache setup is not easy, todays servers do not really
* need it anymore
* add prototypes and fix parameter issues
* suppress redefinition
This commit is contained in:
Milan
2019-04-13 20:31:25 +02:00
parent e90ea3929d
commit d3fc5f998a
81 changed files with 3190 additions and 20267 deletions

View File

@@ -1,8 +1,8 @@
#! /usr/bin/perl -w
#!/usr/bin/perl
#use utf8;
use warnings "all";
use strict;
use warnings;
no warnings 'redefine';
use Data::Dumper;
use params();
@@ -16,23 +16,23 @@ my $r = shift;
binmode STDOUT, ":encoding(UTF-8)";
if ( $0 =~ /cal.*?\.cgi$/ ) {
( my $cgi, my $params, my $error ) = params::get($r);
( my $cgi, my $params, my $error ) = params::get($r);
my $config = config::getFromScriptLocation();
my $debug = $config->{system}->{debug};
my $config = config::getFromScriptLocation();
my $debug = $config->{system}->{debug};
my $request = {
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => calendar::check_params( $config, $params ),
},
};
$params = $request->{params}->{checked};
my $request = {
url => $ENV{QUERY_STRING},
params => {
original => $params,
checked => calendar::check_params( $config, $params ),
},
};
$params = $request->{params}->{checked};
my $out = '';
calendar::get_cached_or_render( $out, $config, $request );
print $out. "\n";
my $out = '';
calendar::get_cached_or_render( $out, $config, $request );
print $out. "\n";
}
1;