RubyGems - arrow - Versions diffs - 1.0.7 - Mend

arrow 1.0.7

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (198) hide show

data/ChangeLog +1590 -0
data/LICENSE +28 -0
data/README +75 -0
data/Rakefile +366 -0
data/Rakefile.local +63 -0
data/data/arrow/applets/TEMPLATE.rb.tpl +53 -0
data/data/arrow/applets/args.rb +50 -0
data/data/arrow/applets/config.rb +55 -0
data/data/arrow/applets/error.rb +63 -0
data/data/arrow/applets/files.rb +46 -0
data/data/arrow/applets/inspect.rb +46 -0
data/data/arrow/applets/nosuchapplet.rb +31 -0
data/data/arrow/applets/status.rb +92 -0
data/data/arrow/applets/test.rb +133 -0
data/data/arrow/applets/tutorial/counter.rb +96 -0
data/data/arrow/applets/tutorial/dingus.rb +67 -0
data/data/arrow/applets/tutorial/hello.rb +34 -0
data/data/arrow/applets/tutorial/hello2.rb +73 -0
data/data/arrow/applets/tutorial/imgtext.rb +90 -0
data/data/arrow/applets/tutorial/imgtext2.rb +286 -0
data/data/arrow/applets/tutorial/index.rb +36 -0
data/data/arrow/applets/tutorial/logo.rb +98 -0
data/data/arrow/applets/tutorial/memcache.rb +61 -0
data/data/arrow/applets/tutorial/missing.rb +37 -0
data/data/arrow/applets/tutorial/protected.rb +100 -0
data/data/arrow/applets/tutorial/redirector.rb +52 -0
data/data/arrow/applets/tutorial/rndimages.rb +159 -0
data/data/arrow/applets/tutorial/sharenotes.rb +83 -0
data/data/arrow/applets/tutorial/subclassed-hello.rb +32 -0
data/data/arrow/applets/tutorial/superhello.rb +72 -0
data/data/arrow/applets/tutorial/timeclock.rb +78 -0
data/data/arrow/applets/view-applet.rb +123 -0
data/data/arrow/applets/view-template.rb +85 -0
data/data/arrow/applets/wiki.rb +274 -0
data/data/arrow/templates/TEMPLATE.tmpl.tpl +36 -0
data/data/arrow/templates/applet-status.tmpl +153 -0
data/data/arrow/templates/args-display.tmpl +120 -0
data/data/arrow/templates/config/display-table.tmpl +36 -0
data/data/arrow/templates/config/display.tmpl +36 -0
data/data/arrow/templates/counter-deleted.tmpl +33 -0
data/data/arrow/templates/counter.tmpl +59 -0
data/data/arrow/templates/dingus.tmpl +55 -0
data/data/arrow/templates/enumtable.tmpl +8 -0
data/data/arrow/templates/error-display.tmpl +92 -0
data/data/arrow/templates/filemap.tmpl +89 -0
data/data/arrow/templates/hello-world-src.tmpl +34 -0
data/data/arrow/templates/hello-world.tmpl +60 -0
data/data/arrow/templates/imgtext/fontlist.tmpl +46 -0
data/data/arrow/templates/imgtext/form.tmpl +70 -0
data/data/arrow/templates/imgtext/reload-error.tmpl +40 -0
data/data/arrow/templates/imgtext/reload.tmpl +55 -0
data/data/arrow/templates/inspect/display.tmpl +80 -0
data/data/arrow/templates/loginform.tmpl +64 -0
data/data/arrow/templates/logout.tmpl +32 -0
data/data/arrow/templates/memcache/display.tmpl +41 -0
data/data/arrow/templates/navbar.incl +27 -0
data/data/arrow/templates/nosuchapplet.tmpl +32 -0
data/data/arrow/templates/printsource.tmpl +35 -0
data/data/arrow/templates/protected.tmpl +36 -0
data/data/arrow/templates/rndimages.tmpl +38 -0
data/data/arrow/templates/service-response.tmpl +13 -0
data/data/arrow/templates/sharenotes/display.tmpl +38 -0
data/data/arrow/templates/status.tmpl +120 -0
data/data/arrow/templates/templateviewer.tmpl +43 -0
data/data/arrow/templates/test/harness.tmpl +57 -0
data/data/arrow/templates/test/list.tmpl +48 -0
data/data/arrow/templates/test/problem.tmpl +42 -0
data/data/arrow/templates/tutorial/index.tmpl +37 -0
data/data/arrow/templates/tutorial/missingapplet.tmpl +29 -0
data/data/arrow/templates/view-applet-nosuch.tmpl +32 -0
data/data/arrow/templates/view-applet.tmpl +40 -0
data/data/arrow/templates/view-template.tmpl +83 -0
data/data/arrow/templates/wiki/formerror.tmpl +47 -0
data/data/arrow/templates/wiki/markup_help.incl +6 -0
data/data/arrow/templates/wiki/new.tmpl +56 -0
data/data/arrow/templates/wiki/new_system.tmpl +122 -0
data/data/arrow/templates/wiki/sectionlist.tmpl +43 -0
data/data/arrow/templates/wiki/show.tmpl +34 -0
data/docs/manual/layouts/default.page +43 -0
data/docs/manual/lib/api-filter.rb +81 -0
data/docs/manual/lib/editorial-filter.rb +64 -0
data/docs/manual/lib/examples-filter.rb +244 -0
data/docs/manual/lib/links-filter.rb +117 -0
data/lib/apache/fakerequest.rb +448 -0
data/lib/apache/logger.rb +33 -0
data/lib/arrow.rb +51 -0
data/lib/arrow/acceptparam.rb +207 -0
data/lib/arrow/applet.rb +725 -0
data/lib/arrow/appletmixins.rb +218 -0
data/lib/arrow/appletregistry.rb +590 -0
data/lib/arrow/applettestcase.rb +503 -0
data/lib/arrow/broker.rb +255 -0
data/lib/arrow/cache.rb +176 -0
data/lib/arrow/config-loaders/yaml.rb +75 -0
data/lib/arrow/config.rb +615 -0
data/lib/arrow/constants.rb +24 -0
data/lib/arrow/cookie.rb +359 -0
data/lib/arrow/cookieset.rb +108 -0
data/lib/arrow/dispatcher.rb +368 -0
data/lib/arrow/dispatcherloader.rb +50 -0
data/lib/arrow/exceptions.rb +61 -0
data/lib/arrow/fallbackhandler.rb +48 -0
data/lib/arrow/formvalidator.rb +631 -0
data/lib/arrow/htmltokenizer.rb +343 -0
data/lib/arrow/logger.rb +488 -0
data/lib/arrow/logger/apacheoutputter.rb +69 -0
data/lib/arrow/logger/arrayoutputter.rb +63 -0
data/lib/arrow/logger/coloroutputter.rb +111 -0
data/lib/arrow/logger/fileoutputter.rb +96 -0
data/lib/arrow/logger/htmloutputter.rb +54 -0
data/lib/arrow/logger/outputter.rb +123 -0
data/lib/arrow/mixins.rb +425 -0
data/lib/arrow/monkeypatches.rb +94 -0
data/lib/arrow/object.rb +117 -0
data/lib/arrow/path.rb +196 -0
data/lib/arrow/service.rb +447 -0
data/lib/arrow/session.rb +289 -0
data/lib/arrow/session/dbstore.rb +100 -0
data/lib/arrow/session/filelock.rb +160 -0
data/lib/arrow/session/filestore.rb +132 -0
data/lib/arrow/session/id.rb +98 -0
data/lib/arrow/session/lock.rb +253 -0
data/lib/arrow/session/md5id.rb +42 -0
data/lib/arrow/session/nulllock.rb +42 -0
data/lib/arrow/session/posixlock.rb +166 -0
data/lib/arrow/session/sha1id.rb +54 -0
data/lib/arrow/session/store.rb +366 -0
data/lib/arrow/session/usertrackid.rb +52 -0
data/lib/arrow/spechelpers.rb +73 -0
data/lib/arrow/template.rb +713 -0
data/lib/arrow/template/attr.rb +31 -0
data/lib/arrow/template/call.rb +31 -0
data/lib/arrow/template/comment.rb +33 -0
data/lib/arrow/template/container.rb +118 -0
data/lib/arrow/template/else.rb +41 -0
data/lib/arrow/template/elsif.rb +44 -0
data/lib/arrow/template/escape.rb +53 -0
data/lib/arrow/template/export.rb +87 -0
data/lib/arrow/template/for.rb +145 -0
data/lib/arrow/template/if.rb +78 -0
data/lib/arrow/template/import.rb +119 -0
data/lib/arrow/template/include.rb +206 -0
data/lib/arrow/template/iterator.rb +208 -0
data/lib/arrow/template/nodes.rb +734 -0
data/lib/arrow/template/parser.rb +571 -0
data/lib/arrow/template/prettyprint.rb +53 -0
data/lib/arrow/template/render.rb +191 -0
data/lib/arrow/template/selectlist.rb +94 -0
data/lib/arrow/template/set.rb +87 -0
data/lib/arrow/template/timedelta.rb +81 -0
data/lib/arrow/template/unless.rb +78 -0
data/lib/arrow/template/urlencode.rb +51 -0
data/lib/arrow/template/yield.rb +139 -0
data/lib/arrow/templatefactory.rb +125 -0
data/lib/arrow/testcase.rb +567 -0
data/lib/arrow/transaction.rb +608 -0
data/rake/191_compat.rb +26 -0
data/rake/dependencies.rb +76 -0
data/rake/documentation.rb +114 -0
data/rake/helpers.rb +502 -0
data/rake/hg.rb +282 -0
data/rake/manual.rb +787 -0
data/rake/packaging.rb +129 -0
data/rake/publishing.rb +278 -0
data/rake/style.rb +62 -0
data/rake/svn.rb +668 -0
data/rake/testing.rb +187 -0
data/rake/verifytask.rb +64 -0
data/spec/arrow/acceptparam_spec.rb +157 -0
data/spec/arrow/applet_spec.rb +575 -0
data/spec/arrow/appletmixins_spec.rb +409 -0
data/spec/arrow/appletregistry_spec.rb +294 -0
data/spec/arrow/broker_spec.rb +153 -0
data/spec/arrow/config_spec.rb +224 -0
data/spec/arrow/cookieset_spec.rb +164 -0
data/spec/arrow/dispatcher_spec.rb +137 -0
data/spec/arrow/dispatcherloader_spec.rb +65 -0
data/spec/arrow/formvalidator_spec.rb +781 -0
data/spec/arrow/logger_spec.rb +346 -0
data/spec/arrow/mixins_spec.rb +120 -0
data/spec/arrow/service_spec.rb +645 -0
data/spec/arrow/session_spec.rb +121 -0
data/spec/arrow/template/iterator_spec.rb +222 -0
data/spec/arrow/templatefactory_spec.rb +185 -0
data/spec/arrow/transaction_spec.rb +319 -0
data/spec/arrow_spec.rb +37 -0
data/spec/lib/appletmatchers.rb +281 -0
data/spec/lib/constants.rb +77 -0
data/spec/lib/helpers.rb +41 -0
data/spec/lib/matchers.rb +44 -0
data/tests/cookie.tests.rb +310 -0
data/tests/path.tests.rb +157 -0
data/tests/session.tests.rb +111 -0
data/tests/session_id.tests.rb +82 -0
data/tests/session_lock.tests.rb +191 -0
data/tests/session_store.tests.rb +53 -0
data/tests/template.tests.rb +1360 -0
metadata +339 -0

