vkhater-social_stream 0.16.3.3

data/presence/ejabberd/mod_sspresence/mod_sspresence.erl

@@ -0,0 +1,193 @@
+%%%-------------------------------------------------------------------
+%%% File    : mod_sspresence.erl
+%%% Author  : Aldo
+%%% 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
+%%%  
+%%%
+%%% http://social-stream.dit.upm.es/
+%%% Copyright © 2011 Social Stream
+%%%
+%%%-------------------------------------------------------------------
+
+-module(mod_sspresence).
+-author('aldo').
+
+-behavior(gen_mod).
+
+-include("ejabberd.hrl").
+
+-export([start/2, stop/1, 
+	on_register_connection/3, 
+	on_remove_connection/3, 
+	on_presence/4, 
+	on_unset_presence/4,
+	on_packet_send/3, 
+	isConnected/1
+	]).
+
+start(Host, _Opts) ->
+    ?INFO_MSG("mod_sspresence starting", []),
+    ejabberd_hooks:add(sm_register_connection_hook, 	Host, ?MODULE, on_register_connection, 50),
+    ejabberd_hooks:add(sm_remove_connection_hook, 	Host, ?MODULE, on_remove_connection, 50),
+    ejabberd_hooks:add(set_presence_hook, 		Host, ?MODULE, on_presence, 50),
+    ejabberd_hooks:add(unset_presence_hook, 		Host, ?MODULE, on_unset_presence, 50),
+    ejabberd_hooks:add(user_send_packet, 		Host, ?MODULE, on_packet_send, 50),
+    %Reset connected users when module sspresence starts.
+    reset_connections(),
+    ok.
+
+stop(Host) ->
+    ?INFO_MSG("mod_sspresence stopping", []),
+    ejabberd_hooks:delete(sm_register_connection_hook, 	Host, ?MODULE, on_register_connection, 50),
+    ejabberd_hooks:delete(sm_remove_connection_hook, 	Host, ?MODULE, on_remove_connection, 50),
+    ejabberd_hooks:delete(set_presence_hook, 		Host, ?MODULE, on_presence, 50),
+    ejabberd_hooks:delete(unset_presence_hook, 		Host, ?MODULE, on_unset_presence, 50),
+    ejabberd_hooks:delete(user_send_packet, 		Host, ?MODULE, on_packet_send, 50),
+    ok.
+
+
+
+on_register_connection(_SID, _JID, _Info) ->
+    {_A,User,_B,_C,_D,_E,_F} = _JID,
+    ?INFO_MSG("mod_sspresence: on_register_connection (~p)", [User]),
+    Rest_api_script_path = string:concat(getOptionValue("scripts_path="), "/rest_api_client_script "),
+    os:cmd(string:join([Rest_api_script_path, "setConnection", User ], " ")),
+    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),
+    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 ], " "))
+    end,
+    ok.
+
+on_presence(User, _Server, _Resource, Packet) ->
+     ?INFO_MSG("mod_sspresence: on_presence (~p)", [User]),
+     {_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], " "));
+	_ -> ok
+    end,
+    ok.
+
+on_unset_presence(User, _Server, _Resource, _Status) ->
+    ?INFO_MSG("mod_sspresence: on_unset_presence (~p)", [User]),
+    _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], " ")),
+    ok.
+
+on_packet_send(_From, _To, {xmlelement, Type, _Attr, _Subel} = _Packet) ->
+    case Type of
+	"message" ->
+               ok;
+	_ -> ok
+    end.
+
+
+getStatusFromSubel(Subel) ->	
+	try
+            %Strophe tuples
+	    [{_A,"status",[],[{_B,_StatusStrophe}]},{_C,"show",[],[{_D,ShowStrophe}]}|_R1] = Subel,
+	    parseXmlCdata(ShowStrophe)
+	catch
+		_:Reason ->      
+			try
+				%Pidgin tuples
+				[{_E,"show",[],[{_F,ShowPidgin}]}|_R2] = Subel,
+			     	parseXmlCdata(ShowPidgin)
+			catch
+				_:Reason -> "chat" %Status when parsed failed
+			after
+				noop
+			end
+	after
+		noop
+	end. 
+
+
+parseXmlCdata(Msg) ->
+	MessageString = binary_to_list(list_to_binary(io_lib:format("~p", [Msg]))),
+	lists:sublist(MessageString, 4, string:len(MessageString)-6).
+
+
+
+%%GETTERS CONFIG VALUES
+%%CONFIG FILE: /etc/ejabberd/ssconfig.cfg
+
+getOptionValue(Option) ->
+{_, In} = file:open("/etc/ejabberd/ssconfig.cfg", read),
+parser(In,Option).
+
+
+parser(In,Option) ->
+  L = io:get_line(In, ''),
+
+  case L of
+  	eof -> "Undefined";
+  	_ -> {_,S,_} = regexp:gsub(L, "\\n", ""),
+
+
+	%%IGNORE COMMENTS
+	case string:str(S, "#") of
+        	0 -> 
+			case string:str(S, Option) of
+				0 -> ok,
+				%% Continue with next line
+				parser(In,Option);
+		
+				%% return path
+				_ ->  lists:sublist(S, string:len(Option)+1, string:len(S))	
+			end;
+
+        	_ ->  %% Comment: Continue with next line
+		     parser(In,Option)
+	end
+  end. 
+
+
+%%Check if a user is connected (any active session with Ejabberd server)
+isConnected(User) ->
+
+Command = string:concat("ejabberdctl connected-users | grep ", User),
+Output = os:cmd(Command),
+
+case Output of
+  [] -> false;
+  _ -> Sessions = string:tokens(Output, "\n"),
+
+      catch lists:foreach(
+		fun(S) ->
+		        [Slug|_R] = string:tokens(S, "@"),
+		        %User.slug connected = Slug
+			
+			case Slug of
+			  User -> throw(true);
+			  _ -> false
+			end                
+
+		end,
+		Sessions)
+end.
+
+
+
+%Reset all connections
+reset_connections() ->
+	Rest_api_script_path = string:concat(getOptionValue("scripts_path="), "/rest_api_client_script "),
+	os:cmd(string:join([Rest_api_script_path, "resetConnection"], " ")),
+ok.
+
+
+

