1998-01-16 07:13:05 -05:00
|
|
|
#!/usr/local/bin/ruby
|
|
|
|
|
#
|
|
|
|
|
# Get CGI String
|
|
|
|
|
#
|
|
|
|
|
# EXAMPLE:
|
|
|
|
|
# require "cgi-lib.rb"
|
|
|
|
|
# foo = CGI.new
|
|
|
|
|
# foo['field'] <== value of 'field'
|
|
|
|
|
# foo.keys <== array of fields
|
|
|
|
|
# foo.inputs <== hash of { <field> => <value> }
|
|
|
|
|
|
1998-01-16 07:19:22 -05:00
|
|
|
# if running on Windows(IIS or PWS) then change cwd.
|
|
|
|
|
if ENV['SERVER_SOFTWARE'] =~ /^Microsoft-/ then
|
|
|
|
|
Dir.chdir ENV['PATH_TRANSLATED'].sub(/[^\\]+$/, '')
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
require "shellwords.rb"
|
|
|
|
|
|
1998-01-16 07:13:05 -05:00
|
|
|
class CGI
|
1998-01-16 07:19:22 -05:00
|
|
|
include Shellwords
|
|
|
|
|
|
1998-01-16 07:13:05 -05:00
|
|
|
attr("inputs")
|
1998-01-16 07:19:22 -05:00
|
|
|
|
|
|
|
|
# original is CGI.pm
|
|
|
|
|
def read_from_cmdline
|
|
|
|
|
words = shellwords(if not ARGV.empty? then
|
|
|
|
|
ARGV.join(' ')
|
|
|
|
|
else
|
|
|
|
|
print "(offline mode: enter name=value pairs on standard input)\n"
|
|
|
|
|
readlines.join(' ').gsub(/\n/, '')
|
|
|
|
|
end.gsub(/\\=/, '%3D').gsub(/\\&/, '%26'))
|
|
|
|
|
|
|
|
|
|
if words.find{|x| x =~ /=/} then words.join('&') else words.join('+') end
|
|
|
|
|
end
|
1998-01-16 07:13:05 -05:00
|
|
|
|
1998-01-16 07:19:22 -05:00
|
|
|
# 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
|
|
|
|
|
|
1998-01-16 07:13:05 -05:00
|
|
|
def initialize
|
1998-01-16 07:19:22 -05:00
|
|
|
# exception messages should be printed to stdout.
|
|
|
|
|
STDERR.reopen(STDOUT)
|
|
|
|
|
|
1998-01-16 07:13:05 -05:00
|
|
|
@inputs = {}
|
1998-01-16 07:19:22 -05:00
|
|
|
case ENV['REQUEST_METHOD']
|
|
|
|
|
when "GET"
|
|
|
|
|
ENV['QUERY_STRING'] or ""
|
|
|
|
|
when "POST"
|
|
|
|
|
$stdin.read ENV['CONTENT_LENGTH'].to_i
|
|
|
|
|
else
|
|
|
|
|
read_from_cmdline
|
|
|
|
|
end.split(/&/).each do |x|
|
|
|
|
|
key, val = x.split(/=/,2).collect{|x|unescape(x)}
|
|
|
|
|
@inputs[key] += ("\0" if @inputs[key]) + (val or "")
|
1998-01-16 07:13:05 -05:00
|
|
|
end
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def keys
|
|
|
|
|
@inputs.keys
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def [](key)
|
|
|
|
|
@inputs[key]
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
def CGI.message(msg, title = "")
|
|
|
|
|
print "Content-type: text/html\n\n"
|
|
|
|
|
print "<html><head><title>"
|
|
|
|
|
print title
|
|
|
|
|
print "</title></head><body>\n"
|
|
|
|
|
print msg
|
|
|
|
|
print "</body></html>\n"
|
|
|
|
|
TRUE
|
|
|
|
|
end
|
|
|
|
|
|
1998-01-16 07:19:22 -05:00
|
|
|
def CGI.error
|
|
|
|
|
m = $!.dup
|
|
|
|
|
m.gsub!(/&/, '&')
|
|
|
|
|
m.gsub!(/</, '<')
|
|
|
|
|
m.gsub!(/>/, '>')
|
|
|
|
|
msgs = ["<pre>ERROR: <strong>#{m}</strong>"]
|
|
|
|
|
msgs << $@
|
|
|
|
|
msgs << "</pre>"
|
|
|
|
|
CGI.message(msgs.join("\n"), "ERROR")
|
|
|
|
|
exit
|
|
|
|
|
end
|
1998-01-16 07:13:05 -05:00
|
|
|
end
|
