website/report

18 lines
322 B
Text
Raw Normal View History

2018-02-19 14:04:40 +00:00
#!/usr/bin/perl
use CGI;
my $q = new CGI;
my $data = CGI::param('POSTDATA');
if (($data ne ""))
{
open (SEND, "|/usr/lib/sendmail -t");
print SEND "From: mail\@mathias.re\n";
print SEND "To: mail\@mathias.re\n";
print SEND "Subject: CSP Report\n\n";
print SEND "$data\n";
close (SEND);
}
print $q->redirect('/');