Gecko [ beacons-mine.com ]

Name	Size	Permission	Date
bigdecimal	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
cgi	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
date	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
digest	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
dl	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
drb	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
io	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
irb	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
net	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
openssl	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
optparse	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
racc	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
rdoc	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
rexml	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
rinda	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
rss	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
runit	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
shell	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
soap	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
test	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
uri	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
webrick	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
wsdl	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
x86_64-linux	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
xmlrpc	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
xsd	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
yaml	[ DIR ]	drwxr-xr-x	2026-02-18 15:11
English.rb	5.6 KB	-rw-r--r--	2007-02-13 04:31
Env.rb	274 B	-rw-r--r--	2007-02-13 04:31
abbrev.rb	2.5 KB	-rw-r--r--	2007-02-13 04:31
base64.rb	3.37 KB	-rw-r--r--	2007-07-16 21:17
benchmark.rb	17.73 KB	-rw-r--r--	2008-02-10 20:54
cgi-lib.rb	6.89 KB	-rw-r--r--	2007-02-13 04:31
cgi.rb	73.74 KB	-rw-r--r--	2009-12-14 08:10
complex.rb	12.84 KB	-rw-r--r--	2009-08-03 11:29
csv.rb	24.46 KB	-rw-r--r--	2007-02-13 04:31
date.rb	53.02 KB	-rw-r--r--	2010-06-08 10:15
date2.rb	128 B	-rw-r--r--	2007-02-13 04:31
debug.rb	20.61 KB	-rw-r--r--	2007-02-13 04:31
delegate.rb	8.81 KB	-rw-r--r--	2009-07-16 06:05
digest.rb	1.12 KB	-rw-r--r--	2007-07-28 06:10
drb.rb	19 B	-rw-r--r--	2007-02-13 04:31
e2mmap.rb	4.04 KB	-rw-r--r--	2007-02-13 04:31
erb.rb	21.38 KB	-rw-r--r--	2009-02-23 23:14
eregex.rb	487 B	-rw-r--r--	2007-02-13 04:31
expect.rb	633 B	-rw-r--r--	2008-02-18 06:47
fileutils.rb	42.23 KB	-rw-r--r--	2011-05-21 03:59
finalize.rb	5.38 KB	-rw-r--r--	2007-02-13 04:31
find.rb	1.84 KB	-rw-r--r--	2007-02-13 04:31
forwardable.rb	6.16 KB	-rw-r--r--	2008-06-06 13:35
ftools.rb	6.17 KB	-rw-r--r--	2007-02-13 04:31
generator.rb	8.1 KB	-rw-r--r--	2008-04-10 16:22
getoptlong.rb	14.88 KB	-rw-r--r--	2007-02-13 04:31
getopts.rb	2.25 KB	-rw-r--r--	2007-02-13 04:31
gserver.rb	6.43 KB	-rw-r--r--	2007-02-13 04:31
importenv.rb	590 B	-rw-r--r--	2007-02-13 04:31
ipaddr.rb	21.96 KB	-rw-r--r--	2008-07-12 20:38
irb.rb	7.43 KB	-rw-r--r--	2009-08-09 14:14
jcode.rb	4.3 KB	-rw-r--r--	2007-02-13 04:31
kconv.rb	8.12 KB	-rw-r--r--	2007-02-13 04:31
logger.rb	17.59 KB	-rw-r--r--	2011-05-30 07:38
mailread.rb	1.28 KB	-rw-r--r--	2007-02-13 04:31
mathn.rb	5.42 KB	-rw-r--r--	2007-02-13 04:31
matrix.rb	27.21 KB	-rw-r--r--	2009-01-24 20:32
md5.rb	411 B	-rw-r--r--	2007-03-06 15:39
mkmf.rb	50.65 KB	-rw-r--r--	2010-12-04 12:04
monitor.rb	7.93 KB	-rw-r--r--	2009-11-25 13:15
mutex_m.rb	2.07 KB	-rw-r--r--	2007-02-13 04:31
observer.rb	5.15 KB	-rw-r--r--	2007-02-13 04:31
open-uri.rb	20.49 KB	-rw-r--r--	2007-10-08 16:46
open3.rb	2.1 KB	-rw-r--r--	2009-12-14 09:58
openssl.rb	575 B	-rw-r--r--	2010-11-22 12:51
optparse.rb	47.12 KB	-rw-r--r--	2009-02-20 17:13
ostruct.rb	3.35 KB	-rw-r--r--	2009-05-26 17:36
parsearg.rb	1.55 KB	-rw-r--r--	2007-02-13 04:31
parsedate.rb	1.33 KB	-rw-r--r--	2007-02-13 04:31
pathname.rb	29.39 KB	-rw-r--r--	2010-11-23 13:51
ping.rb	1.48 KB	-rw-r--r--	2007-02-13 04:31
pp.rb	15.97 KB	-rw-r--r--	2007-06-07 15:36
prettyprint.rb	18.33 KB	-rw-r--r--	2007-02-17 01:23
profile.rb	90 B	-rw-r--r--	2007-02-13 04:31
profiler.rb	1.59 KB	-rw-r--r--	2007-02-13 04:31
pstore.rb	11.15 KB	-rw-r--r--	2008-06-06 13:35
rational.rb	12.05 KB	-rw-r--r--	2010-06-08 10:32
readbytes.rb	835 B	-rw-r--r--	2007-02-13 04:31
resolv-replace.rb	1.55 KB	-rw-r--r--	2008-08-08 07:28
resolv.rb	56.83 KB	-rw-r--r--	2010-12-23 08:52
rss.rb	504 B	-rw-r--r--	2007-10-21 17:49
rubyunit.rb	180 B	-rw-r--r--	2007-02-13 04:31
scanf.rb	20.63 KB	-rw-r--r--	2009-01-20 08:53
securerandom.rb	4.27 KB	-rw-r--r--	2011-12-10 17:47
set.rb	27.08 KB	-rw-r--r--	2008-06-09 14:50
sha1.rb	418 B	-rw-r--r--	2007-03-06 15:39
shell.rb	4.66 KB	-rw-r--r--	2007-02-13 04:31
shellwords.rb	3.99 KB	-rw-r--r--	2008-03-21 17:46
singleton.rb	8.08 KB	-rw-r--r--	2008-07-03 16:44
sync.rb	6.09 KB	-rw-r--r--	2009-02-19 22:11
tempfile.rb	4.86 KB	-rw-r--r--	2008-04-21 15:13
thread.rb	104 B	-rw-r--r--	2007-02-14 01:09
thwait.rb	4.32 KB	-rw-r--r--	2010-06-08 12:38
time.rb	31.58 KB	-rw-r--r--	2008-06-06 13:35
timeout.rb	3 KB	-rw-r--r--	2010-06-08 11:54
tmpdir.rb	3.69 KB	-rw-r--r--	2009-01-26 07:42
tracer.rb	2.73 KB	-rw-r--r--	2007-02-13 04:31
tsort.rb	7.99 KB	-rw-r--r--	2007-02-13 04:31
un.rb	4.54 KB	-rw-r--r--	2007-02-13 04:31
uri.rb	710 B	-rw-r--r--	2008-04-15 15:11
weakref.rb	2.68 KB	-rw-r--r--	2007-02-13 04:31
webrick.rb	811 B	-rw-r--r--	2007-02-13 04:31
yaml.rb	12.36 KB	-rw-r--r--	2008-04-19 17:15

