RubyGems - wycats-merb-core - Versions diffs - 0.9.8 - Mend

wycats-merb-core 0.9.8

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

data/CHANGELOG +992 -0
data/CONTRIBUTORS +94 -0
data/LICENSE +20 -0
data/PUBLIC_CHANGELOG +142 -0
data/README +21 -0
data/Rakefile +458 -0
data/TODO +0 -0
data/bin/merb +11 -0
data/bin/merb-specs +5 -0
data/lib/merb-core.rb +598 -0
data/lib/merb-core/autoload.rb +31 -0
data/lib/merb-core/bootloader.rb +717 -0
data/lib/merb-core/config.rb +305 -0
data/lib/merb-core/constants.rb +45 -0
data/lib/merb-core/controller/abstract_controller.rb +568 -0
data/lib/merb-core/controller/exceptions.rb +315 -0
data/lib/merb-core/controller/merb_controller.rb +256 -0
data/lib/merb-core/controller/mime.rb +107 -0
data/lib/merb-core/controller/mixins/authentication.rb +123 -0
data/lib/merb-core/controller/mixins/conditional_get.rb +83 -0
data/lib/merb-core/controller/mixins/controller.rb +319 -0
data/lib/merb-core/controller/mixins/render.rb +513 -0
data/lib/merb-core/controller/mixins/responder.rb +469 -0
data/lib/merb-core/controller/template.rb +254 -0
data/lib/merb-core/core_ext.rb +9 -0
data/lib/merb-core/core_ext/hash.rb +7 -0
data/lib/merb-core/core_ext/kernel.rb +340 -0
data/lib/merb-core/dispatch/cookies.rb +130 -0
data/lib/merb-core/dispatch/default_exception/default_exception.rb +93 -0
data/lib/merb-core/dispatch/default_exception/views/_css.html.erb +198 -0
data/lib/merb-core/dispatch/default_exception/views/_javascript.html.erb +73 -0
data/lib/merb-core/dispatch/default_exception/views/index.html.erb +94 -0
data/lib/merb-core/dispatch/dispatcher.rb +176 -0
data/lib/merb-core/dispatch/request.rb +729 -0
data/lib/merb-core/dispatch/router.rb +151 -0
data/lib/merb-core/dispatch/router/behavior.rb +566 -0
data/lib/merb-core/dispatch/router/cached_proc.rb +52 -0
data/lib/merb-core/dispatch/router/resources.rb +191 -0
data/lib/merb-core/dispatch/router/route.rb +511 -0
data/lib/merb-core/dispatch/session.rb +222 -0
data/lib/merb-core/dispatch/session/container.rb +74 -0
data/lib/merb-core/dispatch/session/cookie.rb +173 -0
data/lib/merb-core/dispatch/session/memcached.rb +68 -0
data/lib/merb-core/dispatch/session/memory.rb +99 -0
data/lib/merb-core/dispatch/session/store_container.rb +150 -0
data/lib/merb-core/dispatch/worker.rb +28 -0
data/lib/merb-core/gem_ext/erubis.rb +77 -0
data/lib/merb-core/logger.rb +203 -0
data/lib/merb-core/plugins.rb +67 -0
data/lib/merb-core/rack.rb +25 -0
data/lib/merb-core/rack/adapter.rb +44 -0
data/lib/merb-core/rack/adapter/ebb.rb +25 -0
data/lib/merb-core/rack/adapter/evented_mongrel.rb +26 -0
data/lib/merb-core/rack/adapter/fcgi.rb +17 -0
data/lib/merb-core/rack/adapter/irb.rb +118 -0
data/lib/merb-core/rack/adapter/mongrel.rb +26 -0
data/lib/merb-core/rack/adapter/runner.rb +28 -0
data/lib/merb-core/rack/adapter/swiftiplied_mongrel.rb +26 -0
data/lib/merb-core/rack/adapter/thin.rb +39 -0
data/lib/merb-core/rack/adapter/thin_turbo.rb +24 -0
data/lib/merb-core/rack/adapter/webrick.rb +36 -0
data/lib/merb-core/rack/application.rb +32 -0
data/lib/merb-core/rack/handler/mongrel.rb +97 -0
data/lib/merb-core/rack/middleware.rb +20 -0
data/lib/merb-core/rack/middleware/conditional_get.rb +29 -0
data/lib/merb-core/rack/middleware/content_length.rb +18 -0
data/lib/merb-core/rack/middleware/csrf.rb +73 -0
data/lib/merb-core/rack/middleware/path_prefix.rb +31 -0
data/lib/merb-core/rack/middleware/profiler.rb +19 -0
data/lib/merb-core/rack/middleware/static.rb +45 -0
data/lib/merb-core/rack/middleware/tracer.rb +20 -0
data/lib/merb-core/server.rb +284 -0
data/lib/merb-core/tasks/audit.rake +68 -0
data/lib/merb-core/tasks/gem_management.rb +229 -0
data/lib/merb-core/tasks/merb.rb +1 -0
data/lib/merb-core/tasks/merb_rake_helper.rb +80 -0
data/lib/merb-core/tasks/stats.rake +71 -0
data/lib/merb-core/test.rb +11 -0
data/lib/merb-core/test/helpers.rb +9 -0
data/lib/merb-core/test/helpers/controller_helper.rb +8 -0
data/lib/merb-core/test/helpers/multipart_request_helper.rb +175 -0
data/lib/merb-core/test/helpers/request_helper.rb +393 -0
data/lib/merb-core/test/helpers/route_helper.rb +39 -0
data/lib/merb-core/test/helpers/view_helper.rb +121 -0
data/lib/merb-core/test/matchers.rb +9 -0
data/lib/merb-core/test/matchers/controller_matchers.rb +351 -0
data/lib/merb-core/test/matchers/route_matchers.rb +137 -0
data/lib/merb-core/test/matchers/view_matchers.rb +375 -0
data/lib/merb-core/test/run_specs.rb +49 -0
data/lib/merb-core/test/tasks/spectasks.rb +68 -0
data/lib/merb-core/test/test_ext/hpricot.rb +32 -0
data/lib/merb-core/test/test_ext/object.rb +14 -0
data/lib/merb-core/test/test_ext/string.rb +14 -0
data/lib/merb-core/vendor/facets.rb +2 -0
data/lib/merb-core/vendor/facets/dictionary.rb +433 -0
data/lib/merb-core/vendor/facets/inflect.rb +342 -0
data/lib/merb-core/version.rb +3 -0
metadata +253 -0

