Bug#427071: NMU uploaded

[Andreas Barth]

Hi,

I uploaded an NMU of your package.

Please see this as help to get the package into a releaseable condition again.

Please find the used diff below.


Cheers,
Andi

diff -u libxml-stream-perl-1.22/debian/changelog 
libxml-stream-perl-1.22/debian/changelog
--- libxml-stream-perl-1.22/debian/changelog
+++ libxml-stream-perl-1.22/debian/changelog
@@ -1,3 +1,10 @@
+libxml-stream-perl (1.22-2.1) unstable; urgency=medium
+
+  * Non-maintainer upload.
+  * Fix GSSAPI SASL authentication. Closes: #427071
+
+ -- Andreas Barth <[EMAIL PROTECTED]>  Tue,  3 Jul 2007 20:24:26 +0000
+
 libxml-stream-perl (1.22-2) unstable; urgency=low
 
   * Fixes FTBFS. (Build) Dep on libauthen-sasl-perl (Closes: #276283)
only in patch2:
unchanged:
--- libxml-stream-perl-1.22.orig/lib/XML/Stream.pm
+++ libxml-stream-perl-1.22/lib/XML/Stream.pm
@@ -2057,7 +2057,12 @@
         $response = 
$self->{SIDS}->{$sid}->{sasl}->{client}->client_step($challenge);
     }
 
-    my $response64 = MIME::Base64::encode_base64($response,"");
+    my $response64 = "";
+    if (defined $response)
+    {
+        $response64 = MIME::Base64::encode_base64($response,"");
+    }
+
     $self->SASLResponse($sid,$response64);
 }
 
@@ -2107,6 +2112,8 @@
     my $username = shift;
     my $password = shift;
 
+    my $service = "xmpp";
+    my $hostname = $self->{SIDS}->{$sid}->{hostname};
     my $mechanisms = $self->GetStreamFeature($sid,"xmpp-sasl");
 
     return unless defined($mechanisms);
@@ -2120,7 +2127,7 @@
                                           }
                                );
 
-    $self->{SIDS}->{$sid}->{sasl}->{client} = $sasl->client_new();
+    $self->{SIDS}->{$sid}->{sasl}->{client} = $sasl->client_new($service, 
$hostname);
     $self->{SIDS}->{$sid}->{sasl}->{username} = $username;
     $self->{SIDS}->{$sid}->{sasl}->{password} = $password;
     $self->{SIDS}->{$sid}->{sasl}->{authed} = 0;
-- 
  http://home.arcor.de/andreas-barth/


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]