HTTP::MHTTP - this library provides reasonably low level access to the HTTP protocol, for perl. This does not replace LWP (what possibly could :-) but is a cut for speed. It also supports all of HTTP 1.0, so you have GET, POST, PUT, HEAD, and DELETE. Some support of HTTP 1.1 is available - sepcifically Transfer-Encoding = chunked and the Keep-Alive extensions.
Additionally - rudimentary SSL support can be compiled in. This effectively enables negotiation of TLS, but does not validate the certificates.
use HTTP::MHTTP;
http_init();
http_add_headers(
'User-Agent' => 'DVSGHTTP1/1',
'Accept-Language' => 'en-gb',
'Connection' => 'Keep-Alive',
);
if (http_call("GET", "http://localhost")){
if (http_status() == 200 ){
print http_response();
} else {
print "MSG: ".http_reason();
}
} else {
print "call failed \n";
}
A way faster http access library that uses C extension based on mhttp to do the calls.
initialise the mhttp library - must be called once to reset all internals, use http_reset() if you don't need to reset your headers before the next call.
http_set_protocol(1); # now operating in HTTP 1.1 mode
Set the protocol level to use - either HTTP 1.0 or 1.1 by passing 0 or 1 - the default is 0 (HTTP 1.0).
reset the library internals for everything except the headers specified previously, and the debug switch. Call http_init() if you need to reset everything.
switch_debug(<0 || 1>)
Toggle the internal debugging on and off by passing either > 1 or 0.
http_add_headers(
'User-Agent' => 'HTTP-MHTTP1/0',
'Host' => 'localhost',
'Accept-Language' => 'en-gb',
);
pass in header/value pairs that will be set on the next http_call().
http_body("this is the body");
Set the body of the next request via http_call().
my $rc = http_call("GET", "http://localhost");
Do an http request. Returns either 0 or 1 depending on whether the call was successful - remember to still check the http_status() code though.
Returns the last status code.
Returns the last reason code.
Returns the headers of the last call, as a single string.
Returns the split out hash of headers of the last call. Returns the hash reference.
Returns the length of the body of the last call.
Returns the body of the last call.
my $pass = basic_authorization($user, $password);
Construct the basic authorization value to be passed in an "Authorization" header.
Copyright (c) 2003, Piers Harding. All Rights Reserved. This module is free software. It may be used, redistributed and/or modified under the same terms as Perl itself.
Piers Harding, piers@ompa.net.
perl(1)
