[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Oct  9 12:49:23 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv2722/scripts

Modified Files:
	OntologyServer.cgi 
Log Message:
removed the deprecated Makefile from the CVS.  Anyone who wants to take over maintenance of this module is welcome to do so.  I can send you the original Makefile if you email me.

moby-live/Perl/scripts OntologyServer.cgi,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi	2003/08/16 21:36:38	1.3
+++ /home/repository/moby/moby-live/Perl/scripts/OntologyServer.cgi	2003/10/09 16:49:22	1.4
@@ -10,7 +10,6 @@
 my $param = $params[0];  # one call per customer
 
 no strict "refs";
-
 &$param($q->param($param));  #call that subroutie with the passed value
 use strict;
 
@@ -19,11 +18,35 @@
     return "no";
 }
 
+sub createObject{}
+sub retrieveObject{}
+sub deprecateObject{}
+sub deleteObject{}
+sub addObjectRelationship{}
+sub addServiceRelationship{}
+sub createServiceType{}
+sub deleteServiceType{}
+sub createNamespace{}
+sub deleteNamespace{}
+sub retrieveAllServiceTypes{}
+sub retrieveAllNamespaceTypes{}
+sub retrieveAllObjectClasses{}
+sub getObjectCommonName{}
+sub getNamespaceCommonName{}
+sub getServiceCommonName{}
+sub getServiceURI{}
+sub getObjectURI{}
+sub getNamespaceURI{}
+sub getRelationshipURI{}
+# this is inconsistent with the other calls
+sub getRelationshipTypes{}
+sub Relationships{}
+#?? sub setURI{}
+
 
 sub objectExists {
 
     my $OS = MOBY::OntologyServer->new(ontology => "object");
-    open OUT, ">/tmp/cgi.txt"; print OUT $_[0]; close OUT;
     my ($success, $description, $id) = $OS->objectExists(term => $_[0]);
     print header(-type => 'text/plain'), "$success\n$description\n$id";