gmcmillan-xmpp4r 0.5

data/data/doc/xmpp4r/examples/advanced/migrate.rb

@@ -0,0 +1,88 @@
+#!/usr/bin/env ruby
+
+# This script can be used to migrate from one jabber account to another
+
+$:.unshift '../../../../../lib'
+
+require 'optparse'
+require 'xmpp4r'
+include Jabber
+
+jidfrom = JID.new('lucas@linux.ensimag.fr/JabberMigrate')
+pwfrom = 'z'
+jidto = JID.new('lucas@nussbaum.fr/JabberMigrate')
+pwto = 'z'
+
+BOTHOLD = "Hi, you are subscribed to my presence. I just changed my JID. The new one is #{jidto.strip}. You might want to update your roster. Thank you, and sorry for the inconvenience !"
+BOTHNEW = "Hi, you are subscribed to the presence of my previous JID : #{jidfrom.strip}. I just changed my JID, and this is the new one. You might want to update your roster. Thank you, and sorry for the inconvenience !"
+
+clfrom = Client.new(jidfrom)
+clfrom.connect
+clfrom.auth(pwfrom)
+clto = Client.new(jidto)
+clto.connect
+clto.auth(pwto)
+#clfrom.send(Presence.new)
+#clto.send(Presence.new)
+clfrom.send(Iq.new_rosterget)
+exit = false
+clfrom.add_iq_callback { |i|
+  if i.type == :result and i.queryns == 'jabber:iq:roster'
+    i.query.each_element do |e|
+      e.text = ''
+      jid = e.attribute('jid')
+      name = e.attribute('name')
+      subscription = e.attribute('subscription')
+      ask = e.attribute('ask')
+      jid &&= jid.value
+      next if jid =~ /@(icq|msn|aim|yahoo).blop.info/
+#      next if jid !~ /lucas@im.apinc.org/
+      puts "Processing #{e.to_s}"
+#      Jabber::debug = true
+      name &&= name.value
+      subscription &&= subscription.value
+      ask &&= ask.value
+      puts subscription
+      case subscription
+      when 'from'
+        # il veut me voir, je veux pas le voir.
+        # envoi unsubscribed
+        clfrom.send(Presence.new.set_to(jid).set_type(:unsubscribed))
+        # envoi message d'info OLD & NEW
+        clfrom.send(Message.new(jid, BOTHOLD).set_type(:chat))
+        clto.send(Message.new(jid, BOTHNEW).set_type(:chat))
+      when 'to'
+        # je veux le voir, il veut pas me voir
+        # envoi unsubscribe
+        clfrom.send(Presence.new.set_to(jid).set_type(:unsubscribe))
+        # envoi subscribe avec message
+        pres = Presence.new.set_to(jid).set_type(:subscribe)
+        pres.add(Element.new('status').add_text("Hi, I was previously subscribed to your presence with my JID #{jidfrom.strip}. Can I re-subscribe to your presence ? Thank you."))
+        clto.send(pres)
+      when 'both'
+        # envoi unsubscribed
+        clfrom.send(Presence.new.set_to(jid).set_type(:unsubscribed))
+        # envoi unsubscribe
+        clfrom.send(Presence.new.set_to(jid).set_type(:unsubscribe))
+        # update roster
+        iq = Iq.new_rosterset
+        e.delete_attribute('ask')
+        e.delete_attribute('subscription')
+        iq.query.add_element(e)
+        clto.send(iq)
+        # envoi message d'info OLD & NEW
+        clfrom.send(Message.new(jid, BOTHOLD).set_type(:chat))
+        pres = Presence.new.set_to(jid).set_type(:subscribe)
+        pres.add(Element.new('status').add_text("Hi, I was previously subscribed to your presence with my JID #{jidfrom.strip}. Can I re-subscribe to your presence ? Thank you."))
+        clto.send(pres)
+        clto.send(Message.new(jid, BOTHNEW).set_type(:chat))
+      end
+    end
+  end
+}
+while not exit
+  clfrom.process
+  clto.process
+end
+clfrom.close
+clto.close

data/data/doc/xmpp4r/examples/advanced/minimuc.rb

