Re: [Koha] Configuring smtp mail server to work with Koha

6 Dec 2017

      Javed,

(Please reply to my message rather than starting a new thread.)

Could you please repeat this, but with a somewhat different sequence of 
commands?

    c C4::Letters::SendQueuedMessages
    c sendmail
    x \%mailcfg
    $mailcfg{'debug'} = 2
    r

Then post all of the output to the list.

Paul.

On Wed, Dec 06, 2017 at 11:47:18PM +0500, Javed Sahil wrote:
...
Hi Paul,
here are your required results.
-- javed@iolhost:~$ koha-shell library
[sudo] password for javed:
library-koha@iolhost:~$ cd /usr/share/koha/bin/cronjobs
library-koha@iolhost:/usr/share/koha/bin/cronjobs$ perl -d
process_message_queue.pl
Loading DB routines from perl5db.pl version 1.49
Editor support available.
Enter h or 'h h' for help, or 'man perldebug' for more help.
main::(process_message_queue.pl:32):
32:    my $username = undef;
  DB<1> c C4::Letters::sendqueuedmessages
Subroutine C4::Letters::sendqueuedmessages not found.
  DB<2> c C4::Letters::SendQueuedMessages
C4::Letters::SendQueuedMessages(/usr/share/koha/lib/C4/Letters.pm:1032):
1032:        my $params = shift;
  DB<3> c sendmail
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:170):
170:        $error = '';
  DB<4> t
