manqod-server 1.257.0

data/lib/DrbDB/EventCache.rb

@@ -0,0 +1,47 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the owner of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+module EventCache
+	
+	def load_all_events
+		cnt=0
+		admin.rows("select distinct gtkobjectid from events").each{|evid|
+			a=Hash.new
+			admin.rows("select * from events where gtkobjectid = '#{evid['gtkobjectid']}'").each{|row|
+				a[row['event']]=Array.new unless a.has_key?(row['event'])
+				a[row['event']].push(row['command'])
+				cnt+=1
+			}
+			cache.set("ev#{evid['gtkobjectid']}",a)
+		}
+		einfo("loaded #{cnt} events")
+	end
+
+	def events(gtk_object_id,force_load=false)
+		if force_load
+			begin
+				cache.delete("ev#{gtk_object_id}") 
+			rescue Memcached::NotFound
+			end
+			cnt=0
+			a=Hash.new
+			admin.rows("select * from events where gtkobjectid = '#{gtk_object_id}'").each{|row|
+				a[row['event']]=Array.new unless a.has_key?(row['event'])
+				a[row['event']].push(row['command'])
+				cnt+=1
+			}
+			cache.set("ev#{gtk_object_id}",a) if a.size>0
+
+			einfo("loaded #{cnt.inspect} events for #{gtk_object_id.inspect}")
+		end
+		begin
+			a=cache.set("ev#{gtk_object_id}",a)
+		rescue Memcached::NotFound
+			a=Array.new
+		end
+		a
+	end
+
+end
+

data/lib/DrbDB/GtkAttributes.rb

@@ -0,0 +1,39 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the owner of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+module GtkAttributes
+	def load_all_attributes
+		@gtk_attributes=Hash.new
+		cnt=0
+		admin.rows("select * from gtkattributes").each{|row|
+			@gtk_attributes[row["gtkobjectid"]]=Hash.new unless @gtk_attributes.has_key?(row["gtkobjectid"])
+			@gtk_attributes[row["gtkobjectid"]][row["gtkobjecttype"]]=Hash.new unless @gtk_attributes[row["gtkobjectid"]].has_key?(row["gtkobjecttype"])
+			@gtk_attributes[row["gtkobjectid"]][row["gtkobjecttype"]][row["attribute"]]=row['data']
+			cnt+=1
+		}
+		cache.set("attributes",@gtk_attributes)
+		einfo("loaded #{cnt} attributes")
+	end
+	
+	def gtk_attribute(gtk_attr, context=self)
+
+		got=case context.class.name
+			when "DrbListModel" then "list"
+			when "DrbForm" then "form"
+			else edebug("unsupported class in gtk_attributes: #{context.class.name} for #{context}")
+		end
+
+		(@gtk_attributes.has_key?(context.get_id.to_s) ? 
+			( (@gtk_attributes[context.get_id.to_s].has_key?(got)) ? 
+				@gtk_attributes[context.get_id.to_s][got][gtk_attr] : nil) : nil )
+	end
+
+	def gtk_attribute_of_object(gtk_attr,gtkobject_id,gtkobject_type)
+		(@gtk_attributes.has_key?(gtkobject_id.to_s) ? 
+			( (@gtk_attributes[gtkobject_id.to_s].has_key?(gtkobject_type)) ? 
+				@gtk_attributes[gtkobject_id.to_s][gtkobject_type][gtk_attr] : nil) : nil )
+	end
+
+end
+

data/lib/DrbDB/Help.rb

@@ -0,0 +1,47 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the owner of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+module Help
+	def load_all_help
+		h=Hash.new
+		admin.rows("select * from help_items").each{|item|
+			h[item["index"]]=item["description"]
+		}
+
+		f=Hash.new
+		admin.rows("select * from help_formats").each{|format|
+			begin
+				f[format["name"]]=eval(format["format_dump"])
+			rescue => err
+				eerror("loading Help Tag Format: #{err}")
+			end
+		}
+
+		cache.set("help_items",h)
+		cache.set("help_formats",f)
+		einfo("ManqodHelp: loaded #{h.size} items and #{f.size} formats")
+	end
+
+	def save_help_item(index,description)
+		admin.query("replace into help_items set `index`='#{index}', `description`='#{description}'")
+		load_all_help
+	end
+	
+	def remove_help_item(index)
+		admin.query("delete from help_items where `index`='#{index}'")
+		load_all_help
+	end
+
+	def save_help_format(name,format)
+		e=Hash.new
+		format.each_pair{|key,val| e[key]=val}
+		admin.query("replace into help_formats set `name`='#{name}', `format_dump`='#{e.inspect}'")
+		load_all_help
+	end
+	
+	def remove_help_format(name)
+		admin.query("delete from help_formats where `name`='#{name}'")
+		load_all_help
+	end
+end

