- Timestamp:
- Feb 15, 2008, 12:56:49 AM (13 years ago)
- Branches:
- master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
- Children:
- 18a54ee
- Parents:
- a6a4155
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Module/Jabber/Connection.pm
r892568b r9c7a701 110 110 111 111 112 =head2 getSID 113 114 Returns the StreamID for this connection. 115 116 =cut 117 118 sub getStreamID { 119 my $self = shift; 120 return $self->{SESSION}->{id} || ""; 121 } 122 123 =head2 getSocket 124 125 Returns the IO::Socket for this connection. 126 127 =cut 128 129 sub getSocket { 130 my $self = shift; 131 my $sid = getStreamID($self); 132 return $self->{STREAM}->{SIDS}->{$sid}->{sock} || -1; 133 } 134 135 =head2 OwlProcess 136 137 Non-blocking connection processing. For use in a select loop. 138 139 =cut 140 141 sub OwlProcess { 142 my $self = shift; 143 my $status = $self->Process(0); 144 if ( !defined($status) ) { 145 my $jid = $self->{SESSION}->{FULLJID}; 146 BarnOwl::error("Jabber account $jid disconnected!"); 147 do_logout($jid); 148 } 149 } 150 112 151 =head1 SEE ALSO 113 152
Note: See TracChangeset
for help on using the changeset viewer.