NAME

HTTP::Request::AsCGI - Setup a CGI enviroment from a HTTP::Request

SYNOPSIS

    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;
    }
    

DESCRIPTION

Provides a convinient way of setting up an CGI enviroment from a HTTP::Request.

METHODS

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.

SEE ALSO

examples directory in this distribution.

WWW::Mechanize::CGI

Test::WWW::Mechanize::CGI

THANKS TO

Thomas L. Shinnick for his valuable win32 testing.

AUTHOR

Christian Hansen, ch@ngmedia.com

LICENSE

This library is free software. You can redistribute it and/or modify it under the same terms as perl itself.