#!/usr/bin/perl -w
use CGI qw/:standard/;
use MOBY::OntologyServer;
use strict;
my $q = CGI->new();
my @params = $q->param;
my $subroutine = $params[0]; # one call per customer
no strict "refs";
&$subroutine($q->param($subroutine), $q); #call that subroutie with the passed value
use strict;
sub testme {
return "yes" if $_[0] eq "correct";
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");
my ($success, $description, $id) = $OS->objectExists(term => $_[0]);
print header(-type => 'text/plain'), "$success\n$description\n$id";
}
sub namespaceExists {
my $OS = MOBY::OntologyServer->new(ontology => "namespace");
my ($success, $description, $id) = $OS->namespaceExists(term => $_[0]);
print header(-type => 'text/plain'), "$success\n$description\n$id";
}
sub relationshipExists {
my ($term, $CGI) = @_;
my $OS = MOBY::OntologyServer->new(ontology => "relationship");
my $ontology = $CGI->param('ontology');
my ($success, $description, $id) = $OS->relationshipExists(ontology => $ontology, term => $term);
print header(-type => 'text/plain'), "$success\n$description\n$id";
}
sub serviceExists {
my $OS = MOBY::OntologyServer->new(ontology => "service");
my ($success, $description, $id) = $OS->serviceExists(term => $_[0]);
print header(-type => 'text/plain'), "$success\n$description\n$id";
}