mirror of
https://github.com/kaboomserver/website.git
synced 2024-12-22 15:55:04 +00:00
17 lines
322 B
Perl
Executable file
17 lines
322 B
Perl
Executable file
#!/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('/');
|