data/lib/DrbDB/Messaging.rb

@@ -0,0 +1,75 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the owner of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+module Messaging
+	def send_message(nick,subject,body,sender=nil,sendmail=true)
+		nick=[nick] unless nick.class == Array
+		Thread.new{
+			nick.each{|n|
+				admin.query("insert into messages (sender,recipient,subject,body,state,`date`) values('#{sender || "system"}','#{n}','#{subject}','#{body}','n',now())")
+				send_check_messages(n)
+			}
+		}
+		sendmail_to_nick(nick,subject,body) if sendmail
+	end
+	
+	def send_check_messages(nick)
+			main_server.connected_clients.each_key{|client| 
+				c=client.to_s.split(/\@/)[0]
+				begin
+					client.rpc("Messaging.instance.check_messages") if c == nick
+				rescue =>err
+					eerror(err)
+				end
+			}
+	end
+
+	def sendmail_to_nick(nick,subject,body)
+		Thread.new{
+			nick=[nick] unless nick.class == Array
+			sent=0
+			@users.each{|uid|
+				user=@users.get_user(uid)
+				nick.each{|n|
+					if n.to_s == user["nick"].to_s && user["email"].to_s.length>3
+						begin
+							msg="From: manqod@#{Socket.gethostbyname(Socket.gethostname).first}\nTo: #{user['email']}\nContent-Type: text/plain; charset=UTF-8\nSubject: #{subject}\n#{body}"
+							Net::SMTP.start('localhost'){ |smtp|
+								smtp.send_message(msg, "manqod_server", user["email"])
+								einfo("mail to #{user['email']} sent: #{subject}")
+							}
+							sent+=1
+						rescue => err
+							eerror("can't send error report via SMTP")
+						end
+					end
+				}
+			}
+			einfo("sent total #{sent} emails to #{nick.inspect}")
+		}
+	end
+	
+	def unread_messages(nick)
+		um=0
+		if r=admin.qrow("select count(id) as cnt from messages where `state`='n' and recipient='#{nick}'")
+			um=r["cnt"]
+		end
+		um
+	end
+	
+	def set_message_read(message_id,nick)
+		admin.query("update messages set `state`='c' where id='#{message_id}'")
+		send_check_messages(nick)
+	end
+	
+	def messages(nick)
+		admin.rows("select * from messages where recipient='#{nick}' and `state`!='d'")
+	end
+	
+	def delete_message(message_id,nick)
+		admin.query("update messages set `state`='d' where id='#{message_id}'")
+		send_check_messages(nick)
+	end
+
+end

data/lib/DrbDB/MyMultiSQL/jdbc.rb