Rename

warn "Warning:#{caller[0].sub(/:in `.*'\z/, '')}: cgi-lib is deprecated after Ruby 1.8.1; use cgi instead"

=begin

= simple CGI support library

= example

== get form values

require "cgi-lib.rb"
	query = CGI.new
	query['field']   # <== value of 'field'
	query.keys       # <== array of fields

and query has Hash class methods

== get cookie values

require "cgi-lib.rb"
	query = CGI.new
	query.cookie['name']  # <== cookie value of 'name'
	query.cookie.keys     # <== all cookie names

and query.cookie has Hash class methods

== print HTTP header and HTML string to $>

require "cgi-lib.rb"
	CGI::print{
	  CGI::tag("HTML"){
	    CGI::tag("HEAD"){ CGI::tag("TITLE"){"TITLE"} } +
	    CGI::tag("BODY"){
	      CGI::tag("FORM", {"ACTION"=>"test.rb", "METHOD"=>"POST"}){
	        CGI::tag("INPUT", {"TYPE"=>"submit", "VALUE"=>"submit"})
	      } +
	      CGI::tag("HR")
	    }
	  }
	}

== make raw cookie string

require "cgi-lib.rb"
	cookie1 = CGI::cookie({'name'    => 'name',
	                       'value'   => 'value',
	                       'path'    => 'path',   # optional
	                       'domain'  => 'domain', # optional
	                       'expires' => Time.now, # optional
	                       'secure'  => true      # optional
	                      })

