[ruby-list:11253] shttpsrv-1.0.4 + servlet

< ^ > P N |<>|^_>< --- | ~ ...Help
----Next_Part(Thu_Dec_10_01:20:03_1998_893)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit


postgreSQL及犯□正毛Web匹跤釩仄方丹午中欠中欠綜勻化月丹切卞
云手仄欠中及互匹五引仄凶﹝

葆今氏及跤釩今木凶 shttpsrv 毛荼瞻仄化﹜ruby及乒斥亙□伙毛
扔□田卞⑹讀卞伕□玉匹五月方丹卞仄引仄凶﹝
澀爛白央奶伙匹隙爛仄凶URL毛邰菲允月午﹜html白央奶伙毛鱉霜允月
醫歹曰卞﹜ruby及乒斥亙□伙互⑹讀卞戲嶽仄凶矢□斥毛鱉霜仄引允﹝
引凶﹜SSI及醱匹銀丹仇午手匹五引允﹝

瘉峊磪砲言馴𧘇エ洁╞瞴憧氻馱趥畮痐界疤蚺エ馱活阬
き蘸杴動嫦反﹜CGI方曰手內勻午伊旦禾件旦互鍍中匹允﹝
引凶﹜http及伉弁巨旦玄毛旋尹化贏戲五允月(?)左皮斥尼弁玄毛
銀中凶中凜卞手忐厙匹允﹝


conf.rb卞
ServletAlias  
#  [移邂由旦, require允月抩蟆, 乒斥亙□伙抩],
   ['/rb/', 'testserv.rb', 'TestServ'],		#1
   ['counter', 'counter.rb', 'Counter']		#2
]
及迋卞隙爛仄引允﹝

#1 匹反 http://localhost:8088/rb/arg1/arg2/ 午中丹邰菲互丐月午
   require 'testserv.rb'
   TestServ.service('arg1/arg2')
午中丹妐互刉笠今木引允﹝

#2 匹反 foo.shtml 醱卞
 <!--#ruby serviceounter args"-->
午中丹妐互丐月午
   requrie 'counter.rb'
   Counter.service_ssi('args', 'foo.shtml')
互刉笠今木引允﹝

service(arg)匹反目永母毛殖氏分域矢□斥毛戲嶽允月仇午毛渝謹仄﹜
service_ssi(arg, filename)匹反HTML及域朿毛戲嶽允月仇午毛渝謹仄化中引允﹝


-- 
陰




----Next_Part(Thu_Dec_10_01:20:03_1998_893)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=testserv.rb

#!/usr/local/bin/ruby

require 'thread'

module TestServ
  @origin  ime.now
  @count  
  @mutex  utex.new

in
  慼及丟玉反ServletDir 及慼及巨件玄伉卞覆殺允月﹝
  ['/rb/testserv/', 'testserv.rb', 'TestServ'] 
  URL "http://localhost:8088/rb/testserv/foo/bar" 互邰菲今木月午﹜
  TestServ.service('foo/bar') 午中丹摯互刉笠今木月﹝
  service丟玉反 http 域矢□斥毛忒允﹝
萲  
  def service(param)
    args  aram.split('/')
    getpage(args)
  end
  module_function :service

  def service_ssi(param, fname  il)
    countUp
    s  仇及扔□申旦卞#{@count}莢杴及失弁本旦匹允﹝婁醒反#{param}匹允﹝"
    if fname
      s + --- 仇及矢□斥反#{File.ctime(fname).to_s}卞凳蕙今木引仄凶"
    end
    s
  end
  module_function :service_ssi

  def countUp
    @mutex.synchronize do
      @count + 
    end
  end
  module_function :countUp
  private :countUp

  def getpage(args)
    countUp
    s  <EOF
Content-type: text/html

<HTML>
<HEAD>
<TITLE>testserv.rb</TITLE>
</HEAD>
<BODY>

<H2>testserv.rb</H2>
<P>"#{@origin.to_s}井日#{@count}莢杴及失弁本旦匹允"</P>

