[MOBY-guts] biomoby commit
Mark Wilkinson
mwilkinson at pub.open-bio.org
Tue Jun 3 15:45:00 UTC 2003
mwilkinson
Tue Jun 3 11:45:00 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv18122
Modified Files:
Central.pm
Log Message:
Bringing the code documentation up to date. It now indicates which functions are implemented and which are not from the new 0.5 API. It passes tests so far, but there are likely to be some bugs.
moby-live/Perl/MOBY/Client Central.pm,1.27,1.28
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm 2003/06/02 21:18:18 1.27
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm 2003/06/03 15:44:59 1.28
@@ -232,24 +232,7 @@
=cut
-#
-# <registerObjectClass>
-# <objectType>NewObjectType</objectType>
-# <Description><![CDATA[
-# human readable description
-# of data type]]>
-# </Description>
-# <Relationship relationshipType="ISA">
-# <objectType>ExistingObjectType</objectType>
-# ...
-# </Relationship>
-# <Relationship relationshipType='HASA'>
-# <objectType articleName="MyArticleName">ExistingObjectType</objectType>
-# <objectType articleName="MyOtherName">ExistingObjectType</objectType>
-# </Relationship>
-# <authURI>Your.URI.here</authURI>
-# <contactEmail>You at your.address.com</contactEmail>
-# </registerObjectClass>
+
sub registerObjectClass {
my ($self, %a) = @_;
return $self->registerObject(%a);
@@ -301,10 +284,6 @@
=cut
-#
-# <deregisterObjectClass>
-# <objectType>ObjectOntologyTerm</objectType>
-# </deregisterObjectClass>
sub deregisterObjectClass {
my ($self, %a) = @_;
@@ -324,21 +303,7 @@
return ($self->parseRegXML($return));
}
-#
-# <registerServiceType>
-# <serviceType>NewServiceType</serviceType>
-# <contactEmail>your_name at contact.address.com</contactEmail>
-# <authURI>Your.URI.here</authURI>
-# <Description>
-# <![CDATA[ human description of service type here]]>
-# </Description>
-# <Relationship relationshipType="someType">
-# <serviceType>Retrieval</serviceType>
-# </Relationship>
-# <Relationship relationshipType="otherType">
-# <serviceType>Retrieval</serviceType>
-# </Relationship>
-# </registerServiceType>
+
=head2 registerServiceType
@@ -397,9 +362,6 @@
=cut
- #<deregisterServiceType>
- # <serviceType>ServiceOntologyTerm</serviceType>
- #</deregisterServiceType>
sub deregisterServiceType {
@@ -430,15 +392,6 @@
=cut
- #<registerNamespace>
- # <namespaceType>NewNamespaceHere</namespaceType>
- # <contactEmail>your_name at contact.address.com</contactEmail>
- # <authURI>Your.URI.here</authURI>
- # <Description>
- # <![CDATA[human readable description]]>
- # </Description>
- #</registerNamespace>
-
sub registerNamespace {
my ($self, %a) = @_;
@@ -462,8 +415,6 @@
}
-
-
=head2 deregisterNamespace
Title : deregisterNamespace
@@ -697,8 +648,6 @@
}
-
-
=head2 deregisterService
Title : deregisterService
@@ -843,203 +792,10 @@
}
-
-
-
-=head2 locateServiceByKeywords
-
- Title : locateServiceByKeywords
- Usage : @Services = $MOBY->locateServiceByKeywords(%args)
- Function : get the names/descriptions for services that use certain INPUT's
- Returns : list of ServiceInstance objects
- Args : keywords => \@keyword_list
-
-=cut
-
-
-
-sub locateServiceByKeywords {
-
- my ($self, %a) = @_;
- my $kw = $a{keywords};
- return () unless scalar @{$kw};
-
- my $message = "
- <locateServiceByKeywords>\n";
-
- foreach (@{$kw}){
- $message .= "<keyword>$_</keyword>\n";
- }
- $message .="</locateServiceByKeywords>\n";
-
- ######## NEED TO PASS REG NAME TO _parseServices
- my $return; my @Services;
- foreach my $server(@{$self->SOAP_connections}){
- my ($name, $conn) = @{$server};
- $return .= $conn->call(locateServiceByKeywords => ($message))->paramsall;
- push @Services, $self->_parseServices($name, $return);
- }
- return @Services;
-
-}
-
-
-
-=head2 locateServiceByOutput
-
- Title : locateServiceByOutput
- Usage : @Services = $MOBY->locateServiceByOutput(%args)
- Function : get the names/descriptions for services that use certain INPUT's
- Returns : list of ServiceInstance objects
- Args : (in order)
- objectType => $outputObject : output Object type
- serviceType => $serviceType : optional - restrict to Service Type (from ontology)
- authURI => $AuthURI : optional - restrict to only these service providers
- fullObjects => $full_objects: boolean, default 1, expand output object ontology
- to retrieve this type, and all child types
- fullServices =>$full_service: boolean, default 1, expand service ontology
- to retrieve this type and all child types
-
-
-=cut
-
-
-
-sub locateServiceByOutput {
-
- my ($self, %a) = @_;
- my $out = $a{objectType};$out ||="";
- my $type = $a{serviceType};$type ||="";
- my $auth = $a{authURI};$auth ||="";
- my $fo = $a{fullObjects};$fo ||="";
- my $fs = $a{fullServices};$fs ||="";
- return () unless $out;
- my $message = "
- <locateServiceByOutput>
- <objectType>$out</objectType>
- <serviceType>$type</serviceType>
- <authURI>$auth</authURI>
- <fullObjects>$fo</fullObjects>
- <fullServices>$fs</fullServices>
- </locateServiceByOutput>";
-
- ######## NEED TO PASS REG NAME TO _parseServices
- my $return; my @Services;
- foreach my $server(@{$self->SOAP_connections}){
- my ($name, $conn) = @{$server};
- $return .= $conn->call(locateServiceByOutput => ($message))->paramsall;
- push @Services, $self->_parseServices($name, $return);
- }
- return @Services;
-
-}
-
-=head2 locateServiceByInput
-
- Title : locateServiceByInput
- Usage : @Services = $MOBY->locateServiceByInput(%args)
- Function : get the names/descriptions for services that use certain INPUTs
- Returns : list of ServiceInstance objects
- Args : input => {objectType1 => [namespace1, namespace2, namespace3],
- objectType2 => [namespace1, namespace4, namespace5],
- } (hash-ref!)
- serviceType => $serviceType : optional - restrict to Service Type by name
- ( from ontology)
- authURI => $AuthURI : optional - restrict to only these
- service providers by URI
- fullObjects=> $full_objects: boolean, default 1, traverse Object ontology
- fullServices=>$full_service: boolean, default 1, traverse Service ontology
-
-
-=cut
-
-
-
-sub locateServiceByInput {
-
- my ($self, %a) = @_;
- my $IN = $a{input};
- my $type = $a{serviceType}; $type ||="";
- my $auth = $a{authURI}; $auth ||="";
- my $fo = $a{fullObjects}; $fo ||="";
- my $fs = $a{fullServices}; $fs ||="";
- return () unless $IN;
-
- $debug && &_LOG("locateServiceByInput INPUT $IN\nallparams %a\n\n");
- my $message = "
- <locateServiceByInput>
- <inputObjects>\n";
- while (my ($otype, $ns) = each %{$IN}){
- $message .= "
- <Input>
- <objectType>$otype</objectType>\n";
- foreach (@{$ns}){
- $message .= "
- <namespaceType>$_</namespaceType>\n"
- }
- $message .= "
- </Input>\n";
- }
-
- $message .="</inputObjects>
- <serviceType>$type</serviceType>
- <authURI>$auth</authURI>
- <fullObjects>$fo</fullObjects>
- <fullServices>$fs</fullServices>
- </locateServiceByInput>";
-
- my $return;my @Services;
- foreach my $server(@{$self->SOAP_connections}){
- my ($name, $conn) = @{$server};
- $return .= $conn->call(locateServiceByInput => ($message))->paramsall;
- push @Services, $self->_parseServices($name, $return);
- }
- return @Services;
-}
-
-
-=head2 locateServiceByType
-
- Title : locateServiceByType
- Usage : @Services = $MOBY->locateServiceByType (@args)
- Function : get the names/descriptions for services of a particular type
- Returns : list of ServiceInstance objects
- Args : (in order)
- serviceType => $serviceType : the name of the Service Type (from ontology)
- fullServices=>$expand_services : optional - boolean, default 1, expand ontology
- to include child service-types
-
-
-=cut
-
-
-sub locateServiceByType {
- my ($self, %a) = @_;
-
- my $type = $a{'serviceType'};
- return () unless $type;
- my $fs = $a{'fullServices'};
- $fs ||="";
-
- my $message = "
- <locateServiceByType>
- <serviceType>$type</serviceType>
- <fullServices>$fs</fullServices>
- </locateServiceByType>";
-
- my $return;my @Services;
- foreach my $server(@{$self->SOAP_connections}){
- my ($name, $conn) = @{$server};
- $return .= $conn->call(locateServiceByType => ($message))->paramsall;
- push @Services, $self->_parseServices($name, $return);
- }
- return @Services;
-}
-
-
=head2 retrieveService
-
- Title : retrieveService
+
+ NOT YET IMPLEMENTED
+ Title : retrieveService
Usage : $WSDL = $MOBY->retrieveService(%args)
Function : get the WSDL definition of the service with this name/authority URI
Returns : a WSDL string
@@ -1063,7 +819,6 @@
my $message = "
<retrieveService>
- <Registry>$reg</Registry>
<authURI>$auth</authURI>
<serviceName>$name</serviceName>
</retrieveService>";
@@ -1272,6 +1027,7 @@
=head2 retrieveObject
+ NOT YET IMPLEMENTED
Title : retrieveObject
Usage : $objects = $MOBY->retrieveObjectNames($reg, $name | "all")
Function : get the object xsd
More information about the MOBY-guts
mailing list