automate file upload using perl

[[nix]]

Hi,

I'm trying to automate a process to upload a file to hotmail, but
having a strange error and I don't know what I'm doing wrong with the
script.

below is the code:

use HTTP::Request:: Common;
use LWP;

-- snipped --

$ua = new LWP::UserAgent;
$ua->agent('Mozil la/5.0 (compatible; MSIE 5.5; Windows 98; Win 9x;
Windows 2000)');

$response = $ua->request(POST
'http://by7fd.bay7.hotm ail.msn.com/cgi-bin/doattach',
Content_Type => 'form-data',
Content => [ curmbox => 'F000000001',
HrsTest => '',
attachmentfilen ame => '',
attachorcancel => '',
userfilename => '',
contentType => '',
smsg => 'jaja.saved',
attfiles => '',
stationery => '',
originalstation ery => '',
ref => '',
RTEbgcolor => '',
from => 'compose',
oldattfile => '',
_HMAction => '',
attfile => ['./text.txt'],
]
);

print ($response->is_success) ? $response->content :
$response->status_line;
The error message returned:
<!-- counter(177) >= nLines(177)! -->
<!-- H: bay7-f64.bay7.hotmai l.com -->
<!-- V: WIN2K 09.07.50.0039 i -->
<!-- D: Sep 3 2003 18:03:53-->
<!-- S: 0-->
I'd appreciate very much if somebody could enlight me with some
inputs.

Thanks.

[[nix]]

oh, never mind.. it works like charm after I put Content_Length.

ma****@hotmail. com ([nix]) wrote in message news:<f9******* *************** ****@posting.go ogle.com>...

Hi,

I'm trying to automate a process to upload a file to hotmail, but
having a strange error and I don't know what I'm doing wrong with the
script.

below is the code:

use HTTP::Request:: Common;
use LWP;

-- snipped --

$ua = new LWP::UserAgent;
$ua->agent('Mozil la/5.0 (compatible; MSIE 5.5; Windows 98; Win 9x;
Windows 2000)');

$response = $ua->request(POST
'http://by7fd.bay7.hotm ail.msn.com/cgi-bin/doattach',
Content_Type => 'form-data',
Content => [ curmbox => 'F000000001',
HrsTest => '',
attachmentfilen ame => '',
attachorcancel => '',
userfilename => '',
contentType => '',
smsg => 'jaja.saved',
attfiles => '',
stationery => '',
originalstation ery => '',
ref => '',
RTEbgcolor => '',
from => 'compose',
oldattfile => '',
_HMAction => '',
attfile => ['./text.txt'],
]
);

print ($response->is_success) ? $response->content :
$response->status_line;
The error message returned:
<!-- counter(177) >= nLines(177)! -->
<!-- H: bay7-f64.bay7.hotmai l.com -->
<!-- V: WIN2K 09.07.50.0039 i -->
<!-- D: Sep 3 2003 18:03:53-->
<!-- S: 0-->
I'd appreciate very much if somebody could enlight me with some
inputs.

Thanks.