Changeset a75309a


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

Legend:

Unmodified
Added
Removed
  • perl/lib/Net/XMPP/Roster.pm

    r0ff8d110 ra75309a  
    424424    my $iq = shift;
    425425
    426     print "handleIQ: iq(",$iq->GetXML(),")\n";
    427 
    428426    my $type = $iq->GetType();
    429427    return unless (($type eq "set") || ($type eq "result"));
     
    461459    my $self = shift;
    462460    my $presence = shift;
    463 
    464     print "handlePresence: presence(",$presence->GetXML(),")\n";
    465461
    466462    my $type = $presence->GetType();
  • 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.