[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.416, Tue Jan 10 16:45:24 2006 UTC revision 1.417, Wed Jan 11 22:58:57 2006 UTC
# Line 27  Line 27 
27  use File::Basename;  use File::Basename;
28  use FileHandle;  use FileHandle;
29  use File::Copy;  use File::Copy;
30    use SOAP::Lite;
31    
32  use DBrtns;  use DBrtns;
33  use Sim;  use Sim;
# Line 13356  Line 13357 
13357      return undef;      return undef;
13358  }  }
13359    
13360    sub fid_from_clearinghouse
13361    {
13362        my($self, $genome, $type, $location, $translation, $checksums) = @_;
13363    
13364        my $ch_url = "http://clearinghouse.theseed.org/Clearinghouse/clearinghouse_services.cgi";
13365    
13366    
13367        print "Getting proxy for $ch_url\n";
13368        my $proxy = SOAP::Lite->uri("http://www.soaplite.com/Scripts")->proxy($ch_url);
13369    
13370        my $resp;
13371        print "Call add_feature\n";
13372        eval {
13373        $resp = $proxy->add_feature($genome, $type, $location, $translation, $checksums);
13374    };
13375        if ($@)
13376        {
13377            return "ERROR $@\n";
13378        }
13379        print "Result is $resp\n";
13380        if ($resp->fault)
13381        {
13382            die "Failure on add_feature: " .$resp->faultcode . ": " . $resp->faultstring . "\n";
13383        }
13384    
13385        return $resp->result;
13386    }
13387    
13388    
13389  sub next_fid {  sub next_fid {
13390      my($self,$genome,$type) = @_;      my($self,$genome,$type) = @_;
13391    
Legend:
Removed from v.1.416  
changed lines
  Added in v.1.417
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3