data/lib/merb-core/dispatch/default_exception/views/index.html.erb ADDED Viewed

@@ -0,0 +1,94 @@
+<html>
+<head>
+  <meta http-equiv="Content-type" content="text/html; charset=utf-8">
+  <title><%= humanize_exception(@exceptions.first) %></title>
+  <%= partial :css %>
+</head>
+<body>
+  <% if @show_details %>
+  <% if @exceptions.size > 1 %>
+  <div class="internalError">
+    <div class="header">
+      <h1>Error Stack</h1>
+      <ul>
+        <% @exceptions.each_with_index do |exception,i| %>
+          <li>
+            <a href="#exception_<%= i %>"><%= humanize_exception(exception) %></a>
+            <%= escape_html(exception.message.split("\n",2).first) %>
+          </li>
+        <% end %>
+      </ul>
+    </div>
+  </div>
+  <% end %>
+  <div class="internalError">
+    <div class="header">
+      <h1>Request Details</h1>
+      <h3>Parameters</h3>
+      <%= listing("Parameter", "Value", request.params) %>
+      <% if request.session? %>
+      <h3>Session</h3>
+      <%= listing("Key", "Value", request.session) %>
+      <% end %>
+      <h3>Cookies</h3>
+      <%= listing("Cookie", "Value", request.cookies) %>
+      <h3>Named Routes</h3>
+      <%= listing("Name", "Route", Merb::Router.named_routes) %>
+    </div>
+  </div>
+  <% end %>
+  <% @exceptions.each_with_index do |exception,i| %>
+  <div class="internalError" id="exception_<%= i %>">
+    <div class="header">
+      <h1>
+        <%= humanize_exception(exception) %>
+        <sup class="error_<%= exception.class.status %>"><%= exception.class.status %></sup>
+      </h1>
+      <%= error_codes(exception) %>
+      <p class="options">
+        <label class="all">All<input type="checkbox" autocomplete="off"></label>
+        <span class="all">
+          <label class="app">App<input type="checkbox" checked="checked" autocomplete="off"/></label>
+          <label class="framework">Framework<input type="checkbox" autocomplete="off"/></label>
+          <label class="gem">Gem<input type="checkbox" autocomplete="off"/></label>
+          <label class="other">Other<input type="checkbox" autocomplete="off"/></label>
+        </span>
+      </p>
+    <% if @show_details %>
+    <table class="trace">
+      <% exception.backtrace.each_with_index do |line, index| %>
+        <% type, shortname, filename, lineno, location = frame_details(line) %>
+        <tbody class="close <%= type %>" <%= "style='display:none'" unless type == "app" %>>
+          <tr class="file">
+            <td class="expand"><div>&nbsp;</div></td>
+            <td class="path">
+              <%= shortname %>
+              <% if filename && filename.match(/\.erb$/) %>
+                (<strong>ERB Template</strong>)
+              <% else %>
+                in <strong><%= location ? location.match(/in (`.+')$/)[1] : 'main' %></strong>
+              <% end %>
+            </td>
+            <td class="line">
+              <%= textmate_url(filename, lineno) %>
+            </td>
+          </tr>
+          <%= render_source(filename, lineno) %>
+        </tbody>
+      <% end %>
+    </table>
+  <% end %>
+  <div class="footer">
+    lots of love, from <a href="http://www.merbivore.com">merb</a>
+  </div>
+  </div>
+  <% end %>
+  <%= partial :javascript %>
+</body>
+</html>

data/lib/merb-core/dispatch/dispatcher.rb ADDED Viewed

@@ -0,0 +1,176 @@
+require Merb.framework_root / "merb-core" / "dispatch" / "default_exception" / "default_exception"
+module Merb
+  class Dispatcher
+    class << self
+      include Merb::ControllerExceptions
+      attr_accessor :use_mutex
+      @@work_queue = Queue.new
+      def work_queue
+        @@work_queue
+      end
+      Merb::Dispatcher.use_mutex = ::Merb::Config[:use_mutex]
+      # Dispatch the rack environment. ControllerExceptions are rescued here
+      # and redispatched.
+      #
+      # ==== Parameters
+      # rack_env<Rack::Environment>::
+      #   The rack environment, which is used to instantiate a Merb::Request
+      #
+      # ==== Returns
+      # Merb::Controller::
+      #   The Merb::Controller that was dispatched to
+      def handle(request)
+        request.handle
+      end
+    end
+  end
+  class Request
+    include Merb::ControllerExceptions
+    @@mutex = Mutex.new
+    def handle
+      start = Time.now
+      Merb.logger.info "Started request handling: #{start.to_s}"
+      find_route!
+      return redirect if redirects?
+      klass = controller
+      Merb.logger.debug("Routed to: #{params.inspect}")
+      unless klass < Controller
+        raise NotFound,
+          "Controller '#{klass}' not found.\n" \
+          "If Merb tries to find a controller for static files, " \
+          "you may need to check your Rackup file, see the Problems " \
+          "section at: http://wiki.merbivore.com/pages/rack-middleware"
+      end
+      if klass.abstract?
+        raise NotFound, "The '#{klass}' controller has no public actions"
+      end
+      controller = dispatch_action(klass, params[:action])
+      controller._benchmarks[:dispatch_time] = Time.now - start
+      Merb.logger.info controller._benchmarks.inspect
+      Merb.logger.flush
+      controller
+    rescue Object => exception
+      dispatch_exception(exception)
+    end
+    # Set up a faux controller to do redirection from the router
+    #
+    # ==== Parameters
+    # request<Merb::Request>::
+    #   The Merb::Request object that was created in #handle
+    # status<Integer>::
+    #   The status code to return with the controller
+    # url<String>::
+    #   The URL to return
+    #
+    # ==== Example
+    # r.match("/my/old/crusty/url").redirect("http://example.com/index.html")
+    #
+    # ==== Returns
+    # Merb::Controller::
+    #   Merb::Controller set with redirect headers and a 301/302 status
+    def redirect(url = nil, opts = {})
+      controller = Merb::Controller.new(self)
+      unless url
+        status, url = redirect_status, redirect_url
+      end
+      Merb.logger.info("Dispatcher redirecting to: #{url} (#{status})")
+      Merb.logger.flush
+      controller.redirect(url, opts)
+      controller.status = status if status
+      controller.body = "<html><body>You are being <a href=\"#{url}\">redirected</a>.</body></html>"
+      controller
+    end
+    private
+    # Setup the controller and call the chosen action
+    #
+    # ==== Parameters
+    # klass<Merb::Controller>:: The controller class to dispatch to.
+    # action<Symbol>:: The action to dispatch.
+    # request<Merb::Request>::
+    #   The Merb::Request object that was created in #handle
+    # status<Integer>:: The status code to respond with.
+    #
+    # ==== Returns
+    # Merb::Controller::
+    #   The Merb::Controller that was dispatched to.
+    def dispatch_action(klass, action, status=200)
+      # build controller
+      controller = klass.new(self, status)
+      if Dispatcher.use_mutex
+        @@mutex.synchronize { controller._dispatch(action) }
+      else
+        controller._dispatch(action)
+      end
+      controller
+    end
+    # Re-route the current request to the Exception controller if it is
+    # available, and try to render the exception nicely.
+    #
+    # You can handle exceptions by implementing actions for specific
+    # exceptions such as not_found or for entire classes of exceptions
+    # such as client_error. You can also implement handlers for
+    # exceptions outside the Merb exception hierarchy (e.g.
+    # StandardError is caught in standard_error).
+    #
+    # ==== Parameters
+    # request<Merb::Request>::
+    #   The request object associated with the failed request.
+    # exception<Object>::
+    #   The exception object that was created when trying to dispatch the
+    #   original controller.
+    #
+    # ==== Returns
+    # Exceptions::
+    #   The Merb::Controller that was dispatched to.
+    def dispatch_exception(exception)
+      if(exception.is_a?(Merb::ControllerExceptions::Base) &&
+         !exception.is_a?(Merb::ControllerExceptions::ServerError))
+        Merb.logger.info(Merb.exception(exception))
+      else
+        Merb.logger.error(Merb.exception(exception))
+      end
+      self.exceptions = [exception]
+      begin
+        e = exceptions.first
+        if action_name = e.action_name
+          dispatch_action(Exceptions, action_name, e.class.status)
+        else
+          Merb::Dispatcher::DefaultException.new(self, e.class.status)._dispatch
+        end
+      rescue Object => dispatch_issue
+        if e.same?(dispatch_issue) || exceptions.size > 5
+          Merb::Dispatcher::DefaultException.new(self, e.class.status)._dispatch
+        else
+          Merb.logger.error("Dispatching #{e.class} raised another error.")
+          Merb.logger.error(Merb.exception(dispatch_issue))
+          exceptions.unshift dispatch_issue
+          retry
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,729 @@
+require 'tempfile'
+module Merb
+  class Request
+    # def env def exceptions def route_params
+    attr_accessor :env, :exceptions, :route
+    attr_reader :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
+    # Flash, and some older browsers can't use arbitrary
+    # request methods -- i.e., are limited to GET/POST.
+    # These user-agents can make POST requests in combination
+    # with these overrides to participate fully in REST.
+    # Common examples are _method or fb_sig_request_method
+    # in the params, or an X-HTTP-Method-Override header
+    cattr_accessor :http_method_overrides
+    self.http_method_overrides = []
+    # Initialize 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
+    def controller
+      unless params[:controller]
+        raise ControllerExceptions::NotFound,
+          "Route matched, but route did not specify a controller.\n" +
+          "Did you forgot to add :controller => \"people\" or :controller " +
+          "segment to route definition?\nHere is what's specified:\n" +
+          route.inspect
+      end
+      path = [params[:namespace], params[:controller]].compact.join("/")
+      controller = path.snake_case.to_const_string
+      begin
+        Object.full_const_get(controller)
+      rescue NameError => e
+        msg = "Controller class not found for controller `#{path}'"
+        Merb.logger.warn!(msg)
+        raise ControllerExceptions::NotFound, msg
+      end
+    end
+    METHODS = %w{get post put delete head options}
+    # ==== Returns
+    # <Symbol>:: The name of the request method, e.g. :get.
+    #
+    # ==== Notes
+    # If the method is post, then the blocks specified in
+    # http_method_overrides will be checked for the masquerading method.
+    # The block will get the controller yielded to it.  The first matching workaround wins.
+    # To disable this behavior, set http_method_overrides = []
+    def method
+      @method ||= begin
+        request_method = @env['REQUEST_METHOD'].downcase.to_sym
+        case request_method
+        when :get, :head, :put, :delete, :options
+          request_method
+        when :post
+          m = nil
+          self.class.http_method_overrides.each do |o|
+            m ||= o.call(self); break if m
+          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
+    # Find route using requested URI and merges route
+    # parameters (:action, :controller and named segments)
+    # into request params hash.
+    def find_route!
+      @route, @route_params = Merb::Router.route_for(self)
+      params.merge! @route_params
+    end
+    # Redirect status of route matched this request.
+    #
+    # ==== Returns
+    # Integer::
+    #   The URL to redirect to if the route redirects
+    def redirect_status
+      route.redirect_status
+    end
+    # Returns redirect url of route matched this request.
+    #
+    # ==== Returns
+    # <String>:: redirect url of route matched this request
+    def redirect_url
+      route.redirect_url
+    end
+    # Returns true if matched route does immediate redirection.
+    #
+    # ==== Returns
+    # <Boolean>:: if matched route does immediate redirection.
+    def redirects?
+      route.redirects?
+    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
+    # Mash::
+    #   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
+          # parse the multipart. Otherwise return {}
+          if (Merb::Const::MULTIPART_REGEXP =~ content_type)
+            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.
+    #
+    # ==== Notes
+    # If the JSON object parses as a Hash, it will be merged with the
+    # parameters hash.  If it parses to anything else (such as an Array, or
+    # if it inflates to an Object) it will be accessible via the inflated_object
+    # parameter.
+    def json_params
+      @json_params ||= begin
+        if Merb::Const::JSON_MIME_TYPE_REGEXP.match(content_type)
+          jobj = JSON.parse(raw_post) rescue Mash.new
+          jobj.kind_of?(Hash) ? jobj : { :inflated_object => jobj }
+        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
+    # Mash:: 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
+    def message
+      return {} unless params[:_message]
+      begin
+        Marshal.load(Merb::Request.unescape(params[:_message]).unpack("m").first)
+      rescue ArgumentError
+        {}
+      end
+    end
+    # Resets the params to a nil value.
+    def reset_params!
+      @params = nil
+    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
+    # ==== Parameters
+    # name<~to_sym, Hash>:: The name of the URL to generate.
+    # rparams<Hash>:: Parameters for the route generation.
+    #
+    # ==== Returns
+    # String:: The generated URL.
+    #
+    # ==== Alternatives
+    # If a hash is used as the first argument, a default route will be
+    # generated based on it and rparams.
+    # ====
+    # TODO: Update this documentation
+    def generate_url(name, *args)
+      unless Symbol === name
+        args.unshift(name)
+        name = :default
+      end
+      unless route = Merb::Router.named_routes[name]
+        raise Merb::Router::GenerationError, "Named route not found: #{name}"
+      end
+      route.generate(args, params)
+    end
+    # ==== Parameters
+    # name<~to_sym, Hash>:: The name of the URL to generate.
+    # rparams<Hash>:: Parameters for the route generation.
+    #
+    # ==== Returns
+    # String:: The generated url with protocol + hostname + URL.
+    #
+    # ==== Options
+    #
+    # :protocol and :host options are special: use them to explicitly
+    # specify protocol and host of resulting url. If you omit them,
+    # protocol and host of request are used.
+    #
+    # ==== Alternatives
+    # If a hash is used as the first argument, a default route will be
+    # generated based on it and rparams.
+    def generate_absolute_url(name, rparams={})
+      if rparams.is_a?(Hash)
+        tprotocol = rparams.delete(:protocol)
+        thost = rparams.delete(:host)
+      end
+      (tprotocol || protocol) + "://" +
+        (thost || host) +
+        generate_url(name, rparams)
+    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 full URI, including protocol and host
+    def full_uri
+      protocol + host + uri
+    end
+    # ==== Returns
+    # String:: The request URI.
+    def uri
+      @env['REQUEST_PATH'] || @env['REQUEST_URI'] || path_info
+    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
+    # ==== Returns
+    # Value of If-None-Match request header.
+    def if_none_match
+      @env[Merb::Const::HTTP_IF_NONE_MATCH]
+    end
+    # ==== Returns
+    # Value of If-Modified-Since request header.
+    def if_modified_since
+      if time = @env[Merb::Const::HTTP_IF_MODIFIED_SINCE]
+        Time.rfc2822(time)
+      end
+    end
+    class << self
+      # ==== Parameters
+      # value<Array, Hash, Dictionary ~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, Dictionary
+          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
+      # query_string<String>:: The query string.
+      # delimiter<String>:: The query string divider. Defaults to "&".
+      # preserve_order<Boolean>:: Preserve order of args. Defaults to false.
+      #
+      # ==== Returns
+      # Mash:: The parsed query string (Dictionary if preserve_order is set).
+      #
+      # ==== Examples
+      #   query_parse("bar=nik&post[body]=heya")
+      #     # => { :bar => "nik", :post => { :body => "heya" } }
+      def query_parse(query_string, delimiter = '&;', preserve_order = false)
+        query = preserve_order ? Dictionary.new : {}
+        for pair in (query_string || '').split(/[#{delimiter}] */n)
+          key, value = unescape(pair).split('=',2)
+          next if key.nil?
+          if key.include?('[')
+            normalize_params(query, key, value)
+          else
+            query[key] = value
+          end
+        end
+        preserve_order ? query : query.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)
+        return {} if status == nil || status.empty?
+        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
+        elsif after =~ %r(^\[\]\[([^\[\]]+)\]$)
+          child_key = $1
+          parms[key] ||= []
+          if parms[key].last.is_a?(Hash) && !parms[key].last.key?(child_key)
+            parms[key].last.update(child_key => val)
+          else
+            parms[key] << { child_key => val }
+          end
+        else
+          parms[key] ||= {}
+          parms[key] = normalize_params(parms[key], after, val)
+        end
+        parms
+      end
+    end
+  end
+end