[Bio] / FigWebServices / webservices_ACH.cgi Repository:
ViewVC logotype

View of /FigWebServices/webservices_ACH.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (annotate)
Wed Feb 18 20:35:00 2009 UTC (10 years, 8 months ago) by disz
Branch: MAIN
CVS Tags: mgrast_dev_08112011, rast_rel_2009_05_18, mgrast_dev_08022011, rast_rel_2014_0912, myrast_rel40, mgrast_dev_05262011, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2009_0925, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, rast_rel_2009_07_09, rast_rel_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, rast_rel_2009_03_26, mgrast_dev_10262011, HEAD
New web services for ACH

#__perl__

use strict;
use Carp;
use CGI::Carp qw(fatalsToBrowser); # this makes debugging a lot easier by throwing errors out to the browser
use SOAP::Lite;
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI   
-> dispatch_to('ACHWebServices')     
-> handle;


package ACHWebServices;

use FIG;
use AnnoClearinghouse;
use Data::Dumper;

=begin WSDL
_IN Gene_ID  $string 
_IN ID_type  $string 
_RETURN @string
_DOC Given a protein ID from any source we know about, returns a list of ID's of the requested type. If no type is given, returns all corresponding iD's
=cut
sub get_corresponding_ids {
	my ($class, $id, $type) = @_;

	my $fig = new FIG;
	#change the below to use a CONFIG variable
	print STDERR "ACH $id, $type\n";
	my $ach = new AnnoClearinghouse("/vol/clearinghouse/current/",
				       "/vol/clearinghouse/contrib/",
				       0,
				       my $dbf = $fig->db_handle);

	my @ids = $ach->get_corresponding_ids( $id , $type);
	print STDERR $id, "  ", $type, " ", scalar @ids, "\n"; 
	my @return;
	foreach my $p ( @ids ){
	       push @return, join( "\t" , @$p);
	}

	return @return;
}

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3