- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Jabber/lib/BarnOwl/Module/Jabber.pm
rb73ce70 re979da9 70 70 $BarnOwl::Hooks::mainLoop->add("BarnOwl::Module::Jabber::onMainLoop"); 71 71 $BarnOwl::Hooks::getBuddyList->add("BarnOwl::Module::Jabber::onGetBuddyList"); 72 $BarnOwl::Hooks::getQuickstart->add("BarnOwl::Module::Jabber::onGetQuickstart");73 72 $vars{show} = ''; 74 73 BarnOwl::new_variable_bool("jabber:show_offline_buddies", … … 223 222 } 224 223 225 sub onGetQuickstart {226 return <<'EOF'227 @b(Jabber:)228 Type ':jabberlogin @b(username@mit.edu)' to log in to Jabber. The command229 ':jroster sub @b(somebody@gmail.com)' will request that they let you message230 them. Once you get a message saying you are subscribed, you can message231 them by typing ':jwrite @b(somebody@gmail.com)' or just 'j @b(somebody)'.232 EOF233 }234 235 224 ################################################################################ 236 225 ### Owl Commands … … 446 435 447 436 sub cmd_logout { 448 return "You are not logged into jabber." unless ($conn->connected() > 0);449 437 # Logged into multiple accounts 450 438 if ( $conn->connected() > 1 ) { … … 1124 1112 sub process_presence_subscribed { 1125 1113 my ( $sid, $p ) = @_; 1126 queue_admin_msg("ignoring:".$p->GetXML()) if BarnOwl::getvar('jabber:spew') eq 'on';1114 queue_admin_msg("ignoring:".$p->GetXML()); 1127 1115 # RFC 3921 says we should respond to this with a "subscribe" 1128 1116 # but this causes a flood of sub/sub'd presence packets with … … 1134 1122 sub process_presence_unsubscribed { 1135 1123 my ( $sid, $p ) = @_; 1136 queue_admin_msg("ignoring:".$p->GetXML()) if BarnOwl::getvar('jabber:spew') eq 'on';1124 queue_admin_msg("ignoring:".$p->GetXML()); 1137 1125 # RFC 3921 says we should respond to this with a "subscribe" 1138 1126 # but this causes a flood of unsub/unsub'd presence packets with
Note: See TracChangeset
for help on using the changeset viewer.