☺唐鳳☻
and 1 contributors

NAME

CGI - A module for programming CGI

SYNOPSIS

    #!/usr/bin/pugs
    use v6;
    require CGI-0.0.1;
    
    print header;
    
    if (param()) {
        for param() -> $key {
            say $key ~ " => " ~ param($key) ~ "<BR>";
        }
    }
    else {
        say "<FORM><INPUT TYPE='text' NAME='test'><INPUT TYPE='submit'></FORM>";
    }
    
    # you can also test it on the command line too
    % pugs -I lib/ examples/test.p6 "greetings=hello world"    

DESCRIPTION

CGI for Pugs!

FUNCTIONS

Informational

param returns Array
param (Str $key) returns Array
query_string returns Str
request_method returns Str
content_type returns Str
content_length returns Str

The following informational functions are fetched on-demand

path_info returns Str
referer returns Str
request_uri returns Str
document_root returns Str
script_name returns Str

Utility

header (+$status = '200 OK', +$content_type = 'text/html', +$charset, +$location) returns Str
redirect (Str $location) returns Str
url_decode (Str $to_decode) returns Str
url_encode (Str $to_encode) returns Str
pack_params returns Str
unpack_params (Str $data) returns Str

TO DO

Cookies

My inclination is to wait until objects are done for this, but maybe I will figure out a good way to do this without. Either way it is still TODO.

AUTHOR

stevan little, <stevan@iinteractive.com>

Autrijus Tang, <autrijus@autrijus.com>

Curtis "Ovid" Poe

Andras Barthazi, <andras@barthazi.hu>

"Aankhen``"

COPYRIGHT

Copyright (c) 2005. Stevan Little. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See http://www.perl.com/perl/misc/Artistic.html