Re: Bug#366173: libmail-spf-query-perl: spfquery fails with Bad arg length for Socket:$

>>>>> "Julian" == Julian Mehnle
>>>>> "Re: Bug#366173: libmail-spf-query-perl: spfquery fails with Bad arg 
>>>>> length for Socket:$"
>>>>>  Sun, 7 May 2006 13:46:16 +0000

    Julian> John A. Martin wrote:
    >> ,----[ perl -d /usr/bin/spfquery -i 199.184.165.135 -m jam@xxxxxxx -h 
gwyn.tux.org ]
    >> [...]
    >> Bad arg length for Socket::pack_sockaddr_in, length is 0, should be 4 at 
/usr/lib/perl/5.8/Socket.pm line 201.
    >> Â  Â  Â  Â  Socket::sockaddr_in(53, 'undef') called at 
/usr/lib/perl5/Net/DNS/Resolver/Base.pm line 626
    >> Â  Â  Â  Â  
Net::DNS::Resolver::Base::send_udp('Net::DNS::Resolver=HASH(0x877db04)', 
'Net::DNS::Packet=HASH(0x84b8504)', 
'X\'\x{1}\x{0}\x{0}\x{1}\x{0}\x{0}\x{0}\x{0}\x{0}\x{0}\x{3}tux\x{3}org\x{0}\x{0}\x{10}\x{0}\x{1}')
 called at /usr/lib/perl5/Net/DNS/Resolver/Base.pm line 449
    >> Â  Â  Â  Â  
Net::DNS::Resolver::Base::send('Net::DNS::Resolver=HASH(0x877db04)', 
'Net::DNS::Packet=HASH(0x84b8504)') called at 
/usr/lib/perl5/Net/DNS/Resolver/Base.pm line 431
    >> Â  Â  Â  Â  
Net::DNS::Resolver::Base::query('Net::DNS::Resolver=HASH(0x877db04)', 
'tux.org', 'TXT') called at /usr/share/perl5/Mail/SPF/Query.pm line 1233
    >> Â  Â  Â  Â  
Mail::SPF::Query::myquery('Mail::SPF::Query=HASH(0x8765e7c)', 'tux.org', 'TXT', 
'char_str_list') called at /usr/share/perl5/Mail/SPF/Query.pm line 1662
    >> Â  Â  Â  Â  DirectiveSet::new('DirectiveSet', 'tux.org', 
'Mail::SPF::Query=HASH(0x8765e7c)', 'undef', 'undef', 'undef') called at 
/usr/share/perl5/Mail/SPF/Query.pm line 892
    >> Â  Â  Â  Â  
Mail::SPF::Query::spfquery('Mail::SPF::Query=HASH(0x8765e7c)') called at 
/usr/share/perl5/Mail/SPF/Query.pm line 418
    >> Â  Â  Â  Â  Mail::SPF::Query::result('Mail::SPF::Query=HASH(0x8765e7c)') 
called at /usr/bin/spfquery line 457
    >> Â  Â  Â  Â  main::do_query() called at /usr/bin/spfquery line 391
    >> Debugged program terminated. Â Use q to quit or R to restart,
    >> Â  use O inhibit_exit to avoid stopping after program termination,
    >> Â  h q, h R or h O to get additional info.
    >> Â  DB<1> q
    >> `----

    Julian> I could not reproduce the problem in a Sarge chroot:

There were no funny characters in my boxquote. :)

    Julian> | [sarge] gray:~> dpkg -l libmail-spf-query-perl 
libnet-cidr-lite-perl libnet-dns-perl libsys-hostname-long-perl liburi-perl perl
    Julian> | Desired=Unknown/Install/Remove/Purge/Hold
    Julian> | | 
Status=Not/Installed/Config-files/Unpacked/Failed-config/Half-installed
    Julian> | |/ Err?=(none)/Hold/Reinst-required/X=both-problems (Status,Err: 
uppercase=bad)
    Julian> | ||/ Name                Version             Description
    Julian> | 
+++-===================-===================-======================================================
    Julian> | ii  libmail-spf-query-p 1.999.1-1           query SPF (Sender 
Policy Framework) to validate mail s
    Julian> | ii  libnet-cidr-lite-pe 0.15-1              Merge IPv4 or IPv6 
CIDR address ranges
    Julian> | ii  libnet-dns-perl     0.48-1              Perform DNS queries 
from a Perl script
    Julian> | ii  libsys-hostname-lon 1.2-1               Figure out the long 
(fully-qualified) hostname
    Julian> | ii  liburi-perl         1.35-1              Manipulates and 
accesses URI strings
    Julian> | ii  perl                5.8.4-8sarge4       Larry Wall's 
Practical Extraction and Report Language
    Julian> | [sarge] gray:~> spfquery -i 199.184.165.135 -m jam@xxxxxxx -h 
gwyn.tux.org
    Julian> | pass
    Julian> | Please see 
http://www.openspf.org/why.html?sender=jam%40tux.org&ip=199.184.165.135&receiver=spfquery:
 tux.org MX gwyn.tux.org A 199.184.165.135
    Julian> | spfquery: domain of jam@xxxxxxx designates 199.184.165.135 as 
permitted sender
    Julian> | Received-SPF: pass (spfquery: domain of jam@xxxxxxx designates 
199.184.165.135 as permitted sender) client-ip=199.184.165.135; 
envelope-from=jam@xxxxxxx; helo=gwyn.tux.org;

Same versions as my Sarge box.

    Julian> So I guess it must be a configuration problem on your
    Julian> machine.

    Julian> Please give me the output of...

    Julian>   perl -MNet::DNS -e 'print(map("$_\n",
    Julian>   Net::DNS::Resolver->new->nameservers))'

,----[ perl -MNet::DNS -e 'print(map("$_\n", 
Net::DNS::Resolver->new->nameservers))' ]
127.0.0.1
198.6.1.1,
198.6.1.142
`----

And, no surprise:

,----[ cat /etc/resolv.conf ]
# Dynamic resolv.conf(5) file for glibc resolver(3) generated by resolvconf(8)
#     DO NOT EDIT THIS FILE BY HAND -- YOUR CHANGES WILL BE OVERWRITTEN
nameserver 127.0.0.1
nameserver 198.6.1.1,
nameserver 198.6.1.142
search essential.org
`----
,----[ dig +sh @localhost. gwyn.tux.org. ]
199.184.165.135
`----

        jam

-------
To unsubscribe, change your address, or temporarily deactivate your 
subscription, 
please go to http://v2.listbox.com/member/?listname=spf-devel@xxxxxxxxxxxxxx

pgpXqREryopld.pgp
Description: PGP signature