
HTTP::Request::FromTemplate - Create HTTP requests from templates

use HTTP::Request::FromTemplate;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
# A request, snarfed from your network monitor logs:
my $template = <<TEMPLATE
POST http://[% host %][% path %][% query %] HTTP/1.1
Host: [% host %]
Connection: keep-alive
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Accept-Encoding: gzip,deflate
Accept-Language: en-us,en;q=0.5
User-Agent: QuickTime (qtver=5.0.2;os=Windows NT 5.1)
Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
Keep-Alive: 300
Referer: http://[% host %][% path %][% query %]
TEMPLATE
my $t = HTTP::Request::FromTemplate->new(template => $template);
my $req = $t->process({ 'host' => 'apple.com',
'path' => '/',
'query' => '?',
});
my $response = $ua->request($request); # replay the request

I wanted this for a long time already. It makes it very convenient to just paste a logged session from the http://livehttpheaders.mozdev.org/ into a template file and be able to faithfully replay a request or to parametrize it without needing to manually compare what is sent against what I want.

There is one predefined/magic template parameter. content_length will be set to the length of the content (after the template has been filled out) unless it was passed in via the template parameters.

This is one of the modules that I created because the idea hit me as crazy but useful. So if you use the module, please tell me what enhancements you'd like, or where it falls short of your expectations.

Patches are welcome.

If you find bugs, please report them via http://rt.cpan.org/NoAuth/Bugs.html?Dist=HTTP-Request-FromTemplate or, preferrably via mail to bug-HTTP-Request-FromTemplate@rt.cpan.org.

Max Maischein (corion@cpan.org)

Copyright (C) 2005 Max Maischein. All Rights Reserved.
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

LWP,HTTP::Request,Mozilla Live HTTP Headers