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]
