Your message dated Mon, 27 Nov 2006 20:47:03 +0000
with message-id <[EMAIL PROTECTED]>
and subject line Bug#400599: fixed in libnet-socks-perl 0.03-5
has caused the attached Bug report to be marked as done.

This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.

(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere.  Please contact me immediately.)

Debian bug tracking system administrator
(administrator, Debian Bugs database)

--- Begin Message ---

Package: libnet-socks-perl
Version: 0.03-4

In SOCKS.pm, the author wrote "#fixme - check to make sure peer_addr is dotted decimal or do name resolution on it first". I've fixed this with a small (hacky) patch (see attachment).

(The patch is needed, when using Net::SOCKS together with SpamAssassin.)

It would be nice if you could include this patch in the next Debian release and forward it to the upstream maintainer.

Feel free to contact me, if you need more info.


Cheers,

Chris

--- SOCKS.pm.ref        2006-11-27 15:15:04.000000000 +0100
+++ SOCKS.pm    2006-11-27 15:15:59.000000000 +0100
@@ -345,8 +345,22 @@
 
   if ($rc==SOCKS_OKAY) {
 
-#fixme - check to make sure peer_addr is dotted decimal or do name
-#        resolution on it first
+    # resolve name
+    unless (${*self}{peer_addr} =~ /^\d+\.\d+\.\d+\.\d+$/o) {
+      #die "peer_addr not an IP adress: ${*self}{peer_addr}\n";
+      #print STDERR "debug: peer_addr not an IP adress: ${*self}{peer_addr} -- 
resolving...\n";
+      my $res = Net::DNS::Resolver->new;
+      my $query = $res->search(${*self}{peer_addr});
+      my $ip;
+      if ($query) {
+        foreach my $rr ($query->answer) {
+          next unless $rr->type eq "A";
+          $ip = $rr->address;
+        }
+      }
+      $ip or die "cannot resolve name ${*self}{peer_addr}";
+      ${*self}{peer_addr} = $ip;
+    }
 
     # send the request
     print  { ${*self}{fh} } pack ('CCn', 4, $req_num, ${*self}{peer_port}) .

--- End Message ---
--- Begin Message ---
Source: libnet-socks-perl
Source-Version: 0.03-5

We believe that the bug you reported is fixed in the latest version of
libnet-socks-perl, which is due to be installed in the Debian FTP archive:

libnet-socks-perl_0.03-5.diff.gz
  to pool/main/libn/libnet-socks-perl/libnet-socks-perl_0.03-5.diff.gz
libnet-socks-perl_0.03-5.dsc
  to pool/main/libn/libnet-socks-perl/libnet-socks-perl_0.03-5.dsc
libnet-socks-perl_0.03-5_all.deb
  to pool/main/libn/libnet-socks-perl/libnet-socks-perl_0.03-5_all.deb



A summary of the changes between this version and the previous one is
attached.

Thank you for reporting the bug, which will now be closed.  If you
have further comments please address them to [EMAIL PROTECTED],
and the maintainer will reopen the bug report if appropriate.

Debian distribution maintenance software
pp.
Sebastien Delafond <[EMAIL PROTECTED]> (supplier of updated libnet-socks-perl 
package)

(This message was generated automatically at their request; if you
believe that there is a problem with it please contact the archive
administrators by mailing [EMAIL PROTECTED])


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

Format: 1.7
Date: Mon, 27 Nov 2006 12:33:19 -0800
Source: libnet-socks-perl
Binary: libnet-socks-perl
Architecture: source all
Version: 0.03-5
Distribution: unstable
Urgency: low
Maintainer: Sebastien Delafond <[EMAIL PROTECTED]>
Changed-By: Sebastien Delafond <[EMAIL PROTECTED]>
Description: 
 libnet-socks-perl - Perl module providing an API to communicate with SOCKS 
servers
Closes: 400599
Changes: 
 libnet-socks-perl (0.03-5) unstable; urgency=low
 .
    * Added patch by Christian Schwarz to resolve hostnames
      (Closes: #400599).
Files: 
 c7448a340179ca542f9ca61669775d55 632 perl optional libnet-socks-perl_0.03-5.dsc
 6b54e6016c0576b3c29024597c2bc285 4553 perl optional 
libnet-socks-perl_0.03-5.diff.gz
 fe7e108e48f32b69c7da5c3eb5b952ed 13854 perl optional 
libnet-socks-perl_0.03-5_all.deb

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.5 (GNU/Linux)

iD8DBQFFa0vliZgNKcDdyD8RAiTyAKC9lVT7UjkNsIvHNtYYVKsisSI6JgCfXKRF
4tBpSnio2j4Kk6o17fubmfg=
=nPv6
-----END PGP SIGNATURE-----


--- End Message ---

Reply via email to