narf 0.5.1

data/lib/web/runner.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/ruby
+
+require 'web'
+
+docroot = ENV["DOCUMENT_ROOT"]
+Web.set_docroot docroot
+$:.replace(["#{docroot}/../src","#{docroot}/../config"].concat($:))
+
+def cgi # :nodoc:
+    Web::CGI.create()
+end
+
+begin
+    load ARGV[0]
+rescue Exception => err
+    cgi.puts "<h3>ruby error:</h3>"
+    cgi.puts Dir.pwd
+    cgi.puts err.to_s.gsub(/\n/,"<br><br>")
+    cgi.puts "<blockquote>"
+    cgi.puts (if (err.backtrace.size > 3)
+               err.backtrace[0...-2]
+	     else
+               err.backtrace
+             end).collect{ |string| string + "<br>" }
+    cgi.puts "</blockquote>"
+end

data/lib/web/runner.rb~

@@ -0,0 +1,26 @@
+#!/usr/bin/ruby
+
+require 'web'
+
+docroot = ENV["DOCUMENT_ROOT"]
+Web.set_docroot docroot
+$:.replace(["#{docroot}/../src","#{docroot}/../config"].concat($:))
+
+def cgi # :nodoc:
+    Web::CGI.create()
+end
+
+begin
+    load ARGV[0]
+rescue Exception => err
+    cgi.puts "<h3>ruby error:</h3>"
+    cgi.puts Dir.pwd
+    cgi.puts err.to_s.gsub(/\n/,"<br><br>")
+    cgi.puts "<blockquote>"
+    cgi.puts (if (err.backtrace.size > 3)
+               err.backtrace[0...-2]
+	     else
+               err.backtrace
+             end).collect{ |string| string + "<br>" }
+    cgi.puts "</blockquote>"
+end

data/lib/web/sapi/fastcgi.rb

@@ -0,0 +1,26 @@
+# see cgi.rb and Web::process
+
+require 'web/cgi'
+
+module Web
+  class CGD
+    class Fastcgi < CGD
+      def Fastcgi::new( options = {} )
+        fcgi = options[:fcgi]
+        
+        options[:out]  = fcgi.out
+        options[:in]   = fcgi.in
+        options[:env]  = fcgi.env
+        
+        super(options) 
+      end
+      
+      def close
+        options[:fcgi].finish
+        options[:fcgi] = nil
+      end
+    end
+  end
+  
+end
+

data/lib/web/sapi/fastcgi.rb~

@@ -0,0 +1,25 @@
+# see cgi.rb and Web::process
+
+require 'web/cgi'
+
+module Web
+  class FastCGD < CGD
+    def FastCGD::new( options = {} )
+      fcgi = options[:fcgi]
+      
+      options[:out]  = fcgi.out
+      options[:in]   = fcgi.in
+      options[:env]  = fcgi.env
+      
+      super(options) 
+    end
+
+    def close
+      options[:fcgi].finish
+      options[:fcgi] = nil
+    end
+    
+  end
+  
+end
+

data/lib/web/sapi/mod_ruby.rb

@@ -0,0 +1,46 @@
+# see cgi.rb and Web::process
+
+require 'web/cgi'
+
+module Web
+  class CGD
+    class ModRuby < CGD
+      def initialize( options = {} )
+        options[:env] = {}
+        ENV.each{|k,v|
+          options[:env][k] = v
+        }
+        Apache::request.headers_in.each{ |k,v|
+          options[:env][k] = v
+        }
+        super(options)
+      end
+
+      def send_header header
+        Apache::request.status_line  = header['Status'].first.split.shift
+        Apache::request.content_type = header['Content-Type'].first
+        Apache::request.content_encoding = (header['Content-Encoding'] || [ ]).first
+        
+        header.delete( "Status" )
+        header.delete( "Content-Type" )
+        header.delete( "Content-Encoding" )
+        
+        if (header["Set-Cookie"])
+          header["Set-Cookie"].each{ |cookie|
+            Apache::request.headers_out.add( "Set-Cookie", cookie )
+          }
+          header.delete( "Set-Cookie" )
+        end
+        
+        header.each{ |k,v|
+          Apache::request.headers_out[k] = v.last
+        }
+        
+        Apache::request.send_http_header
+        
+      end
+
+    end
+  end
+end
+

