[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jun 14 20:37:55 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv11975/MOBY/Client

Modified Files:
	CollectionArticle.pm SimpleArticle.pm 
Log Message:
using config file here too

moby-live/Perl/MOBY/Client CollectionArticle.pm,1.7,1.8 SimpleArticle.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm	2004/04/14 19:56:59	1.7
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm	2004/06/15 00:37:55	1.8
@@ -9,12 +9,39 @@
 
 =head1 NAME
 
-MOBY::Client::CollectionArticle - a small object describing the Collection articles from the findService Response message of MOBY Central
+MOBY::Client::CollectionArticle - a small object describing the Collection articles from the findService Response message of MOBY Central or representing the collection part of a MOBY invocation or response block
 
 =head1 SYNOPSIS
 
-experimental - please do not use in your code
+This module can be used in two ways.  One is to represent the Collection
+portion of a findService response.  The other is to represent the Collecion
+portion of a MOBY service invocation or response message.
+
+Parsing a MOBY Service Invocation
+
+ use MOBY::CommonSubs qw(:all);
+ 
+ sub myService {
+    my ($caller, $data) = @_;
+	
+    my (@inputs)= serviceInputParser($data);
+
+    foreach (@inputs){
+        my ($articleType, $qID, $OBJECT) = @{$_};
+        if ($articleType == COLLECTION){
+            $MOBY_RESPONSE .= simpleResponse("", "", $qID) ;  # send back a blank response for this queryID
+            next;
+        } elsif ($articleType == SIMPLE) {
+        
+        } elsif ($articleType == SECONDARY){
+        
+        }
+    }
+ }
 
+ 
+ 
+ 
 =cut
 
 =head1 DESCRIPTION

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm	2004/04/14 19:56:59	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm	2004/06/15 00:37:55	1.5
@@ -328,6 +328,11 @@
     return $self;
 }
 
+sub value {
+    my ($self) = @_;
+    # ?????  what to do here ????
+    
+}
 sub AUTOLOAD {
     no strict "refs";
     my ($self, $newval) = @_;