[libnet-xmpp-perl] 01/07: Add patch from upstream git to add DNS SRV support.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libnet-xmpp-perl.

commit 0992e32a8804916f99bd1789b291114197973b11
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Apr 11 22:20:11 2014 +0200

    Add patch from upstream git to add DNS SRV support.
    
    Closes: #325658
---
 debian/patches/dns-srv.patch | 73 ++++++++++++++++++++++++++++++++++++++++++++
 debian/patches/series        |  1 +
 2 files changed, 74 insertions(+)

diff --git a/debian/patches/dns-srv.patch b/debian/patches/dns-srv.patch
new file mode 100644
index 0000000..f2995d4
--- /dev/null
+++ b/debian/patches/dns-srv.patch
@@ -0,0 +1,73 @@
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=18539
+Bug-Debian: https://bugs.debian.org/325658
+Origin: https://github.com/dap/Net-XMPP/commit/a4abb36a222d4face4e2478e98e9457c03e05a14
+From a4abb36a222d4face4e2478e98e9457c03e05a14 Mon Sep 17 00:00:00 2001
+From: Darian Anthony Patrick <dap at darianpatrick.com>
+Date: Sat, 18 Sep 2010 18:30:41 -0400
+Subject: [PATCH] RT#37129, RT#18539 Support for virtual domains
+
+Support for virtual domains already exists to a certain extent
+in Net::XMPP::Connection and XML::Stream but is poorly documented
+and maybe slightly cumbersome. This adds an srv parameter to Connect()
+as well as documents the existing componentname parameter.
+---
+ lib/Net/XMPP/Client.pm     | 20 +++++++++++++++++---
+ lib/Net/XMPP/Connection.pm |  4 ++++
+ 2 files changed, 21 insertions(+), 3 deletions(-)
+
+diff --git a/lib/Net/XMPP/Client.pm b/lib/Net/XMPP/Client.pm
+index 8f33196..dc5c946 100644
+--- a/lib/Net/XMPP/Client.pm
++++ b/lib/Net/XMPP/Client.pm
+@@ -86,9 +86,9 @@ Net::XMPP::Client - XMPP Client Module
+             port=>integer,           listed in the hostname (default
+             timeout=>int             localhost), on the port (default
+             connectiontype=>string,  5222) listed, using the
+-            tls=>0|1)                connectiontype listed (default
+-                                     tcpip).  The two connection types
+-                                     available are:
++            tls=>0|1,                connectiontype listed (default
++            srv=>0|1,                tcpip).  The two connection types
++            componentname=>string)   available are:
+                                        tcpip  standard TCP socket
+                                        http   TCP socket, but with the
+                                               headers needed to talk
+@@ -97,6 +97,20 @@ Net::XMPP::Client - XMPP Client Module
+                                      will be used if it is available
+                                      as a feature.
+ 
++                                     If srv is specified AND Net::DNS is
++                                     installed and can be loaded, then
++                                     an SRV query is sent to srv.hostname
++                                     and the results processed to replace
++                                     the hostname and port.  If the lookup
++                                     fails, or Net::DNS cannot be loaded,
++                                     then hostname and port are left alone
++                                     as the defaults.
++                                     
++                                     Alternatively, you may manually specify
++                                     componentname as the domain portion of the
++                                     jid and leave hostname set to the actual
++                                     hostname of the XMPP server.
++
+     Execute(hostname=>string,       - Generic inner loop to handle
+             port=>int,                connecting to the server, calling
+             tls=>0|1,                 Process, and reconnecting if the
+diff --git a/lib/Net/XMPP/Connection.pm b/lib/Net/XMPP/Connection.pm
+index 134ee82..7d00a05 100644
+--- a/lib/Net/XMPP/Connection.pm
++++ b/lib/Net/XMPP/Connection.pm
+@@ -145,6 +145,10 @@ sub Connect
+                      (to => $self->{SERVER}->{componentname}) :
+                      ()
+                     ),
++                    (defined($self->{SERVER}->{srv}) ?
++                     (srv => '_xmpp-client._tcp') :
++                     ()
++                    ),
+                    );
+ 
+     if ($self->{SESSION})
+-- 
+1.9.1
+
diff --git a/debian/patches/series b/debian/patches/series
index 03089b6..580a523 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -2,3 +2,4 @@ disable_networking_tests.patch
 digest-sha.patch
 spelling.patch
 626897_check-definedness-of-hash-key-before-use.patch
+dns-srv.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-xmpp-perl.git