social_stream-presence 0.0.2 → 0.0.4

data/ejabberd/ejabberd_scripts/compile_module

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+
+
+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
+
+
+
+
+source_path = getOption("source_path=")
+
+if source_path == "Undefined"
+ #puts "mod_sspresence source_path in undefined: define source_path in /etc/ejabberd/ssconfig.cfg to compile mod_sspresence"
+ puts "mod_sspresence source_path in undefined: Exit compile"
+else
+  puts "Compile mod_sspresence"
+  system("erlc #{source_path}/mod_sspresence.erl")
+  system 'sudo mv mod_sspresence.beam /lib/ejabberd/ebin/mod_sspresence.beam'
+  puts "Compile mod_sspresence OK"
+end
+
+
+

data/ejabberd/ejabberd_scripts/emanagement

@@ -0,0 +1,245 @@
+#!/usr/bin/env ruby
+
+#Ejabberd Management script
+#New features for management and maintenance ejabberd
+#@author Aldo
+
+require 'logger'
+
+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
+
+def ejabberdLog(text)
+	$logger.info "Ejabberd Management Script: " + text
+end
+
+#Configuration variables
+$domain = getOption("server_domain=")
+
+PARAMS_FOR_COMMANDS = {
+'getRoster' => 1,
+'removeBuddyFromRoster' => 2,
+'addBuddyToRoster' => 5,
+'removeRoster' => 1,
+'getBuddysFromRoster' => 1,
+'setBidireccionalBuddys' => 4,
+'help' => 0,
+'getUserResource' => 1,
+'sendMessageToUser' => 3,
+'sendPresence' => 2,
+'unsetPresence' => 1,
+'setPresence' => 1,
+'removeAllRosters' => 0,
+}
+
+SYNTAX_FOR_COMMANDS = {
+'getRoster' => "getRoster username",
+'removeBuddyFromRoster' => "removeBuddyFromRoster username buddy",
+'addBuddyToRoster' => "addBuddyToRoster username buddy buddyNick buddyGroup subscription_type",
+'removeRoster' => "removeRoster username",
+'getBuddysFromRoster' => "getBuddysFromRoster roster",
+'setBidireccionalBuddys' => "setBidireccionalBuddys usernameA usernameB nickA nickB",
+'getUserResource' => "getUserResource username",
+'sendMessageToUser' => "sendMessageToUser from_name to_name msg",
+'sendPresence' => 'sendPresence username show',
+'unsetPresence' => 'unsetPresence username',
+'setPresence' => 'setPresence username',
+'removeAllRosters' => 'removeAllRosters'
+}
+
+def log(msg)
+	logWithTitle(msg,nil)
+end
+
+def logWithTitle(msg,title)
+	puts "------------------------"
+	if title
+		puts ("<<<" + title + ">>>")
+	end
+	puts msg
+	puts "------------------------"
+end
+
+
+def getRoster(username)
+	command = "ejabberdctl get_roster " + username  + " " + $domain
+	%x[#{command}];
+end
+
+def removeBuddyFromRoster(username,buddy)
+	command = "ejabberdctl delete_rosteritem " + username + " " + $domain + " " + buddy + " " + $domain
+	%x[#{command}];
+end
+
+def addBuddyToRoster(username,buddy,buddyNick,buddyGroup,subscription_type)
+	command = "ejabberdctl add-rosteritem " + username + " " + $domain + " " + buddy + " " + $domain + " \\'" + buddyNick + "\\' " + buddyGroup + " " + subscription_type
+	%x[#{command}];
+end
+
+def removeRoster(username)
+	user_roster = getRoster(username);
+	user_buddys = getBuddysFromRoster(user_roster);
+	user_buddys.each do |buddy|
+		removeBuddyFromRoster(username,buddy)
+	end
+	return "Done"
+end
+
+def removeAllRosters()
+	command = "ejabberdctl process_rosteritems delete any any any any"
+	%x[#{command}];
+	return "Done";
+end
+
+def getBuddysFromRoster(roster)
+	buddys = []
+        lines = roster.split("\n")
+	lines.each do |line|
+		buddys << line.split("@")[0]
+	end
+	buddys
+end
+
+def setBidireccionalBuddys(usernameA,usernameB,nickA,nickB)
+	#addBuddyToRoster(username,buddy,buddyNick,buddyGroup,subscription_type)
+	addBuddyToRoster(usernameA,usernameB,nickB,"SocialStream","both")
+	addBuddyToRoster(usernameB,usernameA,nickA,"SocialStream","both")
+	sendPresence(usernameA,"chat")
+	sendPresence(usernameB,"chat")
+	return "Done"
+end
+
+def sendStanzaUserMessage(username,msg)
+	resource = getUserResource(username);
+	stanza = "\\<\\'message\\'\\>\\<\\'body\\'\\>\\'" + msg + "\\'\\<\\'/body\\'\\>\\<\\'/message\\'\\>"
+	command = "ejabberdctl send_stanza_c2s " + username + " " + $domain + " " + resource + " " + stanza
+	puts "Executing: " + command
+	%x[#{command}];
+	return "Done"
+end
+
+
+def sendPresence(username,show)
+	sendPresenceWithShow(username,username,show)
+end
+
+def unsetPresence(username)
+	sendPresenceStanzaWithType(username,username,"unavailable")
+end
+
+def setPresence(username)
+	sendPresenceStanzaWithType(username,username,"available")
+end
+
+def sendPresenceWithShow(from_name,to_name,show)
+	puts from_name
+	resource = getUserResource(from_name);
+	puts resource
+	from_sid = from_name + "@" + $domain;
+	to_sid = to_name + "@" + $domain;   
+	pres_stanza = "\\<\\'presence from=\\'\\\"\\'" + from_sid + "\\'\\\"\\' to=\\'\\\"\\'" + to_sid + "\\'\\\"\\>\\<\\'show\\'\\>\\'" + show + "\\'\\<\\'/show\\'\\>\\<\\'/presence\\'\\>" 
+	command = "ejabberdctl send_stanza_c2s " + from_name + " " + $domain + " " + resource + " " + pres_stanza
+	puts "Executing: " + command
+	%x[#{command}];
+	return "Done"
+end
+
+def sendPresenceStanzaWithType(from_name,to_name,presence_type)
+	resource = getUserResource(from_name);
+	from_sid = from_name + "@" + $domain;
+	to_sid = to_name + "@" + $domain;
+	pres_stanza = "\\<\\'presence type=\\'\\\"\\'" + presence_type + "\\'\\\"\\' from=\\'\\\"\\'" + from_sid + "\\'\\\"\\' to=\\'\\\"\\'" + to_sid + "\\'\\\"\\>\\<\\'/presence\\'\\>" 
+	command = "ejabberdctl send_stanza_c2s " + from_name + " " + $domain + " " + resource + " " + pres_stanza
+	puts "Executing: " + command
+	%x[#{command}];
+	return "Done"
+end
+
+def sendMessageToUser(from_name,to_name,msg)
+	from_sid = from_name + "@" + $domain;
+	to_sid = to_name + "@" + $domain;
+	command = "ejabberdctl send_message_chat " + from_sid + " " + to_sid + " " + "\\'" + msg + "\\'";
+	puts "Executing: " + command
+	%x[#{command}];
+	return "Done"
+end
+
+def getUserResource(username)
+	command = "ejabberdctl connected-users"
+	output = %x[#{command}];
+        lines = output.split("\n");
+	lines.each do |line|
+		if line.split("@")[0] == username
+			#puts "Find " + username
+			s = line.split("@")[1];
+			resource = s.split("/")[1];
+			return resource;	
+		end
+	end
+	return username + " no have any active session"
+end
+
+def help
+	log("Command list")
+	SYNTAX_FOR_COMMANDS.values.each do |command|
+		puts command
+	end
+	puts ""
+end
+
+log("Init Ejabberd Maintenance script")
+
+begin
+	if ARGV[0] and PARAMS_FOR_COMMANDS.keys.include?(ARGV[0])
+		if (ARGV.length == (PARAMS_FOR_COMMANDS[ARGV[0]]+1))
+
+			ejabberdLog("Executing (#{ARGV[0]})")
+
+			length = ARGV.length;
+			case length
+			when 1
+			  puts send(ARGV[0])
+			when 2
+			  puts send(ARGV[0],ARGV[1])
+			when 3
+			  puts send(ARGV[0],ARGV[1],ARGV[2])
+			when 4
+			  puts send(ARGV[0],ARGV[1],ARGV[2],ARGV[3])
+			when 5
+			  puts send(ARGV[0],ARGV[1],ARGV[2],ARGV[3],ARGV[4])
+			when 6
+			  puts send(ARGV[0],ARGV[1],ARGV[2],ARGV[3],ARGV[4],ARGV[5])
+			else
+			  puts send(ARGV[0],ARGV)
+			end
+			puts ""
+		else 
+			log("Error: Params required for command " + (ARGV[0]).to_s() + ": " + (PARAMS_FOR_COMMANDS[ARGV[0]]).to_s())
+			log("Use 'help' to get information about command syntax")
+		end
+	else
+		
+		log("Error: Command not recognized")
+		log("Use 'help' to get information about command syntax")
+	end
+rescue
+	puts "Parametros incorrectos"
+end
+

data/ejabberd/ejabberd_scripts/generate_random_password

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+
+def newpass(l)
+    chars = 'abcdefghjkmnpqrstuvwxyzABCDEFGHJKLMNOPQRSTUVWXYZ0123456789!$%&()=?|@^*'
+    password = ''
+    l.downto(1) { |i| password << chars[rand(chars.length - 1)] }
+    return password
+end
+
+puts "Generate random password"
+
+unless ARGV[0]
+  puts "Error: Password lenght argument missed"
+  exit
+else
+  puts ARGV[0]
+  puts newpass(Integer(ARGV[0]))
+end

data/ejabberd/ejabberd_scripts/kill_authentication_script.sh

@@ -0,0 +1,13 @@
+#!/bin/bash
+
+echo "Kill All Authentication Scripts"
+
+for pid in `ps -aef | grep './authentication_script' | grep -v grep | awk '{print $2}'`
+do
+	echo $pid  		
+	kill -9 $pid
+done
+
+
+
+

data/ejabberd/ejabberd_scripts/reset_connection_script

@@ -0,0 +1,55 @@
+#!/usr/bin/env ruby
+#Reset Connection Script
+#@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
+
+$url = getOption("reset_connection_api=")
+$pass = getOption("ejabberd_password=")
+
+
+def log(text)
+	$logger.info "Reset Connection Script: " + text
+end
+
+
+def resetConnection()
+  begin
+    RestClient.post($url, :password => $pass)
+    return true
+  rescue => e
+    log("#{e.class.name}: #{e.message}")
+    return false
+  end
+end
+
+if (resetConnection())
+  puts "Reset Connection [OK]"
+  log( "Reset Connection [OK]" )
+else
+  puts "Reset Connection [FAIL]"
+  log( "Reset Connection [FAIL]" )
+end
+
+

data/ejabberd/ejabberd_scripts/reset_logs.sh

@@ -0,0 +1,23 @@
+#!/bin/bash
+
+echo "Starting Reset logs"
+
+rm /var/log/ejabberd/auth.log
+rm /var/log/ejabberd/auth_error.log
+rm /var/log/ejabberd/ejabberd.log
+rm /var/log/ejabberd/erlang.log
+rm /var/log/ejabberd/scripts.log
+rm /var/log/ejabberd/erl_crash_*
+
+touch /var/log/ejabberd/auth.log
+touch /var/log/ejabberd/auth_error.log
+touch /var/log/ejabberd/ejabberd.log
+touch /var/log/ejabberd/erlang.log
+touch /var/log/ejabberd/scripts.log
+touch /var/log/ejabberd/erl_crash_dummy.log
+
+echo "Reset logs OK"
+
+
+
+

data/ejabberd/ejabberd_scripts/set_connection_script

@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+#Set Connection Script
+#@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
+
+$url = getOption("set_connection_api=")
+$pass = getOption("ejabberd_password=")
+
+
+def log(text)
+	$logger.info "Set Connection Script: " + text
+end
+
+def setConnection(username)
+  log("setConnection(#{username})")
+  RestClient.post($url, :name => username, :password => $pass)
+  return true
+
+  rescue RestClient::Exception
+    log("RestClient::Exception with setConnection(#{username})")
+end
+
+
+setConnection(ARGV[0])
+
+

data/ejabberd/ejabberd_scripts/set_presence_script

@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+#Set Presence Script
+#@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
+
+$url = getOption("set_presence_api=")
+$pass = getOption("ejabberd_password=")
+
+
+def log(text)
+	$logger.info "Set Presence Script: " + text
+end
+
+def setPresence(username,status)
+  log("setPresence(#{username},#{status})")
+  RestClient.post($url, :name => username, :status => status, :password => $pass)
+  return true
+
+  rescue RestClient::Exception
+    log("RestClient::Exception with setPresence(#{username})")
+end
+
+
+setPresence(ARGV[0],ARGV[1])
+
+