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

merb-core 0.9.2

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