#!/usr/bin/perl use warnings; use strict; #perl2exe_noopt "Opcode.pm" #perl2exe_exclude "Apache2/RequestRec.pm" #perl2exe_exclude "Apache2/RequestIO.pm" #perl2exe_exclude "Apache2/RequestUtil.pm" #perl2exe_exclude "APR/Pool.pm" #perl2exe_exclude "ModPerl/Util.pm" #perl2exe_exclude "Apache2/Response.pm" #Net::SMTP related: #perl2exe_exclude "Convert/EBCDIC.pm" #perl2exe_exclude "Mac/InternetConfig.pm" #perl2exe_include "Authen/SASL.pm" use CGI::Carp qw(fatalsToBrowser); &MakeRequest; exit; ############################################ sub MakeRequest { print "Content-type: text/html;charset=UTF-8\n\n"; print < Library Search NCP use Net::SMTP; use Authen::SASL; my $SMTPServer = 'myserver.net'; my $emailFrom = 'me@here.com'; my $emailTo = 'you@there.com'; my $user = 'username'; my $pass = 'password'; my $NetSMTP = Net::SMTP->new($SMTPServer, Port=>'587', Timeout=>60, Debug=>1) || die "
Unable to open connection.
Error Message: $!"; $NetSMTP->auth( user => $user, pass => $pass, ) || die "
Auth didn't work: $!
"; print "
sending from [$emailFrom] to [$emailTo]"; $NetSMTP->mail($emailFrom); $NetSMTP->to($emailTo); $NetSMTP->data(); $NetSMTP->datasend('this is the body text'); $NetSMTP->dataend(); $NetSMTP->quit; print "
Done."; }