# ProgRub p733
# http://microjet.ath.cx/webrickguide/html/HTTPRequest.html
require 'webrick'
#webrick bug? elkerulesere
class WEBrick::HTTPServlet::FileHandler
def get_instance(server, *options)
self
end
end
n = 0
my_proc = lambda do |req,resp|
resp['Content-Type'] = "text/html"
resp.body = %{
Call no. #{n += 1}
from #{req['User-Agent']}
ize: #{req.script_name}, #{req.class}
Query parameters: #{l = "" ; req.query.each {|k, v| l << "
#{k}: #{v}"} ; l}
Request header:#{l = "" ; req.header.each {|k, v| l << "
#{k}: #{v}"} ; l}
}
end
foo = WEBrick::HTTPServlet::ProcHandler.new(my_proc)
s = WEBrick::HTTPServer.new(:Port => 9090)
fh = WEBrick::HTTPServlet::FileHandler.new(s, __FILE__)
s.mount("/hello", foo)
s.mount("/ize",fh)
trap("INT"){ s.shutdown }
s.start