social_stream 0.21.4 → 0.22.0

data/presence/ejabberd/mod_sspresence/mod_sspresence.erl

@@ -1,9 +1,10 @@
 %%%-------------------------------------------------------------------
 %%% File    : mod_sspresence.erl
-%%% Author  : Aldo
-%%% Contact:  < social-stream@dit.upm.es >
+%%% Author  : Aldo Gordillo
+%%% Contact : < social-stream@dit.upm.es >
 %%% Purpose : Process events and hooks for Social Stream Presence: http://social-stream.dit.upm.es/
 %%% Created : 1 Oct 2011
+%%% Version : 2.0
 %%%  
 %%%
 %%% http://social-stream.dit.upm.es/
@@ -50,42 +51,46 @@ stop(Host) ->
 
 
 on_register_connection(_SID, _JID, _Info) ->
-    {_A,User,_B,_C,_D,_E,_F} = _JID,
-    ?INFO_MSG("mod_sspresence: on_register_connection (~p)", [User]),
+    {_A,User,Domain,_C,_D,_E,_F} = _JID,
+    UserJid = string:join([User, Domain ], "@"),
+    ?INFO_MSG("mod_sspresence: on_register_connection (~p)", [UserJid]),
     Rest_api_script_path = string:concat(getOptionValue("scripts_path="), "/rest_api_client_script "),
-    os:cmd(string:join([Rest_api_script_path, "setConnection", User ], " ")),
+    os:cmd(string:join([Rest_api_script_path, "setConnection", UserJid ], " ")),
     ok.
 
 on_remove_connection(_SID, _JID, _SessionInfo) ->
-    {_A,User,_B,_C,_D,_E,_F} = _JID,
-    ?INFO_MSG("mod_sspresence: on_remove_connection (~p)", [User]),
-    Connected = isConnected(User),
+    {_A,User,Domain,_C,_D,_E,_F} = _JID,
+    UserJid = string:join([User, Domain ], "@"),
+    ?INFO_MSG("mod_sspresence: on_remove_connection (~p)", [UserJid]),
+    Connected = isConnected(UserJid),
     case Connected of
 	true -> ok;
 	_ -> Rest_api_script_path = string:concat(getOptionValue("scripts_path="), "/rest_api_client_script "),
-             os:cmd(string:join([Rest_api_script_path, "unsetConnection", User ], " "))
+             os:cmd(string:join([Rest_api_script_path, "unsetConnection", UserJid ], " "))
     end,
     ok.
 
-on_presence(User, _Server, _Resource, Packet) ->
-     ?INFO_MSG("mod_sspresence: on_presence (~p)", [User]),
+on_presence(User, Server, _Resource, Packet) ->
+     UserJid = string:join([User, Server ], "@"),
+     ?INFO_MSG("mod_sspresence: on_presence (~p)", [UserJid]),
      {_xmlelement, Type, _Attr, Subel} = Packet,
 
     case Type of
 	"presence" -> Status = getStatusFromSubel(Subel),
 		      Rest_api_script_path = string:concat(getOptionValue("scripts_path="), "/rest_api_client_script "),
-		      ?INFO_MSG("mod_sspresence: set_presence_script call with  user (~p) and status (~p)", [User,Status]),
-    		      os:cmd(string:join([Rest_api_script_path, "setPresence", User , Status], " "));
+		      ?INFO_MSG("mod_sspresence: set_presence_script call with  userJid (~p) and status (~p)", [UserJid,Status]),
+    		      os:cmd(string:join([Rest_api_script_path, "setPresence", UserJid , Status], " "));
 	_ -> ok
     end,
     ok.
 
-on_unset_presence(User, _Server, _Resource, _Status) ->
-    ?INFO_MSG("mod_sspresence: on_unset_presence (~p)", [User]),
+on_unset_presence(User, Server, _Resource, _Status) ->
+    UserJid = string:join([User, Server ], "@"),
+    ?INFO_MSG("mod_sspresence: on_unset_presence (~p)", [UserJid]),
     _Rest_api_script_path = string:concat(getOptionValue("scripts_path="), "/rest_api_client_script "),
     %% Wait for on_remove_connection
