Hello.

Support of DNS SRV records still is not added to package 'libnet-xmpp-perl' and 
this bug is pretty annoying.
Upstream will not fix it. Please, fix it, here is two simple patches, solution 
was found here:
https://rt.cpan.org/Public/Bug/Display.html?id=18539#txn-249050

Thank you.
Description: adds support of DNS SRV records resolving
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=18539
Forwarded: no
Author: Thomas <[email protected]>
Last-Update: 2014-04-11

--- a/lib/Net/XMPP/Connection.pm
+++ b/lib/Net/XMPP/Connection.pm
@@ -141,6 +141,8 @@
                     connectiontype => $self->{SERVER}->{connectiontype},
                     timeout        => $self->{SERVER}->{timeout},
                     ssl            => $self->{SERVER}->{ssl}, #LEGACY
+                    srv            => '_xmpp-client._tcp',
+                    to             => $self->{SERVER}->{hostname},
                     (defined($self->{SERVER}->{componentname}) ?
                      (to => $self->{SERVER}->{componentname}) :
                      ()
--- a/debian/control	2014-04-11 22:04:39.462692776 +0400
+++ b/debian/control	2014-04-11 00:18:23.657144946 +0400
@@ -6,7 +6,8 @@
 Build-Depends: debhelper (>= 8)
 Build-Depends-Indep: perl,
  libxml-stream-perl,
- libauthen-sasl-perl
+ libauthen-sasl-perl,
+ libnet-dns-perl
 Standards-Version: 3.9.2
 Homepage: http://search.cpan.org/dist/Net-XMPP/
 Vcs-Git: git://git.debian.org/pkg-perl/packages/libnet-xmpp-perl.git
@@ -16,7 +17,8 @@
 Architecture: all
 Depends: ${misc:Depends}, ${perl:Depends},
  libxml-stream-perl,
- libauthen-sasl-perl
+ libauthen-sasl-perl,
+ libnet-dns-perl
 Description: XMPP Perl library
  Net::XMPP is a convenient tool to use for any perl script that would like to
  utilize the XMPP Instant Messaging protocol.  While not a client in and of

Reply via email to