[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jan 15 16:26:02 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/lsid/authority
In directory pub.open-bio.org:/tmp/cvs-serv27834/authority

Modified Files:
	Error.pm RDFConfigure.pm 
Log Message:
bah

moby-live/Perl/MOBY/lsid/authority Error.pm,1.3,1.4 RDFConfigure.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/Error.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/Error.pm	2004/01/15 20:59:38	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/Error.pm	2004/01/15 21:26:02	1.4
@@ -66,20 +66,20 @@
 
 
 our @EXPORT_OK = qw(
-    _die
+    lsid_die
     );
 our @EXPORT = qw(
-    _die
+    lsid_die
     );
 our %EXPORT_TAGS =(all => [qw(
-    _die
+    lsid_die
     )]);
 
 sub clientFault {}
 
 sub serverFault {}
 
-sub _die {
+sub lsid_die {
     my $m = shift;
     my $n = $errornames{$m};
     print header(

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RDFConfigure.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RDFConfigure.pm	2004/01/15 20:59:38	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/lsid/authority/RDFConfigure.pm	2004/01/15 21:26:02	1.4
@@ -4,6 +4,7 @@
 use strict;
 use base 'Exporter';
 require Exporter;
+use MOBY::lsid::authority::Error;
 
 our $SERVICE_CGI= 'http://localhost:80/cgi-bin/authority/metadata.pl';
 our $RDF_PREFIX="<?xml version='1.0'?>
@@ -15,6 +16,9 @@
 xmlns:i3csp='urn:lsid:i3c.org:services:'>\n\n";
 our $RDF_SUFFIX= "</rdf:RDF>";
 
+sub _die {
+    MOBY::lsid::authority::Error::lsid_die(@_);
+}
 
 sub rdfLiteral {
 	my ($subj, $pred, $obj)= @_;
@@ -70,6 +74,7 @@
     rdfBnodeResource
     rdfBnodeLiteral
     rdfBnodeBnode
+    _die
     );
 our %EXPORT_TAGS =(all => [qw(
     $SERVICE_CGI
@@ -81,6 +86,7 @@
     rdfBnodeResource
     rdfBnodeLiteral
     rdfBnodeBnode
+    _die
     )]);
 
 1;