copy current state of medienstaatsvertrag.org, to be verified

website/agenda/comments.cgi

@@ -0,0 +1,45 @@
+#! /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;