SMTP authNet::SMTP>>> Net::SMTP(2.29) Net::SMTP>>> Net::Cmd(2.26) Net::SMTP>>> Exporter(5.58) Net::SMTP>>> IO::Socket::INET(1.29) Net::SMTP>>> IO::Socket(1.29) Net::SMTP>>> IO::Handle(1.25) Net::SMTP=GLOB(0x2a152d4)<<< 220 vinyl4.sentex.ca ESMTP Sendmail 8.14.5/8.14.5; Mon, 2 Jul 2012 14:48:57 -0400 (EDT) Net::SMTP=GLOB(0x2a152d4)>>> EHLO localhost.localdomain Net::SMTP=GLOB(0x2a152d4)<<< 250-vinyl4.sentex.ca Hello 50-56-96-131.static.cloud-ips.com [50.56.96.131], pleased to meet you Net::SMTP=GLOB(0x2a152d4)<<< 250-ENHANCEDSTATUSCODES Net::SMTP=GLOB(0x2a152d4)<<< 250-PIPELINING Net::SMTP=GLOB(0x2a152d4)<<< 250-8BITMIME Net::SMTP=GLOB(0x2a152d4)<<< 250-SIZE 30000000 Net::SMTP=GLOB(0x2a152d4)<<< 250-DSN Net::SMTP=GLOB(0x2a152d4)<<< 250-ETRN Net::SMTP=GLOB(0x2a152d4)<<< 250-AUTH PLAIN LOGIN DIGEST-MD5 Net::SMTP=GLOB(0x2a152d4)<<< 250-STARTTLS Net::SMTP=GLOB(0x2a152d4)<<< 250-DELIVERBY Net::SMTP=GLOB(0x2a152d4)<<< 250 HELP starting auth sending from [michael@thewhitings.ca] to [michael@thewhitings.ca]Net::SMTP=GLOB(0x2a152d4)>>> MAIL FROM: Net::SMTP=GLOB(0x2a152d4)<<< 250 2.1.0 ... Sender ok Net::SMTP=GLOB(0x2a152d4)>>> RCPT TO: Net::SMTP=GLOB(0x2a152d4)<<< 550 5.7.1 ... Relaying denied. Proper authentication required. Net::SMTP=GLOB(0x29dbba4)>>> DATA Net::SMTP=GLOB(0x29dbba4)<<< 503 5.0.0 Need RCPT (recipient) datasendNet::SMTP=GLOB(0x29dbba4)>>> test text Your Items Have Been Requested, Thank You ##

##

sub main {
  use Net::SMTP;
  $SMTPServer = 'localhost' unless (defined $SMTPServer);
  			
  BEGIN {
      $| = 1;
      require MIME::Base64;
      require Authen::SASL;
  }
  
  my $host = $SMTPServer;
  my $user = $mainlogin;
  my $pass = $mainpwd;
  
  my $NetSMTP = Net::SMTP->new(
             Host  => $host,
             Time  => 30,
             Debug => 1,                     
  );
  
  my $sasl;
  my $mechanisms =  ['AUTH', 500];
  print "starting auth
";
  die "Couldn't auth sasl login: $!" unless \&auth;
  
  $NetSMTP->mail($emailFrom);
  $NetSMTP->to($LibDef{$LibName}[1]);
  $NetSMTP->data();
  $NetSMTP->datasend('test text');
  close (MAIL);
  
  print "

$REQUESTPAGE_TEXT_THANKYOU";
}

sub auth {
    my $sasl = Authen::SASL->new(
        mechanism => $mechanisms,
        debug => 1, 
        callback => { 
            user => $user, 
            pass => $pass,
            authname => $user,
    );
}