#! /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;