| Commit | Line | Data |
|---|
| 2d51e42f |
1 | NAME |
| 2 | HTTP::Request::AsCGI - Setup a CGI enviroment from a HTTP::Request |
| 3 | |
| 4 | SYNOPSIS |
| 5 | use CGI; |
| 6 | use HTTP::Request; |
| 7 | use HTTP::Request::AsCGI; |
| 8 | |
| 9 | my $request = HTTP::Request->new( GET => 'http://www.host.com/' ); |
| 10 | my $stdout; |
| 11 | |
| 12 | { |
| 13 | my $c = HTTP::Request::AsCGI->new($request)->setup; |
| 14 | my $q = CGI->new; |
| 15 | |
| 16 | print $q->header, |
| 17 | $q->start_html('Hello World'), |
| 18 | $q->h1('Hello World'), |
| 19 | $q->end_html; |
| 20 | |
| 21 | $stdout = $c->stdout; |
| 22 | |
| 23 | # enviroment and descriptors will automatically be restored |
| 24 | # when $c is destructed. |
| 25 | } |
| 26 | |
| 27 | while ( my $line = $stdout->getline ) { |
| 28 | print $line; |
| 29 | } |
| 30 | |
| 31 | DESCRIPTION |
| 32 | Provides a convinient way of setting up an CGI enviroment from a |
| 33 | HTTP::Request. |
| 34 | |
| 35 | METHODS |
| 36 | new ( $request [, key => value ] ) |
| 37 | Contructor, first argument must be a instance of HTTP::Request |
| 7bbffdcb |
38 | followed by optional pairs of environment key and value. |
| 2d51e42f |
39 | |
| 40 | enviroment |
| 41 | Returns a hashref containing the environment that will be used in |
| 42 | setup. Changing the hashref after setup has been called will have no |
| 43 | effect. |
| 44 | |
| 45 | setup |
| 46 | Setups the environment and descriptors. |
| 47 | |
| 48 | restore |
| 49 | Restores the enviroment and descriptors. Can only be called after |
| 50 | setup. |
| 51 | |
| 52 | request |
| 53 | Returns the request given to constructor. |
| 54 | |
| 55 | response |
| 56 | Returns a HTTP::Response. Can only be called after restore. |
| 57 | |
| 58 | stdin |
| 59 | Accessor for handle that will be used for STDIN, must be a real |
| 60 | seekable handle with an file descriptor. Defaults to a tempoary |
| 61 | IO::File instance. |
| 62 | |
| 63 | stdout |
| 64 | Accessor for handle that will be used for STDOUT, must be a real |
| 65 | seekable handle with an file descriptor. Defaults to a tempoary |
| 66 | IO::File instance. |
| 67 | |
| 68 | stderr |
| 69 | Accessor for handle that will be used for STDERR, must be a real |
| 70 | seekable handle with an file descriptor. |
| 71 | |
| 7bbffdcb |
72 | SEE ALSO |
| 73 | examples directory in this distribution. |
| 74 | WWW::Mechanize::CGI |
| 75 | Test::WWW::Mechanize::CGI |
| 76 | |
| 2d51e42f |
77 | THANKS TO |
| 78 | Thomas L. Shinnick for his valuable win32 testing. |
| 79 | |
| 80 | AUTHOR |
| 81 | Christian Hansen, "ch@ngmedia.com" |
| 82 | |
| 83 | LICENSE |
| 84 | This library is free software. You can redistribute it and/or modify it |
| 85 | under the same terms as perl itself. |
| 86 | |
projects / catagits/HTTP-Request-AsCGI.git / blame