#!/usr/bin/perl -T

use CGI::Carp ('fatalsToBrowser');
use CGI (':standard');

$ENV{PATH} = "/bin:/usr/bin:/usr/sbin";

$email = param("mail");

print "Content-Type: text/html\n\n";

print "ich soll e-mail an $email schicken";

if ( $email =~ /^([\w\-\.]+@\w+(\.\w+)+)$/ ) {

    $gutemail = $1;

    $cmd = "|sendmail $gutemail";

    print "<p>Argument fuer open ist <b>$cmd</b>";

    open(MAIL, $cmd);

    print MAIL "From: bjelli\@horus.at\n";
    print MAIL "Subject: mail vom webserver\n";
    print MAIL "\n";

    print MAIL "hallo!";

    close MAIL;

} else {

   print <<"EOM";
   <p>die e-mail adresse $email ist verdaechtig, 
   interpol wurde bereits informiert, wir holen sie in 10 minuten ab, 
   bitte bleiben sie vor dem computer $ENV{REMOTE_ADDR} sitzen!
EOM

}