-    %% ?INFO_MSG("mod_sspresence: unset_presence_script call with  user (~p)", [User]),
-    %%os:cmd(string:join([_Rest_api_script_path, "unsetPresence", User , Status], " ")),
+    %% ?INFO_MSG("mod_sspresence: unset_presence_script call with  userJid (~p)", [UserJid]),
+    %%os:cmd(string:join([_Rest_api_script_path, "unsetPresence", UserJid], " ")),
     ok.
 
 on_packet_send(_From, _To, {xmlelement, Type, _Attr, _Subel} = _Packet) ->
@@ -158,9 +163,9 @@ parser(In,Option) ->
 
 
 %%Check if a user is connected (any active session with Ejabberd server)
-isConnected(User) ->
+isConnected(UserJid) ->
 
-Command = string:concat("ejabberdctl connected-users | grep ", User),
+Command = string:concat("ejabberdctl connected-users | grep ", UserJid),
 Output = os:cmd(Command),
 
 case Output of
@@ -169,11 +174,10 @@ case Output of
 
       catch lists:foreach(
 		fun(S) ->
-		        [Slug|_R] = string:tokens(S, "@"),
-		        %User.slug connected = Slug
+		        [Jid|_R] = string:tokens(S, "/"),
 			
-			case Slug of
-			  User -> throw(true);
+			case Jid of
+			  UserJid -> throw(true);
 			  _ -> false
 			end                
 

data/presence/lib/OpenTok/Exceptions.rb

@@ -0,0 +1,11 @@
+
+=begin
+ OpenTok Ruby Library
+ http://www.tokbox.com/
+
+ Copyright 2010, TokBox, Inc.
+
+=end
+module OpenTok
+  class OpenTokException < RuntimeError; end;
+end

data/presence/lib/OpenTok/OpenTokSDK.rb

@@ -0,0 +1,184 @@
+#!/usr/local/bin/ruby -w
+
+
+=begin
+ OpenTok Ruby Library
+ http://www.tokbox.com/
+
+ Copyright 2010, TokBox, Inc.
+
+=end
+
+require 'cgi'
+require 'openssl'
+require 'base64'
+require 'uri'
+require 'net/https'
+require 'rexml/document'
+
+DIGEST  = OpenSSL::Digest::Digest.new('sha1')
+
+class Hash
+  def urlencode
+    to_a.map do |name_value|
+      if name_value[1].is_a? Array
+        name_value[0] = CGI.escape name_value[0].to_s
+        name_value[1].map { |e| CGI.escape e.to_s }
+        name_value[1] = name_value[1].join "&" + name_value[0] + "="
+        name_value.join '='
+      else
+        name_value.map { |e| CGI.escape e.to_s }.join '='
+      end
+    end.join '&'
+  end
+end
+
+module OpenTok
+
+  class SessionPropertyConstants
+    ECHOSUPPRESSION_ENABLED = "echoSuppression.enabled"; #Boolean
+	MULTIPLEXER_NUMOUTPUTSTREAMS = "multiplexer.numOutputStreams"; #Integer
+	MULTIPLEXER_SWITCHTYPE = "multiplexer.switchType"; #Integer
+	MULTIPLEXER_SWITCHTIMEOUT = "multiplexer.switchTimeout"; #Integer
+	P2P_PREFERENCE = "p2p.preference"; #String
+  end
+
+  class RoleConstants
+    SUBSCRIBER = "subscriber" #Can only subscribe
+    PUBLISHER = "publisher"   #Can publish, subscribe, and signal
+    MODERATOR = "moderator"   #Can do the above along with  forceDisconnect and forceUnpublish
+  end
+
+  class Net::HTTP
+    alias_method :old_initialize, :initialize
+    def initialize(*args)
+      old_initialize(*args)
+      @ssl_context = OpenSSL::SSL::SSLContext.new
+      @ssl_context.verify_mode = OpenSSL::SSL::VERIFY_NONE
+    end
+  end
+
+  def self.included(base)
+    # Initialize module.
+  end
+
+  class OpenTokSession
+    attr_accessor :session_id
+
+    def initialize(session_id)
+      @session_id     = session_id
+    end
+
+    def to_s
+      session_id
+    end
+  end
+
+  class OpenTokSDK
+    attr_writer :api_url
+    @@TOKEN_SENTINEL = "T1=="
+    @@SDK_VERSION = "tbruby-%s" % [ VERSION ]
+
+    # @@API_URL = API_URL
+
+    def initialize(partner_id, partner_secret)
+      @api_url = API_URL
+      @partner_id = partner_id
+      @partner_secret = partner_secret.strip
+    end
+
+    def generate_token(opts = {})
+      {:session_id=>nil, :create_time=>nil, :expire_time=>nil, :role=>nil, :connection_data=>nil}.merge!(opts)
+
+      create_time = opts[:create_time].nil? ? Time.now  :  opts[:create_time]
+      session_id = opts[:session_id].nil? ? '' : opts[:session_id]
+      role = opts[:role].nil? ? RoleConstants::PUBLISHER : opts[:role]
+
+      if role != RoleConstants::SUBSCRIBER and \
+          role != RoleConstants::PUBLISHER and \
+          role != RoleConstants::MODERATOR
+        raise OpenTokException.new "'#{role}' is not a recognized role"
+      end
+
+
+      data_params = {
+        :role => role,
+        :session_id => session_id,
+        :create_time => create_time.to_i,
+        :nonce => rand
+      }
+
+      if not opts[:expire_time].nil?
+        raise OpenTokException.new 'Expire time must be a number' if not opts[:expire_time].is_a?(Numeric)
+        raise OpenTokException.new 'Expire time must be in the future' if opts[:expire_time] < Time.now.to_i
+        raise OpenTokException.new 'Expire time must be in the next 7 days' if opts[:expire_time] > (Time.now.to_i + 604800)
+        data_params[:expire_time] = opts[:expire_time].to_i
+      end
+      
+      if not opts[:connection_data].nil?
+        raise OpenTokException.new 'Connection data must be less than 1000 characters' if opts[:connection_data].length > 1000
+        data_params[:connection_data] = opts[:connection_data]
+      end
+
+      data_string = data_params.urlencode
+
+      sig = sign_string(data_string, @partner_secret)
+      meta_string = {
+        :partner_id => @partner_id,
+        :sdk_version => @@SDK_VERSION,
+        :sig => sig
+      }.urlencode
+
+      @@TOKEN_SENTINEL + Base64.encode64(meta_string + ":" + data_string).gsub("\n","")
+    end
+
+    def create_session(location='', opts={})
+      opts.merge!({:partner_id => @partner_id, :location=>location})
+      doc = do_request("/session/create", opts)
+      if not doc.get_elements('Errors').empty?
+        raise OpenTokException.new doc.get_elements('Errors')[0].get_elements('error')[0].children.to_s
+      end
+      OpenTokSession.new(doc.root.get_elements('Session')[0].get_elements('session_id')[0].children[0].to_s)
+    end
+
+    protected
+
+    def sign_string(data, secret)
+      OpenSSL::HMAC.hexdigest(DIGEST, secret, data)
+    end
+
+    def do_request(api_url, params, token=nil)
+
+      url = URI.parse(@api_url + api_url)
+      if not params.empty?
+        req = Net::HTTP::Post.new(url.path)
+        req.set_form_data(params)
+      else
+        req = Net::HTTP::Get.new(url.path)
+      end
+
+      if not token.nil?
+        req.add_field 'X-TB-TOKEN-AUTH', token
+      else
+        req.add_field 'X-TB-PARTNER-AUTH', "#{@partner_id}:#{@partner_secret}"
+      end
+      http = Net::HTTP.new(url.host, url.port)
+      http.use_ssl = true if @api_url.start_with?("https")
+      res = http.start {|http| http.request(req)}
+      case res
+      when Net::HTTPSuccess, Net::HTTPRedirection
+        # OK
+        doc = REXML::Document.new(res.read_body)
+        return doc
+      else
+        res.error!
+      end
+    rescue Net::HTTPExceptions
+      raise
+      raise OpenTokException.new 'Unable to create fufill request: ' + $!
+    rescue NoMethodError
+      raise
+      raise OpenTokException.new 'Unable to create a fufill request at this time: ' + $1
+    end
+  end
+end

data/presence/lib/OpenTok/Session.rb

@@ -0,0 +1,27 @@
+
+=begin
+ OpenTok Ruby Library v0.90.0
+ http://www.tokbox.com/
+
+ Copyright 2010, TokBox, Inc.
+
+ Date: November 05 14:50:00 2010
+=end
+
+module OpenTok
+
+  class Session
+
+    attr_reader :sessionId
+
+    def initialize(sessionId)
+      @sessionId     = sessionId
+    end
+
+    def to_s
+      sessionId
+    end
+
+  end
+
+end

data/presence/lib/generators/social_stream/presence/templates/initializer.rb

@@ -1,5 +1,5 @@
 SocialStream::Presence.setup do |config| 
-  #Configures XMPP Server Domain
+  #Configures Web Server Domain served by XMPP Server
   config.domain = "localhost"
   #Configures Bosh Service Path
   #config.bosh_service = "http://xmpp-proxy/http-bind"
@@ -29,6 +29,12 @@ SocialStream::Presence.setup do |config|
   #Username of the the Social Stream Admin sid
   config.social_stream_presence_username = "social_stream-presence"
   #Configures Social Stream Rails App Password
-  config.password = <%= SecureRandom.hex(32).inspect %>  
+  config.password = <%= SecureRandom.hex(32).inspect %>
+  
+  #OpenTok settings (Only for videochat)
+  #Replace with your OpenTok API key.
+  #config.opentok_api_key = ""
+  #Replace with your OpenTok API secret.
+  #config.opentok_api_secret = ""
 
 end

data/presence/lib/open_tok.rb

@@ -0,0 +1,31 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+=begin
+ OpenTok Ruby Library
+ http://www.tokbox.com/
+
+ Copyright 2010, TokBox, Inc.
+
+ Last modified: 2011-10-12
+=end
+
+
+require 'rubygems'
+require 'net/http'
+require 'uri'
+require 'digest/md5'
+require 'cgi'
+#require 'pp' # just for debugging purposes
+
+Net::HTTP.version_1_2 # to make sure version 1.2 is used
+
+module OpenTok
+  VERSION = "tbrb-v0.91.2011-10-12"
+  #API_URL = "https://staging.tokbox.com/hl"
+  #Uncomment this line when you launch your app
+  API_URL = "https://api.opentok.com/hl";
+end
+
+require 'OpenTok/Exceptions'
+require 'OpenTok/OpenTokSDK'

data/presence/lib/opentok.rb

@@ -0,0 +1,29 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+=begin
+ OpenTok Ruby Library
+ http://www.tokbox.com/
+
+ Copyright 2010, TokBox, Inc.
+
+ Last modified: 2011-02-17
+=end
+
+
+require 'rubygems'
+require 'net/http'
+require 'uri'
+require 'digest/md5'
+require 'cgi'
+#require 'pp' # just for debugging purposes
+
+Net::HTTP.version_1_2 # to make sure version 1.2 is used
+
+module OpenTok
+  VERSION = "tbrb-v0.91.2011-02-17"
+  API_URL = "https://api.opentok.com/hl";
+end
+
+require 'OpenTok/Exceptions'
+require 'OpenTok/OpenTokSDK'

data/presence/lib/social_stream-presence.rb

@@ -33,12 +33,16 @@ module SocialStream
     
     mattr_accessor :social_stream_presence_username
     mattr_accessor :password
+    
+    mattr_accessor :opentok_api_key
+    mattr_accessor :opentok_api_secret
 
     @@auth_method = "cookie"
     @@remote_xmpp_server = false
     @@secure_rest_api = false
     @@enable = false
     @@social_stream_presence_username = "social_stream_presence"
+    @@opentok_api_key = "default"
     
     class << self
       def setup

data/presence/lib/social_stream/presence/models/buddy_manager.rb

@@ -23,7 +23,7 @@ module SocialStream
             return
           end
 
-          #XMPP DOMAIN
+          #WEB DOMAIN
           domain = SocialStream::Presence.domain
           user_sid = self.sender.slug + "@" + domain
           user_name =  self.sender.name  

data/presence/lib/social_stream/presence/version.rb

@@ -1,5 +1,5 @@
 module SocialStream
   module Presence
-    VERSION = "0.7.5"
+    VERSION = "0.8.3"
   end
 end