data/lib/arrow/transaction.rb ADDED

@@ -0,0 +1,608 @@
+#!/usr/bin/env ruby
+require 'forwardable'
+require 'uri'
+require 'arrow/mixins'
+require 'arrow/exceptions'
+require 'arrow/object'
+require 'arrow/cookie'
+require 'arrow/cookieset'
+require 'arrow/session'
+require 'arrow/acceptparam'
+require 'arrow/constants'
+# The Arrow::Transaction class, a derivative of
+# Arrow::Object. Instances of this class encapsulate a transaction within a web
+# application implemented using the Arrow application framework.
+#
+# == Authors
+#
+# * Michael Granger <ged@FaerieMUD.org>
+#
+# Please see the file LICENSE in the top-level directory for licensing details.
+#
+class Arrow::Transaction < Arrow::Object
+	extend Forwardable
+	include Arrow::Constants
+	# Regex to match the mimetypes that browsers use for sending form data
+	FORM_CONTENT_TYPES = %r{application/x-www-form-urlencoded|multipart/form-data}i
+	# A minimal HTML document for #status_doc
+	HTML_DOC = <<-"EOF".gsub(/^\t/, '')
+	<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
+	<html>
+	  <head><title>%d %s</title></head>
+	  <body><h1>%s</h1><p>%s</p></body>
+	</html>
+	EOF
+	# Names for redirect statuses for #status_doc
+	STATUS_NAME = {
+		300		=> "Multiple Choices",
+		301		=> "Moved Permanently",
+		302		=> "Found",
+		303		=> "See Other",
+		304		=> "Not Modified",
+		305		=> "Use Proxy",
+		307		=> "Temporary Redirect",
+	}
+	# Methods that the transaction delegates to the underlying request
+	# object. If we're running inside mod_ruby, get the list from the class.
+	if defined?( Apache ) && defined?( Apache::Request )
+		DelegatedMethods = Apache::Request.instance_methods(false) - [
+			"inspect", "to_s"
+		]
+	# Otherwise, just use the ones that were define when this was written (2007/03/20)
+	else
+		raise "No mod_ruby loaded. Try requiring 'apache/fakerequest' " +
+			"to emulate the Apache environment."
+	end
+	#############################################################
+	### I N S T A N C E	  M E T H O D S
+	#############################################################
+	### Create a new Arrow::Transaction object with the specified +request+
+	### (an Apache::Request object), +config+ (an Arrow::Config object),
+	### +broker+ object (an Arrow::Broker), and +session+ (Arrow::Session)
+	### objects.
+	def initialize( request, config, broker )
+		@request         = request
+		@config          = config
+		@broker          = broker
+		@handler_status  = Apache::OK
+		@serial          = make_transaction_serial( request )
+		# Stuff that may be filled in later
+		@session         = nil # Lazily-instantiated
+		@applet_path     = nil # Added by the broker
+		@vargs           = nil # Filled in by the applet
+		@data            = {}
+		@request_cookies = parse_cookies( request )
+		@cookies         = Arrow::CookieSet.new()
+		@accepted_types  = nil
+		# Check for a "RubyOption root_dispatcher true"
+		if @request.options.key?('root_dispatcher') &&
+			@request.options['root_dispatcher'].match( /^(true|yes|1)$/i )
+			self.log.debug "Dispatching from root path"
+			@root_dispatcher = true
+		else
+			self.log.debug "Dispatching from sub-path"
+			@root_dispatcher = false
+		end
+		@request.sync_header = true
+		super()
+	end
+	######
+	public
+	######
+	# Set up some delegators if running inside Apache
+	def_delegators :@request, *DelegatedMethods
+	# The Apache::Request that initiated this transaction
+	attr_reader :request
+	# The Arrow::Config object for the Arrow application that created this
+	# transaction.
+	attr_reader :config
+	# The Arrow::Broker that is responsible for delegating the Transaction
+	# to one or more Arrow::Applet objects.
+	attr_reader :broker
+	# The argument validator (a FormValidator object)
+	attr_accessor :vargs
+	# The applet portion of the path_info
+	attr_accessor :applet_path
+	# The transaction's unique id in the context of the system.
+	attr_reader :serial
+	# User-data hash. Can be used to pass data between applets in a chain.
+	attr_reader :data
+	# The Hash of Arrow::Cookies parsed from the request
+	attr_reader :request_cookies
+	# The Arrow::CookieSet that contains cookies to be added to the response
+	attr_reader :cookies
+	# The handler status code to return to Apache
+	attr_accessor :handler_status
+	### Returns a human-readable String representation of the transaction,
+	### suitable for debugging.
+	def inspect
+		"#<%s:0x%0x serial: %s; HTTP status: %d>" % [
+			self.class.name,
+			self.object_id * 2,
+			self.serial,
+			self.status
+		]
+	end
+	### Returns +true+ if a session has been created for the receiver.
+	def session?
+		@session ? true : false
+	end
+	### The session associated with the receiver (an Arrow::Session object).
+	def session( config={} )
+		@session ||= Arrow::Session.create( self, config )
+	end
+	### Returns true if the transactions response status is 2xx.
+	def is_success?
+		return nil unless self.status
+		return (self.status / 100) == 2
+	end
+	### Returns true if the transaction's server status will cause the
+	### request to be declined (i.e., not handled by Arrow)
+	def is_declined?
+		self.log.debug "Checking to see if the transaction is declined (%p)" %
+		 	[self.handler_status]
+		return self.handler_status == Apache::DECLINED ? true : false
+	end
+	# Apache::Request attributes under various conditions. Need to determine
+	# if the dispatcher is mounted on the root URI without access to the
+	# config. It doesn't appear to be possible, since Apache doesn't set
+	# path_info for handlers mounted at "/":
+	#
+	# Dispatcher mounted on "/foo"
+	# +--------------+-----------+-----------------+-------------+-------------+
+	# | Request		 | path_info : unparsed_uri	   : uri		 : script_name :
+	# +--------------+-----------+-----------------+-------------+-------------+
+	# |/foo			 | ""		 | "/foo"		   | "/foo"		 | "/foo"	   |
+	# |/foo/?a=b	 | "/"		 | "/foo/?a=b"	   | "/foo/"	 | "/foo"	   |
+	# |/foo/args	 | "/args"	 | "/foo/args"	   | "/foo/args" | "/foo"	   |
+	# |/foo/args?a=b | "/args"	 | "/foo/args?a=b" | "/foo/args" | "/foo"	   |
+	# +--------------+-----------+-----------------+-------------+-------------+
+	# Dispatcher mounted on "/":
+	# +--------------+-----------+-----------------+-------------+-------------+
+	# | Request		 | path_info : unparsed_uri	   : uri		 : script_name :
+	# +--------------+-----------+-----------------+-------------+-------------+
+	# | /			 | ""		 | "/"			   | "/"		 | "/"		   |
+	# | /?a=b		 | ""		 | "/?a=b"		   | "/"		 | "/"		   |
+	# | /args		 | ""		 | "/args"		   | "/args"	 | "/args"	   |
+	# | /args?a=b	 | ""		 | "/args?a=b"	   | "/args"	 | "/args"	   |
+	# +--------------+-----------+-----------------+-------------+-------------+
+	# Note that with the dispatcher at "/", path_info is always empty and
+	# #script_name is always the same as the #uri. Strange.
+	### Returns +true+ if the dispatcher is mounted on the root URI ("/")
+	def root_dispatcher?
+		return @root_dispatcher
+	end
+	### Returns the path operated on by the Arrow::Broker when delegating the
+	### transaction. Equal to the #uri minus the #app_root.
+	def path
+		path = @request.uri
+		uripat = Regexp.new( "^" + self.app_root )
+		return path.sub( uripat, '' )
+	end
+	### Return the portion of the request's URI that serves as the base URI for
+	### the application. All self-referential URLs created by the application
+	### should include this.
+	def app_root
+		return "" if self.root_dispatcher?
+		return @request.script_name
+	end
+	alias_method :approot, :app_root
+	### Returns a fully-qualified URI String to the current applet using the
+	### request object's server name and port.
+	def app_root_url
+		return construct_url( self.app_root )
+	end
+	alias_method :approot_url, :app_root_url
+	### Return an absolute uri that refers back to the applet the transaction is
+	### being run in
+	def applet
+		return [ self.app_root, self.applet_path ].join("/").gsub( %r{//+}, '/' )
+	end
+	deprecate_method :action, :applet
+	alias_method :applet_uri, :applet
+	### Returns a fully-qualified URI String to the current applet using the
+	### request object's server name and port.
+	def applet_url
+		return construct_url( self.applet )
+	end
+	### If the referer was another applet under the same Arrow instance, return
+	### the uri to it. If there was no 'Referer' header, or the referer wasn't
+	### an applet under the same Arrow instance, returns +nil+.
+	def referring_applet
+		return nil unless self.referer
+		uri = URI.parse( self.referer )
+		path = uri.path or return nil
+		rootRe = Regexp.new( self.app_root + "/" )
+		return nil unless rootRe.match( path )
+		subpath = path.
+			sub( rootRe, '' ).
+			split( %r{/} ).
+			first
+		return subpath
+	end
+	deprecate_method :referringApplet, :referring_applet
+	### If the referer was another applet under the same Arrow instance, return
+	### the name of the action that preceded the current one. If there was no
+	### 'Referer' header, or the referer wasn't an applet under the same Arrow
+	### instance, return +nil+.
+	def referring_action
+		return nil unless self.referer
+		uri = URI.parse( self.referer )
+		path = uri.path or return nil
+		appletRe = Regexp.new( self.app_root + "/\\w+/" )
+		return nil unless appletRe.match( path )
+		subpath = path.
+			sub( appletRe, '' ).
+			split( %r{/} ).
+			first
+		return subpath
+	end
+	deprecate_method :referringAction, :referring_action
+	#
+	# Header convenience methods
+	#
+	### Add a 'Set-Cookie' header to the response for each cookie that
+	### currently exists the transaction's cookieset.
+	def add_cookie_headers
+		self.cookies.each do |cookie|
+			if self.is_success?
+				self.log.debug "Adding 'Set-Cookie' header: %p (%p)" %
+					[cookie, cookie.to_s]
+				self.headers_out['Set-Cookie'] = cookie.to_s
+			else
+				self.log.debug "Adding 'Set-Cookie' to the error headers: %p (%p)" %
+					[cookie, cookie.to_s]
+				self.err_headers_out['Set-Cookie'] = cookie.to_s
+			end
+		end
+	end
+	### Overridden from Apache::Request to take Apache mod_proxy headers into
+	### account. If the 'X-Forwarded-Host' or 'X-Forwarded-Server' headers
+	### exist in the request, the hostname specified is used instead of the
+	### canonical host.
+	def construct_url( uri )
+		url = @request.construct_url( uri )
+		# If the request came through a proxy, rewrite the url's host to match
+		# the hostname the proxy is forwarding for.
+		if (( host = self.proxied_host ))
+			uriobj = URI.parse( url )
+			uriobj.host = host
+			url = uriobj.to_s
+		end
+		return url
+	end
+	### If the request came from a reverse proxy (i.e., the X-Forwarded-Host
+	### or X-Forwarded-Server headers are present), return the hostname that
+	### the proxy is forwarding for. If no proxy headers are present, return
+	### nil.
+	def proxied_host
+		headers = @request.headers_in
+		return headers['x-forwarded-host'] || headers['x-forwarded-server']
+	end
+	### Fetch the client's IP, either from proxy headers or the connection's IP.
+	def remote_ip
+		return self.headers_in['X-Forwarded-For'] || self.connection.remote_ip
+	end
+	deprecate_method :remoteIp, :remote_ip
+	### Get the request's referer, if any
+	def referer
+		return self.headers_in['Referer']
+	end
+	### Set the result's 'Content-Disposition' header to 'attachment' and set
+	### the attachment's +filename+.
+	def attachment=( filename )
+		# IE flubs attachments of any mimetype it handles directly.
+		if self.browser_is_ie?
+			self.content_type = 'application/octet-stream'
+		end
+		val = %q{attachment; filename="%s"} % [ filename ]
+		self.headers_out['Content-Disposition'] = val
+	end
+	### Return a URI object that is parsed from the request's URI.
+	def parsed_uri
+		return URI.parse( self.request.unparsed_uri )
+	end
+	### Return the Content-type header given in the request's headers, if any
+	def request_content_type
+		return self.headers_in['Content-type']
+	end
+	#
+	# HTTP content negotiation
+	#
+	### Return the contents of the 'Accept' header as an Array of Arrow::AcceptParam objects.
+	def accepted_types
+		@accepted_types ||= parse_accept_header( self.headers_in['Accept'] )
+		return @accepted_types
+	end
+	### Returns boolean true/false if the requestor can handle the given
+	### +content_type+.
+	def accepts?( content_type )
+		return self.accepted_types.find {|type| type =~ content_type } ? true : false
+	end
+	alias_method :accept?, :accepts?
+	### Returns boolean true/false if the requestor can handle the given
+	### +content_type+, not including mime wildcards.
+	def explicitly_accepts?( content_type )
+		self.accepted_types.reject { |param| param.subtype.nil? }.
+			find {|type| type =~ content_type } ? true : false
+	end
+	alias_method :explicitly_accept?, :explicitly_accepts?
+	### Returns true if the request's content-negotiation headers indicate that it can
+	### accept either 'text/html' or 'application/xhtml+xml'
+	def accepts_html?
+		return self.accepts?( XHTML_MIMETYPE ) || self.accepts?( HTML_MIMETYPE )
+	end
+	### Return a normalized list of acceptable types, sorted by q-value and specificity.
+	def normalized_accept_string
+		return self.accepted_types.sort.collect {|ap| ap.to_s }.join( ', ' )
+	end
+	#
+	# Browser detection/workarounds
+	#
+	### Returns true if the User-Agent header indicates that the remote
+	### browser is Internet Explorer. Useful for making the inevitable IE
+	### workarounds.
+	def browser_is_ie?
+		agent = self.headers_in['user-agent'] || ''
+		return agent =~ /MSIE/ ? true : false
+	end
+	### Execute a block if the User-Agent header indicates that the remote
+	### browser is Internet Explorer. Useful for making the inevitable IE
+	### workarounds.
+	def for_ie_users
+		yield if self.browser_is_ie?
+	end
+	### Return +true+ if the request is from XMLHttpRequest (as indicated by the
+	### 'X-Requested-With' header from Scriptaculous or jQuery)
+	def is_ajax_request?
+		xrw_header = self.headers_in['x-requested-with']
+		return true if !xrw_header.nil? && xrw_header =~ /xmlhttprequest/i
+		return false
+	end
+	### Return +true+ if there are HTML form parameters in the request, either in the
+	### query string with a GET request, or in the body of a POST with a mimetype of
+	### either 'application/x-www-form-urlencoded' or 'multipart/form-data'.
+	def form_request?
+		case self.request_method
+		when 'GET', 'HEAD', 'DELETE', 'PUT'
+			return (!self.parsed_uri.query.nil? ||
+				self.request_content_type =~ FORM_CONTENT_TYPES) ? true : false
+		when 'POST'
+			return self.request_content_type =~ FORM_CONTENT_TYPES ? true : false
+		else
+			return false
+		end
+	end
+	#
+	# Redirection methods
+	#
+	### Return a minimal HTML doc for representing a given status_code
+	def status_doc( status_code, uri=nil )
+		body = ''
+		if uri
+			body = %q{<a href="%s">%s</a>} % [ uri, uri ]
+		end
+		#<head><title>%d %s</title></head>
+		#<body><h1>%s</h1><p>%s</p></body>
+		return HTML_DOC % [
+			status_code,
+			STATUS_NAME[status_code],
+			STATUS_NAME[status_code],
+			body
+		]
+	end
+	deprecate_method :statusDoc, :status_doc
+	### Set the necessary fields in the request to cause the response to be a
+	### redirect to the given +url+ with the specified +status_code+ (302 by
+	### default).
+	def redirect( uri, status_code=Apache::HTTP_MOVED_TEMPORARILY )
+		self.log.debug "Redirecting to %s" % uri
+		self.headers_out[ 'Location' ] = uri.to_s
+		self.status = status_code
+		self.handler_status = Apache::REDIRECT
+		return ''
+	end
+	### Set the necessary header fields in the response to cause a
+	### NOT_MODIFIED response to be sent.
+	def not_modified
+		return self.redirect( uri, Apache::HTTP_NOT_MODIFIED )
+	end
+	### Set the necessary header to make the displayed page refresh to the
+	### specified +url+ in the given number of +seconds+.
+	def refresh( seconds, url=nil )
+		seconds = Integer( seconds )
+		url ||= self.construct_url( '' )
+		if !URI.parse( url ).absolute?
+			url = self.construct_url( url )
+		end
+		self.headers_out['Refresh'] = "%d;%s" % [seconds, url]
+	end
+	### Get the verson of Arrow currently running.
+	def arrow_version
+		return Arrow::VERSION
+	end
+	deprecate_method :arrowVersion, :arrow_version
+	#
+	# SSL convenience methods
+	#
+	#######
+	private
+	#######
+	### Make a transaction serial for the given instance.
+	def make_transaction_serial( request )
+		"%0.3f:%d:%s" % [
+			Time.now.to_f,
+			Process.pid,
+			request.hostname,
+		]
+	end
+	### Parse cookies from the specified request and return them in a Hash.
+	def parse_cookies( request )
+		hash = Arrow::Cookie.parse( request.headers_in['cookie'] )
+		return Arrow::CookieSet.new( hash.values )
+	end
+	### Parse the given +header+ and return a list of mimetypes in order of
+	### specificity and q-value, with most-specific and highest q-values sorted
+	### first.
+	def parse_accept_header( header )
+		rval = []
+		# Handle the case where there's more than one 'Accept:' header by
+		# forcing everything to an Array
+		header = [header] unless header.is_a?( Array )
+		# Accept         = "Accept" ":"
+		#                 #( media-range [ accept-params ] )
+		#
+		# media-range    = ( "*/*"
+		#                  | ( type "/" "*" )
+		#                  | ( type "/" subtype )
+		#                  ) *( ";" parameter )
+		# accept-params  = ";" "q" "=" qvalue *( accept-extension )
+		# accept-extension = ";" token [ "=" ( token | quoted-string ) ]
+		header.compact.flatten.each do |headerval|
+			params = headerval.split( /\s*,\s*/ )
+			params.each do |param|
+				rval << Arrow::AcceptParam.parse( param )
+			end
+		end
+		rval << Arrow::AcceptParam.new( '*', '*' ) if rval.empty?
+		return rval
+	end
+end # class Arrow::Transaction