[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Feb 19 21:23:34 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv16415/MOBY/Client

Modified Files:
	Central.pm Registration.pm Service.pm 
Log Message:
so much for my ablity to spell.  Catagory is now Category, except in the database schema...
moby-live/Perl/MOBY/Client Central.pm,1.1,1.2 Registration.pm,1.1,1.2 Service.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/02/19 23:09:25	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/02/20 02:23:33	1.2
@@ -1,3 +1,5 @@
+#$Id$
+
 package MOBY::Client::Central;
 use SOAP::Lite;
 #use SOAP::Lite + trace;  # for debugging
@@ -430,19 +432,65 @@
  Usage     :	$REG = $MOBY->registerService(%args)
  Function  :	register a new MOBY Service instance
  Returns   :	MOBY::Registration object
- Args      :    serviceName  => $serviceName,  # REQUIRED
-                serviceType  => $serviceType,  # REQUIRED
-                authURI      => $authURI,      # REQUIRED
-                input => {objectType1 => [namespace1, namespace2, namespace3],  #REQUIRED
+ Common Required Args :
+	 
+     serviceName  => $serviceName,  
+     serviceType  => $serviceType,  
+     authURI      => $authURI,      
+     description => $human_readable_description, 
+     category  =>  "moby" | "cgi" | "soap"
+                
+ Category Specific Args:
+	 
+     input:	 
+	     moby:	input => {objectType1 => [namespace1, namespace2, namespace3],
                           objectType2 => [namespace1, namespace4, namespace5],  
                           }  (hash-ref!)
-                output => [ObjectType1, ObjectType2,...], (list ref!)  # REQUIRED
-                URL    => $URL,                #  REQUIRED
-                description => $human_readable_description,    # REQUIRED 
-
+         cgi :  input => ?sprintf_formatted_GET_Parameter_string
+         soap:  <NO INPUT>
+    
+     output:
+		 moby: output => [ObjectType1, ObjectType2,...], (list ref!)
+		 cgi : <NO OUTPUT>
+		 soap: <NO OUTPUT>
+		 
+	 URL:
+		 moby: URL    =>  $URL_TO_SERVICE
+		 cgi : URL    =>  $URL_TO_CGI (not including ?GET_STRING...)
+		 soap: URL    =>  $URL_TO_WSDL_FILE
+                
 
 =cut
 
+# inputXML (FOR CGI GET SERVICES):
+# <registerService>
+#  <Category>cgi</Category>
+#  <serviceName>YourServiceNameHere</serviceName>
+#  <serviceType>YourServiceTypeHere</serviceType>
+#  <authURI>your.URI.here</authURI>
+#  <URL>http://URL.to.your/CGI.pl</URL>
+#  <inputObjects>
+#	  <Input>
+#		sprintf string of your GET line
+#	  </Input>
+#  </inputObjects>
+#  <Description><![CDATA[
+#	  human readable description of your service]]>
+#  </Description>
+# </registerService>
+#
+# inputXML (FOR non-MOBY SOAP SERVICES):
+# <registerService>
+#  <Category>soap</Category>
+#  <serviceName>YourServiceNameHere</serviceName>
+#  <serviceType>YourServiceTypeHere</serviceType>
+#  <authURI>your.URI.here</authURI>
+#  <URL>http://URL.to.your/definition.wsdl</URL>
+#  <Description><![CDATA[
+#	  human readable description of your service]]>
+#  </Description>
+# </registerService>
+#
 
 sub registerService {
 
@@ -455,10 +503,12 @@
 	my $authURI = $a{authURI}; $authURI ||="";
 	my $URL = $a{URL}; $URL ||="";
 	my $desc = $a{description}; $desc ||="";
+	my $Category = $a{Category}; $Category ||="";
 
 	
 	my $message = "
 		<registerService>
+			<Category>$Category</Category>
 			<serviceName>$name</serviceName>
 			<serviceType>$type</serviceType>
 			<Description><![CDATA[$desc]]></Description>

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Registration.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Registration.pm	2003/02/19 23:09:25	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Registration.pm	2003/02/20 02:23:33	1.2
@@ -1,3 +1,5 @@
+#$Id$
+
 package MOBY::Client::Registration;
 
 use strict;

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2003/02/19 23:09:25	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2003/02/20 02:23:33	1.2
@@ -1,3 +1,5 @@
+#$Id$
+
 =head1 NAME
 
 MOBY::Client::Service - an object for communicating with MOBY Services
@@ -223,4 +225,4 @@
 ##
 
 
-1;
\ No newline at end of file
+1;