@@ -7,7 +7,8 @@ $:.unshift '../../../../../lib' require 'optparse' require 'xmpp4r/client' -require 'xmpp4r/version/iq/version' +require 'xmpp4r/version' +require 'xmpp4r/discovery' include Jabber #Jabber::debug = true @@ -15,6 +16,7 @@ include Jabber jid = JID.new('bot@localhost/Bot') password = 'bot' domains = [] +domains_ejabberd = [] OptionParser.new do |opts| opts.banner = 'Usage: versionpoll.rb -j jid -p password -d DOMAINS' opts.separator '' @@ -48,6 +50,18 @@ cl.add_iq_callback do |i| cl.send(Iq.new_browseget.set_to(j)) end end + elsif i.type == :result and i.query.kind_of? Discovery::IqQueryDiscoItems + i.query.items.each do |e| + j = e.jid + if not queried.include?(j) + activity = true + queried << j + iq = Iq.new(:get) + iq.query = Version::IqQueryVersion.new + iq.set_to(j) + cl.send(iq) + end + end end end @@ -80,6 +94,11 @@ cl.send(Presence.new) for d in domains do cl.send(Iq.new_browseget.set_to("#{d}/admin")) end +for d in domains_ejabberd do + iq = Iq.new(:get, d) + iq.add(Discovery::IqQueryDiscoItems.new).node = 'online users' + cl.send(iq) +end activity = true while activity data/doc/xmpp4r/examples/advanced/versionpoll.rb ee42f3e9761ea2a6df3453cf5fec60e5e1e87f8f Astro astro@spaceboyz.net http://github.com/ln/xmpp4r/commit/6f8b93ab3b501bb4548fd0a1fe11eae0a03ee43e 6f8b93ab3b501bb4548fd0a1fe11eae0a03ee43e 2008-08-17T12:51:01-07:00 2008-08-17T12:51:01-07:00 versionpoll: ejabberd compatibility 75d6dd76d474f2b2e21b11444d2996c5587fdd94 Astro astro@spaceboyz.net