[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Nov  1 10:23:59 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv3223

Modified Files:
	Central.pm 
Log Message:
screen for illegally formatted authURIs in order to be able to use them in our LSID's

moby-live/Perl/MOBY Central.pm,1.109,1.110
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.109
retrieving revision 1.110
diff -u -r1.109 -r1.110
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/10/22 14:27:45	1.109
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/11/01 15:23:59	1.110
@@ -1014,6 +1014,7 @@
 	$error .="missing serviceName \n" unless defined $serviceName;
 	$error .="missing serviceType \n" unless defined $serviceType;
 	$error .="missing authURI \n" unless defined $AuthURI;
+	$error .="malformed authURI; must be the domain name only with no http prefix or trailing path information \n" if $AuthURI =~ '[/:]';
 	$error .="missing contactEmail \n" unless defined $contactEmail;
 	$error .="missing URL \n" unless defined $URL;
 	$error .="missing description \n" unless defined $desc;