43 lines
782 B
Perl
Executable File
43 lines
782 B
Perl
Executable File
#! /usr/bin/perl -w
|
|
|
|
#use utf8;
|
|
use warnings "all";
|
|
use strict;
|
|
|
|
use CGI qw(header param Vars);
|
|
$CGI::POST_MAX = 1000;
|
|
$CGI::DISABLE_UPLOADS = 1;
|
|
|
|
use Data::Dumper;
|
|
use params();
|
|
use config();
|
|
use log();
|
|
use calendar();
|
|
|
|
my $r = shift;
|
|
|
|
#binmode STDOUT, ":utf8";
|
|
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 $debug = $config->{system}->{debug};
|
|
|
|
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";
|
|
}
|
|
|
|
1;
|