Library Search

Cannot find a SASL Connection library at PERL2EXE_STORAGE/Net/SMTP.pm line 137 ##

##

'File::Spec'                     => '3.30',
'File::Spec::Win32'              => '3.30',
'File::Spec::Unix'               => '3.30',
'Cwd'                            => '3.30',
'CGI::Carp'                      => '3.45',
'Authen::SASL::EXTERNAL'         => '0.99',
'Authen::SASL'                   => '2.12',
'Authen::SASL::Perl'             => '1.07',
'Authen::SASL::Perl::ANONYMOUS'  => '1.03',
'Authen::SASL::Perl::CRAM_MD5'   => '1.03',
'Authen::SASL::Perl::DIGEST_MD5' => '1.07',
'Authen::SASL::Perl::EXTERNAL'   => '1.03',
'Authen::SASL::Perl::GSSAPI'     => '0.04',
'Authen::SASL::Perl::LOGIN'      => '1.03',
'Authen::SASL::Perl::PLAIN'      => '1.04',
'Authen::SASL::CRAM_MD5'         => '0.99',

##

##

#!/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.";
}