RubyGems - arrow - Versions diffs - 1.0.7 - Mend

arrow 1.0.7

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

@@ -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