DEBUG — enable Interchange debugging
Interchange 5.7.0:
Source: lib/Vend/Util.pm (rev. 2.120 from Sat Sep 27 00:01:21 2008)
Line 2017 (context shows lines 2007-2021 in send_mail():1899)
last SMTP unless $none and $mhost;
eval {
require Net::SMTP;
};
last SMTP if $@;
$ok = 0;
$using = "Net::SMTP (mail server $mhost)";
#::logDebug("using $using");
undef $none;
my $smtp = Net::SMTP->new($mhost, Debug => $Global::Variable->{DEBUG}, \
Hello => $helo) or last SMTP;
#::logDebug("smtp object $smtp");
my $from = $::Variable->{MV_MAILFROM}
|| $Global::Variable->{MV_MAILFROM}
Source: lib/Vend/Email.pm (rev. 1.11 from Sat Dec 29 06:03:43 2007)
Line 679 (context shows lines 669-683 in send_mail_legacy():561)
last SMTP unless $none and $mhost;
eval {
require Net::SMTP;
};
last SMTP if $@;
$ok = 0;
$using = "Net::SMTP (mail server $mhost)";
#::logDebug("using $using");
undef $none;
my $smtp = Net::SMTP->new($mhost, Debug => $Global::Variable->{DEBUG}, Hello => $helo);
#::logDebug("smtp object $smtp");
my $from = $::Variable->{MV_MAILFROM}
|| $Global::Variable->{MV_MAILFROM}