Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 8bf8c15674
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 152 lines (134 sloc) 5.041 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151
use v6;
# A more or less direct port of
# <http://github.com/chneukirchen/rack/blob/master/lib/rack/utils.rb>
# This file is distributed under the license found in licenses/rack/COPYING.

module Web::Utils {
    # Web::Utils contains a grab-bag of useful methods for writing web
    # applications adopted (through Rack) from all kinds of Ruby libraries.

    # Performs URI escaping so that you can construct proper
    # query strings faster.
    sub escape($s) is export {
        # RAKUDO: Need 'H2' in Rakudo's unpack before this works
        # XXX: What does the /n flag do on Ruby regexes?
        return (~$s).subst(/<-[ a..zA..Z0..9_.-]+>/,
            { '%' ~ unpack(~$/, "H2" x $/.chars).join('%').uc },
            :global).trans(' ' => '+');
    }

    # Unescapes a URI escaped string.
    sub unescape(Str $s) is export {
        return $s.trans('+' => ' ').subst(/['%'<[0..9a..fA..F]>**2]+/,
            { $/.subst('%', '', :global).pack('H*') },
            :global);
    }

    # Parses a query string by breaking it up at the '&'
    # and ';' characters. You can also use this to parse
    # cookies by changing the characters used in the second
    # parameter (which defaults to '&;').
    sub parse_query(Str $qs, $d = '&;') {
        my %params = {};

        # RAKUDO: Need to solve this with eval right now. [perl #63892]
        my $regex = eval("/<[$d]>/");
        for ($qs // '').split($regex) -> $p {
            my ($k, $v) = unescape($p).split('=', 2);

            given %params {
                if my $cur = .{$k} {
                    if $cur ~~ List {
                        .{$k}.push($v.values);
                    }
                    else {
                        .{$k} = [$cur, $v];
                    }
                }
                else {
                    .{$k} = $v;
                }
            }
        }

        return %params;
    }

    sub build-query(Hash %params) is export {
        return %params.pairs.map: {
            my ($k, $v) = .kv;
            $v ~~ List ?? build-query($v.map: { [$k, $^x] })
                       !! escape($k) ~ '=' ~ escape($v)
        }.join('&');
    }

    # Escape ampersands, brackets and quotes to their HTML/XML entities.
    sub escape-html($string) {
        return (~$string).subst('&', '&amp;' )\
                         .subst('<', '&lt;' )\
                         .subst('>', '&gt;' )\
                         .subst(q['],'&#39;' )\
                         .subst('"', '&quot;');
    }

    sub select-best-encoding($available-encodings, $accept-encoding) {
        # http://www.w3.org/Protocols/rfc2616/rfc2616-sec14.html

        # XXX: This became too complicated for me without further knowledge.
        # Punting for now.
    }

    # The recommended manner in which to implement a contexting application
    # is to define a method #context in which a new Context is instantiated.
    #
    # As a Context is a glorified block, it is highly recommended that you
    # define the contextual block within the application's operational scope.
    class Context is Routine {
        # TODO
    }

    # A case-insensitive Hash that preserves the original case of a
    # header when set.
    class HeaderHash is Hash {
        # TODO
    }

    # Every standard HTTP code mapped to the appropriate message.
    # Stolen from Mongrel.
    my %HTTP_STATUS_CODES =
      100 => 'Continue',
      101 => 'Switching Protocols',
      200 => 'OK',
      201 => 'Created',
      202 => 'Accepted',
      203 => 'Non-Authoritative Information',
      204 => 'No Content',
      205 => 'Reset Content',
      206 => 'Partial Content',
      300 => 'Multiple Choices',
      301 => 'Moved Permanently',
      302 => 'Found',
      303 => 'See Other',
      304 => 'Not Modified',
      305 => 'Use Proxy',
      307 => 'Temporary Redirect',
      400 => 'Bad Request',
      401 => 'Unauthorized',
      402 => 'Payment Required',
      403 => 'Forbidden',
      404 => 'Not Found',
      405 => 'Method Not Allowed',
      406 => 'Not Acceptable',
      407 => 'Proxy Authentication Required',
      408 => 'Request Timeout',
      409 => 'Conflict',
      410 => 'Gone',
      411 => 'Length Required',
      412 => 'Precondition Failed',
      413 => 'Request Entity Too Large',
      414 => 'Request-URI Too Large',
      415 => 'Unsupported Media Type',
      416 => 'Requested Range Not Satisfiable',
      417 => 'Expectation Failed',
      500 => 'Internal Server Error',
      501 => 'Not Implemented',
      502 => 'Bad Gateway',
      503 => 'Service Unavailable',
      504 => 'Gateway Timeout',
      505 => 'HTTP Version Not Supported'
    ;

    # Responses with HTTP status codes that should not have an entity body
    my %STATUS_WITH_NO_ENTITY_BODY = (100..199, 204, 304).map: { $_ => 1 };

    # A multipart form data parser, adapted from IOWA.
    #
    # Usually, Web::Request.POST takes care of calling this.

    module Multipart {
        # TODO
    }
}
Something went wrong with that request. Please try again.