RubyGems - merb-core - Versions diffs - 0.9.2 - Mend

merb-core 0.9.2

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 (246) hide show

data/lib/merb-core/dispatch/exceptions.html.erb ADDED

@@ -0,0 +1,297 @@
+<html>
+<head>
+	<meta http-equiv="Content-type" content="text/html; charset=utf-8">
+	<title><%= @exception_name %></title>
+	<style type="text/css" media="screen">
+		body {
+			font-family:arial;
+			font-size:11px;
+		}
+		h1 {
+			font-size:48px;
+			letter-spacing:-4px;
+			margin:0;
+			line-height:36px;
+			color:#333;
+		}
+			h1 sup {
+				font-size: 0.5em;
+			}
+			h1 sup.error_500, h1 sup.error_400 {
+				color:#990E05;
+			}
+			h1 sup.error_100, h1 sup.error_200 {
+				color:#00BF10;
+			}
+			h1 sup.error_300 {
+				/* pretty sure you cant 'see' status 300
+				errors but if you could I think they
+				would be blue */
+				color:#1B2099;
+			}
+		h2 {
+			font-size:36px;
+			letter-spacing:-3px;
+			margin:0;
+			line-height:28px;
+			color:#444;
+		}
+		h3 {
+		  cursor: pointer;
+		  color: #006;
+		  text-decoration: underline;
+		}
+		a, a:visited {
+			color:#00BF10;
+		}
+		.internalError {
+			width:800px;
+			margin:50px auto;
+		}
+		.header {
+			border-bottom:10px solid #333;
+			margin-bottom:1px;
+			background-image: url("data:image/gif;base64,R0lGODlhAwADAIAAAP///8zMzCH5BAAAAAAALAAAAAADAAMAAAIEBHIJBQA7");
+			padding:20px;
+		}
+		table.listing {
+		  border-collapse: collapse;
+		  font-size: 12px;
+		  width: 100%;
+		}
+		table.listing th {
+		  background-color: #000;
+		  color: #fff;
+		}
+		table.listing td, table.listing th {
+		  padding: 5px;
+		  text-align: left;
+		  vertical-align: top;
+		}
+		table.listing tr.odd {
+		  background-color: #ccc;
+		}
+		table.listing tr.even {
+		  background-color: #aaa;
+		}
+		table.listing td[colspan=2] {
+		  text-align: center;
+		}
+		table.trace {
+			width:100%;
+			font-family:courier, monospace;
+			letter-spacing:-1px;
+			border-collapse: collapse;
+			border-spacing:0;
+		}
+		table.trace tr td{
+			padding:0;
+			height:26px;
+			font-size:13px;
+			vertical-align:middle;
+		}
+		table.trace tr.file{
+			border-top:2px solid #fff;
+			background-color:#F3F3F3;
+		}
+		table.trace tr.source {
+			background-color:#F8F8F8;
+			display:none;
+		}
+		table.trace .open tr.source {
+			display:table-row;
+		}
+			table.trace tr.file td.expand {
+				width:23px;
+				background-image: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABcAAAAXCAIAAABvSEP3AAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAAdVJREFUeNqMVL+TwUAYxaRIOlEhlZHGDAUzzOQ61+AqXMV1lJSU7q/QRqm8KFUcJTNn5qJkaPyoKKVz7y4mF8na5Kt29tt9+/Z97/u81+vVQ4r9frdarS6Xi7ETDIZisRjxMGPfmk4niNPpZE+xLAugbPaZ53nzvtfMBe/3+/3dbuehBrAKhZdUKkVAWa9Xsiybv0CPZDJZLr/qa5/BwgwRjYqOKIvFYjQa/aNommZh0Ww2K5UqzwfoQOPxaLPZ3FAmk0+7lplMpt1u53J5OpBOR0eZEE9wHJfP5zud93g88QhluwWbjW+5VOmKBgKBer3eaDTDYeGBQF8+x7rqIYoiPgixWJazpA6HA+MSxRArkUgMh0M409g8Ho8+9wYxxCqVSq1W26EDHGM2m4HOHQrEc38f/Yn7cLmlIRhBENzcx8cVRZnPZ/YUep2BWkjTIfA+PKVpZAXR5QxsjiqCKvGEqqp443w+0dvy17swqD0HB3S73V5PpkNg1qBqt8kwGCjmPkinM0QJbIoEa7U6UG6ToVgs4V9G2g0ESoP5Aoi7KYX5oCgf8IKbkvn9/mr1LRQKESamzgJy0g0tSZIuB3nuGqRU9Vv9C4sKkUhEkp4soxvxI8AAhWrrtXa3X8EAAAAASUVORK5CYII=);
+				background-position:top left;
+				background-repeat:no-repeat;
+			}
+      table.trace tr.file td.expand div {
+        width:23px;
+      }
+			table.trace .open tr.file td.expand {
+				width:19px;
+				background-image: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABcAAAB1CAIAAAAqdO2mAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAAXZJREFUeNrslK1ywkAUhcMOBomEOiSdqLxEBJX0NaijOsjyHGGmCGyQQYaiiiw4gktkcOmZbpsuuzQ/M5XnqJ2d3S/n3nM3rTzPLUP7/Tt0+pLcGQwG3W53OLyHzPMtjYL7q9UqSRLrD4E1Gj1orCvKYuFHUWTVkOM44/HjDcp8/lL4r6NerzeZPMm1KFw0QkDn83m5fP2lHA4fNQvRtNvtjsfDd0WzmSfb2e/fdTqdOvdh/HLJZLOn0+d2HJ+KRGzbdl23EpFlmed5cp2maRzHQq1lvQ5KMi6EUZBGfup6E1pTfd+vrGW7jbQ2C9hTt9BpqNyIWaAwAy6xg2eBz5iRC/NomiZhGN5sqmnkauo0BUGgVQoBjQ80oCACgNQdZHfTYBkF2mxCtWWAqunWpahxIDUt3QYUxIFQpJHyIWpXjinabKbbwItMHT+NyjchrP8QKaSQQgoppJBCCimkkEIKKaSQQgoppJBCCimkkEIKKaSo+hRgAEFD17X08O2NAAAAAElFTkSuQmCC);
+				background-position:top left;
+				background-repeat:no-repeat;
+			}
+      table.trace .open tr.file td.expand div {
+        width:19px;
+      }
+			table.trace tr.source td.collapse {
+				width:19px;
+				background-image: url(data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABcAAAB1CAIAAAAqdO2mAAAAGXRFWHRTb2Z0d2FyZQBBZG9iZSBJbWFnZVJlYWR5ccllPAAAAVxJREFUeNrs0zFygkAUBmBlUkgJHdABlQwVkVJKKUxBYWbkALTxMJwhltyDFkss03IF8pudIcwaDaDl/6pd2P327b7d+eHwMXs4lNkzggoVKlSoUKFChQoVKlSoUKFChQoVKlSoUKFChQqVEYqm6ft9+qiSJEkYho7jTlcw2fd9NOI4nq4gEdFwXXe1Cqco63VkWVbXRTqLhTpOwQRpF7quR1E0TgGhqvLKUFCyoQqG/rks3O6kZKW/eRFpevOCoGTXVTcMQ5EyxyDEkML1c5RzuZOICIyXqn7JBVez6282MWrx731HOv2qB8Hri2lamNk0DfpVVdV1Peodappmmua8bdvzuc7zfNprzrLMth1FnGh/X8MjCAIQv/cFz/+65PcDh7rbvYv2ZUfdj+PxsyzLgVl0hKwgTqeqKApx2LeOc7t98zyv/1FWOgvx9RPii23bmL9cetJ8Ed8CDAC6aFW8bCzFhwAAAABJRU5ErkJggg==);
+				background-position:bottom left;
+				background-repeat:no-repeat;
+				background-color:#6F706F;
+			}
+			table.trace tr td.path {
+				padding-left:10px;
+			}
+			table.trace tr td.code {
+				padding-left:35px;
+				white-space: pre;
+				line-height:9px;
+				padding-bottom:10px;
+			}
+				table.trace tr td.code em {
+					font-weight:bold;
+					color:#00BF10;
+				}
+				table.trace tr td.code a {
+				  width: 20px;
+				  float: left;
+				}
+				table.trace tr td.code .more {
+					color:#666;
+				}
+			table.trace tr td.line {
+				width:30px;
+				text-align:right;
+				padding-right:4px;
+			}
+		.footer {
+			margin-top:5px;
+			font-size:11px;
+			color:#444;
+			text-align:right;
+		}
+	</style>
+</head>
+<body>
+	<div class="internalError">
+		<div class="header">
+			<h1><%= @exception_name %> <sup class="error_<%= @exception.class::STATUS %>"><%= @exception.class::STATUS %></sup></h1>
+			<% if show_details = ::Merb::Config[:exception_details] -%>
+				<h2><%= html_escape(@exception.message) %></h2>
+			<% else -%>
+				<h2>Sorry about that...</h2>
+			<% end -%>
+			<h3>Parameters</h3>
+			<table class="listing" style="display: none">
+			  <thead>
+			    <tr><th width="25%">Parameter</th><th width="75%">Value</th></tr>
+		    </thead>
+		    <tbody>
+    			<% params[:original_params].each_with_index do |param_value, i| %>
+            <tr class="<%= i % 2 == 0 ? "even" : "odd" %>"><td><%= param_value.first %></td><td><%= param_value.last.inspect %></td></tr>
+    			<% end %>
+    			<%= "<tr class='odd'><td colspan='2'>None</td></tr>" if params[:original_params].empty? %>
+    		</tbody>
+		  </table>
+			<h3>Session</h3>
+			<table class="listing" style="display: none">
+			  <thead>
+			    <tr><th width="25%">Key</th><th width="75%">Value</th></tr>
+		    </thead>
+		    <tbody>
+    			<% params[:original_session].each_with_index do |param_value, i| %>
+            <tr class="<%= i % 2 == 0 ? "even" : "odd" %>"><td><%= param_value.first %></td><td><%= param_value.last.inspect %></td></tr>
+    			<% end %>
+    			<%= "<tr class='odd'><td colspan='2'>None</td></tr>" if params[:original_session].empty? %>
+    		</tbody>
+		  </table>
+			<h3>Cookies</h3>
+			<table class="listing" style="display: none">
+			  <thead>
+			    <tr><th width="25%">Cookie</th><th width="75%">Value</th></tr>
+		    </thead>
+		    <tbody>
+    			<% params[:original_cookies].each_with_index do |param_value, i| %>
+            <tr class="<%= i % 2 == 0 ? "even" : "odd" %>"><td><%= param_value.first %></td><td><%= param_value.last.inspect %></td></tr>
+    			<% end %>
+    			<%= "<tr class='odd'><td colspan='2'>None</td></tr>" if params[:original_cookies].empty? %>
+			  </tbody>
+		  </table>
+			<h3>Named Routes</h3>
+			<table class="listing" style="display: none">
+			<% unless Merb::Router.named_routes.empty? %>
+			  <thead>
+			    <tr><th width="25%">Name</th><th width="75%">Route</th></tr>
+		    </thead>
+		    <tbody>
+			  <% Merb::Router.named_routes.each_with_index do |name_route, i| %>
+			    <tr class="<%= i % 2 == 0 ? "even" : "odd" %>"><td><%= name_route.first %></td><td><%= name_route.last %></td></tr>
+			  <% end %>
+			  </tbody>
+		  <% else %>
+  		  <tr><td colspan="2">None</td></tr>
+		  <% end %>
+		  </table>
+		</div>
+	<% if show_details %>
+		<table class="trace">
+			<% @exception.backtrace.each_with_index do |line, index| %>
+				<tbody class="close">
+					<tr class="file">
+						<td class="expand"><div>&nbsp;</div></td>
+						<td class="path">
+							<%= (line.match(/^([^:]+)/)[1] rescue 'unknown').sub(/\/((opt|usr)\/local\/lib\/(ruby\/)?(gems\/)?(1.8\/)?(gems\/)?|.+\/app\/)/, '') %>
+							<% unless line.match(/\.erb:/) %>
+                in "<strong><%= line.match(/:in `(.+)'$/)[1] rescue '?' %></strong>"
+              <% else %>
+                (<strong>ERB Template</strong>)
+              <% end %>
+						</td>
+						<td class="line">
+							<a href="txmt://open?url=file://<%=file = (line.match(/^([^:]+)/)[1] rescue 'unknown')%>&amp;line=<%= lineno = line.match(/:([0-9]+):/)[1] rescue '?' %>"><%=lineno%></a>&nbsp;
+						</td>
+					</tr>
+					<tr class="source">
+						<td class="collapse">
+						</td>
+						<td class="code" colspan="2"><% (__caller_lines__(file, lineno, 5) rescue []).each do |llineno, lcode, lcurrent| %>
+<a href="txmt://open?url=file://<%=file%>&amp;line=<%=llineno%>"><%= llineno %></a><%='<em>' if llineno==lineno.to_i %><%= lcode.size > 90 ? Erubis::XmlHelper.escape_xml(lcode[0..90])+'<span class="more">......</span>' : Erubis::XmlHelper.escape_xml(lcode) %><%='</em>' if llineno==lineno.to_i %>
+<% end %>
+</td>
+					</tr>
+				</tbody>
+			<% end %>
+		</table>
+		<script type="text/javascript" charset="utf-8">
+			els = document.getElementsByTagName('td');
+			for(i=0; i<els.length; i++){
+			  // swap the open & closed classes
+				if(els[i].className=='expand' || els[i].className=='collapse'){
+					els[i].onclick = function(e){
+						tbody = this.parentNode.parentNode;
+						if(tbody.className=='open'){
+							tbody.className='closed';
+						}else{
+							tbody.className='open';
+						}
+					}
+				}
+			}
+			els = document.getElementsByTagName("h3");
+			for(i=0; i<els.length; i++) {
+		    els[i].onclick = function(e) {
+		      var tag = this.nextSibling;
+		      while(tag.nodeType != 1) {
+		        tag = tag.nextSibling;
+		      }
+		      tag.style.display = tag.style.display == "none" ? "" : "none";
+		    }
+			}
+		</script>
+	<% end %>
+	<div class="footer">
+		lots of love, from <a href="#">merb</a>
+	</div>
+	</div>
+</body>
+</html>

