Changeset a75309a for perl/lib/XML

Timestamp:

Nov 2, 2006, 10:56:15 PM (18 years ago)

Author:

Alejandro R. Sedeño <asedeno@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

b6a253c

Parents:

0ff8d110

Message:

Stream.pm: Proper call to SASL.
Roster.pm: Removing print statements.

File:

• perl/lib/XML/Stream.pm (modified) (2 diffs)

perl/lib/XML/Stream.pm

@@ -2114 +2114 @@
     my $sasl = new Authen::SASL(mechanism=>join(" ",@{$mechanisms}),
                                 callback=>{
-                                           authname => $username."@".$self->{SIDS}->{$sid}->{hostname},
-
+#                                           authname => $username."@".$self->{SIDS}->{$sid}->{hostname},
                                            user     => $username,
                                            pass     => $password
@@ -2121 +2120 @@
                                );
 
-    $self->{SIDS}->{$sid}->{sasl}->{client} = $sasl->client_new();
+    $self->{SIDS}->{$sid}->{sasl}->{client} = $sasl->client_new('xmpp', $self->{SIDS}->{$sid}->{hostname});
     $self->{SIDS}->{$sid}->{sasl}->{username} = $username;
     $self->{SIDS}->{$sid}->{sasl}->{password} = $password;