[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jan  3 17:52:14 EST 2008
Update of /home/repository/moby/moby-live/Perl/scripts
In directory dev.open-bio.org:/tmp/cvs-serv3620

Modified Files:
	service_tester.pl 
Log Message:
service tester is now more gentle on the registry, only calling on it to look-up one service provider at a time, rather than all of them
moby-live/Perl/scripts service_tester.pl,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/service_tester.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/scripts/service_tester.pl	2007/12/19 19:17:58	1.4
+++ /home/repository/moby/moby-live/Perl/scripts/service_tester.pl	2008/01/03 22:52:14	1.5
@@ -40,7 +40,7 @@
 
 ######-------USER CONFIGURABLE PARAMETERS-------######
 # how long in seconds to wait for a service to respond
-my $TIMEOUT = 50;
+my $TIMEOUT = 20;
 
 # the total number of 'threads' to use ...
 my $THREAD_COUNT = 15;
@@ -75,9 +75,11 @@
 			}
 		}
 	);
+my @providers = $central->retrieveServiceProviders();
+foreach my $authURI(@providers){
 	my ( $second, $minute, $hour, @whatever ) = localtime();
-	print "Finding services registered as '$cat' @ $hour:$minute:$second\n";
-	my ( $services, $reg ) = $central->findService( Registry => "mobycentral",category => $cat );
+	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();
 	print "Services found "
 	  . scalar @$services
@@ -161,7 +163,8 @@
 	# dont proceed until we are completed with the first batch of children!
 	wait, $count-- while $count > 0;
 	( $second, $minute, $hour, @whatever ) = localtime();
-	print "Testing of '$cat' services completed @ $hour:$minute:$second \n";
+	print "Testing of '$cat' services from '$authURI' completed @ $hour:$minute:$second \n";
+}
 }
 
 my $doc = XML::LibXML::Document->new( "1.0", "UTF-8" );