data/presence/lib/generators/social_stream/presence/install_generator.rb

@@ -0,0 +1,28 @@
+class SocialStream::Presence::InstallGenerator < Rails::Generators::Base
+  include Rails::Generators::Migration
+  
+  source_root File.expand_path('../templates', __FILE__)
+
+  def create_initializer_file
+    template 'initializer.rb', 'config/initializers/social_stream_presence.rb'
+  end
+
+  def create_migration_file
+    require 'rake'
+    Rails.application.load_tasks
+    Rake::Task['railties:install:migrations'].reenable
+    Rake::Task['social_stream_presence_engine:install:migrations'].invoke
+  end
+
+  def require_javascripts
+    inject_into_file 'app/assets/javascripts/application.js',
+                     "//= require social_stream-presence\n",
+                     :before => '//= require_tree .'
+  end
+
+  def require_stylesheets
+    inject_into_file 'app/assets/stylesheets/application.css',
+                     " *= require social_stream-presence\n",
+                     :before => ' *= require_tree .'
+  end
+end

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

@@ -0,0 +1,34 @@
+SocialStream::Presence.setup do |config| 
+  #Configures XMPP Server Domain
+  config.domain = "localhost"
+  #Configures Bosh Service Path
+  #config.bosh_service = "http://xmpp-proxy/http-bind"
+  #Configures Authentication Method: "cookie" or "password"
+  config.auth_method = "cookie"
+  #Configures XMPP Server Password
+  config.xmpp_server_password = <%= SecureRandom.hex(16).inspect %>
+  #Uncomment to enable REST API Security
+  #config.secure_rest_api = true
+  #Remote or local mode
+  config.remote_xmpp_server = false
+  #Scripts path to execute ejabberd scripts: local or remote
+  config.scripts_path = "/scripts_path"
+  #Ejabberd module path in the xmpp server
+  config.ejabberd_module_path = "/usr/lib/ejabberd/ebin"
+  #Uncomment to enable Social Stream Presence
+  #config.enable = true
+  
+  #Parameters for remote mode
+  #SSH Login
+  #config.ssh_domain = "domain"
+  #config.ssh_user = "login"
+  #Comment to allow SSH authentication with key instead of password
+  #config.ssh_password= "password"
+
+  #Configure to use a Xmpp Client on Rails App
+  #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 %>  
+
+end

data/presence/lib/social_stream-presence.rb

@@ -0,0 +1,50 @@
+require 'social_stream-base'
+
+module SocialStream
+  module Views
+    module Settings
+      autoload :Presence, 'social_stream/views/settings/presence'
+    end
+  end
+
+  module Presence   
+
+    autoload :XmppServerOrder, 'social_stream/presence/xmpp_server_order'
+
+    module Models
+      autoload :BuddyManager, 'social_stream/presence/models/buddy_manager'
+    end
+
+
+    mattr_accessor :domain
+    mattr_accessor :bosh_service
+    mattr_accessor :auth_method
+    mattr_accessor :xmpp_server_password
+    mattr_accessor :secure_rest_api
+    mattr_accessor :remote_xmpp_server
+    mattr_accessor :scripts_path
+    mattr_accessor :ejabberd_module_path
+    mattr_accessor :enable
+    
+    mattr_accessor :ssh_domain
+    mattr_accessor :ssh_user
+    mattr_accessor :ssh_password
+    
+    mattr_accessor :social_stream_presence_username
+    mattr_accessor :password
+
+    @@auth_method = "cookie"
+    @@remote_xmpp_server = false
+    @@secure_rest_api = false
+    @@enable = false
+    
+    class << self
+      def setup
+        yield self
+      end
+    end
+
+  end
+end
+
+require 'social_stream/presence/engine'

