On Wed, Mar 12, 2008 at 5:17 PM, prats <[EMAIL PROTECTED]> wrote:
> Hi,
>
> I had another question.
> Currently in my perl script I am invoking a servlet URL and passing few
> parameters to the servlet. As shown below:
>
> my $req = new HTTP::Request POST =>
> "$hostName/CPIWS/servlet/cat.cis.psd.sis.authoring.periodicals.client.scheduler.SendPDFDetailsTask";
> $req->content_type('application/x-www-form-urlencoded');
>
> $req->content("appAccName=$appAccName&appAccPwd=$appAccPwd&userName=$username&ieCntrlNo=$ieControlNo&pdfPath=$pdfPath");
>
> Now, I also need to pass a PDF document to my servlet.
HTTP::Request::Common is your bitch:
As from its pod:
POST 'http://www.perl.org/survey.cgi',
Content_Type => 'form-data',
Content => [ name => 'Gisle Aas',
email => '[EMAIL PROTECTED]',
gender => 'M',
born => '1964',
init => ["$ENV{HOME}/.profile"],
]
In reality, you just have to specify the first element on an array of
one of the elements being passed to Content.
--
David Moreno - http://www.damog.net/
Yes, you can.
