kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove dependencies

Browse Source
This commit is contained in:
Milan
2018-12-10 12:58:19 +01:00
parent a52f219b89
commit 75b40ff6fe
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
website/agenda/add_comment.cgi
View File

@@ -1,7 +1,6 @@
#! /usr/bin/perl -w #! /usr/bin/perl -w
use warnings "all"; use warnings;
use diagnostics;
use strict; use strict;
use Data::Dumper; use Data::Dumper;
@@ -33,7 +32,7 @@ my $request={
}; };
$params=$request->{params}->{checked}; $params=$request->{params}->{checked};
print $cgi->header('text/plain')."\n"; print "Content-Type:text/plain\n\n";
print STDERR "add comment: ".Dumper($params); print STDERR "add comment: ".Dumper($params);
my $comment =$params->{comment}; my $comment =$params->{comment};
@@ -239,7 +238,7 @@ sub escape_text{
$s=~s/<[a-z\!\?\[\/][^\>]+?\>//gi; $s=~s/<[a-z\!\?\[\/][^\>]+?\>//gi;
$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/[\n\r]+/\<br \/\>/g;
$s=~s/\<br \/\>/\<br \/\>\n/g; $s=~s/\<br \/\>/\<br \/\>\n/g;
$s=~s/\<br \/\>\s*$//g; $s=~s/\<br \/\>\s*$//g;