@@ -0,0 +1,266 @@
+#!/usr/bin/env ruby
+
+$:.unshift '../../../../../lib'
+
+require 'xmpp4r'
+require 'xmpp4r/iq/query/discoinfo'
+require 'xmpp4r/iq/query/discoitems'
+require 'xmpp4r/x/muc'
+
+
+#Jabber::debug = true
+
+class Room
+  class RoomException < Exception
+    attr_reader :error
+    def initialize(error, msg)
+      @error = Jabber::ErrorResponse.new(error, msg)
+    end
+  end
+
+  def initialize(stream, name)
+    @users = {}   # nick => jid
+    @stream = stream
+    @name = name
+  end
+
+  def num_users
+    @users.size
+  end
+
+  def each_user(&block)
+    @users.each { |n,j| yield(n, j) }
+  end
+
+  def handle_message(msg)
+    origin = msg.from
+    msg.from = nil
+    @users.each { |nick,jid|
+      if jid == origin
+        msg.from = Jabber::JID.new(@name.node, @name.domain, nick)
+      end
+    }
+    unless msg.from.nil?
+      broadcast(msg)
+    end
+
+    true
+  end
+
+  def handle_presence(pres)
+    reason = nil
+
+    # Check if nick already registered
+    @users.each { |nick,jid|
+      if pres.from != jid && pres.to.resource == nick
+        puts "#{pres.from} tried to use already active #{pres.to}"
+        raise RoomException.new('conflict', "Nick already used")
+      end
+    }
+    # New user?
+    unless @users.has_key?(pres.to.resource)
+      # Check nick length
+      if pres.to.resource.size < 1
+        puts "#{pres.from} tried to use empty nick"
+        raise RoomException.new('not-acceptable', "Nick must contain characters")
+      end
+
+      # Push user-list
+      userinfo = Jabber::Presence.import(pres)
+      userinfo.to = pres.from
+      userinfo.add(Jabber::XMUCUser.new).add(Jabber::XMUCUserItem.new(:none, :participant))
+      print "Sending all users for #{pres.to} to #{pres.from}:"
+      @users.each { |nick,jid|
+        userinfo.from = Jabber::JID.new(@name.node, @name.domain, nick)
+        print " #{nick} (#{jid})"
+        @stream.send(userinfo)
+      }
+      puts " Ok"
+
+      # Add the new user
+      puts "Adding #{pres.from} as #{pres.to}"
+      @users[pres.to.resource] = pres.from
+
+      send_message("#{pres.to.resource} joins #{@name.node}")
+      reason = "#{pres.to.resource} joins #{@name.node}"
+    end
+
+    # Remove dead rats
+    if pres.type == :error || pres.type == :unavailable
+      was_nick = nil
+      @users.delete_if { |nick,jid|
+        was_nick = nick
+        jid == pres.from
+      }
+      unless was_nick.nil?
+        send_message("#{was_nick} has left #{@name.node}")
+        reason = "#{was_nick} has left #{@name.node}"
+      end
+    end
+
+    # Advertise users presence to all
+    puts "Advertising user to all"
+    x = Jabber::XMUCUserItem.new(:none, :participant, pres.from)
+    x.reason = reason
+    pres.add(Jabber::XMUCUser.new).add(x)
+    pres.from = pres.to
+    broadcast(pres)
+  end
+
+  def send_message(body)
+    msg = Jabber::Message.new
+    msg.from = Jabber::JID.new(@name.node, @name.domain, "")
+    msg.type = :groupchat
+    msg.body = body
+    broadcast(msg)
+  end
+
+  def broadcast(stanza)
+    x = stanza.class::import(stanza)
+    @users.each { |nick,jid|
+      x.to = jid
+      @stream.send(x)
+    }
+  end
+end
+
+class MUC
+  def initialize(jid, secret, addr, port=5347)
+    @rooms = {}
+
+    @component = Jabber::Component.new(jid, addr, port)
+    @component.connect
+    @component.auth(secret)
+
+    @component.add_iq_callback { |iq|
+      handle_iq(iq)
+    }
+    @component.add_presence_callback { |pres|
+      handle_presence(pres)
+    }
+    @component.add_message_callback { |msg|
+      handle_message(msg)
+    }
+  end
+
+  def handle_iq(iq)
+    puts "#{iq.from} #{iq.queryns} to #{iq.to}"
+    if iq.query.kind_of?(Jabber::IqQueryDiscoInfo)
+      handle_disco_info(iq)
+      true
+    elsif iq.query.kind_of?(Jabber::IqQueryDiscoItems)
+      handle_disco_items(iq)
+      true
+    else
+      false
+    end
+  end
+
+  def handle_presence(pres)
+    room = nil
+    @rooms.each { |name,r|
+      room = r if name == pres.to.strip
+    }
+
+    if room.nil? && pres.type.nil? && (pres.to.node.to_s != '')
+      room = Room.new(@component, pres.to.strip)
+      @rooms[pres.to.strip] = room
+    elsif room.nil? && pres.type != :error
+      pres.to, pres.from = pres.from, pres.to
+      pres.type = :error
+      pres.add(Jabber::ErrorResponse.new('item-not-found'))
+      @component.send(pres)
+      return(true)
+    end
+
+    begin
+      room.handle_presence(pres)
+    rescue Room::RoomException => e
+      pres.to, pres.from = pres.from, pres.to
+      pres.type = :error
+      pres.add(e.error)
+      @component.send(pres)
+      return(true)
+    end
+    return(false)
+  end
+
+  def handle_message(msg)
+    puts "Message from #{msg.from} to #{msg.to} (#{msg.type}): #{msg.body.inspect}"
+    return if msg.type == :error
+
+    room = @rooms[msg.to]
+    unless room.nil?
+      room.handle_message(msg)
+    else
+      msg.to, msg.from = msg.from, msg.to
+      msg.type = :error
+      msg.add(Jabber::ErrorResponse.new('item-not-found', 'The chatroom you are trying to reach is currently not available.'))
+      @component.send(msg)
+    end
+  end
+
+  def handle_disco_info(iq)
+    if (iq.type == :get)
+      iq.type = :result
+      iq.query = Jabber::IqQueryDiscoInfo.new
+      if iq.to.node == nil
+        iq.query.add(Jabber::DiscoIdentity.new('conference', 'Minimal Multi-User Chat', 'text'))
+      else
+        room = @rooms[iq.to]
+        if room.nil?
+          iq.type = :error
+          iq.add_element(Jabber::ErrorResponse.new('item-not-found'))
+        else
+          iq.query.add(Jabber::DiscoIdentity.new('conference', "#{iq.to.node} (#{room.num_users})", 'text'))
+        end
+      end
+      [Jabber::IqQueryDiscoInfo.new.namespace,
+       Jabber::IqQueryDiscoItems.new.namespace,
+       Jabber::XMUC.new.namespace,
+       Jabber::XMUCUser.new.namespace].each { |ns|
+          iq.query.add(Jabber::DiscoFeature.new(ns))
+      }
+    else
+      iq.type = :error
+      iq.add_element(Jabber::ErrorResponse.new('bad-request'))
+    end
+    iq.to, iq.from = iq.from, iq.to
+    @component.send(iq)
+  end
+
+  def handle_disco_items(iq)
+    if (iq.type == :get)
+      iq.type = :result
+      if iq.to.node == nil
+        @rooms.each { |name,room|
+          iq.query.add(Jabber::DiscoItem.new(Jabber::JID.new(name, @component.jid.domain), name))
+        }
+      elsif iq.to.resource == nil
+        room = @rooms[iq.to.strip]
+        unless room.nil?
+          room.each_user { |nick,jid|
+            iq.query.add(Jabber::DiscoItem.new(jid, nick))
+          }
+        else
+          iq.type = :error
+          iq.add_element(Jabber::ErrorResponse.new('item-not-found'))
+        end
+      end
+    else
+      iq.type = :error
+      iq.add_element(Jabber::ErrorResponse.new('bad-request'))
+    end
+    iq.to, iq.from = iq.from, iq.to
+    @component.send(iq)
+  end
+end
+
+if ARGV.size != 3
+  puts "Syntax: ./minimuc.rb <JID> <Password> <Host>"
+  puts "Example: ./minimuc.rb conference.xmpp4r.mil minimuc localhost"
+  exit
+end
+
+muc = MUC.new(Jabber::JID.new(ARGV[0]), ARGV[1], ARGV[2])
+Thread.stop

