[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Dec 20 19:53:02 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies
In directory dev.open-bio.org:/tmp/cvs-serv22059/Perl/MOBY/RDF/Ontologies

Modified Files:
	ServiceTypes.pm Namespaces.pm Services.pm Objects.pm 
Log Message:
uri's now end with / instead of #. That we can resolve them!
moby-live/Perl/MOBY/RDF/Ontologies ServiceTypes.pm,1.3,1.4 Namespaces.pm,1.4,1.5 Services.pm,1.9,1.10 Objects.pm,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm	2007/11/29 17:52:40	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/ServiceTypes.pm	2007/12/21 00:53:02	1.4
@@ -75,8 +75,8 @@
     
     # save some information retrieved from mobycentral.config
     my $CONF  = MOBY::Config->new;
-	$self->{uri}       = $CONF->{mobyservice}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Services#';
-	$self->{uri} = $self->{uri} . "#" unless $self->{uri} =~ m/^.*(\#{1})$/;
+	$self->{uri}       = $CONF->{mobyservice}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Services/';
+	$self->{uri} = $self->{uri} . "/" unless $self->{uri} =~ m/^.*(\/{1})$/;
 	
 	$self->{query_all} = <<END;
 SELECT ot1.service_type, rt.relationship_type, ot2.service_type, ot1.description, ot1.service_lsid, ot1.authority, ot1.contact_email, ot2.service_lsid 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm	2007/11/29 17:52:40	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Namespaces.pm	2007/12/21 00:53:02	1.5
@@ -74,8 +74,8 @@
 	
 	# save some information retrieved from mobycentral.config
     my $CONF  = MOBY::Config->new;
-	$self->{uri}       = $CONF->{mobynamespace}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Namespaces#';
-	$self->{uri} = $self->{uri} . "#" unless $self->{uri} =~ m/^.*(\#{1})$/;
+	$self->{uri}       = $CONF->{mobynamespace}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Namespaces/';
+	$self->{uri} = $self->{uri} . "/" unless $self->{uri} =~ m/^.*(\/{1})$/;
 
 	$self->{query_all} = <<END;
 SELECT namespace_type, description, namespace_lsid, authority, contact_email FROM namespace ORDER BY namespace_type asc

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Services.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Services.pm	2007/12/17 18:50:27	1.9
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Services.pm	2007/12/21 00:53:02	1.10
@@ -146,26 +146,26 @@
 
 		#revert to a default value if nothing is retrieved
 		$self->{instance_uri} =
-		  'http://biomoby.org/RESOURCES/MOBY-S/ServiceInstances#'
+		  'http://biomoby.org/RESOURCES/MOBY-S/ServiceInstances/'
 		  unless $moby->{ServiceInstance}->[0];
-		$self->{service_uri} = 'http://biomoby.org/RESOURCES/MOBY-S/Services#'
+		$self->{service_uri} = 'http://biomoby.org/RESOURCES/MOBY-S/Services/'
 		  unless $moby->{Services}->[0];
 		$self->{namespace_uri} =
-		  'http://biomoby.org/RESOURCES/MOBY-S/Namespaces#'
+		  'http://biomoby.org/RESOURCES/MOBY-S/Namespaces/'
 		  unless $moby->{Namespaces}->[0];
-		$self->{datatype_uri} = 'http://biomoby.org/RESOURCES/MOBY-S/Objects#'
+		$self->{datatype_uri} = 'http://biomoby.org/RESOURCES/MOBY-S/Objects/'
 		  unless $moby->{Objects}->[0];
 	}
 
 	# add a / at the end of the uri if it isnt there already
-	$self->{instance_uri} = $self->{instance_uri} . "#"
-	  unless $self->{instance_uri} =~ m/^.*(\#{1})$/;
-	$self->{service_uri} = $self->{service_uri} . "#"
-	  unless $self->{service_uri} =~ m/^.*(\#{1})$/;
-	$self->{namespace_uri} = $self->{namespace_uri} . "#"
-	  unless $self->{namespace_uri} =~ m/^.*(\#{1})$/;
-	$self->{datatype_uri} = $self->{datatype_uri} . "#"
-	  unless $self->{datatype_uri} =~ m/^.*(\#{1})$/;    
+	$self->{instance_uri} = $self->{instance_uri} . "/"
+	  unless $self->{instance_uri} =~ m/^.*(\/{1})$/;
+	$self->{service_uri} = $self->{service_uri} . "/"
+	  unless $self->{service_uri} =~ m/^.*(\/{1})$/;
+	$self->{namespace_uri} = $self->{namespace_uri} . "/"
+	  unless $self->{namespace_uri} =~ m/^.*(\/{1})$/;
+	$self->{datatype_uri} = $self->{datatype_uri} . "/"
+	  unless $self->{datatype_uri} =~ m/^.*(\/{1})$/;    
 
 	$self->{is_alive_path} = $CONF->{mobycentral}->{service_tester_path};
 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Objects.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Objects.pm	2007/11/29 17:52:40	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Objects.pm	2007/12/21 00:53:02	1.6
@@ -76,8 +76,8 @@
 	
 	# save some information retrieved from mobycentral.config
     my $CONF  = MOBY::Config->new;
-	$self->{uri}       = $CONF->{mobyobject}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Objects#';
-	$self->{uri} = $self->{uri} . "#" unless $self->{uri} =~ m/^.*(\#{1})$/;
+	$self->{uri}       = $CONF->{mobyobject}->{resourceURL} || 'http://biomoby.org/RESOURCES/MOBY-S/Objects/';
+	$self->{uri} = $self->{uri} . "/" unless $self->{uri} =~ m/^.*(\/{1})$/;
 	
 	$self->{uri_comp} = $self->{uri};
 	$self->{uri_comp} =~ s/\/MOBY\-S\//\/MOBY_SUB_COMPONENT\//;