#
# Get CGI String
#
# EXAMPLE:
# require "cgi-lib.rb"
# foo = CGI.new
# foo['field'] <== value of 'field'
# foo.keys <== array of fields
# and foo has Hash class methods
#
# foo.cookie['name'] <== cookie value of 'name'
# foo.cookie.keys <== all cookie names
# and foo.cookie has Hash class methods
#
# make raw cookie string
# cookie1 = CGI.cookie({'name' => 'name',
# 'value' => 'value',
# 'path' => 'path', # optional
# 'domain' => 'domain', # optional
# 'expires' => Time.now, # optional
# 'secure' => true # optional
# })
#
# print CGI.header("Content-Type: text/html", cookie1, cookie2)
#
# print CGI.header("HTTP/1.0 200 OK", "Content-Type: text/html")
# print CGI.header # == print CGI.header("Content-Type: text/html")
# if running on Windows(IIS or PWS) then change cwd.
if ENV['SERVER_SOFTWARE'] =~ /^Microsoft-/ then
Dir.chdir ENV['PATH_TRANSLATED'].sub(/[^\\]+$/, '')
end
require "delegate"
class CGI < SimpleDelegator
CR = "\015"
LF = "\012"
EOL = CR + LF
attr("inputs")
attr("cookie")
# original is CGI.pm
def read_from_cmdline
require "shellwords.rb"
words = Shellwords.shellwords(if not ARGV.empty? then
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
# escape url encode
def escape(str)
str.gsub!(/[^a-zA-Z0-9_\-.]/n){ sprintf("%%%02X", $&.unpack("C")[0]) }
str
end
# unescape url encoded
def unescape(str)
str.gsub!(/\+/, ' ')
str.gsub!(/%([0-9a-fA-F]{2})/){ [$1.hex].pack("c") }
str
end
module_function :escape, :unescape
def initialize(input = $stdin)
@inputs = {}
case ENV['REQUEST_METHOD']
when "GET"
# exception messages should be printed to stdout.
STDERR.reopen(STDOUT)
ENV['QUERY_STRING'] or ""
when "POST"
# exception messages should be printed to stdout.
STDERR.reopen(STDOUT)
input.read Integer(ENV['CONTENT_LENGTH'])
else
read_from_cmdline
end.split(/&/).each do |x|
key, val = x.split(/=/,2).collect{|x|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')
@cookie = {}
ENV['HTTP_COOKIE'].split("; ").each do |x|
key, val = x.split(/=/,2).collect{|x|unescape(x)}
if @cookie.include?(key)
@cookie[key] += "\0" + (val or "")
else
@cookie[key] = (val or "")
end
end
end
end
def CGI.header(*options)
options.push("Content-Type: text/html") if options.empty?
if options.find{|item| /^Expires: |^Set-Cookie: /i === item}
options.push("Date: " + Time.now.gmtime.strftime("%a, %d %b %Y %X %Z"))
end
options.join(EOL) + EOL + EOL
end
def CGI.cookie(options)
"Set-Cookie: " + options['name'] + '=' + escape(options['value']) +
(options['domain'] ? '; domain=' + options['domain'] : '') +
(options['path'] ? '; path=' + options['path'] : '') +
(options['expires'] ? '; expires=' + options['expires'].strftime("%a, %d %b %Y %X %Z") : '') +
(options['secure'] ? '; secure' : '')
end
def CGI.message(msg, title = "", header = ["Content-Type: text/html"])
print CGI.header(*header)
print ""
print title
print "\n"
print msg
print "\n"
TRUE
end
def CGI.error
m = $!.to_s.dup
m.gsub!(/&/, '&')
m.gsub!(//, '>')
msgs = ["ERROR: #{m}"]
msgs << $@
msgs << ""
CGI.message(msgs.join("\n"), "ERROR")
exit
end
end