Use LWP to Post form data

kellyrmilligan

First: TS 6.5, Solaris

writing a perl script to post to a google appliance. the piece that I am not sure about is:

my $browser = LWP::UserAgent->new;



print $browser->request(POST 'http://10.130.134.112:19900/xmlfeed',
Content_Type => 'multipart/form-data',
Content => [ datasource => 'web',
feedtype => 'full',
data => '$filename',
])->as_string;


got this from various websites, etc. this is actually returning this:

HTTP/1.1 200 OK
Connection: Close
Date: Wed, 09 Nov 2005 21:59:59 GMT
Server: feedergate_1.0
Content-Length: 7
Content-Type: text/plain
Client-Date: Wed, 09 Nov 2005 21:59:59 GMT
Client-Peer: 10.130.134.112:19900
Client-Response-Num: 1

Success


which means all is well, right? I don't think so. I believe that the file I am trying to send is not there....

here is the html form I am trying to emulate:

<form enctype="multipart/form-data" method=GET
action="http://10.130.134.112:19900/xmlfeed">
Name of datasource:
<input type="text" name="datasource">
<br>
(No spaces or non alphanumeric characters)
<br><br>
Type of feed:
<input type="radio" name="feedtype" value="full" checked>
Full

<input type="radio" name="feedtype" value="incremental">
Incremental
<br><br>
XML file to push:
<input type="file" name="data">
<br><br>
<input type="submit" value=">Submit<">
</form>


in my code, $filename is the full path to the file on the local filesystem on the solaris box.

any ideas? does this code look right?

kaalraa

Hi,

As per the code given all seems to be right. Apart from that... i have used these 2-3 lines more to get some extra comfort on code.

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST =>$url);
my $res = $ua->request($req);

The only difference i see is to create the complete request object separately and then pass the same to response object. After that i only checks whether $res->is_success returns TRUE or FALSE.

I hope it helps you upto an extent.



- AKs.... The Shadow