IOWA 1.0.0

data/src/iowa_mongrel.rb

@@ -0,0 +1,136 @@
+Iowa.runmode = :mongrel
+require 'mongrel'
+require 'mongrel/handlers'
+require 'iowa/request/Mongrel'
+require 'iowa/Client'
+
+Socket.do_not_reverse_lookup = true
+
+module Iowa
+	class MongrelHandler < ::Mongrel::HttpHandler
+		def initialize(config)
+			@config = config
+			@filemap = {}
+		end
+
+		def deliver_file(filename,suffix,res)
+			res.status = 200
+			ct = MIME::Types.type_for("foo.#{suffix}").first
+			res.header['Content-Type'] = ct ? ct.content_type : 'application/octet-stream'
+			res.body << File.read(filename)
+			Logger['iowa_log'].info "Delivered static file: #{filename}"
+		end
+
+		def handle_file(req, res)
+			path_info = req.params['PATH_INFO']
+			if path_info == '/' or path_info == ''
+				path_info = '/index.html'
+			elsif path_info =~ /^([^.]+)$/
+				path_info = "#{$1}/index.html"
+			end
+
+			qsfilename = "#{@config[Iowa::Capplication][Iowa::Cdoc_root]}#{path_info}__#{req.params['QUERY_STRING']}"
+			filename = "#{@config[Iowa::Capplication][Iowa::Cdoc_root]}#{path_info}"
+			
+			if (FileTest.exist?(qsfilename) and File.expand_path(qsfilename).index(@config[Iowa::Capplication][Iowa::Cdoc_root]) == 0)
+				suffix = path_info.sub(/[_\s]*$/,C_empty)
+				deliver_file(filename, File.extname(suffix)[1..-1],res)
+				true
+			elsif (FileTest.exist?(filename) and  File.expand_path(filename).index(@config[Iowa::Capplication][Iowa::Cdoc_root]) == 0)
+				suffix = path_info.sub(/[_\s]*$/,C_empty)
+				deliver_file(filename, File.extname(suffix)[1..-1],res)
+				true
+			else
+				false
+			end
+		end
+
+		def process(req, res)
+			Thread.current[:worker] = true
+			unless handle_file(req, res)
+				request = Iowa::Request::Mongrel.new(req)
+				response = Iowa.handleConnection request
+				::Iowa::InlineClient.new(request,response).print(res)
+			end
+		end
+	end
+
+
+
+	# Handle the communications coming in on the monitored socket,
+	# create a context object from the data received, and then pass
+	# the context information into the Application object for final
+	# handling.  Exception handling is simply via capturing the Exception
+	# and outputting a stack backtrace (this could be improved).
+
+	def self.handleConnection(request)
+		start_time = read_time = Time.now
+		mylog = Logger[Ciowa_log]
+
+		status = []
+		response = handleRequest(request)
+		begin
+			response.status_line = request.status_line if request.status_line
+			response.content_type = request.content_type if request.content_type
+			status[0] = response.status_line
+			if request.headers_out.respond_to?(:length) and request.headers_out.length > 0
+				request.headers_out.each {|k,v| response.headers.set(k,v)}
+			end
+		rescue Exception => e
+			mylog.info e.to_s, e.backtrace.inspect
+		end
+
+		end_time = Time.now
+		logline = "#{start_time} (#{read_time - start_time}/#{end_time - start_time}) :: #{request.uri} \"#{status[0]}\" #{response.body.length}B"
+		mylog.info logline
+		response
+	end
+
+	# Outputs the location of the socket being monitored, then enters the
+	# event loop to wait for and handle connections.
+
+	def self.eventLoop
+		Logger[Ciowa_log].info 'Entering the mongrel event loop...'
+		@mongrel.run
+		@mongrel_thread = @mongrel.acceptor
+		@mongrel_thread.join
+	end
+
+	def self.run(*args)
+		run_check_started(*args)
+		mylog = Logger[Ciowa_log]
+		my_ip = @config[Csocket][Chostname]
+		my_ip_hex = my_ip.split('.',4).collect {|x| to_hex(x)}.join
+
+		if @config[Csocket].has_key? Cport
+			socket_host = @config[Csocket][Chostname]
+			socket_port = @config[Csocket][Cport]
+			my_port_hex = sprintf('%04s',socket_port.to_i.to_s(16)).gsub(' ','0')
+			Iowa.app.location = "#{my_ip_hex}#{my_port_hex}"
+		else
+			if Iowa.app.serial_number.to_s != ''
+				Iowa.app.location = "00000000#{sprintf('%04s',Iowa.app.serial_number.to_i.to_s(16)).gsub(' ','0')}"
+			else
+				Iowa.app.location = ''
+			end
+		end
+
+		mongrel_options = {:BindAddress => @config[Csocket][Chostname],
+			:Port => @config[Csocket][Cport],
+			:DocumentRoot => "#{@config[Capplication][Croot_url]}/doc"}
+		@mongrel = ::Mongrel::HttpServer.new(mongrel_options[:BindAddress], mongrel_options[:Port])
+		@mongrel.register('/', MongrelHandler.new(@config))
+
+		app.initialLoad()
+		@server = nil
+		setup_signal_handlers
+
+		begin
+			eventLoop
+		rescue Exception => exception
+			mylog.fatal "Catastrophic failure in main event loop: #{exception} :: " + exception.backtrace.join(".....").to_s
+		ensure
+			File.delete(@config[Csocket][Cpath]) if @config[Csocket].has_key? Cpath
+		end
+	end
+end