CGI::print("Content-Type: text/html", cookie1, cookie2){ "string" }

== print HTTP header and string to $>

require "cgi-lib.rb"
	CGI::print{ "string" }
	  # == CGI::print("Content-Type: text/html"){ "string" }
	CGI::print("Content-Type: text/html", cookie1, cookie2){ "string" }

=== NPH (no-parse-header) mode

require "cgi-lib.rb"
	CGI::print("nph"){ "string" }
	  # == CGI::print("nph", "Content-Type: text/html"){ "string" }
	CGI::print("nph", "Content-Type: text/html", cookie1, cookie2){ "string" }

== make HTML tag string

require "cgi-lib.rb"
	CGI::tag("element", {"attribute_name"=>"attribute_value"}){"content"}

== make HTTP header string

require "cgi-lib.rb"
	CGI::header # == CGI::header("Content-Type: text/html")
	CGI::header("Content-Type: text/html", cookie1, cookie2)

=== NPH (no-parse-header) mode

CGI::header("nph") # == CGI::header("nph", "Content-Type: text/html")
	CGI::header("nph", "Content-Type: text/html", cookie1, cookie2)

== escape url encode

require "cgi-lib.rb"
	url_encoded_string = CGI::escape("string")

== unescape url encoded

require "cgi-lib.rb"
	string = CGI::unescape("url encoded string")

== escape HTML &"<>

require "cgi-lib.rb"
	CGI::escapeHTML("string")

=end

require "delegate"

class CGI < SimpleDelegator

CR  = "\015"
  LF  = "\012"
  EOL = CR + LF

RFC822_DAYS = %w[ Sun Mon Tue Wed Thu Fri Sat ]
  RFC822_MONTHS = %w[ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec ]

# make rfc1123 date string
  def CGI::rfc1123_date(time)
    t = time.clone.gmtime
    return format("%s, %.2d %s %d %.2d:%.2d:%.2d GMT",
                RFC822_DAYS[t.wday], t.day, RFC822_MONTHS[t.month-1], t.year,
                t.hour, t.min, t.sec)
  end

# escape url encode
  def CGI::escape(str)
    str.gsub(/[^a-zA-Z0-9_\-.]/n){ sprintf("%%%02X", $&.unpack("C")[0]) }
  end

# unescape url encoded
  def CGI::unescape(str)
    str.gsub(/\+/, ' ').gsub(/%([0-9a-fA-F]{2})/){ [$1.hex].pack("c") }
  end

