From 75b40ff6fe409f68c1afe8d0a189fdba773c8648 Mon Sep 17 00:00:00 2001
From: Milan <mc@radiopiloten.de>
Date: Mon, 10 Dec 2018 12:58:19 +0100
Subject: [PATCH] remove dependencies

---
 website/agenda/add_comment.cgi | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/website/agenda/add_comment.cgi b/website/agenda/add_comment.cgi
index 61ef5c1..9f7e932 100755
--- a/website/agenda/add_comment.cgi
+++ b/website/agenda/add_comment.cgi
@@ -1,7 +1,6 @@
 #! /usr/bin/perl -w
 
-use warnings "all";
-use diagnostics;
+use warnings;
 use strict;
 use Data::Dumper;
 
@@ -33,7 +32,7 @@ my $request={
 };
 $params=$request->{params}->{checked};
 
-print $cgi->header('text/plain')."\n";
+print "Content-Type:text/plain\n\n";
 
 print STDERR "add comment: ".Dumper($params);
 my $comment	=$params->{comment};
@@ -239,7 +238,7 @@ sub escape_text{
 	$s=~s/<[a-z\!\?\[\/][^\>]+?\>//gi;
 	$s=~s/<[a-z\!\?\[\/]\>//gi;
 
-    $s = markup::escapeHTML($s);
+    $s = markup::escapeHtml($s);
 	$s=~s/[\n\r]+/\<br \/\>/g;
 	$s=~s/\<br \/\>/\<br \/\>\n/g;
 	$s=~s/\<br \/\>\s*$//g;