data/src/iowa_webrick.rb

@@ -0,0 +1,194 @@
+Iowa.runmode = :webrick
+require 'iowa/Client'
+require 'iowa/request/WEBrick'
+require 'webrick'
+
+module Iowa
+  module WEBrick
+    class SwallowLogs
+      def method_missing(*args)
+      end
+    end
+
+    class IWAServlet < ::WEBrick::HTTPServlet::AbstractServlet
+      def deliver_file(response, filename, suffix)
+        d = File.read(filename)
+        ct = MIME::Types.type_for("foo.#{suffix}").first
+        response["Date"] = Time.now.httpdate
+        response["Connection"] = "close"
+        response["Content-type"] = ct ? ct.content_type : 'application/octet-stream'
+        response["Content-Length"] = d.length
+        response.body = d
+        Logger[Ciowa_log].info "Delivered static file: #{filename}"
+      end
+
+      def handle_file(request,response)
+        path_info = request.path
+        qs = request.query_string
+        if path_info == C_slash or path_info == C_empty
+          path_info = C_slashindex_html
+        elsif path_info =~ /^([^.]+)$/
+          path_info = "#{$1}/index.html"
+        end
+  
+        qsfilename = "#{Iowa.config[Iowa::Capplication][Iowa::Cdoc_root]}#{path_info}__#{qs}"
+        filename = "#{Iowa.config[Iowa::Capplication][Iowa::Cdoc_root]}#{path_info}"
+        if (FileTest.exist?(filename) and  File.expand_path(filename).index(Iowa.config[Iowa::Capplication][Iowa::Cdoc_root]) == 0)
+          suffix = path_info.sub(/[_\s]*$/,C_empty)
+          deliver_file(response, filename, File.extname(suffix)[1..-1])
+          true
+        elsif qs and (FileTest.exist?(qsfilename) and File.expand_path(qsfilename).index(Iowa.config[Iowa::Capplication][Iowa::Cdoc_root]) == 0)
+          suffix = path_info.sub(/[_\s]*$/,C_empty)
+          deliver_file(qsfilename, File.extname(suffix)[1..-1])
+          true
+        else
+          false
+        end
+      end
+      
+      def do_GET request, response
+        unless handle_file(request,response)
+          rq = Iowa::Request::WEBrick.new(request)
+          rs = Iowa::handleConnection(rq)
+        
+          response.status = rs.status
+          response.reason_phrase = ::Iowa::Response::RESPONSE_CODES[rs.status]
+          response["Date"] = Time.now.httpdate
+          response["Connection"] = "close"
+          response["Content-type"] = rs.content_type || "text/html"
+          response["Content-Length"] = rs.body.length
+          rs.headers.each {|k,v| response[k] = v}
+          response.body = rs.body
+        end
+      end
+      alias do_POST do_GET
+    end
+    
+    
+    class HTTPServer < ::WEBrick::HTTPServer
+  
+      def initialize(options)
+        @mappings = {}
+        @iowa_servlet = Iowa::WEBrick::IWAServlet
+        super
+      end
+
+      def service(req,res)
+        if req.unparsed_uri == "*"
+          if req.request_method == "OPTIONS"
+            do_OPTIONS(req, res)
+            raise ::HTTPStatus::OK
+          end
+          raise ::HTTPStatus::NotFound, "`#{req.unparsed_uri}' not found."
+        end
+
+        servlet, options, script_name, path_info = search_servlet(req.path)
+        unless servlet
+          servlet = @iowa_servlet
+          script_name = 'Iowa'
+          path_info = req.path
+        end
+        req.script_name = script_name
+        req.path_info = path_info
+        si = servlet.get_instance(self, *options)
+        si.service(req, res)
+      end
+    end
+  end
+end
+
+module Iowa
+
+  # Handle the communications coming in on the monitored socket,
+  # create a context object from the data received, and then pass
+  # the context information into the Application object for final
+  # handling.
+  
+  def self.handleConnection(request)
+    start_time = read_time = Time.now
+    mylog = Logger[Ciowa_log]
+
+    status = []
+    response = handleRequest(request)
+    begin
+      response.status_line = request.status_line if request.status_line
+      response.content_type = request.content_type if request.content_type
+      status[0] = response.status_line
+      if request.headers_out.respond_to?(:length) and request.headers_out.length > 0
+        request.headers_out.each {|k,v| response.headers.set(k,v)}
+      end
+    rescue Exception => e
+      mylog.info e.to_s, e.backtrace.inspect
+    end
+
+    end_time = Time.now
+    logline = "#{start_time} (#{read_time - start_time}/#{end_time - start_time}) :: #{request.uri} \"#{status[0]}\" #{response.body.length}B"
+    mylog.info logline
+    response
+  end
+
+  # Outputs the location of the socket being monitored, then enters the
+  # event loop to wait for and handle connections.
+
+  def self.eventLoop(server)
+    Logger[Ciowa_log].info 'Entering the WEBrick event loop...'
+    server.start
+  end
+
+  def self.run(*args)
+    run_check_started(*args)
+    mylog = Logger[Ciowa_log]
+    my_ip = @config[Csocket][Chostname]
+    my_ip_hex = my_ip.split('.',4).collect {|x| to_hex(x)}.join
+
+    ruby = File.join(::RbConfig::CONFIG['bindir'],
+      ::RbConfig::CONFIG['ruby_install_name']) << ::RbConfig::CONFIG['EXEEXT']
+    
+    if @config[Csocket].has_key? Cport
+      socket_host = @config[Csocket][Chostname]
+      socket_port = @config[Csocket][Cport]
+      my_port_hex = sprintf('%04s',socket_port.to_i.to_s(16)).gsub(' ','0')
+      Iowa.app.location = "#{my_ip_hex}#{my_port_hex}"
+    else
+      if Iowa.app.serial_number.to_s != ''
+        Iowa.app.location = "00000000#{sprintf('%04s',Iowa.app.serial_number.to_i.to_s(16)).gsub(' ','0')}"
+      else
+        Iowa.app.location = ''
+      end
+    end
+
+
+    app.initialLoad()
+    setup_signal_handlers
+
+    swallow_logs = Iowa::WEBrick::SwallowLogs.new
+
+    @server = Iowa::WEBrick::HTTPServer.new(
+      :Port => @config[Csocket][Cport],
+      :BindAddress => @config[Csocket][Chostname],
+      :DocumentRoot => Iowa.app.class.docroot,
+      :Logger => swallow_logs,
+      :AccessLog => swallow_logs,
+      :CGIInterpreter => ruby)
+    
+    if Iowa.app.class.cgiroot and FileTest.exist?(Iowa.app.class.cgiroot)
+      file_handler_options = {:HandlerTable => Hash.new(::WEBrick::HTTPServlet::CGIHandler)}
+      prefix = Iowa.app.class.cgiroot =~ /cgi-bin/ ? '/cgi-bin' : 'cgi'
+      @server.mount(prefix, ::WEBrick::HTTPServlet::FileHandler, Iowa.app.class.cgiroot, file_handler_options)
+    end
+    @server.mount('/',Iowa::WEBrick::IWAServlet)
+    
+    setup_signal_handlers
+
+    begin
+      eventLoop(@server)
+    rescue Exception => exception
+      mylog.fatal "Catastrophic failure in main event loop: #{exception} :: " + exception.backtrace.join(".....").to_s
+    ensure
+      File.delete(@config[Csocket][Cpath]) if @config[Csocket].has_key? Cpath
+      @server.shutdown
+      exit
+    end
+  end
+end
+

