Permalink
Browse files

*send a get on roster to finish initialization with xmpp-server

  • Loading branch information...
1 parent dd77d22 commit ed6bccdee2be2d4d5b7d72f95a304ff4619f6d3c @hannesm hannesm committed Jun 8, 2006
Showing with 1 addition and 0 deletions.
  1. +1 −0 xmpp-bot.dylan
View
@@ -37,6 +37,7 @@ define method initialize (xmpp-bot :: <xmpp-bot>,
end if;
authenticate(xmpp-bot.client, xmpp-bot.password, #f);
send(xmpp-bot.client, make(<presence>, priority: 23));
+ send(xmpp-bot.client, make(<iq>, type: #"get", query: with-xml() query(xmlns => "jabber:iq:roster") end, id: "roster"));
end;
define method auto-subscriber (xmpp-bot, client, presence)

0 comments on commit ed6bccd

Please sign in to comment.