Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

(dkubb) Re: (1) Setting HTTP:Headers using HTTP::Request::Common

by dkubb (Deacon)
on Sep 24, 2001 at 12:15 UTC ( #114261=note: print w/replies, xml ) Need Help??

in reply to Setting HTTP:Headers using HTTP::Request::Common

When you use HTTP::Request::Common's POST routine, it creates an HTTP::Request object that has all it's attributes set to the most common values. For a large majority of tasks you will not need to set the values to anything different, and if you do, it is a great point at which to start from.

Now, HTTP::Message is the parent to HTTP::Request, and passes down it's headers method to it (along with all it's other methods) which will let you get at this request's HTTP::Headers object.

Here is your example, modified to show the use of this method:

#!/usr/bin/perl -w use strict; use HTTP::Request::Common qw(POST); #build a pre-fab HTTP::Request object my $request = POST 'http://gino/ciccio.cgi', [ sessionid => 'something', mittente => 'something', prefix => 'number', numtel => 'number', messagetext => 'message', flash => 0, Submit => ' Invia ', ]; #get this request's HTTP::Headers object my $headers = $request->headers; #you can call any method specified in HTTP::Headers' perldoc print $headers->as_string;

Replies are listed 'Best First'.
Re: (dkubb) Re: (1) Setting HTTP:Headers using HTTP::Request::Common
by giulienk (Curate) on Sep 24, 2001 at 12:35 UTC
    Thank you very much! Following your advice now i can set the referer to what i want as
    Now, my script works :)

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://114261]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2022-12-04 21:35 GMT
Find Nodes?
    Voting Booth?

    No recent polls found