HTTP::WebTest::Plugin::SetRequest - Initializes HTTP request for web test

    http_headers = ( Accept => text/plain, text/html )

    url = http://www.hotmail.com/cgi-bin/hmhome
    params = ( curmbox
               F001 A005
               from
               HotMail )

    http://www.hotmail.com/cgi-bin/hmhome?curmbox=F001%20A005&from=HotMail

    ( FILE, FILENAME, HEADER => VALUE... )

    url = http://www.server.com/upload.pl
    method = post
    params = ( submit => ok
               file   => ( '/home/ilya/file.txt', 'myfile.txt' ) )

    proxies = ( http => http://http_proxy.mycompany.com
                ftp  => http://ftp_proxy.mycompany.com )

# $Id: SetRequest.pm,v 1.20 2003/03/02 11:52:09 m_ilya Exp $

package HTTP::WebTest::Plugin::SetRequest;

use strict;
use URI;

use base qw(HTTP::WebTest::Plugin);

sub param_types {
    return q(url              uri
                          relative_urls    yesno
	     	     method           scalar('^(?:GET|POST)$')
 	      	     params           hashlist
	     	     auth             list('scalar','scalar')
	     	     proxies          hashlist
	     	     pauth            list('scalar','scalar')
	     	     http_headers     hashlist
                          user_agent       scalar
                          handle_redirects yesno
                          timeout          scalar);
}

sub prepare_request {
    my $self = shift;

    # get user agent object
    my $user_agent = $self->webtest->user_agent;

    # get request object
    my $request = $self->webtest->current_request;

    $self->validate_params(qw(url relative_urls method params
                              auth proxies pauth
                              http_headers user_agent
                              handle_redirects timeout));

    # get various params we handle
    my $url              = $self->test_param('url');
    my $relative_urls    = $self->yesno_test_param('relative_urls');
    my $method           = $self->test_param('method');
    my $params           = $self->test_param('params');
    my $auth             = $self->test_param('auth');
    my $proxies          = $self->test_param('proxies');
    my $pauth            = $self->test_param('pauth');
    my $headers          = $self->test_param('http_headers');
    my $ua_name          = $self->test_param('user_agent');
    my $handle_redirects = $self->yesno_test_param('handle_redirects', 1);
    my $timeout          = $self->test_param('timeout', 180);

    # set LWP's timeout
    $self->webtest->user_agent->timeout($timeout);

    # normalize uri
    if(defined $url) {
	if($relative_urls) {
	    my $current_test_num = $self->webtest->current_test_num;

	    my $prev_url = $current_test_num > 0 ?
		           $self->webtest->tests->[$current_test_num - 1]->request->uri :
			   'http://localhost/';

	    $url = URI->new_abs($url, $prev_url);
	} else {
	    # add shema part if it is missing
	    $url = "http://" . $url unless $url =~ m|^\w+://|;
	}
    }

    # set request uri
    $request->uri($url) if defined $url;

    # set request method (with default GET)
    if(defined $method) {
	if($method =~ /^POST$/i) {
	    $request->method('POST');
	    # ensure correct default value for content-type header
	    $request->header(Content_Type =>
			     'application/x-www-form-urlencoded');
	} else {
	    $request->method('GET');
	}
    } else {
	$request->method('GET');
    }

    # set request params
    if(defined $params) {
	my @params = ref($params) eq 'ARRAY' ? @$params : %$params;
	$request->params(\@params);
    }

    # pass authorization data
    if(defined $auth) {
	$request->authorization_basic(@$auth);
    }

    # set proxies
    if(defined $proxies) {
	for my $i (0 .. @$proxies / 2 - 1) {
	    $user_agent->proxy(@$proxies[2 * $i, 2 * $i + 1]);
	}
    }

    # pass proxy authorization data
    if(defined $pauth) {
	$request->proxy_authorization_basic(@$pauth);
    }

    # set http headers
    if(defined $headers) {
	$request->header(@$headers);
    }

    # set user agent name
    $ua_name = 'HTTP-WebTest/' . HTTP::WebTest->VERSION
	unless defined $ua_name;
    $user_agent->agent($ua_name);

    # define if requests are redirectable
    if($handle_redirects) {
	$user_agent->requests_redirectable([qw(GET POST)]);
    } else {
	$user_agent->requests_redirectable([]);
    }
}

1;