data/lib/merb-core/dispatch/request.rb ADDED

@@ -0,0 +1,560 @@
+module Merb
+  class Request
+    # def env def session def route_params
+    attr_accessor :env, :session, :route_params
+    # by setting these to false, auto-parsing is disabled; this way you can do your own parsing instead
+    cattr_accessor :parse_multipart_params, :parse_json_params, :parse_xml_params
+    self.parse_multipart_params = true
+    self.parse_json_params = true
+    self.parse_xml_params = true
+    # Initial the request object.
+    #
+    # ==== Parameters
+    # http_request<~params:~[], ~body:IO>::
+    #   An object like an HTTP Request.
+    def initialize(rack_env)
+      @env  = rack_env
+      @body = rack_env['rack.input']
+      @route_params = {}
+    end
+    METHODS = %w{get post put delete head}
+    # ==== Returns
+    # Symbol:: The name of the request method, e.g. :get.
+    #
+    # ==== Notes
+    # If the method is post, then the +_method+ param will be checked for
+    # masquerading method.
+    def method
+      @method ||= begin
+        request_method = @env['REQUEST_METHOD'].downcase.to_sym
+        case request_method
+        when :get, :head, :put, :delete
+          request_method
+        when :post
+          if self.class.parse_multipart_params
+            m = body_and_query_params.merge(multipart_params)['_method']
+          else
+            m = body_and_query_params['_method']
+          end
+          m.downcase! if m
+          METHODS.include?(m) ? m.to_sym : :post
+        else
+          raise "Unknown REQUEST_METHOD: #{@env['REQUEST_METHOD']}"
+        end
+      end
+    end
+    # create predicate methods for querying the REQUEST_METHOD
+    # get? post? head? put? etc
+    METHODS.each do |m|
+      class_eval "def #{m}?() method == :#{m} end"
+    end
+    private
+    # ==== Returns
+    # Hash:: Parameters passed from the URL like ?blah=hello.
+    def query_params
+      @query_params ||= self.class.query_parse(query_string || '')
+    end
+    # Parameters passed in the body of the request. Ajax calls from
+    # prototype.js and other libraries pass content this way.
+    #
+    # ==== Returns
+    # Hash:: The parameters passed in the body.
+    def body_params
+      @body_params ||= begin
+        if content_type && content_type.match(Merb::Const::FORM_URL_ENCODED_REGEXP) # or content_type.nil?
+          self.class.query_parse(raw_post)
+        end
+      end
+    end
+    # ==== Returns
+    # Hash::
+    #   The parameters gathered from the query string and the request body,
+    #   with parameters in the body taking precedence.
+    def body_and_query_params
+      # ^-- FIXME a better name for this method
+      @body_and_query_params ||= begin
+        h = query_params
+        h.merge!(body_params) if body_params
+        h.to_mash
+      end
+    end
+    # ==== Raises
+    # ControllerExceptions::MultiPartParseError::
+    #   Unable to parse the multipart form data.
+    #
+    # ==== Returns
+    # Hash:: The parsed multipart parameters.
+    def multipart_params
+      @multipart_params ||=
+        begin
+          # if the content-type is multipart and there's stuff in the body,
+          # parse the multipart. Otherwise return {}
+          if (Merb::Const::MULTIPART_REGEXP =~ content_type && @body.size > 0)
+            self.class.parse_multipart(@body, $1, content_length)
+          else
+            {}
+          end
+        rescue ControllerExceptions::MultiPartParseError => e
+          @multipart_params = {}
+          raise e
+        end
+    end
+    # ==== Returns
+    # Hash:: Parameters from body if this is a JSON request.
+    def json_params
+      @json_params ||= begin
+        if Merb::Const::JSON_MIME_TYPE_REGEXP.match(content_type)
+          JSON.parse(raw_post)
+        end
+      end
+    end
+    # ==== Returns
+    # Hash:: Parameters from body if this is an XML request.
+    def xml_params
+      @xml_params ||= begin
+        if Merb::Const::XML_MIME_TYPE_REGEXP.match(content_type)
+          Hash.from_xml(raw_post) rescue Mash.new
+        end
+      end
+    end
+    public
+    # ==== Returns
+    # Hash:: All request parameters.
+    #
+    # ==== Notes
+    # The order of precedence for the params is XML, JSON, multipart, body and
+    # request string.
+    def params
+      @params ||= begin
+        h = body_and_query_params.merge(route_params)
+        h.merge!(multipart_params) if self.class.parse_multipart_params && multipart_params
+        h.merge!(json_params) if self.class.parse_json_params && json_params
+        h.merge!(xml_params) if self.class.parse_xml_params && xml_params
+        h
+      end
+    end
+    # Resets the params to a nil value.
+    def reset_params!
+      @params = nil
+    end
+    # ==== Returns
+    # Hash:: The cookies for this request.
+    def cookies
+      @cookies ||= self.class.query_parse(@env[Merb::Const::HTTP_COOKIE], ';,')
+    end
+    # ==== Returns
+    # String:: The raw post.
+    def raw_post
+      @body.rewind if @body.respond_to?(:rewind)
+      @raw_post ||= @body.read
+    end
+    # ==== Returns
+    # Boolean:: If the request is an XML HTTP request.
+    def xml_http_request?
+      not /XMLHttpRequest/i.match(@env['HTTP_X_REQUESTED_WITH']).nil?
+    end
+    alias xhr? :xml_http_request?
+    alias ajax? :xml_http_request?
+    # ==== Returns
+    # String:: The remote IP address.
+    def remote_ip
+      return @env['HTTP_CLIENT_IP'] if @env.include?('HTTP_CLIENT_IP')
+      if @env.include?(Merb::Const::HTTP_X_FORWARDED_FOR) then
+        remote_ips = @env[Merb::Const::HTTP_X_FORWARDED_FOR].split(',').reject do |ip|
+          ip =~ /^unknown$|^(127|10|172\.16|192\.168)\./i
+        end
+        return remote_ips.first.strip unless remote_ips.empty?
+      end
+      return @env[Merb::Const::REMOTE_ADDR]
+    end
+    # ==== Returns
+    # String::
+    #   The protocol, i.e. either "https://" or "http://" depending on the
+    #   HTTPS header.
+    def protocol
+      ssl? ? 'https://' : 'http://'
+    end
+    # ==== Returns
+    # Boolean::: True if the request is an SSL request.
+    def ssl?
+      @env['HTTPS'] == 'on' || @env['HTTP_X_FORWARDED_PROTO'] == 'https'
+    end
+    # ==== Returns
+    # String:: The HTTP referer.
+    def referer
+      @env['HTTP_REFERER']
+    end
+    # ==== Returns
+    # String:: The request URI.
+    def uri
+      @env['REQUEST_URI'] || @env['REQUEST_PATH']
+    end
+    # ==== Returns
+    # String:: The HTTP user agent.
+    def user_agent
+      @env['HTTP_USER_AGENT']
+    end
+    # ==== Returns
+    # String:: The server name.
+    def server_name
+      @env['SERVER_NAME']
+    end
+    # ==== Returns
+    # String:: The accepted encodings.
+    def accept_encoding
+      @env['HTTP_ACCEPT_ENCODING']
+    end
+    # ==== Returns
+    # String:: The script name.
+    def script_name
+      @env['SCRIPT_NAME']
+    end
+    # ==== Returns
+    # String:: HTTP cache control.
+    def cache_control
+      @env['HTTP_CACHE_CONTROL']
+    end
+    # ==== Returns
+    # String:: The accepted language.
+    def accept_language
+      @env['HTTP_ACCEPT_LANGUAGE']
+    end
+    # ==== Returns
+    # String:: The server software.
+    def server_software
+      @env['SERVER_SOFTWARE']
+    end
+    # ==== Returns
+    # String:: Value of HTTP_KEEP_ALIVE.
+    def keep_alive
+      @env['HTTP_KEEP_ALIVE']
+    end
+    # ==== Returns
+    # String:: The accepted character sets.
+    def accept_charset
+      @env['HTTP_ACCEPT_CHARSET']
+    end
+    # ==== Returns
+    # String:: The HTTP version
+    def version
+      @env['HTTP_VERSION']
+    end
+    # ==== Returns
+    # String:: The gateway.
+    def gateway
+      @env['GATEWAY_INTERFACE']
+    end
+    # ==== Returns
+    # String:: The accepted response types. Defaults to "*/*".
+    def accept
+      @env['HTTP_ACCEPT'].blank? ? "*/*" : @env['HTTP_ACCEPT']
+    end
+    # ==== Returns
+    # String:: The HTTP connection.
+    def connection
+      @env['HTTP_CONNECTION']
+    end
+    # ==== Returns
+    # String:: The query string.
+    def query_string
+      @env['QUERY_STRING']
+    end
+    # ==== Returns
+    # String:: The request content type.
+    def content_type
+      @env['CONTENT_TYPE']
+    end
+    # ==== Returns
+    # Fixnum:: The request content length.
+    def content_length
+      @content_length ||= @env[Merb::Const::CONTENT_LENGTH].to_i
+    end
+    # ==== Returns
+    # String::
+    #   The URI without the query string. Strips trailing "/" and reduces
+    #   duplicate "/" to a single "/".
+    def path
+      path = (uri.empty? ? '/' : uri.split('?').first).squeeze("/")
+      path = path[0..-2] if (path[-1] == ?/) && path.size > 1
+      path
+    end
+    # ==== Returns
+    # String:: The path info.
+    def path_info
+      @path_info ||= self.class.unescape(@env['PATH_INFO'])
+    end
+    # ==== Returns
+    # Fixnum:: The server port.
+    def port
+      @env['SERVER_PORT'].to_i
+    end
+    # ==== Returns
+    # String:: The full hostname including the port.
+    def host
+      @env['HTTP_X_FORWARDED_HOST'] || @env['HTTP_HOST']
+    end
+    # ==== Parameters
+    # tld_length<Fixnum>::
+    #   Number of domains levels to inlclude in the top level domain. Defaults
+    #   to 1.
+    #
+    # ==== Returns
+    # Array:: All the subdomain parts of the host.
+    def subdomains(tld_length = 1)
+      parts = host.split('.')
+      parts[0..-(tld_length+2)]
+    end
+    # ==== Parameters
+    # tld_length<Fixnum>::
+    #   Number of domains levels to inlclude in the top level domain. Defaults
+    #   to 1.
+    #
+    # ==== Returns
+    # String:: The full domain name without the port number.
+    def domain(tld_length = 1)
+      host.split('.').last(1 + tld_length).join('.').sub(/:\d+$/,'')
+    end
+    class << self
+      # ==== Parameters
+      # value<Array, Hash, ~to_s>:: The value for the query string.
+      # prefix<~to_s>:: The prefix to add to the query string keys.
+      #
+      # ==== Returns
+      # String:: The query string.
+      #
+      # ==== Alternatives
+      # If the value is a string, the prefix will be used as the key.
+      #
+      # ==== Examples
+      #   params_to_query_string(10, "page")
+      #     # => "page=10"
+      #   params_to_query_string({ :page => 10, :word => "ruby" })
+      #     # => "page=10&word=ruby"
+      #   params_to_query_string({ :page => 10, :word => "ruby" }, "search")
+      #     # => "search[page]=10&search[word]=ruby"
+      #   params_to_query_string([ "ice-cream", "cake" ], "shopping_list")
+      #     # => "shopping_list[]=ice-cream&shopping_list[]=cake"
+      def params_to_query_string(value, prefix = nil)
+        case value
+        when Array
+          value.map { |v|
+            params_to_query_string(v, "#{prefix}[]")
+          } * "&"
+        when Hash
+          value.map { |k, v|
+            params_to_query_string(v, prefix ? "#{prefix}[#{Merb::Request.escape(k)}]" : Merb::Request.escape(k))
+          } * "&"
+        else
+          "#{prefix}=#{Merb::Request.escape(value)}"
+        end
+      end
+      # ==== Parameters
+      # s<String>:: String to URL escape.
+      #
+      # ==== returns
+      # String:: The escaped string.
+      def escape(s)
+        s.to_s.gsub(/([^ a-zA-Z0-9_.-]+)/n) {
+          '%'+$1.unpack('H2'*$1.size).join('%').upcase
+        }.tr(' ', '+')
+      end
+      # ==== Parameter
+      # s<String>:: String to URL unescape.
+      #
+      # ==== returns
+      # String:: The unescaped string.
+      def unescape(s)
+        s.tr('+', ' ').gsub(/((?:%[0-9a-fA-F]{2})+)/n){
+          [$1.delete('%')].pack('H*')
+        }
+      end
+      # ==== Parameters
+      # qs<String>:: The query string.
+      # d<String>:: The query string divider. Defaults to "&".
+      #
+      # ==== Returns
+      # Mash:: The parsed query string.
+      #
+      # ==== Examples
+      #   query_parse("bar=nik&post[body]=heya")
+      #     # => { :bar => "nik", :post => { :body => "heya" } }
+      def query_parse(qs, d = '&;')
+        (qs||'').split(/[#{d}] */n).inject({}) { |h,p|
+          key, value = unescape(p).split('=',2)
+          normalize_params(h, key, value)
+        }.to_mash
+      end
+      NAME_REGEX = /Content-Disposition:.* name="?([^\";]*)"?/ni.freeze
+      CONTENT_TYPE_REGEX = /Content-Type: (.*)\r\n/ni.freeze
+      FILENAME_REGEX = /Content-Disposition:.* filename="?([^\";]*)"?/ni.freeze
+      CRLF = "\r\n".freeze
+      EOL = CRLF
+      # ==== Parameters
+      # request<IO>:: The raw request.
+      # boundary<String>:: The boundary string.
+      # content_length<Fixnum>:: The length of the content.
+      #
+      # ==== Raises
+      # ControllerExceptions::MultiPartParseError:: Failed to parse request.
+      #
+      # ==== Returns
+      # Hash:: The parsed request.
+      def parse_multipart(request, boundary, content_length)
+        boundary = "--#{boundary}"
+        paramhsh = {}
+        buf = ""
+        input = request
+        input.binmode if defined? input.binmode
+        boundary_size = boundary.size + EOL.size
+        bufsize = 16384
+        content_length -= boundary_size
+        status = input.read(boundary_size)
+        raise ControllerExceptions::MultiPartParseError, "bad content body:\n'#{status}' should == '#{boundary + EOL}'"  unless status == boundary + EOL
+        rx = /(?:#{EOL})?#{Regexp.quote(boundary,'n')}(#{EOL}|--)/
+        loop {
+          head = nil
+          body = ''
+          filename = content_type = name = nil
+          read_size = 0
+          until head && buf =~ rx
+            i = buf.index("\r\n\r\n")
+            if( i == nil && read_size == 0 && content_length == 0 )
+              content_length = -1
+              break
+            end
+            if !head && i
+              head = buf.slice!(0, i+2) # First \r\n
+              buf.slice!(0, 2)          # Second \r\n
+              filename = head[FILENAME_REGEX, 1]
+              content_type = head[CONTENT_TYPE_REGEX, 1]
+              name = head[NAME_REGEX, 1]
+              if filename && !filename.empty?
+                body = Tempfile.new(:Merb)
+                body.binmode if defined? body.binmode
+              end
+              next
+            end
+            # Save the read body part.
+            if head && (boundary_size+4 < buf.size)
+              body << buf.slice!(0, buf.size - (boundary_size+4))
+            end
+            read_size = bufsize < content_length ? bufsize : content_length
+            if( read_size > 0 )
+              c = input.read(read_size)
+              raise ControllerExceptions::MultiPartParseError, "bad content body"  if c.nil? || c.empty?
+              buf << c
+              content_length -= c.size
+            end
+          end
+          # Save the rest.
+          if i = buf.index(rx)
+            body << buf.slice!(0, i)
+            buf.slice!(0, boundary_size+2)
+            content_length = -1  if $1 == "--"
+          end
+          if filename && !filename.empty?
+            body.rewind
+            data = {
+              :filename => File.basename(filename),
+              :content_type => content_type,
+              :tempfile => body,
+              :size => File.size(body.path)
+            }
+          else
+            data = body
+          end
+          paramhsh = normalize_params(paramhsh,name,data)
+          break  if buf.empty? || content_length == -1
+        }
+        paramhsh
+      end
+      # Converts a query string snippet to a hash and adds it to existing
+      # parameters.
+      #
+      # ==== Parameters
+      # parms<Hash>:: Parameters to add the normalized parameters to.
+      # name<String>:: The key of the parameter to normalize.
+      # val<String>:: The value of the parameter.
+      #
+      # ==== Returns
+      # Hash:: Normalized parameters
+      def normalize_params(parms, name, val=nil)
+        name =~ %r([\[\]]*([^\[\]]+)\]*)
+        key = $1 || ''
+        after = $' || ''
+        if after == ""
+          parms[key] = val
+        elsif after == "[]"
+          (parms[key] ||= []) << val
+        else
+          parms[key] ||= {}
+          parms[key] = normalize_params(parms[key], after, val)
+        end
+        parms
+      end
+    end
+  end
+end