PerlClientFile.pl

#!perl
#---------------------------------------------------
# PerlClientFile.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/msdsoapd'); # Or:
# -> service('http://www.ebi.ac.uk/msd/api/msd_soap_service.wsdl');
 my $query = '<SSMInput> <query> <type>PDB entry</type> <pdbcode>9xia</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 = 'mynew2004';  
my $array = [$query , $sessionid];
print "\nCalling method: msdSSM()\n";
my $ssmok;
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();
        $ssmok = 0;
}else{
    $ssmok = 1;
        print join  ', ', 
        $result1->faultcode, 
    $result1->faultstring;
        print "\n";
}

if ( $ssmok == 0) {

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);
  }
  my $result3 = $service->msdSSMPurge(SOAP::Data->name('sessionid')->type('xsd:string')->value($sessionid));
  unless ($result3->fault) {
    print "\nmsdSSMPurge() called successfully.\n";
        print $result3->result();
}else{
        print join  ', ', 
        $result3->faultcode, 
    $result3->faultstring;
}       
} 
  
  

---