data/data/doc/xmpp4r/examples/advanced/pep-aggregator/index.xsl

@@ -0,0 +1,235 @@
+<?xml version="1.0" encoding="utf-8"?>
+<xsl:stylesheet version="1.0"
+		xmlns="http://www.w3.org/1999/xhtml"
+		xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+		xmlns:j="jabber:client"
+		xmlns:p="http://jabber.org/protocol/pubsub"
+		xmlns:tune="http://jabber.org/protocol/tune"
+		xmlns:mood="http://jabber.org/protocol/mood"
+		xmlns:activity="http://jabber.org/protocol/activity"
+		xmlns:chatting="http://www.xmpp.org/extensions/xep-0194.html#ns"
+		xmlns:browsing="http://www.xmpp.org/extensions/xep-0195.html#ns"
+		xmlns:gaming="http://www.xmpp.org/extensions/xep-0196.html#ns"
+		xmlns:watching="http://www.xmpp.org/extensions/xep-0197.html#ns"
+		exclude-result-prefixes="xsl j p
+					 tune mood activity chatting
+					 browsing gaming watching">
+
+<xsl:output method="xml"
+            version="1.0"
+            encoding="utf-8"
+            doctype-public="-//W3C//DTD XHTML 1.0 Strict//EN"
+            doctype-system="DTD/xhtml1-strict.dtd"
+            indent="yes"/>
+
+  <xsl:template match="/items">
+    <html>
+      <head>
+	<title>PEP aggregator</title>
+	<style type="text/css">
+<![CDATA[
+body { font-family: sans-serif; }
+h1 { text-align: center; font-weight: bold; font-family: fantasy;
+font-style: italic; }
+h2 { margin-top: 2em; padding: 0.5em 8em; color: black; background:
+#bfbfff; }
+h2 a { color: black; font-decoration: none; }
+p { margin: 0.5em 4em; }
+p.footnote { margin-top: 16em; font-size: 90%; }
+img.avatar { max-width: 10%; clear: left; float: left; padding: 4px; }
+]]>
+	</style>
+      </head>
+
+      <body>
+	<h1>PEP aggregator</h1>
+
+	<xsl:apply-templates/>
+
+	<p class="footnote">
+	  This aggregator consumes events by
+	  the <a href="http://www.xmpp.org/">XMPP</a>
+	  extension <a href="http://www.xmpp.org/extensions/xep-0163.html">Personal
+	  Eventing via Pubsub</a>.  If you want to participate you'll
+	  need a PEP-enabled server
+	  (<a href="http://www.ejabberd.im/">ejabberd</a>), client
+	  (<a href="http://www.gajim.org/">Gajim</a>
+	  or <a href="http://psi-im.org/">Psi</a>)
+	  and <a href="xmpp:{@j:to}?subscribe"><xsl:value-of select="@j:to"/></a>
+	  in your Jabber roster.  The source code can
+	  be <a href="http://svn.gna.org/viewcvs/xmpp4r/trunk/xmpp4r/data/doc/xmpp4r/examples/advanced/pep-aggregator/">viewed
+	  online</a>.
+	</p>
+      </body>
+    </html>
+  </xsl:template>
+
+  <xsl:template match="p:item[@j:from]">
+    <xsl:if test="@j:has-avatar = 'true'">
+      <img class="avatar" src="/avatar/{@j:from}"/>
+    </xsl:if>
+
+    <h2>
+      <a href="xmpp:{@j:from}">
+	<xsl:value-of select="@j:from-name"/>
+      </a>
+    </h2>
+
+    <xsl:apply-templates/>
+    
+  </xsl:template>
+
+  <xsl:template match="tune:tune[count(*) = 0]">
+    <p>Stopped listening</p>
+  </xsl:template>
+
+  <xsl:template match="tune:tune">
+    <p>
+      ♫ Listening
+      <xsl:value-of select="tune:artist"/>
+      —
+      <xsl:value-of select="tune:source"/>
+      —
+      <xsl:value-of select="tune:title"/>
+    </p>
+  </xsl:template>
+
+  <xsl:template match="mood:mood">
+    <p>
+      ☻ Feeling
+      <xsl:text> </xsl:text>
+      <xsl:value-of select="name(*[1])"/>
+      <xsl:if test="*[1]/*[1]">
+	<xsl:text> </xsl:text>
+	(<xsl:value-of select="name(*[1]/*[1])"/>)
+      </xsl:if>
+      <xsl:if test="mood:text">
+	<xsl:text> </xsl:text>
+	<i><xsl:value-of select="mood:text"/></i>
+      </xsl:if>
+    </p>
+  </xsl:template>
+
+  <xsl:template match="activity:activity">
+    <p>
+      ↻ Doing
+      <xsl:text> </xsl:text>
+      <xsl:value-of select="name(*[1])"/>
+      <xsl:if test="*[1]/*[1]">
+	<xsl:text> </xsl:text>
+	(<xsl:value-of select="name(*[1]/*[1])"/>)
+      </xsl:if>
+      <xsl:if test="activity:text">
+	<xsl:text> </xsl:text>
+	<i><xsl:value-of select="activity:text"/></i>
+      </xsl:if>
+    </p>
+  </xsl:template>
+
+  <xsl:template match="chatting:room[count(*) = 0]">
+    <p>Stopped chatting</p>
+  </xsl:template>
+
+  <xsl:template match="chatting:room">
+    <p>
+      Chatting at
+      <a href="{chatting:uri}">
+	<xsl:choose>
+	  <xsl:when test="chatting:name"><xsl:value-of select="chatting:name"/></xsl:when>
+	  <xsl:otherwise><xsl:value-of select="chatting:uri"/></xsl:otherwise>
+	</xsl:choose>
+      </a>
+      <xsl:if test="chatting:topic">
+	<i><xsl:value-of select="chatting:topic"/></i>
+      </xsl:if>
+    </p>
+  </xsl:template>
+
+  <xsl:template match="browsing:page[count(*) = 0]">
+    <p>Stopped browsing</p>
+  </xsl:template>
+
+  <xsl:template match="browsing:page">
+    <p>
+      Browsing
+      <a href="{browsing:uri}">
+	<xsl:choose>
+	  <xsl:when test="browsing:title"><xsl:value-of select="browsing:title"/></xsl:when>
+	  <xsl:otherwise><xsl:value-of select="browsing:uri"/></xsl:otherwise>
+	</xsl:choose>
+      </a>
+      <xsl:if test="browsing:description">
+	<i><xsl:value-of select="browsing:description"/></i>
+      </xsl:if>
+    </p>
+  </xsl:template>
+
+  <xsl:template match="gaming:game[count(*) = 0]">
+    <p>Stopped gaming</p>
+  </xsl:template>
+
+  <xsl:template match="gaming:game">
+    <p>
+
+      Playing
+      <xsl:choose>
+	<xsl:when test="gaming:uri">
+	  <a href="{gaming:uri}">
+	    <xsl:value-of select="gaming:name"/>
+	  </a>
+	</xsl:when>
+	<xsl:otherwise>
+	  <xsl:value-of select="gaming:name"/>
+	</xsl:otherwise>
+      </xsl:choose>
+
+      <xsl:if test="gaming:character_name">
+	as
+	<xsl:choose>
+	  <xsl:when test="gaming:character_profile">
+	    <a href="{gaming:character_profile}">
+	      <xsl:value-of select="gaming:character_name"/>
+	    </a>
+	  </xsl:when>
+	  <xsl:otherwise>
+	    <xsl:value-of select="gaming:character_name"/>
+	  </xsl:otherwise>
+	</xsl:choose>
+      </xsl:if>
+
+      <xsl:if test="gaming:server_address">
+	on
+	<a href="{gaming:server_address}">
+	  <xsl:choose>
+	    <xsl:when test="gaming:server_name"><xsl:value-of select="gaming:server_name"/></xsl:when>
+	    <xsl:otherwise><xsl:value-of select="gaming:server_name"/></xsl:otherwise>
+	  </xsl:choose>
+	</a>
+      </xsl:if>
+
+    </p>
+  </xsl:template>
+
+  <xsl:template match="watching:video[count(*) = 0]">
+    <p>Stopped watching a video</p>
+  </xsl:template>
+
+  <xsl:template match="watching:video">
+    <xsl:if test="watching:program_name">
+      <p>
+	✇ Watching
+	<xsl:choose>
+	  <xsl:when test="watching:uri">
+	    <a href="{watching:uri}">
+	      <xsl:value-of select="watching:program_name"/>
+	    </a>
+	  </xsl:when>
+	  <xsl:otherwise>
+	    <xsl:value-of select="watching:program_name"/>
+	  </xsl:otherwise>
+	</xsl:choose>
+      </p>
+    </xsl:if>
+  </xsl:template>
+
+</xsl:stylesheet>