data/src/iowa_webrick_legacy.rb

@@ -0,0 +1,104 @@
+require 'iowa'
+require 'iowa/request/WEBrick'
+require 'iowa/webrick/HTTPServer'
+require 'rbconfig'
+
+module Iowa
+	def Iowa.checkConfiguration
+		unless @config.has_key? Csocket
+			@config[Csocket][Cport] = 2001
+			@config[Csocket][Chostname] = '127.0.0.1'
+		end
+		@config[Cwebrick] = {} unless @config[Cwebrick].length > 0
+		@config[Capplication][Cdaemonize] = false unless @config[Capplication][Cdaemonize].is_a?(String)
+		if @config.has_key? Clogging
+			if @config[Clogging].has_key? Cbasedir
+				raise "The logging basedir (#{@config[Clogging][Cbasedir]}) must be a directory." unless FileTest.directory? @config[Clogging][Cbasedir]
+				raise "The logging basedir #{@config[Clogging][Cbasedir]}) must be writeable." unless FileTest.writable? @config[Clogging][Cbasedir]
+			end
+		
+			raise "The minimum logging level (minlevel) must be an integer between 0 to 7, inclusively." if @config[Clogging].has_key? Cminlevel and (@config[Clogging][Cminlevel] < 0 or @config[Clogging][Cminlevel] > 7)
+
+			raise "The maximum log file size (maxsize) must be greater than zero." if @config.has_key? Cmaxsize and @config[Cmaxsize] <= 0
+
+			raise "The maximum log file age (maxage) must be greater than zero." if @config.has_key? Cmaxage and @config[Cmaxage] <= 0
+		end
+
+		# Now apply any defaults for optional items which were not specified.
+
+		@config[Clogging] = {} unless @config.has_key? Clogging
+		@config[Clogging][Cbasedir] = '/tmp' unless @config[Clogging].has_key? Cbasedir
+		@config[Clogging][Cminlevel] = 0 unless @config[Clogging].has_key? Cminlevel
+		@config[Clogging][Cmaxsize] = 1024 * 1024 unless @config[Clogging].has_key? Cmaxsize
+		@config[Clogging][Cmaxage] = 86400 unless @config[Clogging].has_key? Cmaxage
+		if @config[Csocket].has_key? 'path'
+			@config[Clogging][Cfilename] = "#{@config[Clogging][Cbasedir]}/#{@config[Csocket]['basename']}.log"
+		else
+			@config[Clogging][Cfilename] = "#{@config[Clogging][Cbasedir]}/#{@config[Csocket]['hostname']}:#{@config[Csocket]['port']}.log"
+		end
+		
+		@config[Cwebrick]['port'] ||= 2000
+		@config[Cwebrick][Cdocroot] ||= '../htdocs'
+		@config[Cwebrick]['cgiprefix'] ||= '/cgi-bin'
+		@config[Cwebrick]['cgiroot'] ||= '../cgi-bin'
+		
+		configureExceptionScreens
+	end
+
+	def Iowa.handleConnection(request,response)
+		start_time = Time.now
+		status = 'OK'
+		buffer = nil
+		iowa_log = Logger[Iowa::Ciowa_log]
+		req = Iowa::Request::WEBrick.new(request)
+		read_time = Time.now
+
+		buffer = handleRequest(req)	
+
+		if req.status_line and m = /^(\d+)/.match(req.status_line)
+			response.status = m[1]
+		end
+		
+		response[ "Date" ] = "#{Time.now.asctime}"
+		response[ "Pragma" ] = "no_cache"
+		response[ "Connection" ] = "close"
+		response[ "Content-type" ] = req.content_type || "text/html"
+		response[ "Content-Length" ] = buffer.length
+		req.headers_out.each do |k,v| response[ k ] = v end
+
+		response.body = buffer
+		
+		end_time = Time.now
+		referer = req.headers_in['Referer'] != '' ? req.headers_in['Referer'] : request.uri
+		iowa_log.info "#{start_time} (#{read_time.to_f - start_time.to_f}/#{end_time.to_f - start_time.to_f}) :: #{req.uri} #{status} #{buffer.length}B"
+	end
+
+	def Iowa.run(*args)
+		run_check_started(*args)
+		mylog = Logger['iowa_log']
+
+		ruby = File.join(::RbConfig::CONFIG['bindir'],
+			::RbConfig::CONFIG['ruby_install_name'])
+		ruby << ::RbConfig::CONFIG['EXEEXT']
+
+		@config[Cwebrick][Cdocroot] = nil unless @config[Cwebrick].has_key? Cdocroot
+		
+		mylog.info("Creating WEBrick server on port #{@config[Cwebrick]['port']} with a document root of #{@config[Cwebrick][Cdocroot]}.  The mapfile is at #{Iowa.app.class.Dispatcher.mapfile}, and the Ruby interpreter used for CGI programs is #{ruby}.")
+		server = Iowa::HTTPServer.new(
+			:Port => @config[Cwebrick]['port'],
+			:DocumentRoot => @config[Cwebrick][Cdocroot],
+			:MapFile => Iowa.app.class.Dispatcher.mapfile,
+			:Logger => mylog,
+			:CGIInterpreter => ruby)
+		
+		if FileTest.exist?(@config[Cwebrick]['cgiroot'])
+			file_handler_options = {:HandlerTable => Hash.new(WEBrick::HTTPServlet::CGIHandler)}
+			mylog.info("Mounting #{@config[Cwebrick]['cgiroot']} as the cgi-bin directory at #{@config[Cwebrick]['cgiprefix']}.") 
+			server.mount(@config[Cwebrick]['cgiprefix'], WEBrick::HTTPServlet::FileHandler, @config[Cwebrick]['cgiroot'], file_handler_options)
+		end
+				
+		trap("INT") {server.shutdown}
+		mylog.info("Starting WEBrick...")
+		server.start
+	end
+end

