summaryrefslogtreecommitdiff
path: root/sample/webrick/demo-app.rb
blob: c7a2a0a6a41456860f9f45c6fdad993ba7aa54b3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
require "pp"

module DemoApplication
  def initialize(config, enctype)
    super
    @enctype = enctype
  end

  def do_GET(req, res)
    if req.path_info != "/"
      res.set_redirect(WEBrick::HTTPStatus::Found, req.script_name + "/")
    end
    res.body =<<-_end_of_html_
      <HTML>
       <FORM method="POST" enctype=#{@enctype}>
        text: <INPUT type="text" name="text"><BR>
        file: <INPUT type="file" name="file"><BR>
        check:
        <INPUT type="checkbox" name="check" value="a">a,
        <INPUT type="checkbox" name="check" value="b">b,
        <INPUT type="checkbox" name="check" value="c">c,
        <BR>
        <INPUT type="submit">
       </FORM>
      </HTML>
    _end_of_html_
    res['content-type'] = 'text/html; charset=iso-8859-1'
  end

  def do_POST(req, res)
    if req["content-length"].to_i > 1024*10
      raise WEBrick::HTTPStatus::Forbidden, "file size too large"
    end
    res.body =<<-_end_of_html_
      <HTML>
       <H2>Query Parameters</H2>
       #{display_query(req.query)}
       <A href="#{req.path}">return</A>
       <H2>Request</H2>
       <PRE>#{WEBrick::HTMLUtils::escape(PP::pp(req, "", 80))}</PRE>
       <H2>Response</H2>
       <PRE>#{WEBrick::HTMLUtils::escape(PP::pp(res, "", 80))}</PRE>
      </HTML>
    _end_of_html_
    res['content-type'] = 'text/html; charset=iso-8859-1'
  end

  private

  def display_query(q)
    ret = ""
    q.each{|key, val|
      ret << "<H3>#{WEBrick::HTMLUtils::escape(key)}</H3>"
      ret << "<TABLE border=1>"
      ret << make_tr("val", val.inspect)
      ret << make_tr("val.to_a", val.to_a.inspect)
      ret << make_tr("val.to_ary", val.to_ary.inspect)
      ret << "</TABLE>"
    }
    ret
  end

  def make_tr(arg0, arg1)
    "<TR><TD>#{arg0}</TD><TD>#{WEBrick::HTMLUtils::escape(arg1)}</TD></TR>"
  end
end