PerlClientTester.pl

#!perl

#---------------------------------------------------
# PerlClientTester.pl
# 
# Project: PDBe API Framework 
# Module:  Perl Client for PDBe API Webservice (SOAP) Server 
# to get files through SOAP 64 bit binary format
# 
# SOAP User Layer
# Last updated: 25 February 2004 10:17
# (C) Siamak Sobhany
#---------------------------------------------------
 
use SOAP::Lite;
use IO::File;

my $service = SOAP::Lite
  ->uri('urn:msd_soap_service')
  ->proxy('http://www.ebi.ac.uk/msd-srv/msdsoap'); # Or:
# -> service('http://www.ebi.ac.uk/msd/api/msd_soap_service.wsdl');
 my $query = '<SSMInput><query><type>PDB entry</type> '.
  ' <pdbcode>1pmb</pdbcode> </query><target><type>PDB archive</type>'. 
  '</target> <selection>  <type>Chain(s)</type>   <chains>*(all)</chains>'.   
  '</selection> <percent1>70</percent1>   <percent2>70</percent2>'.
  '<sepchains>Yes</sepchains> <connectivity>Yes</connectivity>  '.
  '<bestmatch>Yes</bestmatch> <uniquematch>Yes</uniquematch> '.
  '<precision>Normal</precision> <sorting>RMSD</sorting>'.
  '</SSMInput> ';  
my $sessionid = 'mysessionnumber';  
my $array = [$query , $sessionid];
print "\nCalling method: msdSSM()\n";
my $result1 = $service->msdSSM(SOAP::Data->name('numofpars' => 2),
                               SOAP::Data->name('inparams' => $array));
unless ($result1->fault) {
    print "\nmsdSSM() called successfully.\n";
        print $result1->result();
}else{
        print join  ', ', 
        $result1->faultcode, 
    $result1->faultstring;
}
for ($i=1; $i > 0 ; $i++) 
 { my $result2 = $service->msdGetSoapBase64Data(SOAP::Data->name('diyf')->type('xsd:int')->value(1), # 0
                          SOAP::Data->name('sessionid')->type('xsd:string')->value($sessionid));
                  unless ($result2->fault || ($result2->faultstring != 'Result fille not ready')) {
          $i=-1;
                  print $result2->result();
                  $fh = new IO::File "> my_result.xml";
          if (defined $fh) {
            print $fh $result2->result();
            $fh->close;
                    print "\nResult file created successfully:\n";
          }
                  }else{
                        print join  ', ', 
                        "\nXML File not ready...retry: $i ",
                        $result2->faultcode, 
            $result2->faultstring;
                  }
          sleep(5);
  }
        
 
  
  

---