use URI::Encode;

#| Parses cookies, query parameters, and post data from HTTP requests.
unit module HTTP::ParseParams;

#| Pass in some data and a type, and get back a hash containing the passed parameters
our sub parse(Str $data, Bool :$cookie, Bool :$urlencoded is copy, Bool :$formdata is copy, Str :$content-type --> Hash) {
    

Pass :cookie for cookie data, :urlencoded for query parameters or x-www-form-urlencoded postdata, or :formdata for multipart/form-data postdata.


Alternatively, pass :content-type(...) to have the function pick the correct postdata encoding for you. Will die if we don't
recognize the content type.


If there are multiple parameters with the same name, the result hash will contain a list of values.


    if $content-type {
        if $content-type eq 'application/x-www-form-urlencoded' {
            $urlencoded = True;
        }
        elsif $content-type eq 'multipart/form-data' {
            $formdata = True;
        }
        else {
            die "Unable to understand content type $content-type";
        }
    }

    if $cookie {
        my @cookies = $data.split(/\;\s/);
        my %cookiedata;
        for @cookies {
            my @parts = .split(/\=/, 2);
            if %cookiedata{@parts[0]} {
                %cookiedata{@parts[0]} = [ %cookiedata{@parts[0]}.flat, @parts[1] ].flat;
            }
            else {
                %cookiedata{@parts[0]} = @parts[1];
            }
        }

        return %cookiedata;
    }
    elsif $formdata {
        

Note that multipart/form-data parsing is NYI



        die "NYI";
    }
    elsif $urlencoded {
        my @params = $data.split(/\&|\;/);
        my %paramdata;
        for @params {
            my @parts = .split(/\=/, 2);
            @parts[1] = uri_decode(@parts[1]);
            if %paramdata{@parts[0]} {
                %paramdata{@parts[0]} = [ |%paramdata{@parts[0]}, @parts[1] ];
            }
            else {
                %paramdata{@parts[0]} = @parts[1];
            }
        }
        return %paramdata;
    }
    else {
        die "Nothing to do!";
    }
}


root

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React
