Ignore:
Timestamp:
Nov 2, 2006, 10:56:15 PM (15 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.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/XML/Stream.pm

    r0ff8d110 ra75309a  
    21142114    my $sasl = new Authen::SASL(mechanism=>join(" ",@{$mechanisms}),
    21152115                                callback=>{
    2116                                            authname => $username."@".$self->{SIDS}->{$sid}->{hostname},
    2117 
     2116#                                           authname => $username."@".$self->{SIDS}->{$sid}->{hostname},
    21182117                                           user     => $username,
    21192118                                           pass     => $password
     
    21212120                               );
    21222121
    2123     $self->{SIDS}->{$sid}->{sasl}->{client} = $sasl->client_new();
     2122    $self->{SIDS}->{$sid}->{sasl}->{client} = $sasl->client_new('xmpp', $self->{SIDS}->{$sid}->{hostname});
    21242123    $self->{SIDS}->{$sid}->{sasl}->{username} = $username;
    21252124    $self->{SIDS}->{$sid}->{sasl}->{password} = $password;
Note: See TracChangeset for help on using the changeset viewer.