knjrbfw 0.0.110 → 0.0.114

data/lib/knj/web.rb

@@ -7,72 +7,72 @@ class Knj::Web
   def self.parse_uri(str)
     uri_match = str.to_s.match(/^\/(.+?\..*?|)(\?(.*)|)$/)
     raise "Could not parse the URI: '#{str}'." if !uri_match
-    
+
     return {
       :path => "/#{uri_match[1]}",
       :query => uri_match[3]
     }
   end
-  
+
   #Parses cookies-string and returns hash with parsed cookies.
   def self.parse_cookies(str)
     ret = {}
-    
+
     str.split(/;\s*/).each do |cookie_str|
       if !match = cookie_str.match(/^(.*?)=\"(.*)\"$/)
         match = cookie_str.match(/^(.*?)=(.*)$/)
       end
-      
+
       ret[self.urldec(match[1])] = self.urldec(match[2]) if match
     end
-    
+
     return ret
   end
-  
+
   def self.parse_set_cookies(str)
     str = String.new(str.to_s)
     return [] if str.length <= 0
     args = {}
     cookie_start_regex = /^(.+?)=(.*?)(;\s*|$)/
-    
+
     match = str.match(cookie_start_regex)
     raise "Could not match cookie: '#{str}'." if !match
     str.gsub!(cookie_start_regex, "")
-    
+
     args["name"] = self.urldec(match[1].to_s)
     args["value"] = self.urldec(match[2].to_s)
-    
+
     while match = str.match(/(.+?)=(.*?)(;\s*|$)/)
       str = str.gsub(match[0], "")
       args[match[1].to_s.downcase] = match[2].to_s
     end
-    
+
     return [args]
   end
-  
+
   def self.cookie_str(cookie_data)
     raise "Not a hash: '#{cookie_data.class.name}', '#{cookie_data}'." unless cookie_data.is_a?(Hash)
     cookiestr = "#{self.urlenc(cookie_data["name"])}=#{self.urlenc(cookie_data["value"])}"
-    
+
     cookie_data.each do |key, val|
       next if key == "name" or key == "value"
-      
+
       if key.to_s.downcase == "expires" and val.is_a?(Time)
         cookiestr << "; Expires=#{val.httpdate}"
       else
         cookiestr << "; #{key}=#{val}"
       end
     end
-    
+
     return cookiestr
   end
-  
+
   #Parses a query and returns the various _GET-variables.
   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]
@@ -80,10 +80,10 @@ class Knj::Web
         Knj::Web.parse_name(get, Knj::Web.urldec(name), valuestr, args)
       end
     end
-    
+
     return get
   end
-  
+
   def self.parse_name(seton, varname, value, args = {})
     if value.respond_to?(:filename) and value.filename
       realvalue = value
@@ -92,18 +92,18 @@ class Knj::Web
       realvalue = self.urldec(realvalue) if args[:urldecode]
       realvalue = realvalue.force_encoding("utf-8") if args[:force_utf8] if realvalue.respond_to?(:force_encoding)
     end
-    
+
     if varname and varname.index("[") != nil and 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.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].key?(secname)
         Knj::Web.parse_name_second(seton[name][secname], restname, value, args)
@@ -114,13 +114,13 @@ class Knj::Web
       seton[varname] = realvalue
     end
   end
-  
+
   def self.parse_secname(seton, secname, args)
     secname_empty = false
     if secname.length <= 0
       secname_empty = true
       try = 0
-      
+
       loop do
         if !seton.key?(try.to_s)
           break
@@ -128,14 +128,14 @@ class Knj::Web
           try += 1
         end
       end
-      
+
       secname = try.to_s
     end
-    
+
     secname = secname.to_sym if args[:syms] and secname.is_a?(String) and !(Float(secname) rescue false)
     return [secname, secname_empty]
   end
-  
+
   def self.parse_name_second(seton, varname, value, args = {})
     if value.respond_to?(:filename) and value.filename
       realvalue = value
@@ -143,16 +143,16 @@ class Knj::Web
       realvalue = value.to_s
       realvalue = realvalue.force_encoding("utf-8") if args[:force_utf8]
     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.key?(secname)
         Knj::Web.parse_name_second(seton[secname], restname, value, args)
@@ -163,30 +163,30 @@ class Knj::Web
       seton[varname] = realvalue
     end
   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)
     require "#{$knjpath}strings"
-    
+
     begin
       _httpsession.alert_sent = true
     rescue NameError
       #ignore.
     end
-    
+
     @alert_sent = true
-    
+
     html = "<script type=\"text/javascript\">alert(\"#{Knj::Strings.js_safe(string.to_s)}\");</script>"
     print html
-    
+
     return self
   end
-  
+
   #Redirects to another URL.
   #===Examples
   #  Knj::Web.redirect("someotherpage.rhtml")
@@ -200,22 +200,22 @@ class Knj::Web
         else
           _httpsession.resp.status = 303 if !_hb.headers_sent?
         end
-        
+
         _hb.header("Location", url) if !_hb.headers_sent?
       end
     rescue NameError
       #ignore.
     end
-    
+
     print "<script type=\"text/javascript\">location.href=\"#{url}\";</script>"
     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"
@@ -231,7 +231,7 @@ class Knj::Web
       end
     end
   end
-  
+
   def self.inputs(arr)
     html = ""
     arr.each do |args|
@@ -241,38 +241,38 @@ class Knj::Web
         html << self.input(args)
       end
     end
-    
+
     return html
   end
-  
+
   def self.style_html(css)
     return "" if css.length <= 0
-    
+
     str = " style=\""
-    
+
     css.each do |key, val|
       str << "#{key}: #{val};"
     end
-    
+
     str << "\""
-    
+
     return str
   end
-  
+
   def self.attr_html(attrs)
     return "" if attrs.length <= 0
-    
+
     html = ""
     attrs.each do |key, val|
       html << " #{key}=\"#{val.to_s.html}\""
     end
-    
+
     return html
   end
-  
+
   def self.input(args)
     Knj::ArrayExt.hash_sym(args)
-    
+
     if args.key?(:value)
       if args[:value].is_a?(Array) and (args[:value].first.is_a?(NilClass) or args[:value].first == false)
         value = nil
@@ -290,18 +290,18 @@ class Knj::Web
         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.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)
@@ -312,10 +312,10 @@ class Knj::Web
         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
@@ -329,7 +329,7 @@ class Knj::Web
     else
       args[:type] = args[:type].to_sym
     end
-    
+
     attr = {
       "name" => args[:name],
       "id" => args[:id],
@@ -339,46 +339,46 @@ class Knj::Web
     attr.merge!(args[:attr]) if args[:attr]
     attr["disabled"] = "disabled" if args[:disabled]
     attr["maxlength"] = args[:maxlength] if args.key?(:maxlength)
-    
+
     raise "No name given to the Web::input()-method." if !args[:name] and args[:type] != :info and args[:type] != :textshow and args[:type] != :plain and args[:type] != :spacer and args[:type] != :headline
-    
+
     css = {}
     css["text-align"] = args[:align] if args.key?(:align)
     css.merge!(args[:css]) if args.key?(:css)
-    
+
     attr_keys = [:onchange]
     attr_keys.each do |tag|
       if args.key?(tag)
         attr[tag] = args[tag]
       end
     end
-    
+
     classes_tr = []
     classes_tr += args[:classes_tr] if args[:classes_tr]
-    
+
     if !classes_tr.empty?
       classes_tr_html = " class=\"#{classes_tr.join(" ")}\""
     else
       classes_tr_html = ""
     end
-    
+
     if args.key?(:title)
       title_html = args[:title].to_s.html
     elsif args.key?(:title_html)
       title_html = args[:title_html]
     end
-    
+
     html = ""
-    
+
     classes = ["input_#{args[:type]}"]
     classes = classes | args[:classes] if args.key?(:classes)
     attr["class"] = classes.join(" ")
-    
+
     if args[:type] == :checkbox
       attr["value"] = args[:value_active] if args.key?(:value_active)
       attr["checked"] = "checked" if value.is_a?(String) and value == "1" or value.to_s == "1" or value.to_s == "on" or value.to_s == "true"
       attr["checked"] = "checked" if value.is_a?(TrueClass)
-      
+
       html << "<tr#{classes_tr_html}>"
       html << "<td colspan=\"2\" class=\"tdcheck\">"
       html << "<input#{self.attr_html(attr)} />"
@@ -395,7 +395,7 @@ class Knj::Web
       html << title_html
       html << "</div></td>"
       html << "<td#{self.style_html(css)} class=\"tdc\" id=\"#{Knj::Web.html("#{args[:id]}_content")}\"><div>"
-      
+
       if args[:type] == :textarea
         if args.key?(:height)
           if (Float(args[:height]) rescue false)
@@ -404,11 +404,11 @@ class Knj::Web
             css["height"] = args[:height]
           end
         end
-        
+
         html << "<textarea#{self.style_html(css)} class=\"input_textarea\" name=\"#{args[:name].html}\" id=\"#{args[:id].html}\">#{value}</textarea>"
       elsif args[:type] == :fckeditor
         args[:height] = 400 if !args[:height]
-        
+
         require "/usr/share/fckeditor/fckeditor.rb" if !Kernel.const_defined?(:FCKeditor)
         fck = FCKeditor.new(args[:name])
         fck.Height = args[:height].to_i
@@ -423,11 +423,11 @@ class Knj::Web
       elsif args[:type] == :select
         attr["multiple"] = "multiple" if args[:multiple]
         attr["size"] = args["size"] if args[:size]
-        
+
         html << "<select#{self.attr_html(attr)}>"
         html << Knj::Web.opts(args[:opts], value, args[:opts_args])
         html << "</select>"
-        
+
         if args[:moveable]
           html << "<div style=\"padding-top: 3px;\">"
           html << "<input type=\"button\" value=\"#{_("Up")}\" onclick=\"select_moveup($('##{args[:id]}'));\" />"
@@ -438,20 +438,20 @@ class Knj::Web
         html << "<table class=\"designtable\"><tr#{classes_tr_html}><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.key?(:path)
         raise "No value given in arguments for imageupload-input." if !args.key?(:value)
-        
+
         path = args[:path].gsub("%value%", value.to_s).untaint
         if File.exists?(path)
           html << "<img src=\"image.rhtml?path=#{self.urlenc(path).html}&smartsize=100&rounded_corners=10&border_color=black&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>"
       elsif args[:type] == :file
         html << "<input type=\"#{args[:type].to_s}\" class=\"input_#{args[:type].to_s}\" name=\"#{args[:name].html}\" />"
@@ -463,17 +463,17 @@ class Knj::Web
         css["width"] = "100%"
         css["height"] = args[:height] if args.key?(:height)
         html << "<textarea#{self.attr_html(attr)}#{self.style_html(css)} 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.key?(key)
         end
-        
+
         html << "<script type=\"text/javascript\">"
         html << "function knj_web_init_#{args[:name]}(){"
         html << "editAreaLoader.init(#{Php4r.json_encode(jshash)});"
@@ -487,35 +487,34 @@ class Knj::Web
         attr[:value] = value
         html << "<input#{self.attr_html(attr)} />"
       end
-      
+
       html << "</div></td></tr>"
     end
-    
+
     html << "<tr#{classes_tr_html}><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
     Knj::ArrayExt.hash_sym(opts_args)
-    
+
     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]
     html << "<option#{addsel} value=\"\">#{_("All")}</option>" if opts_args and opts_args[:all]
-    
+
     if opthash.is_a?(Hash) or opthash.class.to_s == "Dictionary"
       opthash.each do |key, value|
         html << "<option"
         sel = false
-        
+
         if curvalue.is_a?(Array) and curvalue.index(key) != nil
           sel = true
         elsif curvalue.to_s == key.to_s
@@ -523,7 +522,7 @@ class Knj::Web
         elsif curvalue and curvalue.respond_to?(:is_knj?) and curvalue.id.to_s == key.to_s
           sel = true
         end
-        
+
         html << " selected=\"selected\"" if sel
         html << " value=\"#{Knj::Web.html(key)}\">#{Knj::Web.html(value)}</option>"
       end
@@ -536,18 +535,18 @@ class Knj::Web
         end
       end
     end
-    
+
     return html
   end
-  
+
   def self.rendering_engine(servervar = nil)
     servervar = _server if !servervar
     if !servervar
       raise "Could not figure out meta data."
     end
-    
+
     agent = servervar["HTTP_USER_AGENT"].to_s.downcase
-    
+
     if agent.include?("webkit") != nil
       return "webkit"
     elsif agent.include?("gecko") != nil
@@ -561,15 +560,15 @@ class Knj::Web
       return false
     end
   end
-  
+
   def self.os(servervar = nil)
     servervar = _server if !servervar
     if !servervar
       raise "Could not figure out meta data."
     end
-    
+
     agent = servervar["HTTP_USER_AGENT"].to_s.downcase
-    
+
     if agent.include?("(windows;") != nil or agent.include?("windows nt") != nil
       return {
         "os" => "win",
@@ -581,16 +580,16 @@ class Knj::Web
         "title" => "Linux"
       }
     end
-    
+
     raise "Unknown OS: #{agent}"
   end
-  
+
   #Returns various information about the current browser. Currently only works with the Hayabusa-project.
   def self.browser(servervar = nil)
     servervar = _server if !servervar
     raise "Could not figure out meta data." if !servervar
     agent = servervar["HTTP_USER_AGENT"].to_s.downcase
-    
+
     if match = agent.include?("knj:true")
       browser = "bot"
       title = "Bot"
@@ -704,7 +703,7 @@ class Knj::Web
       title = "(unknown browser)"
       version = "(unknown version)"
     end
-    
+
     os = nil
     os_version = nil
     if agent.include?("linux") != nil
@@ -713,12 +712,12 @@ class Knj::Web
       os = "mac"
     elsif match = agent.match(/windows\s+nt\s+([\d\.]+)/)
       os = "windows"
-      
+
       if match[1] == "5.1"
         os_version = "xp"
       end
     end
-    
+
     return {
       "browser" => browser,
       "title" => title,
@@ -727,23 +726,23 @@ class Knj::Web
       "os_version" => os_version
     }
   end
-  
+
   def self.locale(args = {})
     if args[:servervar]
       servervar = args[:servervar]
     else
       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|
@@ -753,7 +752,7 @@ class Knj::Web
         else
           q = 1.0
         end
-        
+
         if match = alang.match(/^([A-z]+)-([A-z]+)$/)
           locale = match[1]
           sublocale = match[2]
@@ -761,7 +760,7 @@ class Knj::Web
           locale = alang
           sublocale = false
         end
-        
+
         ret[:browser] << {
           :locale => locale,
           :sublocale => sublocale,
@@ -769,7 +768,7 @@ class Knj::Web
         }
       end
     end
-    
+
     if args[:supported] and ret[:browser]
       ret[:browser].each do |locale|
         args[:supported].each do |supported_locale|
@@ -785,17 +784,17 @@ class Knj::Web
         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|
       if hidden_hash.is_a?(Array)
         hidden_hash = {
@@ -813,18 +812,18 @@ class Knj::Web
           end
         end
       end
-      
+
       html << "<input type=\"hidden\" name=\"#{hidden_hash[:name].to_s.html}\" value=\"#{hidden_hash[:value].to_s.html}\" />"
     end
-    
+
     return html
   end
-  
+
   #Parses a string to be safe for use in <a href="">.
   def self.ahref_parse(str)
     return str.to_s.gsub("&", "&amp;")
   end
-  
+
   #URL-encodes a string.
   def self.urlenc(string)
     #Thanks to CGI framework
@@ -832,7 +831,7 @@ class Knj::Web
       '%' + $1.unpack('H2' * $1.bytesize).join('%').upcase
     end.tr(' ', '+')
   end
-  
+
   #URL-decodes a string.
   def self.urldec(string)
     #Thanks to CGI framework
@@ -840,21 +839,21 @@ class Knj::Web
       [$1.delete('%')].pack('H*')
     end
   end
-  
+
   #Escapes HTML-characters in a string.
   def self.html(string)
     return string.to_s.gsub(/&/, "&amp;").gsub(/\"/, "&quot;").gsub(/>/, "&gt;").gsub(/</, "&lt;")
   end
-  
+
   def self.html_args(h)
     str = ""
     h.each do |key, val|
       str << "&#{Php4r.urlencode(key)}=#{Php4r.urlencode(val)}"
     end
-    
+
     return str
   end
-  
+
   #Calculates the URL from meta hash.
   def self.url(args = {})
     if args[:meta]
@@ -862,21 +861,21 @@ class Knj::Web
     else
       meta = _meta
     end
-    
+
     url = ""
-    
+
     if meta["HTTP_SSL_ENABLED"] == "1"
       url << "https://"
     else
       url << "http://"
     end
-    
+
     url << meta["HTTP_HOST"]
     url << meta["REQUEST_URI"] if !args.key?(:uri) or args[:uri]
-    
+
     return url
   end
-  
+
   URL_SAFE_REPLACES = {
     "ø" => "oe",
     "æ" => "ae",
@@ -886,11 +885,11 @@ class Knj::Web
   }
   def self.url_safe(str)
     str = str.to_s.downcase
-    
+
     URL_SAFE_REPLACES.each do |key, val|
       str.gsub!(key, val)
     end
-    
+
     return Knj::Strings.remove_non_ascii(str)
   end
 end
@@ -899,14 +898,14 @@ class String
   def html
     return Knj::Web.html(self)
   end
-  
+
   def sql
     begin
       return _db.escape(self)
     rescue NameError
       #ignore - not i KnjAppServer HTTP-session.
     end
-    
+
     raise "Could not figure out where to find db object."
   end
 end
@@ -915,7 +914,7 @@ class Symbol
   def html
     return self.to_s.html
   end
-  
+
   def sql
     return self.to_s.sql
   end
@@ -925,7 +924,7 @@ class Fixnum
   def sql
     return self.to_s.sql
   end
-  
+
   def html
     return self.to_s.html
   end