@@ -0,0 +1,107 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the owner of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+require 'rubygems'
+require 'java'
+RAILS_CONNECTION_ADAPTERS = %w(jdbc)
+einfo("pease run: export CLASSPATH=$(java-config --classpath jdbc-mysql)")unless ENV['CLASSPATH'].index("mysql")
+module Jdbc; DriverManager = java.sql.DriverManager; Driver = com.mysql.jdbc.Driver end 
+module JavaLang;include_package "java.lang";end
+module JavaSql;include_package 'java.sql';end
+
+class MySQL 
+	include Eprint
+
+	def initialize(host,user,password,dbase)
+		@host=host
+		@user=user
+		@password=password
+		@dbase=dbase
+		@conn = Jdbc::DriverManager.getConnection("jdbc:mysql://#{@host}/#{@dbase}?user=#{@user}&password=#{@password}&zeroDateTimeBehavior=convertToNull&jdbcCompliantTruncation=false");
+	end
+
+
+	def query(sql)
+		return nil if sql.nil? or sql.length ==0
+		begin
+			stmt = @conn.createStatement
+			res = stmt.executeQuery(sql)
+		rescue SQLException => err
+#			case err
+#				when 2006, 2013
+#					einfo("connection dropped: retrying")
+#					reconnect
+#					retry
+#				when 1062
+					#duplicate
+#					res=-1
+#				else
+					eerror("#{err} in\n#{sql}")
+					raise "#{err}\n#{sql}\n"
+#			end
+		rescue CommunicationsException => e
+					edebug("comm error")
+					eerror("#{e} in\n#{sql}")
+					raise "#{e}\n#{sql}\n"
+		rescue =>e
+					edebug("other error: #{e.class.name}")
+					eerror("#{err} in\n#{sql}")
+		end
+		return res
+	end
+	
+	def fetch_hash(res,with_table=false)
+		begin
+		data=Array.new
+  	unless res.nil? 
+  		while res.next do
+				md=res.meta_data
+				row=Hash.new
+				i=1
+				while i<=md.column_count do
+					header=if with_table then 
+						md.table_name(i)+"."+md.column_label(i)
+						else 
+						md.column_label(i)
+					end
+					row[header]=res.getString(md.column_label(i))
+					i+=1
+				end
+				data.push(row)
+			end
+		end
+		return data
+		rescue =>e
+			eerror("metadata:#{md.inspect}\nrow:#{row.inspect}\nheader:#{header.inspect},colnum:#{i}")
+			eerror("error preparing the result:#{e}\n #{e.backtrace.join("\n\t")}")
+		end
+	end
+	
+	def fields(sql)
+		yield nil
+	end
+
+	def qrow(sql,with_table=false)
+		row=fetch_hash(query(sql),with_table).first
+		return row
+	end
+
+	def rows(sql,with_table=false)
+		if ret=query(sql)
+			fetch_hash(ret,with_table)
+		end
+	end
+
+  def escape_string(string)
+  	#we do nothing yet
+		string
+  end
+
+	def inspect
+		"jmysql(#{@dbase})"
+	end
+	def to_s
+		inspect
+	end
+end

data/lib/DrbDB/MyMultiSQL/mysql-ruby.rb

@@ -0,0 +1,114 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the owner of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+require('mysql')
+
+class MySQL < Mysql
+	include Eprint
+
+	MYSQL_FIELD_TYPE={ 
+		Mysql::Field::TYPE_BIT			=> "BIT",
+		Mysql::Field::TYPE_BLOB			=> "BLOB",
+		Mysql::Field::TYPE_CHAR			=> "CHAR",
+		Mysql::Field::TYPE_DATE			=> "DATE",
+		Mysql::Field::TYPE_DATETIME	=> "DATETIME",
+		Mysql::Field::TYPE_DECIMAL	=> "DECIMAL",
+		Mysql::Field::TYPE_DOUBLE		=> "DOUBLE",
+		Mysql::Field::TYPE_ENUM			=> "ENUM",
+		Mysql::Field::TYPE_FLOAT		=> "FLOAT",
+		Mysql::Field::TYPE_INT24		=> "INT24",
+		Mysql::Field::TYPE_LONG			=> "LONG",
+		Mysql::Field::TYPE_LONGLONG	=> "LONGLONG",
+		Mysql::Field::TYPE_NEWDECIMAL=> "NEWDECIMAL",
+		Mysql::Field::TYPE_NULL			=> "NULL",
+		Mysql::Field::TYPE_SET			=> "SET",
+		Mysql::Field::TYPE_SHORT		=> "SHORT",
+		Mysql::Field::TYPE_STRING		=> "CHAR",
+		Mysql::Field::TYPE_TIME			=> "TIME",
+		Mysql::Field::TYPE_TIMESTAMP=> "TIMESTAMP",
+		Mysql::Field::TYPE_TINY			=> "TINY",
+		Mysql::Field::TYPE_VAR_STRING=> "VARCHAR",
+		Mysql::Field::TYPE_YEAR			=> "YEAR"
+		
+	}
+
+	def initialize(host,user,password,dbase)
+#	options(Mysql::CLIENT_INTERACTIVE,1)
+		@host=host
+		@user=user
+		@password=password
+		@dbase=dbase
+		options(Mysql::OPT_CONNECT_TIMEOUT,1)
+		options(Mysql::OPT_READ_TIMEOUT,10)
+		options(Mysql::OPT_WRITE_TIMEOUT,10)
+		einfo("Mysql Client version #{client_info()}")
+		begin
+			super(@host,@user,@password,@dbase)
+		rescue MysqlError => err
+			eerror("connecting: #{err.error}")
+		end
+	end
+
+
+	def reconnect
+		begin
+			real_connect(@host,@user,@password,@dbase) 
+		rescue MysqlError => err
+			ewarn("reconnecting: #{err.error}")
+		end
+	end
+
+	def query(sql)
+		return nil if sql.nil? or sql.length ==0
+		begin
+			res=super(sql)
+		rescue MysqlError => err
+			case err.errno
+				when 2006, 2013
+					einfo("connection dropped: retrying")
+					reconnect
+					retry
+				when 1062
+					#duplicate
+					res=-1
+				else
+					eerror("#{err.error} in\n#{sql}")
+					raise "#{err.error}\n#{sql}\n"
+			end
+		end
+		return res
+	end
+
+	def fetch_hash(res,with_table=false)
+		data=Array.new
+ 		while row=res.fetch_hash(with_table) do
+ 			data.push(row)
+		end unless res.nil? 
+		return data
+	end
+
+	def fields(sql)
+		fields=Array.new
+  	if ret=query(sql)
+			ret.fetch_fields.sort{|a,b|"#{a.table}.#{a.name}" <=> "#{b.table}.#{b.name}"}.each{|field|
+				a={"name"=>"#{field.table}.#{field.name}","type"=>MYSQL_FIELD_TYPE[field.type], "length"=>field.length}
+				a["decimals"]=field.decimals if field.is_num?
+				fields.push(a)
+				a=nil
+			}
+		end
+		fields
+	end
+
+	def rows(sql,with_table=false)
+		if res=query(sql)
+			fetch_hash(res,with_table)
+		end
+	end
+
+	def to_s
+		"mysql(#{@dbase})"
+	end
+end
+

