Changeset 7869e48 for perl/modules/Jabber/lib/Net/XMPP/Connection.pm
- Timestamp:
- Jan 12, 2013, 1:43:13 PM (11 years ago)
- Children:
- e3a0d71, 4485285
- Parents:
- 4626016
- git-author:
- Jason Gross <jgross@mit.edu> (01/12/13 13:13:18)
- git-committer:
- Jason Gross <jgross@mit.edu> (01/12/13 13:43:13)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/Net/XMPP/Connection.pm
r3bf5516 r7869e48 59 59 60 60 bless($self, $proto); 61 61 62 62 $self->init(@_); 63 63 64 64 $self->{SERVER}->{namespace} = "unknown"; 65 65 … … 76 76 { 77 77 my $self = shift; 78 78 79 79 $self->{ARGS} = {}; 80 80 while($#_ >= 0) { $self->{ARGS}->{ lc(pop(@_)) } = pop(@_); } … … 103 103 debugtime => $self->{DEBUG}->GetTime(), 104 104 ); 105 105 106 106 $self->{RCVDB}->{currentID} = 0; 107 107 … … 132 132 $self->{DEBUG}->Log1("Connect: host($self->{SERVER}->{hostname}:$self->{SERVER}->{port}) namespace($self->{SERVER}->{namespace})"); 133 133 $self->{DEBUG}->Log1("Connect: timeout($self->{SERVER}->{timeout})"); 134 134 135 135 delete($self->{SESSION}); 136 136 $self->{SESSION} = … … 210 210 $self->{STREAM}->Disconnect($self->{SESSION}->{id}) 211 211 if ($self->{CONNECTED} == 1); 212 $self->{STREAM}->SetCallBacks(node=>undef); 212 $self->{STREAM}->SetCallBacks(node=>undef); 213 213 $self->{CONNECTED} = 0; 214 214 $self->{DISCONNECTED} = 1; … … 270 270 &{$self->{CB}->{onauthfail}}() 271 271 if exists($self->{CB}->{onauthfail}); 272 272 273 273 if (!$self->{SERVER}->{allow_register} || $args{register} == 0) 274 274 { … … 288 288 &{$self->{CB}->{onregisterfail}}() 289 289 if exists($self->{CB}->{onregisterfail}); 290 290 291 291 $self->Disconnect(); 292 292 &{$self->{CB}->{ondisconnect}}() … … 306 306 if exists($self->{CB}->{onauth}); 307 307 } 308 308 309 309 while($self->Connected()) 310 310 {
Note: See TracChangeset
for help on using the changeset viewer.