[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Jan 10 22:50:31 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/lsid/authority
In directory pub.open-bio.org:/tmp/cvs-serv32492/authority

Modified Files:
	ClassResolver.pm NamespaceResolver.pm RelationshipResolver.pm 
	ServiceResolver.pm authority.pl metadata.pl 
Log Message:
more changes required due to change in location

moby-live/Perl/MOBY/lsid/authority ClassResolver.pm,1.2,1.3 NamespaceResolver.pm,1.2,1.3 RelationshipResolver.pm,1.2,1.3 ServiceResolver.pm,1.2,1.3 authority.pl,1.1,1.2 metadata.pl,1.2,1.3
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ClassResolver.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ClassResolver.pm	2004/01/11 02:30:58	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ClassResolver.pm	2004/01/11 03:50:31	1.3
@@ -28,7 +28,7 @@
 	my $rev= $lsid->revision;
 	
 	my $mdata;
-    my $dbh = dbConnect($class_db_params);
+    my $dbh = MOBY::lsid::authority::dbConnect($class_db_params);
     # e.g. urn:lsid:biomoby.org:objectclass:text-base64
     my $sth = $dbh->prepare("select object_type, description, authority, contact_email from object where object_lsid = ?");
     $sth->execute($lsid);

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/NamespaceResolver.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/NamespaceResolver.pm	2004/01/11 02:30:58	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/NamespaceResolver.pm	2004/01/11 03:50:31	1.3
@@ -29,7 +29,7 @@
 	my $rev= $lsid->revision;
 	
 	my $mdata;
-    my $dbh = dbConnect($namespace_db_params);
+    my $dbh = MOBY::lsid::authority::dbConnect($namespace_db_params);
 
     my $sth = $dbh->prepare("select namespace_type, description, authority, contact_email from namespace where namespace_lsid = ?");
     $sth->execute($lsid);

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RelationshipResolver.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RelationshipResolver.pm	2004/01/11 02:30:58	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RelationshipResolver.pm	2004/01/11 03:50:31	1.3
@@ -28,7 +28,7 @@
 	my $rev= $lsid->revision;
 	
 	my $mdata;
-    my $dbh = dbConnect($class_db_params);
+    my $dbh = MOBY::lsid::authority::dbConnect($class_db_params);
     # e.g. urn:lsid:biomoby.org:objectrelation:isa
     my $sth = $dbh->prepare("select relationship_type, description, authority, contact_email, ontology from relationship where relationship_lsid = ?");
     $sth->execute($lsid);

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ServiceResolver.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ServiceResolver.pm	2004/01/11 02:30:58	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/ServiceResolver.pm	2004/01/11 03:50:31	1.3
@@ -28,7 +28,7 @@
 	my $rev= $lsid->revision;
 	
 	my $mdata;
-    my $dbh = dbConnect($class_db_params);
+    my $dbh = MOBY::lsid::authority::dbConnect($class_db_params);
     # e.g. urn:lsid:biomoby.org:servicetype:retrieval
     my $sth = $dbh->prepare("select service_type, description, authority, contact_email from service where service_lsid = ?");
     $sth->execute($lsid);

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/authority.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/authority.pl	2004/01/10 22:15:21	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/authority.pl	2004/01/11 03:50:31	1.2
@@ -36,7 +36,7 @@
 		method => 'GET',	
 		location => "mobycentral.cbr.nrc.ca",
 		operations => {
-			getMetaData => "/cgi-bin/authority/metadata.pl?lsid=$lsid"
+			getMetaData => "/cgi-bin/BIO/moby-live/Perl/MOBY/lsid/authority/metadata.pl?lsid=$lsid"
 		}
 	);
 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/metadata.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/metadata.pl	2004/01/11 02:30:58	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/metadata.pl	2004/01/11 03:50:31	1.3
@@ -2,7 +2,7 @@
 #$Id$
 
 use CGI qw/:standard/;
-use lib "/usr/local/apache/cgi-bin/lsid/authority";
+use lib "/usr/local/apache2/cgi-bin/BIO/moby-live/Perl";
 use strict;
 use CGI::Carp;