46 lines
781 B
Perl
Executable File
46 lines
781 B
Perl
Executable File
#! /usr/bin/perl -w
|
|
|
|
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 comments;
|
|
use db;
|
|
use markup;
|
|
use time;
|
|
use cache;
|
|
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 $debug=$config->{system}->{debug};
|
|
|
|
my $request={
|
|
url => $ENV{QUERY_STRING},
|
|
params => {
|
|
original => $params,
|
|
checked => comments::check_params($config, $params),
|
|
},
|
|
};
|
|
log::init($request);
|
|
|
|
my $output='';
|
|
comments::get_cached_or_render($output, $config, $request, 'filter_locked');
|
|
print $output;
|
|
}
|
|
|
|
|
|
#do not delete last line
|
|
1;
|