<UL>
EOF
    args.each do |arg|
      s + <LI>#{arg}\n"
    end
    s + </UL></BODY></HTML>\n"
    s
  end
  module_function :getpage
  private :getpage
end

module Counter
  @counter  }
  @m  utex.new
  def countUp(name)
    @m.synchronize do 
      @counter[name]  counter.fetch(name, 1) + 1
    end
    @counter[name]
  end
  module_function :countUp
  private :countUp

本gin
  慼及丟玉反ServletDir 及慼及巨件玄伉卞覆殺允月﹝
  ['counter', 'testserv.rb', 'Counter'] 
  foo.shtml白央奶伙醱及 <!--#ruby serviceounter foo"--> 午 
  譆晶今木月﹝
  Counter.service_ssi('foo', 'htdocs/foo.shtml') 午中丹摯互刉笠今木月﹝
  service_ssi丟玉反 http 及域朿毛忒允
萲  
  def service_ssi(param, fname  il)
    param  ' unless param
    countUp(param).to_s
  end
  module_function :service_ssi
end

module Modified
  def service_ssi(param, fname  il)
    return '' unless fname
    if param.nil? or param ''
      t  ile.ctime(fname)
    else
      dir  ile.dirname(fname)
      t  ile.ctime(dir + "/" + param)
    end
    t.strftime("%y %m %d")
  end
  module_function :service_ssi
end

if __FILE__ $0 
  begin
    print TestServ.service('arg1/arg2/arg3')
    print TestServ.service_ssi('arg1/arg2/arg3')
  end
end


----Next_Part(Thu_Dec_10_01:20:03_1998_893)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=ssi-test.shtml

<html>
  <head>
    <title>
      SSI TEST
    </title>
  </head>
  <body>
    <h1>SSI TEST</h1>
    &lt;!--#exec cmduby -e 'print Time.now'"--&gt;<br>
    <!--#exec cmduby -e 'print Time.now'"--><br>
    &lt;!--#ruby serviceounter A"--&gt;<br>    
    <!--#ruby serviceounter A"--><br>
    &lt;!--#ruby serviceounter B"--&gt;<br>    
    <!--#ruby serviceounter B"--><br>
    &lt;!--#ruby serviceodified index.html"--&gt;<br>
    <a href">home</a> 
    ＿ <!--#ruby serviceodified index.html"-->凳蕙
  </body>
</html>
  
----Next_Part(Thu_Dec_10_01:20:03_1998_893)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename=servlet.patch

Only in shttpsrv-p: CVS
diff -c shttpsrv-1.0.4/conf.rb shttpsrv-p/conf.rb
*** shttpsrv-1.0.4/conf.rb	Tue Sep 29 13:58:28 1998
--- shttpsrv-p/conf.rb	Thu Dec 10 01:07:59 1998
***************
*** 28,33 ****
--- 28,45 ----
    ["/img/", ServerRoot+"/img/"]
  ]
  
+ # servlet alias
+ # format : [virtual, require, module]
+ ServletAlias  
+   ['/rb/testserv/', 'testserv.rb', 'TestServ'],	  
+   # requrie 'testserv.rb'
+   # TestServ.service(param) 
+   # TestServ.service_ssi(param, file)
+   ['counter', 'testserv.rb', 'Counter'],	# SSI
+   ['modified', 'testserv.rb', 'Modified'],	# SSI
+   ['/tinyyahoo/', 'tinyyahoo.rb', 'TinyYahoo']
+ ]
+ 
  # directory aliases for executable scripts
  ScriptAlias  
    ["/cgi-bin/", ServerRoot+"/cgi-bin/"], 
***************
*** 88,94 ****
  #LogFile  shttpsrv.log"
  
  # set it FALSE, if the machine stands alone (recieve no DNS service)
! #Offline  RUE
  
  # HTTP PROXY
  # To activate proxy function
--- 100,106 ----
  #LogFile  shttpsrv.log"
  
  # set it FALSE, if the machine stands alone (recieve no DNS service)
