PerlClientPDBFille.pl

#!perl 
#---------------------------------------------------
# WSPerlClient.pl
# 
# Project: PDBe API Framework 
# Module:  Perl Client for PDBe API Webservice (SOAP) Server 
# This client call msdSSM method for specified PDB file in specific location.
# 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>'.
        '<program>'.
    'SSM v1.38 // 30/06/2003 // by Eugene B. Krissinel, European'.
    'Bioinformatics Institute, Hinxton, Cambridge CB1 9SD, UK'.
'</program>'.
'<query>'.
'<type>Coordinate file</type>'.
'<file>/tmp_mnt/net_nfs5/vol4/research-thornton/ssmout/profunc18020.pdb</file>'.
        '<selection>'.
'<type>Chain(s)</type>'.
'<chains>A</chains>'.
'</selection>'.
'</query>'.
        '<target>'.
'<type>PDB archive</type>'.
'</target>'.
'<percent1>70</percent1>'.
'<percent2>70</percent2>'.
'<sepchains>Yes</sepchains>'.
'<connectivity>Yes</connectivity>'.
'<bestmatch>Yes</bestmatch>'.
'<uniquematch>Yes</uniquematch>'.
'<precision>Normal</precision>'.
'<sorting>Q-score</sorting>'.
'</SSMInput>';

my $sessionid = 'profunc18020';
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 notready')) {
          $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;
}

---