vkhater-social_stream 0.16.3.3

data/presence/ejabberd/ejabberd_scripts/set_script_header.sh

@@ -0,0 +1,112 @@
+#!/bin/bash
+#Script header edition
+#@author Aldo
+
+#Constants
+installer_file_path=$(readlink -f $0)
+installer_folder_path=`dirname "$installer_file_path"`
+
+
+#Functions
+
+
+msg () {
+	echo "#################################"
+	echo $1
+}
+
+
+#Main Program
+
+msg "Starting set scripts header"
+
+echo "Installer path:" $installer_file_path
+
+
+#Look for params
+
+msg "Detecting ruby enviroment"
+
+if [ $1 ]
+  then {
+	echo "Ruby enviromet specified by param"
+	ruby_env=$1
+  } else {
+	ruby_env=`which ruby`
+  }
+fi
+
+echo "Ruby enviroment:" $ruby_env
+
+
+msg "Writing scripts header"
+echo ""
+for file in `ls $installer_folder_path/` ; do
+
+
+	if [ ! -f $installer_folder_path/$file ];
+	then
+		continue
+	fi
+
+	if [[ $file =~ .sh$ ]]
+	then
+		continue
+	fi
+
+	if [ $installer_folder_path/$file == $installer_file_path ];
+	then
+		continue
+	fi
+
+
+	printf $file"\n"
+
+	#Create temporal file
+	temporal_path=$installer_folder_path/$file"_temp"
+
+	if [ -f $temporal_path ];
+	then
+		echo "File $temporal_path exists."
+		rm $temporal_path
+	fi
+
+	touch $temporal_path
+
+	#Read file
+	file_path=$installer_folder_path/$file
+
+	SAVEIFS=$IFS
+	IFS=$(echo -en "\n\b")
+
+	while read line
+	do
+		#Look for Pattern !/usr/bin/env ruby
+		if [[ $line =~ ^#!/usr/bin/env ]]
+		then
+			scriptheader="#!/usr/bin/env"
+			line="${scriptheader} ${ruby_env}"
+		fi
+		echo $line >> $temporal_path
+	done < $file_path
+
+	IFS=$SAVEIFS
+
+	#Replace original file
+	cp $temporal_path $file_path
+
+	#Remove temporal file
+	rm $temporal_path
+
+done
+
+
+msg "Complete"
+exit 0
+
+
+
+
+
+
+

data/presence/ejabberd/ejabberd_scripts/synchronize_presence_script

@@ -0,0 +1,300 @@
+#!/usr/bin/env ruby
+#Rest Api Client Script
+#Version: 13-12-2011
+#@author Aldo
+
+
+require 'logger'
+require 'rest_client'
+
+
+path = "/var/log/ejabberd/scripts.log"
+file = File.open(path, File::WRONLY | File::APPEND | File::CREAT)
+file.sync = true
+$logger = Logger.new(file)
+$logger.level = Logger::DEBUG
+
+def getOption(option)
+  File.open('/etc/ejabberd/ssconfig.cfg', 'r') do |f1|  
+    while line = f1.gets  
+      line = line.gsub(/\n/,'')
+      if line.match(/^#/)
+        #Comments
+      elsif line.match(/^#{option}/)
+        return line.gsub(/#{option}/,'')
+      end  
+    end  
+  end
+  return "Undefined"
+end
+
+#Constants
+$secure_rest_api = getOption("secure_rest_api=")
+$pass = getOption("ejabberd_password=")
+$scripts_path = getOption("scripts_path=")
+$script_title = "Synchronize Presence Script"
+
+
+def log(title,text)
+	$logger.info title + ": " + text
+end
+
+def getMethodName
+  caller[0] =~ /`(.*?)'/
+  $1
+end
+
+
+#####################
+#####  Example  #####
+#####################
+#def myHook(param1,param2)
+#    log(getMethodName,"(My message: #{param1},#{param2})")
+#    url = "http://" + getOption("web_domain=") + "/xmpp/hookRoute"
+
+#    params = {}
+#    encrypted_params = {}
+#    #Add params to sent in clear
+#    params[:param1_in_server]=param1
+#    #Add params to sent cipher
+#    encrypted_params[:param2_in_server]=param2
+
+#    return [getMethodName,generic_api_call(url,params,encrypted_params)]
+#end
+
+def setConnection(username)
+    log($script_title,"#{getMethodName}(#{username})")
+    url = "http://" + getOption("web_domain=") + "/xmpp/setConnection"
+
+    params = {}
+    encrypted_params = {}
+    encrypted_params[:name]=username
+
+    return [getMethodName,generic_api_call(url,params,encrypted_params)]
+end
+
+
+def unsetConnection(username)
+    log($script_title,"#{getMethodName}(#{username})")
+    url = "http://" + getOption("web_domain=") + "/xmpp/unsetConnection"
+
+    params = {}
+    encrypted_params = {}
+    encrypted_params[:name]=username
+
+    return [getMethodName,generic_api_call(url,params,encrypted_params)]
+end
+
+
+def setPresence(username,status)
+    log($script_title,"#{getMethodName}(#{username},#{status})")
+    url = "http://" + getOption("web_domain=") + "/xmpp/setPresence"
+
+    params = {}
+    encrypted_params = {}
+    encrypted_params[:name]=username
+    encrypted_params[:status]=status
+
+    return [getMethodName,generic_api_call(url,params,encrypted_params)]
+end
+
+
+def unsetPresence(username)
+    log($script_title,"#{getMethodName}(#{username})")
+    url = "http://" + getOption("web_domain=") + "/xmpp/unsetPresence"
+
+    params = {}
+    encrypted_params = {}
+    encrypted_params[:name]=username
+
+    return [getMethodName,generic_api_call(url,params,encrypted_params)]
+end
+
+
+def resetConnection()
+    log($script_title,"Call #{getMethodName}()")
+    url = "http://" + getOption("web_domain=") + "/xmpp/resetConnection"
+
+    params = {}
+    encrypted_params = {}
+
+    return [getMethodName,generic_api_call(url,params,encrypted_params)]
+end
+
+
+def synchronize()
+    log($script_title,"Call #{getMethodName}()")
+    url = "http://" + getOption("web_domain=") + "/xmpp/synchronizePresence"
+
+
+    #Get connected users using Emanagement
+    users = []
+    command = $scripts_path + "/emanagement getConnectedUsers"
+    output = %x[#{command}]
+    sessions = output.split("\n")
+
+    sessions.each do |session|
+      users << session.split("@")[0]
+    end
+    #Finish
+
+
+    #In this cases users always will be sent in clear (not cipher)
+    #(Too much data to cipher)
+    #Anyway, we must to build the hash to pass the authentication
+    params = {}
+    encrypted_params = {}
+    params[:name]=users.join(",")
+
+    return [getMethodName,generic_api_call(url,params,encrypted_params)]
+end
+
+
+
+#Params must include the password and all the parameters to be sent in clear.
+#Anyway, If "secure_rest_api" is disable, encrypted_params will be send in clear.
+def generic_api_call(url,params,encrypted_params)
+
+  begin
+    unless params
+ 	params = {}
+    end
+
+    unless encrypted_params
+ 	 encrypted_params = {}
+    end
+
+    params[:password]=$pass
+
+    response=sendHttpRequest(url,params,encrypted_params)
+    puts response.body
+
+    if response.body.include?("Ok")
+    	return true
+    else
+    	return false
+    end
+
+  rescue => e
+    log($script_title,"#{e.class.name}: #{e.message}")
+    puts("#{e.class.name}: #{e.message}")
+    return false
+  end
+end
+
+
+#Send HTTP Request to Social Stream Presence API
+def sendHttpRequest(url,params,encrypted_params)
+
+    unless params[:password]
+	return "params[:password] required in sendHttpRequest";
+    end
+
+
+    if $secure_rest_api == "true"
+	#Require libraries
+	require 'openssl'
+
+	xmpp_private_key_path = $scripts_path + "/rsa_keys/xmpp_rsa_key_private.pem";
+    	web_public_key_path = $scripts_path + "/rsa_keys/web_rsa_key_public.pem";
+    	xmpp_private_key = OpenSSL::PKey::RSA.new(File.read(xmpp_private_key_path))
+    	web_public_key = OpenSSL::PKey::RSA.new(File.read(web_public_key_path))
+
+	request_params = {};
+
+	#Copy non encypted params
+        params.each do |key,value|
+	  unless key.to_s == "password"
+		request_params[key] = value
+	  end 
+        end
+
+	#Include encrypted params
+	if encrypted_params and encrypted_params.empty? == false
+	  request_params[:encrypted_params] = web_public_key.public_encrypt(encrypted_params.to_s)
+	end
+	
+	#Generating stamp
+	#1 Get constant password
+	password = params[:password];
+	#2 Generating timestamp
+	timestamp = Time.now.utc.to_s
+	#3 Calculating Hash
+    	hash = calculateHash(request_params)
+
+	#Add cipher stamp to the request
+	request_params[:password] = xmpp_private_key.private_encrypt(password+"#####"+timestamp+"#####"+hash)
+	
+	#Replace previous params
+	params = request_params
+    else
+	#Non secure mode: send encrypted params in clear
+	if encrypted_params
+	  encrypted_params.each do |key,value|
+	      params[key] = value
+	  end
+	end
+    end
+    
+    response = RestClient.get url, :params => params
+    return response
+end
+
+
+def calculateHash(request_params)
+	require 'digest/md5'
+
+	unless request_params
+		request_params = {};
+	end
+
+	hash = "";
+        request_params.each do |key,value|
+              hash = hash + key.to_s + value.to_s
+        end
+        return Digest::MD5.hexdigest(hash)
+end
+
+
+
+
+def invokeApiCall(method,args)
+	length = args.length;
+	case length
+	when 0
+	  return send(method)
+	when 1
+	  return send(method,args[0])
+	when 2
+	  return send(method,args[0],args[1])
+	when 3
+	  return send(method,args[0],args[1],args[2])
+	when 4
+	  return send(method,args[0],args[1],args[2],args[3])
+	else
+	  return send(method,args)
+	end
+end
+
+
+#Main Program
+
+begin
+
+	args = []
+	method = "synchronize"
+
+	if (response = invokeApiCall(method, args) and response[1])
+	  	puts $script_title  + ": #{response[0]} [OK]"
+	  	log( $script_title  , "#{response[0]} [OK]" )
+	else
+	  	puts $script_title  + ": #{response[0]} [FAIL]"
+	  	log( $script_title  , "#{response[0]} [FAIL]" )
+	end
+
+rescue => e
+	log($script_title,"#{e.class.name}: #{e.message}")
+   	puts("#{e.class.name}: #{e.message}")
+    	exit 1
+end
+

data/presence/ejabberd/installer.sh

@@ -0,0 +1,267 @@
+#!/bin/bash
+
+#Social Stream Presence Ejabberd files installer
+#@author Aldo
+
+#Call example:
+#./installer.sh ejabberd_module_path="/ejabberd_module_path/" scripts_path="/scripts_path/" [key1=value1,key2=value2]
+
+#Constants
+config_files_path="/etc/ejabberd/"
+logs_path="/var/log/ejabberd/"
+installer_file_path=$(readlink -f $0)
+installer_folder_path=`dirname "$installer_file_path"`
+
+
+
+#Functions
+
+help () {
+      echo "Syntax error: ./installer [onlyconf=true] ejabberd_module_path=mpath scripts_path=spath [key1=value1,key2=value2,...]"  
+}
+
+
+msg () {
+      echo "#################################"
+      echo $1
+}
+
+
+applyOption () {
+      if [ ! $1 ] || [ ! $2 ]
+        then
+          return 1
+      fi
+      #key $1
+      #value $2
+      #string ssconfig $3
+      echo "Enable option " $1"="$2
+
+      SEPARATOR=$(echo -en "\n\b")
+      match=$1"="
+	
+     if [[ $ssconfig == *$match* ]]
+	then {
+		#Modify existing options
+ 	        repl=$1"="$2"="
+
+		if [ $2 == "remove" ]
+		 then 
+		  repl="removedVar=true="
+		fi
+
+      		ssconfig=${ssconfig/$match/$repl}
+	} else {
+		#Add new options
+		if [ ! $2 == "remove" ]
+		 then 
+		  ssconfig="${ssconfig}${SEPARATOR}${1}=${2}="
+		fi
+ 	}
+     fi
+
+      return 0
+}
+
+
+restoreFile () {
+      IFS=$(echo -en "\n\b")
+      cat /dev/null > $conffile
+      for word in $ssconfigrestore; do
+	echo $word >> $conffile
+      done
+      return 0
+}
+
+
+updateSSConfig () {
+
+if [ $1 ] && [ ${#1} -gt 2 ]
+  then {
+
+        if [ ${1:0:1} != "[" ] || [ ${1:${#1}-1:${#1}} != "]" ]
+	  then
+          echo "Malformed options"
+          help
+	  exit 1
+        fi
+
+        msg "Processing options"
+        options=${1:1:${#1}-2}
+        options=(${options//","/ })
+
+
+	#Read config file
+	ssconfig=""
+	conffile=$config_files_path/ssconfig.cfg
+
+	SAVEIFS=$IFS
+	IFS=$(echo -en "\n\b")
+
+	while read line
+	do
+	  ssconfig="${ssconfig}${line}${IFS}"
+	done < $conffile
+
+	IFS=$SAVEIFS
+
+	ssconfigrestore=$ssconfig;
+
+	#Modify ssconfig to apply options
+	for option in ${options[@]}; do
+		option=(${option//"="/ })
+		key=${option[0]}
+        	value=${option[1]}
+		applyOption $key $value
+	done
+
+
+	#Write (ssconfig) to file
+	cat /dev/null > $conffile
+	IFS=$(echo -en "\n\b")
+	for word in $ssconfig; do
+
+	  if [[ $word =~ [#] ]] || [ -z $word ]
+	    then {
+            	echo $word >> $conffile
+ 	    } else {
+                IFS=$SAVEIFS
+		arr=(${word//"="/ })
+		if [ ${#arr[@]} -lt 2 ]
+			then
+			echo "ssconfig.cfg error in line:" $word
+			restoreFile
+			exit 1
+		fi
+                word="${arr[0]}=${arr[1]}"
+		if [ ! $word == "removedVar=true" ]
+		 then
+ 			echo $word >> $conffile
+	        fi
+	    }
+          fi
+	done
+  }
+fi
+
+}
+
+
+#Main Program
+
+
+#Look for only configuration mode
+arr=(${1//"="/ })
+if [ ${#arr} -ge 2 ] && [ ${arr[0]} == "onlyconf" ] && [ ${arr[1]} == "true" ]
+  then {
+    msg "Updating ssconfig"
+    updateSSConfig $2
+    exit 0
+  }
+fi
+
+
+
+#Installer mode
+msg "Start installer"
+
+if [ $# -lt 2 ]
+  then
+    help
+    exit 1
+fi
+
+
+msg "Reading parameters..."
+
+arr=(${1//"="/ })
+
+if [ ${arr[0]} == "ejabberd_module_path" ]
+  then {
+    ejabberd_module_path=${arr[1]}
+  } else {
+    help
+    exit 1
+  }
+fi
+
+arr=(${2//"="/ })
+
+if [ ${arr[0]} == "scripts_path" ]
+  then {
+    scripts_path=${arr[1]}
+  } else {
+    help
+    exit 1
+  }
+fi
+
+
+echo "Installer path:" $installer_file_path
+echo "Ejabberd module path:" $ejabberd_module_path 
+echo "scripts_path:" $scripts_path
+echo "config_files_path:" $config_files_path
+echo "logs_path:" $logs_path
+
+
+paths=($ejabberd_module_path $scripts_path $config_files_path $logs_path )
+
+msg "Creating directories"
+
+for path in ${paths[@]}; do
+        mkdir -p $path
+done
+
+
+msg "Copying Ejabberd modules"
+cp $installer_folder_path/mod_admin_extra/mod_admin_extra.beam $ejabberd_module_path
+cp $installer_folder_path/mod_sspresence/mod_sspresence.beam $ejabberd_module_path
+
+msg "Copying scripts"
+cp -r $installer_folder_path/ejabberd_scripts/* $scripts_path
+
+
+msg "Checking and copying configuration files"
+
+if [ -e $config_files_path/ssconfig.cfg ]
+  then {
+       echo "Find ssconfig.cfg: updating ssconfig_example.cfg"
+       cp $installer_folder_path/conf/ssconfig_example.cfg $config_files_path/ssconfig_example.cfg
+    } else {
+       echo "ssconfig not exists"
+       cp $installer_folder_path/conf/ssconfig_example.cfg $config_files_path/ssconfig.cfg
+  }
+fi
+
+cp $installer_folder_path/conf/ejabberd_example.cfg $config_files_path/ejabberd_example.cfg
+echo "Updating ejabberd_example.cfg"
+
+msg "Check and copying log files"
+if [ ! -e $logs_path/scripts.log ]
+  then {
+       echo "Creating scripts.log"
+       touch $logs_path/scripts.log
+  }
+fi
+
+if [ ! -e $logs_path/auth.log ]
+  then {
+       echo "Creating auth.log"
+       touch $logs_path/auth.log
+  }
+fi
+
+
+#Processing options
+updateSSConfig $3
+
+
+msg "Complete"
+exit 0
+
+
+
+
+
+
+