Re: [handle-dev] Batch Uploading

[Sengor Taner <sengor@eml.hut.fi>]

Please remove me from this list.

On Tue, 20 Feb 2001, Tim Keefer wrote:

> Hi all,
> I am constructing a script to upload our XML metadata files to CrossRef.
> At the meeting in New York Mark suggested that Perl's LWP module would
> post the metadata file to CrossRef. I'm not exactly sure how this is
> done. Below is some Perl code that I have put together that posts data
> to the web server. Does anyone know how to post multi-part form data
> using perl? I have looked through all the Perl books and they don't
> touch on this topic. Any help is appreciated, thanks.
> 
>   # Create a user agent object
>   use LWP::UserAgent;
>   $ua = new LWP::UserAgent;
>   $ua->agent("AgentName/0.1 " . $ua->agent);
> 
>   # Create a request
>   my $req = new HTTP::Request POST =>
> 'http://deposit.crossref.org/xmlbatch/LoadXML';
>   $req->content_type('multipart/form-data');
> 
> $req->content('login_passwd=<login>&name_auth=<auth>&login_id=<login_id>');
> 
>   # Pass request to the user agent and get a response back
>   my $res = $ua->request($req);
> 
>   # Check the outcome of the response
>   if ($res->is_success) {
>       print $res->content;
>   } else {
>       print "Unable to retrieve response\n";
>   }
> 
> --
> _____________________________________________________________________
> Tim Keefer                                  Allen Press, Inc.
> Electronic Publishing              1041 New Hampshire
> http://www.allenpress.com        Lawrence, KS 66044
> _____________________________________________________________________
> 
> 
> 
> _______________________________________________
> handle-dev mailing list
> handle-dev@cnri.reston.va.us
> http://www.cnri.reston.va.us/mailman/listinfo/handle-dev
> 


_______________________________________________
handle-dev mailing list
handle-dev@cnri.reston.va.us
http://www.cnri.reston.va.us/mailman/listinfo/handle-dev