Trace = on
  DB<4> r
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:171):
171:        $log = "Mail::Sendmail v. $VERSION - "    . scalar(localtime())
. "\n";
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:173):
173:        my $CRLF = "\015\012";
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:174):
174:        local $/ = $CRLF;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:175):
175:        local $\ = ''; # to protect us from outside settings
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:176):
176:        local $_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:178):
178:        my (%mail, $k,
179:            $smtp, $server, $port, $connected, $localhost,
180:            $fromaddr, $recip, @recipients, $to, $header,
181:            %esmtp, @wanted_methods,
182:           );
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:232):
232:        foreach $k (keys %mailcfg) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:233):
233:            if ($k =~ /[A-Z]/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:233):
233:            if ($k =~ /[A-Z]/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:233):
233:            if ($k =~ /[A-Z]/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:233):
233:            if ($k =~ /[A-Z]/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:233):
233:            if ($k =~ /[A-Z]/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:233):
233:            if ($k =~ /[A-Z]/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:233):
233:            if ($k =~ /[A-Z]/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:233):
233:            if ($k =~ /[A-Z]/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:239):
239:        while (@_) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:240):
240:            $k = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:241):
241:            if (!$k and $^W) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:246):
246:            $k = ucfirst lc($k);
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:248):
248:            $k =~ s/\s*:\s*$//o; # kill colon (and possible spaces) at
end, we add it later.
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:252):
252:            $mail{$k} = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:253):
253:            if ($k !~ /^(Message|Body|Text)$/i) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:255):
255:                $mail{$k} =~ s/\015\012?/\012/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:256):
256:                $mail{$k} =~ s/\012/$CRLF/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:240):
240:            $k = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:241):
241:            if (!$k and $^W) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:246):
246:            $k = ucfirst lc($k);
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:248):
248:            $k =~ s/\s*:\s*$//o; # kill colon (and possible spaces) at
end, we add it later.
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:252):
252:            $mail{$k} = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:253):
253:            if ($k !~ /^(Message|Body|Text)$/i) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:255):
255:                $mail{$k} =~ s/\015\012?/\012/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:256):
256:                $mail{$k} =~ s/\012/$CRLF/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:240):
240:            $k = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:241):
241:            if (!$k and $^W) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:246):
246:            $k = ucfirst lc($k);
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:248):
248:            $k =~ s/\s*:\s*$//o; # kill colon (and possible spaces) at
end, we add it later.
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:252):
252:            $mail{$k} = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:253):
253:            if ($k !~ /^(Message|Body|Text)$/i) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:255):
255:                $mail{$k} =~ s/\015\012?/\012/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:256):
256:                $mail{$k} =~ s/\012/$CRLF/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:240):
240:            $k = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:241):
241:            if (!$k and $^W) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:246):
246:            $k = ucfirst lc($k);
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:248):
248:            $k =~ s/\s*:\s*$//o; # kill colon (and possible spaces) at
end, we add it later.
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:252):
252:            $mail{$k} = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:253):
253:            if ($k !~ /^(Message|Body|Text)$/i) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:240):
240:            $k = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:241):
241:            if (!$k and $^W) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:246):
246:            $k = ucfirst lc($k);
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:248):
248:            $k =~ s/\s*:\s*$//o; # kill colon (and possible spaces) at
end, we add it later.
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:252):
252:            $mail{$k} = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:253):
253:            if ($k !~ /^(Message|Body|Text)$/i) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:255):
255:                $mail{$k} =~ s/\015\012?/\012/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:256):
256:                $mail{$k} =~ s/\012/$CRLF/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:240):
240:            $k = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:241):
241:            if (!$k and $^W) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:246):
246:            $k = ucfirst lc($k);
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:248):
248:            $k =~ s/\s*:\s*$//o; # kill colon (and possible spaces) at
end, we add it later.
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:252):
252:            $mail{$k} = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:253):
253:            if ($k !~ /^(Message|Body|Text)$/i) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:255):
255:                $mail{$k} =~ s/\015\012?/\012/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:256):
256:                $mail{$k} =~ s/\012/$CRLF/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:240):
240:            $k = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:241):
241:            if (!$k and $^W) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:246):
246:            $k = ucfirst lc($k);
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:248):
248:            $k =~ s/\s*:\s*$//o; # kill colon (and possible spaces) at
end, we add it later.
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:251):
251:            $k =~ s/-(.)/"-" . uc($1)/ge;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:252):
252:            $mail{$k} = shift @_;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:253):
253:            if ($k !~ /^(Message|Body|Text)$/i) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:255):
255:                $mail{$k} =~ s/\015\012?/\012/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:256):
256:                $mail{$k} =~ s/\012/$CRLF/go;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:260):
260:        $smtp = $mail{'Smtp'} || $mail{'Server'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:261):
261:        unshift @{$mailcfg{'smtp'}}, $smtp if ($smtp and
$mailcfg{'smtp'}->[0] ne $smtp);
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:267):
267:        delete $mail{'Smtp'}; delete $mail{'Server'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:267):
267:        delete $mail{'Smtp'}; delete $mail{'Server'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:269):
269:        $mailcfg{'port'} = $mail{'Port'} || $mailcfg{'port'} || 25;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:270):
270:        delete $mail{'Port'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:272):
272:        my $auth = $mail{'Auth'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:273):
273:        delete $mail{'Auth'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:277):
277:            local $^W = 0;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:277):
277:            local $^W = 0;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:278):
278:            $mail{'Message'} = join("", $mail{'Message'},
$mail{'Body'}, $mail{'Text'});
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:282):
282:        delete $mail{'Body'}; delete $mail{'Text'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:282):
282:        delete $mail{'Body'}; delete $mail{'Text'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:286):
286:        $fromaddr = $mail{'Sender'} || $mail{'From'} ||
$mailcfg{'from'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:288):
288:        unless ($fromaddr =~ /$address_rx/) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:291):
291:        $fromaddr = $1;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:294):
294:        $mail{Date} ||= time_to_date() ;
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:143):
143:        my $time = $_[0] || time(); # default to now if no argument
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:145):
145:        my @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov
Dec);
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:146):
146:        my @wdays  = qw(Sun Mon Tue Wed Thu Fri Sat);
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:148):
148:        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
149:            = localtime($time);
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:151):
151:        my $TZ = $mailcfg{'tz'};
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:152):
152:        if ( $TZ eq "" ) {
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:154):
154:            my $offset  = sprintf "%.1f", (timegm(localtime) - time) /
3600;
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:98):
98:        my ( $sec, $min, $hour, $mday, $month, $year ) = @_;
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:100):
100:        if ( $year >= 1000 ) {
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:107):
107:        unless ( $Options{no_range_check} ) {
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:108):
108:            croak "Month '$month' out of range 0..11"
109:                if $month > 11
110:                or $month < 0;
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:112):
112:        my $md = $MonthDays[$month];
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:113):
113:            ++$md
114:                if $month == 1 && _is_leap_year( $year + 1900 );
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:116):
116:            croak "Day '$mday' out of range 1..$md"  if $mday > $md or
$mday < 1;
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:117):
117:            croak "Hour '$hour' out of range 0..23"  if $hour > 23  or
$hour < 0;
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:118):
118:            croak "Minute '$min' out of range 0..59" if $min > 59   or
$min < 0;
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:119):
119:            croak "Second '$sec' out of range 0..59" if $sec >= 60  or
$sec < 0;
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:122):
122:        my $days = _daygm( undef, undef, undef, $mday, $month, $year );
Time::Local::_daygm(/usr/share/perl/5.22/Time/Local.pm:75):
75:            $Cheat{ pack( 'ss', @_[ 4, 5 ] ) } ||= do {
Time::Local::_daygm(/usr/share/perl/5.22/Time/Local.pm:76):
76:                my $month = ( $_[4] + 10 ) % 12;
Time::Local::_daygm(/usr/share/perl/5.22/Time/Local.pm:77):
77:                my $year  = $_[5] + 1900 - int($month / 10);
Time::Local::_daygm(/usr/share/perl/5.22/Time/Local.pm:79):
79:                ( ( 365 * $year )
80:                  + int( $year / 4 )
81:                  - int( $year / 100 )
82:                  + int( $year / 400 )
83:                  + int( ( ( $month * 306 ) + 5 ) / 10 )
84:                )
85:                - $Epoc;
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:124):
124:        unless ($Options{no_range_check} or abs($days) < $MaxDay) {
Time::Local::timegm(/usr/share/perl/5.22/Time/Local.pm:134):
134:        return $sec
135:               + $SecOff
136:               + ( SECS_PER_MINUTE * $min )
137:               + ( SECS_PER_HOUR * $hour )
138:               + ( SECS_PER_DAY * $days );
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:155):
155:            my $minutes = sprintf "%02d", abs( $offset - int($offset) )
* 60;
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:156):
156:            $TZ  = sprintf("%+03d", int($offset)) . $minutes;
Mail::Sendmail::time_to_date(/usr/share/perl5/Mail/Sendmail.pm:158):
158:        return join(" ",
159:                        ($wdays[$wday] . ','),
160:                         $mday,
161:                         $months[$mon],
162:                         $year+1900,
163:                         sprintf("%02d:%02d:%02d", $hour, $min, $sec),
164:                         $TZ
165:                   );
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:295):
295:        $log .= "Date: $mail{Date}\n";
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:298):
298:        $mail{'Message'} =~ s/\r\n/\n/go;     # normalize line endings,
step 1 of 2 (next step after MIME encoding)
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:300):
300:        $mail{'Mime-Version'} ||= '1.0';
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:301):
301:        $mail{'Content-Type'} ||= 'text/plain; charset="iso-8859-1"';
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:303):
303:        unless ( $mail{'Content-Transfer-Encoding'}
304:              || $mail{'Content-Type'} =~ /multipart/io )
305:        {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:306):
306:            if ($mailcfg{'mime'}) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:307):
307:                $mail{'Content-Transfer-Encoding'} = 'quoted-printable';
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:308):
308:                $mail{'Message'} = encode_qp($mail{'Message'});
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:321):
321:        $mail{'Message'} =~ s/^\./\.\./gom;     # handle . as first
character
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:322):
322:        $mail{'Message'} =~ s/\n/$CRLF/go; # normalize line endings,
step 2.
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:326):
326:            local $^W = 0;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:326):
326:            local $^W = 0;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:327):
327:            $recip = join(", ", $mail{To}, $mail{Cc}, $mail{Bcc});
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:330):
330:        delete $mail{'Bcc'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:332):
332:        @recipients = ();
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:333):
333:        while ($recip =~ /$address_rx/go) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:334):
334:            push @recipients, $1;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:336):
336:        unless (@recipients) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:341):
341:        $localhost = hostname_long() || hostname() || 'localhost';
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:161):
161:        return $hostlong if defined $hostlong;     # Cached copy (takes
a while to lookup sometimes)
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:162):
162:        my ($ip, $debug) = @_;
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:164):
164:        $hostlong = dispatcher('uname');
Sys::Hostname::Long::dispatcher(/usr/share/perl5/Sys/Hostname/Long.pm:143):
143:        my ($method, @rest) = @_;
Sys::Hostname::Long::dispatcher(/usr/share/perl5/Sys/Hostname/Long.pm:144):
144:        $lastdispatch = $method;
Sys::Hostname::Long::dispatcher(/usr/share/perl5/Sys/Hostname/Long.pm:145):
145:        return $dispatch{$method}{exec}(@rest);
Sys::Hostname::Long::CODE(0x1dd7a50)(/usr/share/perl5/Sys/Hostname/Long.pm:51):
51:                return eval {
Sys::Hostname::Long::CODE(0x1dd7a50)(/usr/share/perl5/Sys/Hostname/Long.pm:52):
52:                    local $SIG{__DIE__};
Sys::Hostname::Long::CODE(0x1dd7a50)(/usr/share/perl5/Sys/Hostname/Long.pm:53):
53:                    require POSIX;
Sys::Hostname::Long::CODE(0x1dd7a50)(/usr/share/perl5/Sys/Hostname/Long.pm:54):
54:                    (POSIX::uname())[1];
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:166):
166:        unless ($hostlong =~ m|.*\..*|) {
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:167):
167:            if ($^O eq 'MacOS') {
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:193):
193:                $hostlong = dispatcher('exec_hostname_fqdn');
Sys::Hostname::Long::dispatcher(/usr/share/perl5/Sys/Hostname/Long.pm:143):
143:        my ($method, @rest) = @_;
Sys::Hostname::Long::dispatcher(/usr/share/perl5/Sys/Hostname/Long.pm:144):
144:        $lastdispatch = $method;
Sys::Hostname::Long::dispatcher(/usr/share/perl5/Sys/Hostname/Long.pm:145):
145:        return $dispatch{$method}{exec}(@rest);
Sys::Hostname::Long::CODE(0x1de1810)(/usr/share/perl5/Sys/Hostname/Long.pm:77):
77:                my $tmp;
Sys::Hostname::Long::CODE(0x1de1810)(/usr/share/perl5/Sys/Hostname/Long.pm:78):
78:                if ( $^O ne 'darwin' ) {
Sys::Hostname::Long::CODE(0x1de1810)(/usr/share/perl5/Sys/Hostname/Long.pm:79):
79:                    if ($< == 0) {
Sys::Hostname::Long::CODE(0x1de1810)(/usr/share/perl5/Sys/Hostname/Long.pm:82):
82:                        $tmp = `hostname --fqdn`;
Sys::Hostname::Long::CODE(0x1de1810)(/usr/share/perl5/Sys/Hostname/Long.pm:84):
84:                    $tmp =~ tr/\0\r\n//d;
Sys::Hostname::Long::CODE(0x1de1810)(/usr/share/perl5/Sys/Hostname/Long.pm:86):
86:                return $tmp;
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:196):
196:            if (!defined($hostlong) || $hostlong eq "") {
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:202):
202:            if ($ip && !defined($hostlong) || $hostlong eq "") {
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:206):
206:        warn "Sys::Hostname::Long - Last Dispatch method =
$lastdispatch" if ($debug);
Sys::Hostname::Long::hostname_long(/usr/share/perl5/Sys/Hostname/Long.pm:207):
207:        return $hostlong;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:343):
343:        foreach $server ( @{$mailcfg{'smtp'}} ) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:343):
343:        foreach $server ( @{$mailcfg{'smtp'}} ) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:346):
346:            unless ( socket S, AF_INET, SOCK_STREAM,
scalar(getprotobyname 'tcp') ) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:350):
350:            print "- trying $server\n" if $mailcfg{'debug'} > 1;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:352):
352:            $server =~ s/\s+//go; # remove spaces just in case of a typo
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:354):
354:            $port = ($server =~ s/:(\d+)$//o) ? $1 : $mailcfg{'port'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:355):
355:            $smtp = $server; # save $server for use outside foreach loop
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:357):
357:            my $smtpaddr = inet_aton $server;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:358):
358:            unless ($smtpaddr) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:363):
363:            my $retried = 0; # reset retries for each server
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:364):
364:            while ( ( not $connected = connect S,
pack_sockaddr_in($port, $smtpaddr) )
365:                and ( $retried < $mailcfg{'retries'} )
366:                  ) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:367):
367:                $retried++;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:368):
368:                $error .= "connect to $server failed ($!)\n";
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:369):
369:                print "- connect to $server failed ($!)\n" if
$mailcfg{'debug'} > 1;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:370):
370:                print "retrying in $mailcfg{'delay'} seconds...\n" if
$mailcfg{'debug'} > 1;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:371):
371:                sleep $mailcfg{'delay'};
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:374):
374:            if ( $connected ) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:379):
379:                $error .= "connect to $server failed\n";
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:380):
380:                print "- connect to $server failed, next server...\n"
if $mailcfg{'debug'} > 1;
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:381):
381:                next; # next server
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:385):
385:        unless ( $connected ) {
Mail::Sendmail::sendmail(/usr/share/perl5/Mail/Sendmail.pm:386):
386:            return fail("connect to $smtp failed ($!) no (more)
retries!")
Mail::Sendmail::fail(/usr/share/perl5/Mail/Sendmail.pm:187):
187:            $error .= join(" ", @_) . "\n";
Mail::Sendmail::fail(/usr/share/perl5/Mail/Sendmail.pm:188):
188:            if ($server_reply) {
Mail::Sendmail::fail(/usr/share/perl5/Mail/Sendmail.pm:192):
192:            close S;
Mail::Sendmail::fail(/usr/share/perl5/Mail/Sendmail.pm:193):
193:            return 0;
scalar context return from Mail::Sendmail::sendmail: 0
C4::Letters::_send_message_by_email(/usr/share/koha/lib/C4/Letters.pm:1349):
1349:            _set_message_status( { message_id =>
$message->{'message_id'},
1350:                    status     => 'failed' } );
  DB<4>
Regards,
Javed Shoukat
Management Trainee Officer (MTO)
Lahore University of
Management Sciences (LUMS),
Lahore.
Contact #: +92 300 6548748 <+92%20300%206548748>
Email: javedshoukat900@gmail.com
-- 
Paul Hoffman <paul@flo.org>
Software Manager
Fenway Library Organization
550 Huntington Ave.
Boston, MA 02115
(617) 442-2384 (FLO main number)

Paul Hoffman

tags

participants (1)