data/lib/DrbDB/MyMultiSQL.rb

@@ -0,0 +1,226 @@
+#this file is part of manqod
+#manqod is distributed under the CDDL licence
+#the author of manqod is Dobai-Pataky Balint(dpblnt@gmail.com)
+
+module SQL
+	include Eprint
+
+	def jruby?
+		RUBY_PLATFORM =~ /java/
+	end
+
+	def init_sql(host,user,password,dbase)
+		if jruby? 
+			einfo("using jruby")
+			require 'DrbDB/MyMultiSQL/jdbc.rb'
+		else
+			einfo("using mysql-ruby")
+			require 'DrbDB/MyMultiSQL/mysql-ruby.rb'
+		end
+		begin
+			@my=MySQL.new(host,user,password,dbase)
+			rescue =>err
+			eerror(err)
+			@my=nil
+		end
+		@my
+	end
+
+  def escape_string(string)
+		@my.escape_string(string)
+  end
+  
+  def query(sql)
+  	edebug("SQL: #{sql}")
+		@my.query(sql)
+  end
+
+	def qrow(sql,with_table=false)
+  	edebug("SQL: #{sql}")
+		if ret=@my.rows(sql,with_table)
+			ret.first
+		end
+	end
+	
+	def rows(sql,with_table=false)
+  	edebug("SQL: #{sql}")
+		@my.rows(sql,with_table)
+	end
+
+  def fields(sql)
+  	@my.fields(sql)
+  end
+  
+	def guess_table(query,field)
+		sql=String.new(query)
+		sql=sql+" \r\n"
+		llength=sql.length
+		while (sql.gsub!("`"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("\r\n"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("\n"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("  "," ")) and sql.length != llength do llength=sql.length end
+	
+		llast=0
+		while (last=sql.index(")") and (llast != last))
+			llast = last
+			if first=sql[0 .. last].rindex("(") then 
+				sql[first .. last]=self.guess_table(sql[first +1 .. last -1],field)
+			end
+		end
+
+		sql=sql.gsub(",","")
+		first=sql.index(" ",sql.upcase.rindex("FROM")+"from".length)+1 if sql.upcase.rindex("FROM")
+		first=sql.index(" ",sql.upcase.rindex("UPDATE")+"update".length)+1 if sql.upcase.rindex("UPDATE")
+		first=sql.index(" ",sql.upcase.rindex("INSERT INTO")+"insert into".length)+1 if sql.upcase.rindex("INSERT INTO")
+		if first
+			last=sql.index(" ",first)-1
+			table=sql[first .. last]
+		else
+			table=""
+		end
+		table
+	end
+
+		def top_level(sql,subject)
+			i=0
+			tsi=nil
+			while(i=sql.upcase.index(subject.upcase,i+1))
+				tsi=i if sql[0 .. i].count('(') == sql[0 .. i].count(')')
+					#at i is toplevel subject
+			end
+			tsi
+		end
+
+	def guess_base(query)
+		sql=String.new(query)
+		sql=sql+" \r\n"
+		llength=sql.length
+		while (sql.gsub!("`"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("\r\n"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("\n"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("  "," ")) and sql.length != llength do llength=sql.length end
+
+		if fi=top_level(sql,"from")
+			fi=sql.index(" ",fi+"from".length)+1
+			ret=sql[fi .. sql.index(" ",fi)-1]
+			else
+			ret=nil
+		end
+		ret
+	end
+
+	def add_where(query,where)
+		sql=String.new(query)
+		sql=sql+" \r\n"
+		llength=sql.length
+		while (sql.gsub!("`"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("\r\n"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("\n"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("  "," ")) and sql.length != llength do llength=sql.length end
+
+		if twi=top_level(sql,"where")
+			#insert where after 'where'
+			ret=sql[0 .. twi+"where".length] + where +" and "+ sql[twi+"where".length .. sql.length]
+		else
+			toi=top_level(sql,"group by")
+			toi=top_level(sql,"having") if toi.nil?
+			toi=top_level(sql,"order by") if toi.nil?
+			toi=top_level(sql,"limit") if toi.nil?
+			if toi
+				#insert the where before group by/having/order by/limit
+				ret=sql[0 .. toi-1] + " where #{where} " + sql[toi-1 .. sql.length]
+			else
+				#just append the where
+				ret="#{sql} where #{where}"
+			end
+		end
+		ret
+	end
+
+	def select_last(query,orderby) #for select last
+		sql=String.new(query)
+		sql=sql+" \r\n"
+		llength=sql.length
+		while (sql.gsub!("`","")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("\r\n"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("\n"," ")) and sql.length != llength do llength=sql.length end
+		while (sql.gsub!("  "," ")) and sql.length != llength do llength=sql.length end
+
+		toi=top_level(sql,"order by")
+		toi=top_level(sql,"limit") if toi.nil?
+		toi=sql.length if toi.nil?
+			#insert the orderby
+		ret=sql[0 .. toi-1] + " order by #{orderby} desc limit 1"
+		ret
+	end
+
+	def prepare_sql(isql,caller)
+		sql=String.new(isql)
+		if sql.length >0
+			while first=sql.index("{")
+				i=first+1;k=1
+				while (i<sql.length and k>0)
+					k=k+1 if sql[i .. i]=="{"
+					k=k-1 if sql[i .. i]=="}"
+					i=i+1
+				end
+				last = i-1
+				if sql[last .. last]=='}' then
+					ind=sql[first .. last]
+					indd=ind[1 .. ind.rindex("}")-1]
+					begin
+						sql[ind]=eval(indd,caller.getBinding).to_s
+					rescue StandardError,SyntaxError, NameError => err
+						ewarn("String doesn't compile: #{err}\nin query:#{sql}\n")
+						sql[ind]=""
+					end
+				else
+					ewarn("can't find closing bracket - } in #{sql[first .. sql.length]}\n")
+				end
+			end
+		end
+		return sql
+	end
+	
+	def update_manqod_db
+		current_version="unknown"
+		begin
+			t=qrow("select max(`version`) as version from db_version")
+			current_version=t["version"].to_f unless t.nil?
+			einfo("current version: #{current_version}")
+			rescue
+				ewarn("not auto update compatible")
+		end
+		return false if t.nil?
+		usql=File.new(File::expand_path(File.join(File.join(File.join(File.join(File.dirname(__FILE__),".."),".."),"etc"),"update.sql")),"r")
+		sql=""
+		while line=usql.gets do
+			next if line.length<5 #empty line
+			next if line.index("--")&&line.index("--")<2 #line begins with comment
+			sql="#{sql} #{line}"
+			line_version=sql.split("--")[-1]
+			if sql.rindex(";") && line_version && line_version.to_f>0
+				line_version=line_version.to_f
+				#found end of query and version number
+				sql=sql[0 .. sql.rindex("--")-1]
+				if line_version > current_version
+					einfo("applying update version: #{line_version.to_f}, query: \"#{sql}\"")
+					success=true
+					begin
+						query(sql)
+						rescue
+						success=false
+					end
+					if success then
+						query("insert into db_version (`version`) values (#{line_version})")
+						else
+						eerror("failed to apply version: #{line_version}")
+					end
+				end
+				sql=""
+			end
+		end
+	end
+
+end
+