data/lib/web/sapi/mod_ruby.rb~

@@ -0,0 +1,46 @@
+# see cgi.rb and Web::process
+
+require 'web/cgi'
+
+module Web
+  class CGD
+    class ModRubyCGD < CGD
+      def initialize( options = {} )
+        options[:env] = {}
+        ENV.each{|k,v|
+          options[:env][k] = v
+        }
+        Apache::request.headers_in.each{ |k,v|
+          options[:env][k] = v
+        }
+        super(options)
+      end
+
+      def send_header header
+        Apache::request.status_line  = header['Status'].first.split.shift
+        Apache::request.content_type = header['Content-Type'].first
+        Apache::request.content_encoding = (header['Content-Encoding'] || [ ]).first
+        
+        header.delete( "Status" )
+        header.delete( "Content-Type" )
+        header.delete( "Content-Encoding" )
+        
+        if (header["Set-Cookie"])
+          header["Set-Cookie"].each{ |cookie|
+            Apache::request.headers_out.add( "Set-Cookie", cookie )
+          }
+          header.delete( "Set-Cookie" )
+        end
+        
+        header.each{ |k,v|
+          Apache::request.headers_out[k] = v.last
+        }
+        
+        Apache::request.send_http_header
+        
+      end
+
+    end
+  end
+end
+

data/lib/web/sapi/webrick.rb

@@ -0,0 +1,91 @@
+# Based on: 
+# cgihandler.rb -- CGIHandler Class
+#       
+# Author: IPR -- Internet Programming with Ruby -- writers
+# Copyright (c) 2001 TAKAHASHI Masayoshi, GOTOU Yuuzou
+# Copyright (c) 2002 Internet Programming with Ruby writers. All rights
+# reserved.
+#   
+# $IPR: cgihandler.rb,v 1.27 2003/03/21 19:56:01 gotoyuzo Exp $
+
+require 'tempfile'
+require 'webrick/httpservlet/abstract'
+
+require 'web'
+
+module Web
+  
+  class CGD
+    class Webrick < Web::CGD
+      def send_header( header )
+        
+      end
+    end
+  end
+
+  class NarfHandler < WEBrick::HTTPServlet::AbstractServlet
+
+    def initialize(server, name)
+      super
+      @script_filename = name
+      @tempdir = server[:TempDir]
+    end
+    
+    def do_GET(req, res)
+      header, body = nil, nil
+      
+      cgi_out = Tempfile.new("webrick.cgiout.", @tempdir)
+      cgi_err = Tempfile.new("webrick.cgierr.", @tempdir)
+      
+      old_stderr = $stderr
+      
+      begin
+        $stderr    = cgi_err
+        
+        meta = req.meta_vars
+        meta["SCRIPT_FILENAME"] = @script_filename
+        meta["PATH"] = @config[:CGIPathEnv]
+        
+        Web::process( :cgd => Web::CGD::Webrick.new(:out => cgi_out,
+                                                  :in  => StringIO.new( req.body || '' ),
+                                                  :env => meta ) ) {
+          load( @script_filename, true )
+        }
+        
+      ensure
+        Web::close
+        
+        cgi_out.rewind
+        body = cgi_out.read
+        cgi_out.close(true)
+        
+        if errmsg = cgi_err.read
+          if errmsg.size > 0
+            @logger.error("NarfHandler: #{@script_filename}:\n" + errmsg)
+          end
+        end 
+        cgi_err.close(true)
+        
+        $stderr = old_stderr
+      end
+      
+      begin
+        header = Web::header
+        
+        if /^(\d+)/ =~ header['Status'].last
+          res.status = $1.to_i
+          header.delete('Status')
+        end
+        header.each{|key, val|
+          res[key] = val.join(", ") }
+      rescue => ex
+        raise HTTPStatus::InternalServerError, ex.message
+      end
+      
+      res.body = body
+      
+    end
+    alias do_POST do_GET
+  end
+  
+end

data/lib/web/sapi/webrick.rb~

