[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Mar 23 13:00:50 EST 2006
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv11482/MOBY

Modified Files:
	OntologyServer.pm service_instance.pm 
Log Message:
timestamp format was wrong.  four digit year, not two digit year

moby-live/Perl/MOBY OntologyServer.pm,1.100,1.101 service_instance.pm,1.39,1.40
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -r1.100 -r1.101
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2006/02/21 00:43:36	1.100
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2006/03/23 18:00:50	1.101
@@ -1380,7 +1380,7 @@
 	my $URI;
 
 my ($sec,$min,$hour,$mday,$month,$year, $wday,$yday,$dst) =gmtime(time);
-my $date = sprintf ("%02d-%02d-%02dT%02d-%02d-%02dZ",$year+1900,$month+1,$mday,$hour,$min,$sec);
+my $date = sprintf ("%04d-%02d-%02dT%02d-%02d-%02dZ",$year+1900,$month+1,$mday,$hour,$min,$sec);
 
 	# $id = lc($id);
 	if ( $self->ontology eq 'object' ) {

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -r1.39 -r1.40
--- /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2006/03/22 21:38:58	1.39
+++ /home/repository/moby/moby-live/Perl/MOBY/service_instance.pm	2006/03/23 18:00:50	1.40
@@ -184,7 +184,7 @@
 	return undef unless $self->servicename;
 	if( $self->lsid){
 		my $l = $self->lsid;  # but is LSID valid format?
-		return undef unless $l =~ m'urn\:lsid\:[^:/?#\.]+(\.[^:/?#\.]+)+\:[^:/?#\.]+\:[^:/?#\.]+\:\d\d\-\d\d\-\d\dT\d\d\-\d\d\-\d\d';
+		return undef unless $l =~ m'urn\:lsid\:[^:/?#\.]+(\.[^:/?#\.]+)+\:[^:/?#\.]+\:[^:/?#\.]+\:\d\d\d\d-\d\d\-\d\dT\d\d\-\d\d\-\d\d';
 	}
 	if ( $self->test ) { return $self->service_instance_exists }  # returns boolean
 
@@ -229,7 +229,7 @@
 	  ) {        # then create it de novo if we have enough information
 		# create a timestamp for the LSID
 		my ($sec,$min,$hour,$mday,$month,$year, $wday,$yday,$dst) =gmtime(time);
-		my $date = sprintf ("%02d-%02d-%02dT%02d-%02d-%02dZ",$year+1900,$month+1,$mday,$hour,$min,$sec);
+		my $date = sprintf ("%04d-%02d-%02dT%02d-%02d-%02dZ",$year+1900,$month+1,$mday,$hour,$min,$sec);
 
 		#create LSID for service and register it in the DB
 		my $_config ||= MOBY::Config->new;