Changeset a75309a for perl

Timestamp:

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

Author:

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

Branches:

master, barnowl_perlaim, debian, 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.

Location:

perl/lib

Files:

• Net/XMPP/Roster.pm (modified) (2 diffs)
• XML/Stream.pm (modified) (2 diffs)

perl/lib/Net/XMPP/Roster.pm

@@ -424 +424 @@
     my $iq = shift;
 
-    print "handleIQ: iq(",$iq->GetXML(),")\n";
-
     my $type = $iq->GetType();
     return unless (($type eq "set") || ($type eq "result"));
@@ -461 +459 @@
     my $self = shift;
     my $presence = shift;
-
-    print "handlePresence: presence(",$presence->GetXML(),")\n";
 
     my $type = $presence->GetType();

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;