HP3000 Folks;
I have taken an example perl script which connects via POP3 to a Sendmail
mailbox and strips attachments to /tmp. The POP3 part works fine by itself.
It appears I'm failing on the MboxParser of attachments.
Here is the perl version, source code, and the resulting errors. What is
**** Illegal data address (TRAPS 65). message indicating? Should I be at a
perl 5.8.x?
Mark Bixby are you there???
Thanks
Joe
****************************************************************************
****************************
SITE150 MGR.WWW /WWW/JOE/perl/perl_test>perl -V
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
Platform:
osname=mpeix, osvers=6.0, archname=PA-RISC1.1
uname='mpeix nomad c.60.00 c.16.01 series 957 '
config_args='-de'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=undef usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
Compiler:
cc='gcc', ccflags
='-DMPE -D_POSIX_SOURCE -D_SOCKET_SOURCE -D_POSIX_JOB_CONTROL -DIS_SOCKET_CL
IB_ITSELF -fno-strict-aliasing -I/
usr/local/include -I/usr/contrib/include -I/BINDFW/CURRENT/include -I/SYSLOG
/PUB',
optimize='-O2',
cppflags='-DMPE -D_POSIX_SOURCE -D_SOCKET_SOURCE -D_POSIX_JOB_CONTROL -DIS_S
OCKET_CLIB_ITSELF -fno-strict-aliasing -I/usr/local/
include -I/usr/contrib/include -I/BINDFW/CURRENT/include -I/SYSLOG/PUB'
ccversion='', gccversion='2.95.2 19991024 (release)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t',
lseeksize=4
alignbytes=8, usemymalloc=y, prototype=define
Linker and Libraries:
ld='ld', ldflags
=' -L/usr/local/lib -L/usr/contrib/lib -L/BINDFW/CURRENT/lib -L/SYSLOG/PUB'
libpth=/usr/local/lib /usr/contrib/lib /BINDFW/CURRENT/lib /SYSLOG/PUB /lib
/usr/lib
libs=-lbind -lsyslog -lcurses -lsvipc -lsocket -lstr -lm -lc
perllibs=-lbind -lsyslog -lcurses -lsvipc -lsocket -lstr -lm -lc
libc=/lib/libc.sl, so=sl, useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_mpeix.xs, dlext=sl, d_dlsymun=undef, ccdlflags=' '
cccdlflags=' ',
lddlflags='-b -L/usr/local/lib -L/usr/contrib/lib -L/BINDFW/CURRENT/lib -L/S
YSLOG/PUB'
Characteristics of this binary (from libperl):
Compile-time options:
Built under mpeix
Compiled at Jul 26 2001 08:26:02
@INC:
/PERL/PUB/lib/perl5/5.6.1/PA-RISC1.1
/PERL/PUB/lib/perl5/5.6.1
/PERL/PUB/lib/perl5/site_perl/5.6.1/PA-RISC1.1
/PERL/PUB/lib/perl5/site_perl/5.6.1
/PERL/PUB/lib/perl5/site_perl/5.6.0/PA-RISC1.1
/PERL/PUB/lib/perl5/site_perl/5.6.0
/PERL/PUB/lib/perl5/site_perl
.
****************************************************************************
****************************
#!/usr/local/bin/perl -w
use Mail::POP3Client ;
use Mail::MboxParser::Mail ;
my $pop = new Mail::POP3Client (
USER => 'MGR.ACCOUNT',
PASSWORD => 'PASSWORD' ,
HOST => 'hp3000.boeing.com',
PORT => 110 ) ;
my $num = $pop->Count;
print "you have:$num messages\n" ;
for my $i (1 .. $pop->Count) {
my $msg = Mail::MboxParser::Mail->new( [ $pop->Head($i) ],
[ $pop->Body($i) ] );
$msg->store_all_attachments( path => '/tmp' );
}
****************************************************************************
****************************
SITE150 MGR.WWW /WWW/JOE/perl/perl_test>mailx
mailx version MPE/iX Shell and Utilities (A.01.01) May 9 1997 05:04:05 Type
? for help.
"/usr/mail/MGR.WWW": 1 message
> 1 [log in to unmask] Tue May 18 13:05 666/47125 vacation.xls
? q
Held 1 message in "/usr/mail/MGR.WWW"
SITE150 MGR.WWW /WWW/JOE/perl/perl_test>mail_mboxparser_pop31.pl
you have:1 messages
**** Illegal data address (TRAPS 65).
ABORT: PERL.PUB.PERL
NM PROG 625.000997b4 Perl_sv_unref+$64
[1] + Done(139) mail_mboxparser_pop31.pl
7930091 Segmentation violation mail_mboxparser_pop31.pl
SITE150 MGR.WWW /WWW/JOE/perl/perl_test>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|