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