knjrbfw 0.0.3

data/lib/knj/web.rb

@@ -0,0 +1,932 @@
+class Knj::Web
+	attr_reader :session, :cgi, :data
+	
+	def initialize(args = {})
+		@args = Knj::ArrayExt.hash_sym(args)
+		@db = @args[:db] if @args[:db] 
+		@args[:tmp] = "/tmp" if !@args[:tmp]
+		
+		raise "No ID was given." if !@args[:id]
+		raise "No DB was given." if !@args[:db]
+		
+		if @args[:cgi]
+			@cgi = @args[:cgi]
+		elsif $_CGI
+			@cgi = $_CGI
+		else
+			if ENV["HTTP_HOST"] or $knj_eruby or Knj::Php.class_exists("Apache")
+				@cgi = CGI.new
+			end
+		end
+		
+		$_CGI = @cgi if !$_CGI
+		self.read_cgi
+		
+		if $_FCGI
+			KnjEruby.connect("exit") do
+				@session.close
+				
+				@post = nil
+				@get = nil
+				@server = nil
+				@cookie = nil
+				
+				$_POST = nil
+				$_GET = nil
+				$_SERVER = nil
+				$_COOKIE = nil
+			end
+		else
+			Kernel.at_exit do
+				@session.close
+				
+				@post = nil
+				@get = nil
+				@server = nil
+				@cookie = nil
+				
+				$_POST = nil
+				$_GET = nil
+				$_SERVER = nil
+				$_COOKIE = nil
+			end
+		end
+	end
+	
+	def read_cgi(args = {})
+		args.each do |key, value|
+			if key == :cgi
+				@cgi = value
+			else
+				raise "No such key: #{key.to_s}"
+			end
+		end
+		
+		if $_FCGI_COUNT and $_FCGI and $_CGI
+			@server = {}
+			$_CGI.env_table.each do |key, value|
+				@server[key] = value
+			end
+		elsif $_CGI and ENV["HTTP_HOST"] and ENV["REMOTE_ADDR"]
+			@server = {}
+			ENV.each do |key, value|
+				@server[key] = value
+			end
+		elsif Knj::Php.class_exists("Apache")
+			@server = {
+				"HTTP_HOST" => Apache.request.hostname,
+				"HTTP_USER_AGENT" => Apache.request.headers_in["User-Agent"],
+				"REMOTE_ADDR" => Apache.request.remote_host(1),
+				"REQUEST_URI" => Apache.request.unparsed_uri
+			}
+		else
+			@server = {}
+		end
+		
+		@files = {}
+		@post = {}
+		if @cgi and @cgi.request_method == "POST"
+			@cgi.params.each do |pair|
+				do_files = false
+				isstring = true
+				varname = pair[0]
+				stringparse = nil
+				
+				if pair[1][0].class.name == "Tempfile"
+					if varname[0..3] == "file"
+						isstring = false
+						do_files = true
+						
+						if pair[1][0].size > 0
+							stringparse = {
+								"name" => pair[1][0].original_filename,
+								"tmp_name" => pair[1][0].path,
+								"size" => pair[1][0].size,
+								"error" => 0
+							}
+							
+							stringparse["name"] = pair[1][0].original_filename if pair[1][0].respond_to?("original_filename")
+						end
+					else
+						stringparse = File.read(pair[1][0].path)
+					end
+				elsif pair[1][0].is_a?(StringIO)
+					if varname[0..3] == "file"
+						tmpname = @args[:tmp] + "/knj_web_upload_#{Time.now.to_f.to_s}_#{rand(1000).to_s.untaint}"
+						isstring = false
+						do_files = true
+						cont = pair[1][0].string
+						Knj::Php.file_put_contents(tmpname, cont.to_s)
+						
+						if cont.length > 0
+							stringparse = {
+								"tmp_name" => tmpname,
+								"size" => cont.length,
+								"error" => 0
+							}
+							
+							stringparse["name"] = pair[1][0].original_filename if pair[1][0].respond_to?("original_filename")
+						end
+					else
+						stringparse = pair[1][0].string
+					end
+				else
+					stringparse = pair[1][0]
+				end
+				
+				if stringparse
+					if !do_files
+						if isstring
+							Knj::Web.parse_name(@post, varname, stringparse)
+						else
+							@post[varname] = stringparse
+						end
+					else
+						if isstring
+							Knj::Web.parse_name(@files, varname, stringparse)
+						else
+							@files[varname] = stringparse
+						end
+					end
+				end
+			end
+		end
+		
+		
+		if @cgi and @cgi.query_string
+			@get = Knj::Web.parse_urlquery(@cgi.query_string)
+		else
+			@get = {}
+		end
+		
+		@cookie = {}
+		if @cgi
+			@cgi.cookies.each do |key, value|
+				@cookie[key] = value[0]
+			end
+		end
+		
+		self.global_params if @args[:globals]
+		
+		if @cookie[@args[:id]] and (sdata = @args[:db].single(:sessions, :id => @cookie[@args[:id]]))
+			@data = Knj::ArrayExt.hash_sym(sdata)
+			
+			if @data
+				if @data[:user_agent] != @server["HTTP_USER_AGENT"] or @data[:ip] != @server["REMOTE_ADDR"]
+					@data = nil
+				else
+					@db.update(:sessions, {"last_url" => @server["REQUEST_URI"].to_s, "date_active" => Datestamp.dbstr}, {"id" => @data[:id]})
+					session_id = @args[:id] + "_" + @data[:id]
+				end
+			end
+		end
+		
+		if !@data or !session_id
+			@db.insert(:sessions,
+				:date_start => Knj::Datet.new.dbstr,
+				:date_active => Knj::Datet.new.dbstr,
+				:user_agent => @server["HTTP_USER_AGENT"],
+				:ip => @server["REMOTE_ADDR"],
+				:last_url => @server["REQUEST_URI"].to_s
+			)
+			
+			@data = Knj::ArrayExt.hash_sym(@db.single(:sessions, :id => @db.last_id))
+			session_id = @args[:id] + "_" + @data[:id]
+			Knj::Php.setcookie(@args[:id], @data[:id])
+		end
+		
+		require "cgi/session"
+		require "cgi/session/pstore"
+		@session = CGI::Session.new(@session, "database_manager" => CGI::Session::PStore, "session_id" => session_id, "session_path" => @args[:tmp])
+	end
+	
+	def [](key)
+		return @session[key.to_sym]
+	end
+	
+	def []=(key, value)
+		return @session[key.to_sym] = value
+	end
+	
+	def self.parse_cookies(str)
+    ret = {}
+    
+    str.split("; ").each do |cookie_str|
+      splitted = cookie_str.split("=")
+      ret[Knj::Php.urldecode(splitted[0])] = Knj::Php.urldecode(splitted[1])
+    end
+    
+    return ret
+	end
+	
+	def self.parse_urlquery(querystr, args = {})
+		get = {}
+		querystr.to_s.split("&").each do |value|
+			pos = value.index("=")
+			
+			if pos != nil
+				name = value[0..pos-1]
+				name = name.to_sym if args[:syms]
+				valuestr = value.slice(pos+1..-1)
+				Knj::Web.parse_name(get, Knj::Php.urldecode(name), valuestr, args)
+			end
+		end
+		
+		return get
+	end
+	
+	def self.parse_secname(seton, secname, args)
+		secname_empty = false
+		if secname.length <= 0
+			secname_empty = true
+			try = 0
+			
+			loop do
+				if !seton.has_key?(try)
+					break
+				else
+					try += 1
+				end
+			end
+			
+			secname = try
+		else
+			secname = secname.to_i if Knj::Php.is_numeric(secname)
+		end
+		
+		secname = secname.to_sym if args[:syms] and secname.is_a?(String)
+		
+		return [secname, secname_empty]
+	end
+	
+	def self.parse_name(seton, varname, value, args = {})
+		if value.respond_to?(:filename) and value.filename
+			realvalue = value
+		else
+			realvalue = value.to_s
+		end
+		
+		realvalue = Knj::Php.urldecode(realvalue) if args[:urldecode] and !value.respond_to?(:filename)
+		
+		if varname and varname.index("[") != nil
+			if match = varname.match(/\[(.*?)\]/)
+				namepos = varname.index(match[0])
+				name = varname.slice(0..namepos - 1)
+				name = name.to_sym if args[:syms]
+				seton[name] = {} if !seton.has_key?(name)
+				
+				secname, secname_empty = Knj::Web.parse_secname(seton[name], match[1], args)
+				
+				valuefrom = namepos + secname.to_s.length + 2
+				restname = varname.slice(valuefrom..-1)
+				
+				if restname and restname.index("[") != nil
+					seton[name][secname] = {} if !seton[name].has_key?(secname)
+					Knj::Web.parse_name_second(seton[name][secname], restname, value, args)
+				else
+					seton[name][secname] = realvalue
+				end
+			else
+				seton[varname][match[1]] = realvalue
+			end
+		else
+			seton[varname] = realvalue
+		end
+	end
+	
+	def self.parse_name_second(seton, varname, value, args = {})
+		if value.respond_to?(:filename) and value.filename
+			realvalue = value
+		else
+			realvalue = value.to_s
+		end
+		
+		match = varname.match(/^\[(.*?)\]/)
+		if match
+			namepos = varname.index(match[0])
+			name = match[1]
+			secname, secname_empty = Knj::Web.parse_secname(seton, match[1], args)
+			
+			valuefrom = namepos + match[1].length + 2
+			restname = varname.slice(valuefrom..-1)
+			
+			if restname and restname.index("[") != nil
+				seton[secname] = {} if !seton.has_key?(secname)
+				Knj::Web.parse_name_second(seton[secname], restname, value, args)
+			else
+				seton[secname] = realvalue
+			end
+		else
+			seton[varname] = realvalue
+		end
+	end
+	
+	def global_params
+		$_POST = @post
+		$_GET = @get
+		$_COOKIE = @cookie
+		$_FILES = @files
+		$_SERVER = @server
+	end
+	
+	def destroy
+		@cgi = nil
+		@post = nil
+		@get = nil
+		@session = nil
+		@args = nil
+	end
+	
+	def self.require_eruby(filepath)
+		cont = File.read(filepath).untaint
+		parse = Erubis.Eruby.new(cont)
+		eval(parse.src.to_s)
+	end
+	
+	def self.alert(string)
+		@alert_sent = true
+		html = "<script type=\"text/javascript\">alert(\"#{Knj::Strings.js_safe(string.to_s)}\");</script>"
+		print html
+	end
+	
+	def self.redirect(string, args = {})
+		do_js = true
+		
+		#Header way
+		if !@alert_sent
+			if args[:perm]
+				Knj::Php.header("Status: 301 Moved Permanently")
+			else
+				Knj::Php.header("Status: 303 See Other")
+			end
+			
+			Knj::Php.header("Location: #{string}")
+		end
+		
+		print "<script type=\"text/javascript\">location.href=\"#{string}\";</script>" if do_js
+		exit
+	end
+	
+	def self.back
+		print "<script type=\"text/javascript\">history.go(-1);</script>"
+		exit
+	end
+	
+	def self.checkval(value, val1, val2 = nil)
+		if val2 != nil
+			if !value or value == "" or value == "false"
+				return val2
+			else
+				return val1
+			end
+		else
+			if !value or value == "" or value == "false"
+				return val1
+			else
+				return value
+			end
+		end
+	end
+	
+	def self.inputs(arr)
+		html = ""
+		arr.each do |args|
+			html += self.input(args)
+		end
+		
+		return html
+	end
+	
+	def self.input(args)
+		Knj::ArrayExt.hash_sym(args)
+		
+		if args.has_key?(:value)
+      if args[:value].is_a?(Array) and args[:value][0].is_a?(NilClass)
+        value = nil
+			elsif args[:value].is_a?(Array)
+        if !args[:value][2] or args[:value][2] == :key
+          value = args[:value][0][args[:value][1]]
+        elsif args[:value][2] == :callb
+          value = args[:value][0].send(args[:value][1])
+        end
+			elsif args[:value].is_a?(String) or args[:value].is_a?(Integer)
+				value = args[:value].to_s
+			else
+				value = args[:value]
+			end
+		end
+		
+		args[:value_default] = args[:default] if args[:default]
+		
+		if value.is_a?(NilClass) and args[:value_default]
+			value = args[:value_default]
+		elsif value.is_a?(NilClass)
+			value = ""
+		end
+		
+		if value and args.has_key?(:value_func) and args[:value_func]
+			cback = args[:value_func]
+			
+			if cback.is_a?(Method)
+				value = cback.call(value)
+			elsif cback.is_a?(Array)
+				value = Knj::Php.call_user_func(args[:value_func], value)
+			elsif cback.is_a?(Proc)
+				value = cback.call(value)
+			else
+				raise "Unknown class: #{cback.class.name}."
+			end
+		end
+		
+		value = args[:values] if args[:values]
+		args[:id] = args[:name] if !args[:id]
+		
+		if !args[:type]
+			if args[:opts]
+				args[:type] = :select
+			elsif args[:name] and args[:name].to_s[0..2] == "che"
+				args[:type] = :checkbox
+			elsif args[:name] and args[:name].to_s[0..3] == "file"
+				args[:type] = :file
+			else
+				args[:type] = :text
+			end
+		else
+			args[:type] = args[:type].to_sym
+		end
+		
+		if args.has_key?(:disabled) and args[:disabled]
+			disabled = "disabled "
+		else
+			disabled = ""
+		end
+		
+		raise "No name given to the Web::input()-method." if !args[:name] and args[:type] != :info and args[:type] != :textshow
+		
+		checked = ""
+		checked += " value=\"#{args[:value_active]}\"" if args.has_key?(:value_active)
+		checked += " checked" if value.is_a?(String) and value == "1" or value.to_s == "1"
+		checked += " checked" if value.is_a?(TrueClass)
+		
+		html = ""
+		
+		if args[:type] == :checkbox
+			html += "<tr>"
+			html += "<td colspan=\"2\" class=\"tdcheck\">"
+			html += "<input type=\"checkbox\" class=\"input_checkbox\" id=\"#{args[:id].html}\" name=\"#{args[:name].html}\"#{checked} />"
+			html += "<label for=\"#{args[:id].html}\">#{args[:title].html}</label>"
+			html += "</td>"
+			html += "</tr>"
+		else
+			html += "<tr>"
+			html += "<td class=\"tdt\">"
+			html += args[:title].to_s.html
+			html += "</td>"
+			html += "<td class=\"tdc\">"
+			
+			if args[:type] == :textarea
+				if args.has_key?(:height)
+					styleadd = " style=\"height: #{args[:height].html}px;\""
+				else
+					styleadd = ""
+				end
+				
+				html += "<textarea#{styleadd} class=\"input_textarea\" name=\"#{args[:name].html}\" id=\"#{args[:id].html}\">#{value}</textarea>"
+				html += "</td>"
+			elsif args[:type] == :fckeditor
+				args[:height] = 400 if !args[:height]
+				
+				require "/usr/share/fckeditor/fckeditor.rb"
+				fck = FCKeditor.new(args[:name])
+				fck.Height = args[:height].to_i
+				fck.Value = value
+				html += fck.CreateHtml
+				
+				html += "</td>"
+			elsif args[:type] == :select
+				html += "<select name=\"#{args[:name].html}\" id=\"#{args[:id].html}\" class=\"input_select\""
+				html += " onchange=\"#{args[:onchange]}\"" if args[:onchange]
+				html += " multiple" if args[:multiple]
+				html += " size=\"#{args[:size].to_s}\"" if args[:size]
+				html += ">"
+				html += Knj::Web.opts(args[:opts], value, args[:opts_args])
+				html += "</select>"
+				html += "</td>"
+			elsif args[:type] == :imageupload
+				html += "<table class=\"designtable\"><tr><td style=\"width: 100%;\">"
+				html += "<input type=\"file\" name=\"#{args[:name].html}\" class=\"input_file\" />"
+				html += "</td><td style=\"padding-left: 5px;\">"
+				
+				raise "No path given for imageupload-input." if !args.has_key?(:path)
+				raise "No value given in arguments for imageupload-input." if !args.has_key?(:value)
+				
+				path = args[:path].gsub("%value%", value.to_s).untaint
+				if File.exists?(path)
+					html += "<img src=\"image.php?picture=#{Knj::Php.urlencode(path).html}&smartsize=100&edgesize=25&force=true&ts=#{Time.new.to_f}\" alt=\"Image\" />"
+					
+					if args[:dellink]
+						dellink = args[:dellink].gsub("%value%", value.to_s)
+						html += "<div style=\"text-align: center;\">(<a href=\"javascript: if (confirm('#{_("Do you want to delete the image?")}')){location.href='#{dellink}';}\">#{_("delete")}</a>)</div>"
+					end
+				end
+				
+				html += "</td></tr></table>"
+				html += "</td>"
+			elsif args[:type] == :file
+				html += "<input type=\"#{args[:type].to_s}\" class=\"input_#{args[:type].to_s}\" name=\"#{args[:name].html}\" /></td>"
+			elsif args[:type] == :textshow or args[:type] == :info
+				html += "#{value}</td>"
+      elsif args[:type] == :editarea
+        css = {
+          "width" => "100%"
+        }
+        css["height"] = args[:height] if args.has_key?(:height)
+        
+        styleadd = " style=\""
+        css.each do |key, val|
+          styleadd += "#{key}: #{val};"
+        end
+        styleadd += "\""
+        
+        styleadd += "width=\"100%\""
+        styleadd += "height=\"#{args[:height]}\"" if args[:height]
+        html += "<textarea#{styleadd} id=\"#{args[:id]}\" name=\"#{args[:name]}\">#{value}</textarea>"
+        
+        jshash = {
+          "id" => args[:id],
+          "start_highlight" => true
+        }
+        
+        pos_keys = [:skip_init, :allow_toggle, :replace_tab_by_spaces, :toolbar, :syntax]
+        pos_keys.each do |key|
+          jshash[key.to_s] = args[key] if args.has_key?(key)
+        end
+        
+        html += "<script type=\"text/javascript\">"
+        html += "function knj_web_init_#{args[:name]}(){"
+        html += "editAreaLoader.init(#{Knj::Php.json_encode(jshash)});"
+        html += "}"
+        html += "</script>"
+			else
+				html += "<input #{disabled}type=\"#{args[:type].to_s.html}\" class=\"input_#{args[:type].html}\" id=\"#{args[:id].html}\" name=\"#{args[:name].html}\" value=\"#{value.html}\" /></td>"
+				html += "</td>"
+			end
+			
+			html += "</tr>"
+		end
+		
+		html += "<tr><td colspan=\"2\" class=\"tdd\">#{args[:descr]}</td></tr>" if args[:descr]
+		return html
+	end
+	
+	def self.opts(opthash, curvalue = nil, opts_args = {})
+		opts_args = {} if !opts_args
+		opts_args.each do |key, value|
+			if !key.is_a?(Symbol)
+				opts_args[key.to_sym] = value
+				opts_args.delete(key)
+			end
+		end
+		
+		return "" if !opthash
+		cname = curvalue.class.name
+		curvalue = curvalue.id if (cname == "Knj::Db_row" or cname == "Knj::Datarow")
+		
+		html = ""
+		addsel = " selected=\"selected\"" if !curvalue
+		
+		html += "<option#{addsel} value=\"\">#{_("Add new")}</option>" if opts_args and (opts_args[:add] or opts_args[:addnew])
+		html += "<option#{addsel} value=\"\">#{_("Choose")}</option>" if opts_args and opts_args[:choose]
+		html += "<option#{addsel} value=\"\">#{_("None")}</option>" if opts_args and opts_args[:none]
+		
+		if opthash.is_a?(Hash) or opthash.class.to_s == "Dictionary"
+			opthash.each do |key, value|
+				html += "<option"
+				
+				if curvalue.is_a?(Array) and curvalue.index(key) != nil
+					html += " selected=\"selected\""
+				elsif curvalue.to_s == key.to_s
+					html += " selected=\"selected\""
+				end
+				
+				html += " value=\"#{key.html}\">#{value.html}</option>"
+			end
+		elsif opthash.is_a?(Array)
+			opthash.each do |key|
+				if opthash[key.to_i] != nil
+					html += "<option"
+					html += " selected=\"selected\"" if curvalue.to_i == key.to_i
+					html += " value=\"#{key.to_s}\">#{opthash[key.to_i].to_s}</option>"
+				end
+			end
+		end
+		
+		return html
+	end
+	
+	def self.rendering_engine
+		begin
+			servervar = _server
+		rescue Exception
+			servervar = $_SERVER
+		end
+		
+		if !servervar
+			raise "Could not figure out meta data."
+		end
+		
+		agent = servervar["HTTP_USER_AGENT"].to_s.downcase
+		
+		if agent.index("webkit") != nil
+			return "webkit"
+		elsif agent.index("gecko") != nil
+			return "gecko"
+		elsif agent.index("msie") != nil
+			return "msie"
+		elsif agent.index("w3c") != nil or agent.index("baiduspider") != nil or agent.index("googlebot") != nil
+			return "bot"
+		else
+			#print "Unknown agent: #{agent}"
+			return false
+		end
+	end
+	
+	def self.os
+		begin
+			servervar = _server
+		rescue Exception
+			servervar = $_SERVER
+		end
+		
+		if !servervar
+			raise "Could not figure out meta data."
+		end
+		
+		agent = servervar["HTTP_USER_AGENT"].to_s.downcase
+		
+		if agent.index("(windows;") != nil or agent.index("windows nt") != nil
+			return {
+				"os" => "win",
+				"title" => "Windows"
+			}
+		elsif agent.index("linux") != nil
+			return {
+				"os" => "linux",
+				"title" => "Linux"
+			}
+		end
+		
+		raise "Unknown OS: #{agent}"
+	end
+	
+	def self.browser(servervar = nil)
+		if !servervar
+			begin
+				servervar = _server
+			rescue Exception => e
+				servervar = $_SERVER
+			end
+		end
+		
+		raise "Could not figure out meta data." if !servervar
+		agent = servervar["HTTP_USER_AGENT"].to_s.downcase
+		
+		if match = agent.index("knj:true") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "KnjHttp"
+		elsif match = agent.match(/chrome\/(\d+\.\d+)/)
+			browser = "chrome"
+			title = "Google Chrome"
+			version = match[1]
+		elsif match = agent.match(/firefox\/(\d+\.\d+)/)
+			browser = "firefox"
+			title = "Mozilla Firefox"
+			version = match[1]
+		elsif match = agent.match(/msie\s*(\d+\.\d+)/)
+			browser = "ie"
+			title = "Microsoft Internet Explorer"
+			version = match[1]
+		elsif match = agent.match(/opera\/([\d+\.]+)/)
+			browser = "opera"
+			title = "Opera"
+			version = match[1]
+		elsif match = agent.match(/wget\/([\d+\.]+)/)
+			browser = "bot"
+			title = "Bot"
+			version = "Wget #{match[1]}"
+		elsif agent.index("baiduspider") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "Baiduspider"
+		elsif agent.index("googlebot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "Googlebot"
+		elsif agent.index("gidbot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "GIDBot"
+		elsif match = agent.match(/safari\/(\d+)/)
+			browser = "safari"
+			title = "Safari"
+			version = match[1]
+		elsif agent.index("iPad") != nil
+			browser = "safari"
+			title = "Safari (iPad)"
+			version = "ipad"
+		elsif agent.index("bingbot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "Bingbot"
+		elsif agent.index("yahoo! slurp") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "Yahoo! Slurp"
+		elsif agent.index("hostharvest") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "HostHarvest"
+		elsif agent.index("exabot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "Exabot"
+		elsif agent.index("dotbot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "DotBot"
+		elsif agent.index("msnbot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "MSN bot"
+		elsif agent.index("yandexbot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "Yandex Bot"
+		elsif agent.index("mj12bot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "Majestic12 Bot"
+		elsif agent.index("facebookexternalhit") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "Facebook Externalhit"
+		elsif agent.index("sitebot") != nil
+			browser = "bot"
+			title = "Bot"
+			version = "SiteBot"
+		elsif match = agent.match(/java\/([\d\.]+)/)
+			browser = "bot"
+			title = "Java"
+			version = match[1]
+		elsif match = agent.match(/ezooms\/([\d\.]+)/)
+			browser = "bot"
+			title = "Ezooms"
+			version = match[1]
+		else
+			browser = "unknown"
+			title = "(unknown browser)"
+			version = "(unknown version)"
+		end
+		
+		return {
+			"browser" => browser,
+			"title" => title,
+			"version" => version
+		}
+	end
+	
+	def self.locale(args = {})
+		begin
+			servervar = _server
+		rescue Exception
+			servervar = $_SERVER
+		end
+		
+		if !servervar
+			raise "Could not figure out meta data."
+		end
+		
+		ret = {
+			:recommended => [],
+			:browser => []
+		}
+		
+		alangs = servervar["HTTP_ACCEPT_LANGUAGE"].to_s
+		if alangs.length > 0
+			alangs.split(/\s*,\s*/).each do |alang|
+				if qmatch = alang.match(/;\s*q=([\d\.]+)/)
+					alang.gsub!(/;\s*q=([\d\.]+)/, "")
+					q = qmatch[1].to_f
+				else
+					q = 1.0
+				end
+				
+				if match = alang.match(/^([A-z]+)-([A-z]+)$/)
+					locale = match[1]
+					sublocale = match[2]
+				else
+					locale = alang
+					sublocale = false
+				end
+				
+				ret[:browser] << {
+					:locale => locale,
+					:sublocale => sublocale,
+					:q => q
+				}
+			end
+		end
+		
+		if args[:supported] and ret[:browser]
+			ret[:browser].each do |locale|
+				args[:supported].each do |supported_locale|
+					if match = supported_locale.match(/^([A-z]+)_([A-z]+)$/)
+						if match[1] == locale[:locale]
+							if !locale[:sublocale]
+								ret[:recommended] << supported_locale if ret[:recommended].index(supported_locale) == nil
+							elsif locale[:sublocale] == match[1]
+								ret[:recommended] << supported_locale if ret[:recommended].index(supported_locale) == nil
+							end
+						end
+					end
+				end
+			end
+		end
+		
+		if args[:default]
+			ret[:recommended] << args[:default] if ret[:recommended].index(args[:default]) == nil
+		end
+		
+		return ret
+	end
+	
+	def self.hiddens(hidden_arr)
+		html = ""
+		
+		hidden_arr.each do |hidden_hash|
+			html += "<input type=\"hidden\" name=\"#{hidden_hash[:name].to_s.html}\" value=\"#{hidden_hash[:value].to_s.html}\" />"
+		end
+		
+		return html
+	end
+	
+	def self.ahref_parse(str)
+    return str.to_s.gsub("&", "&amp;")
+	end
+end
+
+def alert(string)
+	return Knj::Web.alert(string)
+end
+
+def redirect(string)
+	return Knj::Web.redirect(string)
+end
+
+def jsback(string)
+	return Knj::Web.back
+end
+
+class String
+	def html
+		return self.to_s.gsub(/&/, "&amp;").gsub(/\"/, "&quot;").gsub(/>/, "&gt;").gsub(/</, "&lt;")
+	end
+	
+	def sql
+		begin
+			return _httpsession.db.escape(self)
+		rescue NameError
+			#ignore - not in KnjAppServer HTTP-session.
+		end
+		
+		begin
+      return _db.escape(self)
+    rescue NameError
+      #ignore - not i KnjAppServer HTTP-session.
+    end
+		
+		return $db.escape(self) if $db
+		raise "Could not figure out where to find db object."
+	end
+end
+
+class Symbol
+	def html
+		return self.to_s.html
+	end
+	
+	def sql
+		return self.to_s.sql
+	end
+end
+
+class Fixnum
+	def sql
+		return self.to_s.sql
+	end
+	
+	def html
+		return self.to_s.html
+	end
+end