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);