data/presence/lib/social_stream/migrations/presence.rb

@@ -0,0 +1,8 @@
+require 'social_stream/migrations/components'
+
+module SocialStream
+  module Migrations
+    class Presence < Components
+    end
+  end
+end

data/presence/lib/social_stream/presence/engine.rb

@@ -0,0 +1,17 @@
+module SocialStream
+  module Presence
+    class Engine < Rails::Engine
+      initializer "social_stream-presence.tie" do
+        ActiveSupport.on_load(:tie) do
+          include SocialStream::Presence::Models::BuddyManager
+        end
+      end
+
+      initializer "social_stream-presence.views.settings" do
+        SocialStream::Views::Settings.module_eval do
+          include SocialStream::Views::Settings::Presence
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,104 @@
+module SocialStream
+  module Presence
+    module Models
+      module BuddyManager
+        extend ActiveSupport::Concern
+        
+        included do
+          after_create :save_buddy
+          after_destroy :remove_buddy
+        end
+        
+        module InstanceMethods
+          
+          def save_buddy
+            
+            unless SocialStream::Presence.enable
+              return
+            end
+            
+            unless self.receiver and self.sender
+              return
+            end
+            
+            unless self.receiver.subject_type == "User" and self.sender.subject_type == "User"
+              return
+            end
+ 
+            #XMPP DOMAIN
+            domain = SocialStream::Presence.domain
+            user_sid = self.sender.slug + "@" + domain
+            user_name =  self.sender.name  
+            buddy_sid = self.receiver.slug + "@" + domain
+            buddy_name =  self.receiver.name
+            site_name = I18n.t('site.name').delete(' ')
+            
+            #Check if is a positive and replied tie         
+            if self.bidirectional?
+              #Execute setRosterForBidirectionalTie(userASid,userBSid,userANick,userBNick,groupForA,groupForB)
+              SocialStream::Presence::XmppServerOrder::setRosterForBidirectionalTie(user_sid,buddy_sid,user_name,buddy_name,site_name,site_name)
+            elsif self.positive?
+              #Case: Possitive tie unidirectional
+              #Execute addBuddyToRoster(userSID,buddySID,buddyNick,buddyGroup,subscription_type)
+              subscription_type = "from"
+              SocialStream::Presence::XmppServerOrder::addBuddyToRoster(user_sid,buddy_sid,buddy_name,site_name,subscription_type)
+            else
+              #Negative Tie
+              
+              if self.contact.positive_replied?
+                #Bidirectional contacts
+                #Execute unsetRosterForBidirectionalTie(user_sid,oldfriend_sid,oldfriendNick,oldfriendGroup)
+                SocialStream::Presence::XmppServerOrder::unsetRosterForBidirectionalTie(buddy_sid,user_sid,user_name,site_name)
+              else
+                SocialStream::Presence::XmppServerOrder::removeBuddyFromRoster(user_sid,buddy_sid)
+              end
+              
+              return  
+            end
+            
+          end
+          
+          
+          def remove_buddy 
+#            
+#            unless SocialStream::Presence.enable
+#              return
+#            end
+#            
+#            unless self.receiver and self.sender
+#              return
+#            end
+#            
+#            unless self.receiver.subject_type == "User" and self.sender.subject_type == "User"
+#              return
+#            end
+#            
+#            if self.contact.established?
+#              return
+#            end
+# 
+#            #XMPP DOMAIN
+#            domain = SocialStream::Presence.domain
+#            user_sid = self.sender.slug + "@" + domain
+#            user_name =  self.sender.name  
+#            buddy_sid = self.receiver.slug + "@" + domain
+#            
+#            #Check if is a positive and replied tie         
+#            if self.bidirectional?
+#              #Execute unsetRosterForBidirectionalTie(user_sid,oldfriend_sid,oldfriendNick,oldfriendGroup)
+#              SocialStream::Presence::XmppServerOrder::unsetRosterForBidirectionalTie(buddy_sid,user_sid,user_name,site_name)
+#            elsif self.positive?
+#              #Case: Possitive tie unidirectional
+#              #Execute removeBuddyFromRoster(user_sid,buddy_sid)
+#              SocialStream::Presence::XmppServerOrder::removeBuddyFromRoster(user_sid,buddy_sid)
+#            else
+#              return  
+#            end
+#            
+          end
+          
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,5 @@
+module Socialstream
+  module Presence
+    VERSION = "0.2.1"
+  end
+end