@@ -0,0 +1,89 @@
+# Based on: 
+# cgihandler.rb -- CGIHandler Class
+#       
+# Author: IPR -- Internet Programming with Ruby -- writers
+# Copyright (c) 2001 TAKAHASHI Masayoshi, GOTOU Yuuzou
+# Copyright (c) 2002 Internet Programming with Ruby writers. All rights
+# reserved.
+#   
+# $IPR: cgihandler.rb,v 1.27 2003/03/21 19:56:01 gotoyuzo Exp $
+
+require 'tempfile'
+require 'webrick/httpservlet/abstract'
+
+require 'web'
+
+module Web
+  
+  class WebrickCGD < Web::CGD
+    def send_header( header )
+      
+    end
+  end
+
+  class NarfHandler < WEBrick::HTTPServlet::AbstractServlet
+
+    def initialize(server, name)
+      super
+      @script_filename = name
+      @tempdir = server[:TempDir]
+    end
+    
+    def do_GET(req, res)
+      header, body = nil, nil
+      
+      cgi_out = Tempfile.new("webrick.cgiout.", @tempdir)
+      cgi_err = Tempfile.new("webrick.cgierr.", @tempdir)
+      
+      old_stderr = $stderr
+      
+      begin
+        $stderr    = cgi_err
+        
+        meta = req.meta_vars
+        meta["SCRIPT_FILENAME"] = @script_filename
+        meta["PATH"] = @config[:CGIPathEnv]
+        
+        Web::process( :cgd => Web::WebrickCGD.new(:out => cgi_out,
+                                                  :in  => StringIO.new( req.body || '' ),
+                                                  :env => meta ) ) {
+          load( @script_filename, true )
+        }
+        
+      ensure
+        Web::close
+        
+        cgi_out.rewind
+        body = cgi_out.read
+        cgi_out.close(true)
+        
+        if errmsg = cgi_err.read
+          if errmsg.size > 0
+            @logger.error("NarfHandler: #{@script_filename}:\n" + errmsg)
+          end
+        end 
+        cgi_err.close(true)
+        
+        $stderr = old_stderr
+      end
+      
+      begin
+        header = Web::header
+        
+        if /^(\d+)/ =~ header['Status'].last
+          res.status = $1.to_i
+          header.delete('Status')
+        end
+        header.each{|key, val|
+          res[key] = val.join(", ") }
+      rescue => ex
+        raise HTTPStatus::InternalServerError, ex.message
+      end
+      
+      res.body = body
+      
+    end
+    alias do_POST do_GET
+  end
+  
+end

data/lib/web/session.rb

@@ -0,0 +1,75 @@
+require 'digest/md5'
+module Web
+  # == Purpose
+  # Provides a file based implemetation of a session.
+  # This is hacked up from matz's CGI::Session
+  class Session
+	
+
+	class << self
+	    def create_id
+		md5 = Digest::MD5.new
+		md5.update( String(Time.now.to_f) )
+		md5.update( String(rand(0))  ) 
+		#md5.update( String($$)       )
+		#md5.update( 'thanks matz'    )
+		md5.hexdigest[0,16]
+	    end
+	end
+
+	def initialize( cgi, options={} )
+	    @session_id = load_id( cgi, options )
+
+	    send_cookie( cgi, options[:session_key] || "_session_id" )
+
+	    @session = get_session_from_disk
+	end
+
+	def get_session_from_disk
+	    if File.exists? file
+		File.open( file, "r" ) { |store|
+		    Marshal.load store
+		}
+	    else
+		{}
+	    end
+	end
+
+	def load_id( cgi, options )
+	    if (options.has_key? :session_id)
+		options[:session_id]
+	    elsif(cgi.cookies["_session_id"] && !cgi.cookies["_session_id"].empty?)
+		cgi.cookies["_session_id"][0]
+	    else
+		Session.create_id
+	    end
+	end
+	    
+
+	def send_cookie( cgi, session_key )
+	    cgi.set_cookie( session_key, @session_id )
+	end
+
+
+	# saves session to disk
+	def save
+	    File.open( file, "w+" ) { |store|
+		Marshal.dump( @session, store )
+	    }
+	end
+
+	def file
+	    File.expand_path(File.join((ENV['TMP'] || '/tmp' ), File.basename(@session_id.to_s).untaint))
+	end
+	
+	# resets session to empty hash, for use in testing
+	def reset
+	    @session = {}
+	end
+	
+	def method_missing(method, *args, &block)
+	    # much faster than simple delegator
+	    @session.send(method,*args,&block)
+	end
+    end
+end