Re: [MacPerl] Net::SMTP not giving correct line breaks?

["Paul J. Schinder" <schinder@pjstoaster.pg.md.us>]

Christian Huldt <chr@solvare.se> writes:
}I'm trying to send e-mail using Net::SMTP with or without mailtools,
}without success. As i didn't even manage to access the errors (see below),

I just tried my standard test script:

#!/usr/local/bin/perl

use Net::SMTP;

open(LINES,"Macintosh HD:MacPerl_scripts:testsmtp.pl") or die "can't open
file"\
;
@lines = <LINES>;
unshift(@lines,"From: schinder\@leprss.gsfc.nasa.gov\n",
               "To: schinder\@leprss.gsfc.nasa.gov\n",
               "Subject: Testing\n","\n");
$me = `hostname`;chomp($me);
$mail = Net::SMTP->new("leprss.gsfc.nasa.gov",Debug => 1);
$mail->hello($me);
$mail->mail("schinder\@leprss.gsfc.nasa.gov");
$mail->to("schinder\@leprss.gsfc.nasa.gov");
$mail->data(@lines);
$mail->quit;

with the usual success.  Since my SMTP server, qmail, is very strict about
line endings (it will reject mail with the wrong endings), Net::SMTP must
be doing the right thing, at least for me.  Neither SMTP.pm or Cmd.pm, the
Net:: module that actually does the job of sending, needs to be modified
for MacPerl, so your problem might be elsewhere.  Note that the contents of
@lines *must* have proper Mac newlines at the end of each line.  This is
also true if you use datasend() and dataend(), or if you use the MailTools
front end, Mail::Internet.

With any of Graham Barr's modules, you can get detailed debugging
information simply by setting Debug => 1 in the call to new:

$mail = Net::SMTP->new("leprss.gsfc.nasa.gov",Debug => 1);

Try doing that and see what you get.

}I downloaded
}EIMS to see what happens and got the logging window full of complaints
}about the line endings being incorrect. Oh, the -w switch says "use of an
}uninitialized value" at line 477 of Config.pm, that is
}    $value =~ s/\\n/\n/g;		 # macintosh
}of sub FETCH

This is misleading.  It's telling you that $value is uninitialized in
:MacPerl Ä:lib:Config.pm.  This isn't a problem with Net::SMTP.

}
}I've just tried the examples with %ENV properly populated
}bigMacPerl given 5.5MB of RAM on a 68K
}
}Christian
}<http://www.solvare.se/individer/christian/>
}________________________________________________________
}Solvare - mathematics consulting & macintosh automation
}<mailto:info@solvare.se>         <http://www.solvare.se>
}
}

--------
Paul J. Schinder
NASA Goddard Space Flight Center
Code 693
Greenbelt, MD 20770
schinder@pjstoaster.pg.md.us


***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch