CGI

 
               # File cgi.rb, line 341
def CGI::escape(string)
  string.gsub(/([^ a-zA-Z0-9_.-]+)/n) do
    '%' + $1.unpack('H2' * $1.size).join('%').upcase
  end.tr(' ', '+')
end
            

 
               # File cgi.rb, line 417
def CGI::escapeElement(string, *elements)
  elements = elements[0] if elements[0].kind_of?(Array)
  unless elements.empty?
    string.gsub(/<\/?(?:#{elements.join("|")})(?!\w)(?:.|\n)*?>/ni) do
      CGI::escapeHTML($&)
    end
  else
    string
  end
end
            

 
               # File cgi.rb, line 361
def CGI::escapeHTML(string)
  string.gsub(/&/n, '&amp;').gsub(/\"/n, '&quot;').gsub(/>/n, '&gt;').gsub(/</n, '&lt;')
end
            

 
               # File cgi.rb, line 2265
def initialize(type = "query")
  if defined?(MOD_RUBY) && !ENV.key?("GATEWAY_INTERFACE")
    Apache.request.setup_cgi_env
  end

  extend QueryExtension
  @multipart = false
  if defined?(CGI_PARAMS)
    warn "do not use CGI_PARAMS and CGI_COOKIES"
    @params = CGI_PARAMS.dup
    @cookies = CGI_COOKIES.dup
  else
    initialize_query()  # set @params, @cookies
  end
  @output_cookies = nil
  @output_hidden = nil

  case type
  when "html3"
    extend Html3
    element_init()
    extend HtmlExtension
  when "html4"
    extend Html4
    element_init()
    extend HtmlExtension
  when "html4Tr"
    extend Html4Tr
    element_init()
    extend HtmlExtension
  when "html4Fr"
    extend Html4Tr
    element_init()
    extend Html4Fr
    element_init()
    extend HtmlExtension
  end
end
            

 
               # File cgi.rb, line 896
def CGI::parse(query)
  params = Hash.new([].freeze)

  query.split(/[&;]/n).each do |pairs|
    key, value = pairs.split('=',2).collect{|v| CGI::unescape(v) }
    if params.has_key?(key)
      params[key].push(value)
    else
      params[key] = [value]
    end
  end

  params
end
            

 
               # File cgi.rb, line 1217
def CGI::pretty(string, shift = "  ")
  lines = string.gsub(/(?!\A)<(?:.|\n)*?>/n, "\n\\0").gsub(/<(?:.|\n)*?>(?!\n)/n, "\\0\n")
  end_pos = 0
  while end_pos = lines.index(/^<\/(\w+)/n, end_pos)
    element = $1.dup
    start_pos = lines.rindex(/^\s*<#{element}/ni, end_pos)
    lines[start_pos ... end_pos] = "__" + lines[start_pos ... end_pos].gsub(/\n(?!\z)/n, "\n" + shift) + "__"
  end
  lines.gsub(/^((?:#{Regexp::quote(shift)})*)__(?=<\/?\w)/n, '\1')
end
            

 
               # File cgi.rb, line 454
def CGI::rfc1123_date(time)
  t = time.clone.gmtime
  return format("%s, %.2d %s %.4d %.2d:%.2d:%.2d GMT",
              RFC822_DAYS[t.wday], t.day, RFC822_MONTHS[t.month-1], t.year,
              t.hour, t.min, t.sec)
end
            

 
               # File cgi.rb, line 351
def CGI::unescape(string)
  string.tr('+', ' ').gsub(/((?:%[0-9a-fA-F]{2})+)/n) do
    [$1.delete('%')].pack('H*')
  end
end
            

 
               # File cgi.rb, line 438
def CGI::unescapeElement(string, *elements)
  elements = elements[0] if elements[0].kind_of?(Array)
  unless elements.empty?
    string.gsub(/<\/?(?:#{elements.join("|")})(?!\w)(?:.|\n)*?>/ni) do
      CGI::unescapeHTML($&)
    end
  else
    string
  end
end
            

 
               # File cgi.rb, line 369
def CGI::unescapeHTML(string)
  string.gsub(/&(amp|quot|gt|lt|\#[0-9]+|\#x[0-9A-Fa-f]+);/n) do
    match = $1.dup
    case match
    when 'amp'                 then '&'
    when 'quot'                then '"'
    when 'gt'                  then '>'
    when 'lt'                  then '<'
    when /\A#0*(\d+)\z/n       then
      if Integer($1) < 256
        Integer($1).chr
      else
        if Integer($1) < 65536 and ($KCODE[0] == ?u or $KCODE[0] == ?U)
          [Integer($1)].pack("U")
        else
          "&##{$1};"
        end
      end
    when /\A#x([0-9a-f]+)\z/ni then
      if $1.hex < 256
        $1.hex.chr
      else
        if $1.hex < 65536 and ($KCODE[0] == ?u or $KCODE[0] == ?U)
          [$1.hex].pack("U")
        else
          "&#x#{$1};"
        end
      end
    else
      "&#{match};"
    end
  end
end
            

 
               # File cgi.rb, line 539
def header(options = "text/html")

  buf = ""

  case options
  when String
    options = { "type" => options }
  when Hash
    options = options.dup
  end

  unless options.has_key?("type")
    options["type"] = "text/html"
  end

  if options.has_key?("charset")
    options["type"] += "; charset=" + options.delete("charset")
  end

  options.delete("nph") if defined?(MOD_RUBY)
  if options.delete("nph") or
      (/IIS\/(\d+)/n.match(env_table['SERVER_SOFTWARE']) and $1.to_i < 5)
    buf += (env_table["SERVER_PROTOCOL"] or "HTTP/1.0")  + " " +
           (HTTP_STATUS[options["status"]] or options["status"] or "200 OK") +
           EOL +
           "Date: " + CGI::rfc1123_date(Time.now) + EOL

    unless options.has_key?("server")
      options["server"] = (env_table['SERVER_SOFTWARE'] or "")
    end

    unless options.has_key?("connection")
      options["connection"] = "close"
    end

    options.delete("status")
  end

  if options.has_key?("status")
    buf += "Status: " +
           (HTTP_STATUS[options["status"]] or options["status"]) + EOL
    options.delete("status")
  end

  if options.has_key?("server")
    buf += "Server: " + options.delete("server") + EOL
  end

  if options.has_key?("connection")
    buf += "Connection: " + options.delete("connection") + EOL
  end

  buf += "Content-Type: " + options.delete("type") + EOL

  if options.has_key?("length")
    buf += "Content-Length: " + options.delete("length").to_s + EOL
  end

  if options.has_key?("language")
    buf += "Content-Language: " + options.delete("language") + EOL
  end

  if options.has_key?("expires")
    buf += "Expires: " + CGI::rfc1123_date( options.delete("expires") ) + EOL
  end

  if options.has_key?("cookie")
    if options["cookie"].kind_of?(String) or
         options["cookie"].kind_of?(Cookie)
      buf += "Set-Cookie: " + options.delete("cookie").to_s + EOL
    elsif options["cookie"].kind_of?(Array)
      options.delete("cookie").each{|cookie|
        buf += "Set-Cookie: " + cookie.to_s + EOL
      }
    elsif options["cookie"].kind_of?(Hash)
      options.delete("cookie").each_value{|cookie|
        buf += "Set-Cookie: " + cookie.to_s + EOL
      }
    end
  end
  if @output_cookies
    for cookie in @output_cookies
      buf += "Set-Cookie: " + cookie.to_s + EOL
    end
  end

  options.each{|key, value|
    buf += key + ": " + value.to_s + EOL
  }

  if defined?(MOD_RUBY)
    table = Apache::request.headers_out
    buf.scan(/([^:]+): (.+)#{EOL}/n){ |name, value|
      warn sprintf("name:%s value:%s\n", name, value) if $DEBUG
      case name
      when 'Set-Cookie'
        table.add(name, value)
      when /^status$/ni
        Apache::request.status_line = value
        Apache::request.status = value.to_i
      when /^content-type$/ni
        Apache::request.content_type = value
      when /^content-encoding$/ni
        Apache::request.content_encoding = value
      when /^location$/ni
        if Apache::request.status == 200
          Apache::request.status = 302
        end
        Apache::request.headers_out[name] = value
      else
        Apache::request.headers_out[name] = value
      end
    }
    Apache::request.send_http_header
    ''
  else
    buf + EOL
  end

end
            

 
               # File cgi.rb, line 703
def out(options = "text/html") # :yield:

  options = { "type" => options } if options.kind_of?(String)
  content = yield

  if options.has_key?("charset")
    require "nkf"
    case options["charset"]
    when /iso-2022-jp/ni
      content = NKF::nkf('-m0 -x -j', content)
      options["language"] = "ja" unless options.has_key?("language")
    when /euc-jp/ni
      content = NKF::nkf('-m0 -x -e', content)
      options["language"] = "ja" unless options.has_key?("language")
    when /shift_jis/ni
      content = NKF::nkf('-m0 -x -s', content)
      options["language"] = "ja" unless options.has_key?("language")
    end
  end

  options["length"] = content.length.to_s
  output = stdoutput
  output.binmode if defined? output.binmode
  output.print header(options)
  output.print content unless "HEAD" == env_table['REQUEST_METHOD']
end
            

 
               # File cgi.rb, line 735
def print(*options)
  stdoutput.print(*options)
end