data/src/mod_iowa.rb

@@ -0,0 +1,104 @@
+require 'iowa/Client'
+include Iowa
+
+module Apache
+	class Iowa
+
+		URIRegex = Regexp.new('(/*(?:[^/]*/*)*?)(\w+\-\w+\-\w+\.\w+\.[\w\.]+)*$')
+
+		def Iowa.translate_uri(r)
+			r.setup_cgi_env
+			mapfile = ENV['MAP_FILE'] ? ENV['MAP_FILE'].dup : ''
+			mapfile.untaint
+			@IowaMapMTime ||= 0
+			@IowaMap ||= nil
+
+			if mapfile.to_s != ''
+				if @IowaMap and File.stat(mapfile).mtime != @IowaMapMTime
+					@IowaMapMTime = File.stat(mapfile)
+					@IowaMap = load_map_file(mapfile)
+				elsif mapfile.to_s != ''
+					@IowaMapMTime = File.stat(mapfile)
+					@IowaMap = load_map_file(mapfile)
+				end
+			end
+
+			if @IowaMap and mapfile.to_s != ''
+				upuri = r.unparsed_uri
+				upuri.gsub!('\?.*$','') if upuri =~ /\?/
+				m = URIRegex.match upuri
+				urlRoot = m[1]
+				urlRoot.chop! if m[2] unless urlRoot == '/'
+				if @IowaMap.has_key? urlRoot
+					r.uri = upuri
+					r.filename = urlRoot
+					return OK
+				else
+					return DECLINED
+				end
+			else
+				return DECLINED
+			end
+		end
+
+
+		def Iowa.handler(r)
+			if r.method_number == M_OPTIONS
+				r.allowed |= (1 << M_GET)
+				r.allowed |= (1 << M_POST)
+				return DECLINED
+			end
+			
+			@IowaMapMTime ||= 0
+			@IowaMap ||= nil
+			r.setup_cgi_env
+
+			mapfile = ENV['MAP_FILE'] ? ENV['MAP_FILE'].dup : ''
+			mapfile.untaint
+     
+			if mapfile.to_s != ''
+				if @IowaMap and File.stat(mapfile).mtime != @IowaMapMTime
+					@IowaMapMTime = File.stat(mapfile)
+					@IowaMap = load_map_file(mapfile)
+				elsif mapfile.to_s != ''
+					@IowaMapMTime = File.stat(mapfile)
+					@IowaMap = load_map_file(mapfile)
+				end
+			end
+
+			if @IowaMap and mapfile.to_s != ''
+				uri = r.uri.to_s
+				m = URIRegex.match(uri)
+				urlRoot = m[1]
+				urlRoot.chop! if m[2] unless urlRoot == '/'
+				unless @IowaMap.has_key? urlRoot
+					return DECLINED
+				end
+			end
+
+			client = Iowa::Client.new(ENV['IOWA_SOCKET'])
+			client.initiate(r)
+			client.receive
+			client.print
+			return OK
+		end
+
+		def Iowa.load_map_file(mapfile)
+			map = {}
+			begin
+				File.open(mapfile,'r') do |fh|
+					fh.each do |line|
+						next if line =~ /^\s*#/
+						line.chomp!
+						line.gsub!(/: .*$/,'')
+						map[line] = true
+					end
+				end
+			rescue Exception
+				map = nil
+			end
+
+			return map
+		end
+	end
+end