Re: [handle-dev] RE: Batch uploading

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

Please remove me from this list.


On Tue, 20 Feb 2001, Tim Keefer wrote:

> Hi Steve,
> Thanks for the advice. The CrossRef web site has a sample of an encoded
> batch file.  I used the sample to construct my batch file, but what I
> can't figure out is how to send this data using perl. No matter how I
> try it, I always seem to get this error message: "Your XML batch
> submission failed.  Upload error: java.lang.Exception: Zero-length or
> missing file". I can't find any Perl documentation on multi-part form
> data.  Can I ask you and the other veteran users on this list what
> programming language they use to post this data? Does anyone know of any
> Perl documentation that explains "LWP" and sending files using
> multi-part form data. Thanks
> Tim Keefer
> 
> 
> There is a good article at:
> 
> http://perl.about.com/compute/perl/library/weekly/aa020600e.htm
> 
> on how to manipulate MIME content with Perl. It talks about email
> messages,
> but basically it should be the same thing for HTTP POSTing. The Perl
> MIME
> libraries will help you Base 64 encode the message, then you post it
> using
> the LWP modules, receive it on the other end, and then decode it...
> 
> HTH,
> 
> - steve
> 
> Stephen Petschulat
> E-Business Architect
> IBM Pacific Development Centre
> 4611 Canada Way
> Phone: 1-604-297-3231
> 
> 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('$encodedfile');
> 
>   # 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
> _____________________________________________________________________
> 
> --
> _____________________________________________________________________
> Tim Keefer                                  Allen Press, Inc.
> Electronic Publishing              1041 New Hampshire
> http://www.allenpress.com        Lawrence, KS 66044
> 
> -- I believe there is a subtile magnetism in nature,
>    if we unconsciously yield to it, will direct us aright.  -- Thoreau
> _____________________________________________________________________
> 
> 
> 
> _______________________________________________
> 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