- Timestamp:
- Feb 18, 2008, 9:07:22 PM (16 years ago)
- 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:
- b70d24f
- Parents:
- 680ed23 (diff), 9d2f010 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent. - File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm
re0ffe77 r5f3168a 111 111 112 112 113 =head2 getSID 114 115 Returns the StreamID for this connection. 116 117 =cut 118 119 sub getStreamID { 120 my $self = shift; 121 return $self->{SESSION}->{id} || ""; 122 } 123 124 =head2 getSocket 125 126 Returns the IO::Socket for this connection. 127 128 =cut 129 130 sub getSocket { 131 my $self = shift; 132 my $sid = getStreamID($self); 133 return $self->{STREAM}->GetSock($sid) || -1; 134 } 135 136 =head2 OwlProcess 137 138 Non-blocking connection processing. For use in a select loop. 139 140 =cut 141 142 sub OwlProcess { 143 my $self = shift; 144 my $status = $self->Process(0); 145 if ( !defined($status) ) { 146 my $jid = $self->{SESSION}->{FULLJID}; 147 BarnOwl::error("Jabber account $jid disconnected!"); 148 BarnOwl::Module::Jabber::do_logout($jid); 149 } 150 } 151 113 152 =head1 SEE ALSO 114 153
Note: See TracChangeset
for help on using the changeset viewer.