rajmonks has asked for the wisdom of the Perl Monks concerning the following question:
use MIME::Base64; use Frontier::Client; use warnings; =head a.txt file contains <PDFExsists> <UniqueID>202775</UniqueID> <Queryexsists>false</Queryexsists> <XMLExsists>false</XMLExsists> <MMCExsists>false</MMCExsists> <Illustexsists>false</Illustexsists> <Pdfexsists>false</Pdfexsists> <MMC>0</MMC> <BID>202775</BID> <Filename>6041_No3.xml</Filename> <Versionno>6041</Versionno> <Duedate>2008-07-16T00:00:00</Duedate> <Recdate>2008-07-16T14:47:37</Recdate> <Stage>S200</Stage> <Aid>6041</Aid> <Jid>JBMT</Jid> </PDFExsists> =cut $text='D:\raj\service\a.txt'; open (IN,"<$text") || die "Unable to open the input file"; binmode IN; undef $/; $filecontent = <IN>; $encoded = encode_base64($filecontent); close IN; my $url = "http://10.0.6.78/pdf%20service/service.asmx"; my @args = ($ARGV[0], $encoded); my $client = new Frontier::Client( url => $url, debug => 0); print $client->call('SetItemsPDF',@args);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Webservice update
by moritz (Cardinal) on Jul 17, 2008 at 15:23 UTC | |
|
Re: Webservice update
by olus (Curate) on Jul 17, 2008 at 16:12 UTC |