vndb/yhdev
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ncdc 1.23.1 + checksums + updates

Browse source
This commit is contained in:
Yorhel 2022-09-27 12:36:11 +02:00
parent db0e63dbf3
commit aad45f7196
71 changed files with 359 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

11
pub/cgi-bin/guestbook.cgi
View file

@ -8,8 +8,12 @@ CGI::Minimal::max_read_size(128*1024);
my $cgi = CGI::Minimal->new;
die if $cgi->truncated;
open my $S, '|-', qw'/usr/sbin/sendmail -t -f dev@yorhel.nl' or die $!;
printf $S <<'_', $cgi->param('name'), $cgi->param('message');
my $msg = $cgi->param('message');
my $spam = $msg =~ /<a href/;
if (!$spam) {
open my $S, '|-', qw'/usr/sbin/sendmail -t -f dev@yorhel.nl' or die $!;
printf $S <<'_', $cgi->param('name'), $msg;
To: dev@yorhel.nl
From: dev@yorhel.nl
Subject: Guestbook post
@ -21,7 +25,8 @@ Message:
%s
_
close $S or die;
close $S or die;
}
print <<'_';
Status: 303