#!C:/apache2triadpath/perl/bin/perl.exe print "Content-type: text/html\n\n"; $sendmail = 'C:\apache2triadpath\mail\bin\sendmail.exe'; $FORM{'act'} = ''; &parseform(); if ($FORM{'act'}eq'Send the test mail'){ print "Apache2Triad sendmail test script"; &action; }else{ &entry; } exit; sub parseform() { if($ENV{'REQUEST_METHOD'} eq 'GET'){ $buffer=$ENV{'QUERY_STRING'}; }elsif($ENV{'REQUEST_METHOD'} eq 'POST'){ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});} @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("c",hex($1))/eg; $FORM{$name} = $value;} } sub entry { print " Apache2Triad sendmail test script

 

Sendmail test script

This script sends a email to the apache serveradmin email adress ( $ENV{'SERVER_ADMIN'} )

If you want to test other local email adresses you have to create them first
 "; print "
Email :
Subject :

"; print "
Written by Vlad Alexa Mancini"; } sub action { $email_to = $FORM{'email_to'}; $email_from = $ENV{'SERVER_ADMIN'}; $body = $FORM{'body'}; $subject = $FORM{'subject'}; open (MAIL, "|$sendmail $email_to") or die ("Can't open $sendmail"); print MAIL "Subject: $subject\n"; print MAIL "To: $email_to\n"; print MAIL "From: $email_from\n"; print MAIL "Return-Path: $email_from\n"; print MAIL "X-Mailer: Sendmail\n"; print MAIL qq! $body !; close(MAIL); print "Email sucesfully sent to $email_to
"; print "All done
"; print "Go Back"; } exit;