#!/usr/bin/perl

use strict;
use warnings;
no warnings 'redefine';

use Data::Dumper;

use params();
use config();
use comments();
use db();
use markup();
use time();
use log();
my $r = shift;
( my $cgi, my $params, my $error ) = params::get($r);

binmode STDOUT, ":encoding(UTF-8)";

if ( $0 =~ /comments.*?\.cgi$/ ) {
    my $config = config::get('config/config.cgi');
    my $request = {
        url    => $ENV{QUERY_STRING},
        params => {
            original => $params,
            checked  => comments::check_params( $config, $params ),
        },
    };

    my $output = '';
    comments::get_cached_or_render( $output, $config, $request, 'filter_locked' );
    print $output;
}

#do not delete last line
1;