# escape HTML
  def CGI::escapeHTML(str)
    str.gsub(/&/, "&amp;").gsub(/\"/, "&quot;").gsub(/>/, "&gt;").gsub(/</, "&lt;")
  end

# offline mode. read name=value pairs on standard input.
  def read_from_cmdline
    require "shellwords.rb"
    words = Shellwords.shellwords(
              if not ARGV.empty?
                ARGV.join(' ')
              else
                STDERR.print "(offline mode: enter name=value pairs on standard input)\n" if STDIN.tty?
                readlines.join(' ').gsub(/\n/, '')
              end.gsub(/\\=/, '%3D').gsub(/\\&/, '%26'))

if words.find{|x| x =~ /=/} then words.join('&') else words.join('+') end
  end

def initialize(input = $stdin)

@inputs = {}
    @cookie = {}

case ENV['REQUEST_METHOD']
    when "GET"
      ENV['QUERY_STRING'] or ""
    when "POST"
      input.read(Integer(ENV['CONTENT_LENGTH'])) or ""
    else
      read_from_cmdline
    end.split(/[&;]/).each do |x|
      key, val = x.split(/=/,2).collect{|x|CGI::unescape(x)}
      if @inputs.include?(key)
        @inputs[key] += "\0" + (val or "")
      else
        @inputs[key] = (val or "")
      end
    end

super(@inputs)

if ENV.has_key?('HTTP_COOKIE') or ENV.has_key?('COOKIE')
      (ENV['HTTP_COOKIE'] or ENV['COOKIE']).split(/; /).each do |x|
        key, val = x.split(/=/,2)
        key = CGI::unescape(key)
        val = val.split(/&/).collect{|x|CGI::unescape(x)}.join("\0")
        if @cookie.include?(key)
          @cookie[key] += "\0" + val
        else
          @cookie[key] = val
        end
      end
    end
  end

attr("inputs")
  attr("cookie")

# make HTML tag string
  def CGI::tag(element, attributes = {})
    "<" + escapeHTML(element) + attributes.collect{|name, value|
      " " + escapeHTML(name) + '="' + escapeHTML(value) + '"'
    }.to_s + ">" +
    (iterator? ? yield.to_s + "</" + escapeHTML(element) + ">" : "")
  end

# make raw cookie string
  def CGI::cookie(options)
    "Set-Cookie: " + options['name'] + '=' + escape(options['value']) +
    (options['domain']  ? '; domain='  + options['domain'] : '') +
    (options['path']    ? '; path='    + options['path']   : '') +
    (options['expires'] ? '; expires=' + rfc1123_date(options['expires']) : '') +
    (options['secure']  ? '; secure' : '')
  end

# make HTTP header string
  def CGI::header(*options)
    if defined?(MOD_RUBY)
      options.each{|option|
        option.sub(/(.*?): (.*)/){
          Apache::request.headers_out[$1] = $2
        }
      }
      Apache::request.send_http_header
      ''
    else
      if options.delete("nph") or (ENV['SERVER_SOFTWARE'] =~ /IIS/)
        [(ENV['SERVER_PROTOCOL'] or "HTTP/1.0") + " 200 OK",
         "Date: " + rfc1123_date(Time.now),
         "Server: " + (ENV['SERVER_SOFTWARE'] or ""),
         "Connection: close"] +
        (options.empty? ? ["Content-Type: text/html"] : options)
      else
        options.empty? ? ["Content-Type: text/html"] : options
      end.join(EOL) + EOL + EOL
    end
  end

# print HTTP header and string to $>
  def CGI::print(*options)
    $>.print CGI::header(*options) + yield.to_s
  end

# print message to $>
  def CGI::message(message, title = "", header = ["Content-Type: text/html"])
    if message.kind_of?(Hash)
      title   = message['title']
      header  = message['header']
      message = message['body']
    end
    CGI::print(*header){
      CGI::tag("HTML"){
        CGI::tag("HEAD"){ CGI.tag("TITLE"){ title } } +
        CGI::tag("BODY"){ message }
      }
    }
    true
  end

# print error message to $> and exit
  def CGI::error
    CGI::message({'title'=>'ERROR', 'body'=>
      CGI::tag("PRE"){
        "ERROR: " + CGI::tag("STRONG"){ escapeHTML($!.to_s) } + "\n" + escapeHTML($@.join("\n"))
      }
    })
    exit
  end
end