HTTP::Request::AsCGI - Setup a CGI enviroment from a HTTP::Request
|
HTTP::Request::AsCGI - Setup a CGI enviroment from a HTTP::Request
use CGI;
use HTTP::Request;
use HTTP::Request::AsCGI;
my $request = HTTP::Request->new( GET => 'http://www.host.com/' );
my $stdout;
{
my $c = HTTP::Request::AsCGI->new($request)->setup;
my $q = CGI->new;
print $q->header,
$q->start_html('Hello World'),
$q->h1('Hello World'),
$q->end_html;
$stdout = $c->stdout;
# enviroment and descriptors will automatically be restored
# when $c is destructed.
}
while ( my $line = $stdout->getline ) {
print $line;
}
=head1 DESCRIPTION
Provides a convinient way of setting up an CGI enviroment from a HTTP::Request.
- new ( $request [, key => value ] )
-
Contructor, first argument must be a instance of HTTP::Request
followed by optional pairs of environment key and value.
- enviroment
-
Returns a hashref containing the environment that will be used in setup.
Changing the hashref after setup has been called will have no effect.
- setup
-
Setups the environment and descriptors.
- restore
-
Restores the enviroment and descriptors. Can only be called after setup.
- request
-
Returns the request given to constructor.
- response
-
Returns a HTTP::Response. Can only be called after restore.
- stdin
-
Accessor for handle that will be used for STDIN, must be a real seekable
handle with an file descriptor. Defaults to a tempoary IO::File instance.
- stdout
-
Accessor for handle that will be used for STDOUT, must be a real seekable
handle with an file descriptor. Defaults to a tempoary IO::File instance.
- stderr
-
Accessor for handle that will be used for STDERR, must be a real seekable
handle with an file descriptor.
- examples directory in this distribution.
- the WWW::Mechanize::CGI manpage
- the Test::WWW::Mechanize::CGI manpage
Thomas L. Shinnick for his valuable win32 testing.
Christian Hansen, ch@ngmedia.com
This library is free software. You can redistribute it and/or modify
it under the same terms as perl itself.
HTTP::Request::AsCGI - Setup a CGI enviroment from a HTTP::Request
|