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

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

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
> `----

I could not reproduce the problem in a Sarge chroot:

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

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

Please give me the output of...

  perl -MNet::DNS -e 'print(map("$_\n", Net::DNS::Resolver->new->nameservers))'
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.2.2 (GNU/Linux)

iD8DBQFEXfopwL7PKlBZWjsRAltiAKDACJApf/8zNmM41/5xFtu294uVWQCePK/Q
MK8lPokUaoctkmE/gYq3saQ=
=3uax
-----END PGP SIGNATURE-----

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