[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue Jun 17 12:19:39 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/share/cgi
In directory dev.open-bio.org:/tmp/cvs-serv21442/Perl/MOBY-Server/share/cgi

Modified Files:
	service_tester.pl 
Log Message:
just added number formatting to the time stamps
moby-live/Perl/MOBY-Server/share/cgi service_tester.pl,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/share/cgi/service_tester.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY-Server/share/cgi/service_tester.pl	2008/05/29 13:32:23	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/share/cgi/service_tester.pl	2008/06/17 16:19:39	1.5
@@ -87,9 +87,16 @@
 foreach my $cat (@CATEGORIES) {
 	foreach my $authURI (@providers) {
 		my ( $second, $minute, $hour, @whatever ) = localtime();
+		$hour = "0$hour" if $hour <= 9;
+		$second = "0$second" if $second <= 9;
+		$minute = "0$minute" if $minute <= 9;
+		
 		print "Finding services registered by '$authURI' as '$cat' @ $hour:$minute:$second\n";
 		my ( $services, $reg ) = $central->findService( Registry => "mobycentral",category => $cat, authURI => $authURI );
 		( $second, $minute, $hour, @whatever ) = localtime();
+		$hour = "0$hour" if $hour <= 9;
+		$second = "0$second" if $second <= 9;
+		$minute = "0$minute" if $minute <= 9;
 		print "Services found "
 	  	. scalar @$services
 	  	. "... processing @ $hour:$minute:$second \n";
@@ -179,6 +186,9 @@
 		# dont proceed until we are completed with the first batch of children!
 		wait, $count-- while $count > 0;
 		( $second, $minute, $hour, @whatever ) = localtime();
+		$hour = "0$hour" if $hour <= 9;
+		$second = "0$second" if $second <= 9;
+		$minute = "0$minute" if $minute <= 9;
 		print "Testing of '$cat' services from '$authURI' completed @ $hour:$minute:$second \n";
 	}
 }