! Offline  RUE
  
  # HTTP PROXY
  # To activate proxy function
Common subdirectories: shttpsrv-1.0.4/omake and shttpsrv-p/omake
Common subdirectories: shttpsrv-1.0.4/sample and shttpsrv-p/sample
diff -c shttpsrv-1.0.4/shttpsrv.rb shttpsrv-p/shttpsrv.rb
*** shttpsrv-1.0.4/shttpsrv.rb	Tue Sep 29 13:52:25 1998
--- shttpsrv-p/shttpsrv.rb	Thu Dec 10 01:08:00 1998
***************
*** 223,228 ****
--- 223,239 ----
      nil
    end
  
+   def set_servlet
+     for servlet_dir in ServletAlias
+       if @target /^#{servlet_dir[0]}(.*)/
+ 	if servlet_dir.size 3
+ 	  return [servlet_dir, $1]
+ 	end
+       end
+     end
+     nil
+   end
+ 
    def ssi?(fname)
      return nil unless defined? SSIhtml
       SSIhtml.each do |ext|
***************
*** 601,606 ****
--- 612,678 ----
      [heads, body]
    end
  
+   def do_servlet(t)
+     servlet_dir, param  
+     req  require '#{servlet_dir[1]}'"
+     servlet  ervlet_dir[2]
+     script  #{servlet}.service(param)"
+     heads, data  ], ''
+     begin 
+       $m.synchronize do
+ 	eval(req)
+       end
+       data  val(script)
+       cgimsg  fc822h.new(data)
+       location  gimsg['Location']
+       heads1, body  gimsg.header, cgimsg.body
+       if location
+ 	if location /http:\/\//
+ 	  heads << "HTTP/1.0 302 Found"
+ 	else
+ 	  throw(:aloc, location)
+ 	end
+       else
+ 	heads << "HTTP/1.0 200 Script output follows"
+       end
+       heads << "Content-length: #{body.length}"
+       heads << ("Date: " + strdate())
+     rescue
+       print "Error(Servlet): #$!\n"
+       print $@.join("\n"), "\n" if $debug
+       heads1, body  ], "<H1>Server Erorr (^^;</H1>#$!\n"
+       heads << "HTTP/1.0 500 Server Error"
+     end
+     heads << Version
+     heads.concat heads1
+     [heads, body]
+   end
+ 
+   def do_servlet_ssi(str, fname)
+     if str /^(\S+)\s*(.*)$/
+       serv_name  1
+       param  2
+       p(serv_name)
+       p(param)
+       servlet_dir  ervletAlias.assoc(serv_name)
+       return '' unless servlet_dir
+     else
+       return ''
+     end
+     req  require '#{servlet_dir[1]}'"
+     servlet  ervlet_dir[2]
+     script  #{servlet}.service_ssi(param, fname)"
+     begin 
+       eval(req)
+       data  val(script)
+     rescue
+       print "Error(Servlet): #$!\n"
+       print $@.join("\n"), "\n" if $debug
+       data  '
+     end
+     data
+   end
+ 
    def dir_head(dir)
      headfile  ir.sub(/\/?$/, "/" + HeaderName)
      if File.file?(headfile)
***************
*** 700,705 ****
--- 772,780 ----
  	    ensure
  	      f.close
  	    end
+ 	  when "ruby"
+ 	    raise "unknown parameter" unless opt "service"
+ 	    result  o_servlet_ssi(script, fname)
  	  when "include"
  	    if opt "file"
  	      begin
***************
*** 887,892 ****
--- 962,969 ----
  	      client.authenticate(auth)
  	    elsif cgi  lient.set_cgi
  	      client.do_cgi(cgi)
+ 	    elsif servlet  lient.set_servlet
+ 	      client.do_servlet(servlet)
  	    else
  	      client.get_image(target)
  	    end
Only in shttpsrv-p: testserv.rb

----Next_Part(Thu_Dec_10_01:20:03_1998_893)----