[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 11 12:27:48 EDT 2004
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv24218/scripts

Modified Files:
	testMOBYClientCentral_v05.pl 
Log Message:
still wasn't handling proxy servers properly.  Try this version.

moby-live/Perl/scripts testMOBYClientCentral_v05.pl,1.22,1.23
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/07/30 01:14:44	1.22
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/08/11 16:27:48	1.23
@@ -24,14 +24,18 @@
 	}
 
 }
+my $URL = $ENV{MOBY_SERVER}?$ENV{MOBY_SERVER}:'http://mobycentral.cbr.nrc.ca:8080/cgi-bin/MOBY05/mobycentral.pl';
+my $URI = $ENV{MOBY_URI}?$ENV{MOBY_URI}:'http://mobycentral.cbr.nrc.ca:8080/MOBY/Central';
 
 my $C = MOBY::Client::Central->new(
 Registries => {
-  mobycentral => {URL => $ENV{MOBY_SERVER}?$ENV{MOBY_SERVER}:'http://mobycentral.cbr.nrc.ca:8080/cgi-bin/MOBY05/mobycentral.pl',
-		  URI => $ENV{MOBY_URI}?$ENV{MOBY_URI}:'http://mobycentral.cbr.nrc.ca:8080/MOBY/Central'}
+  mobycentral => {URL => $URL,
+				  URI => $URI}
 						}
 );
 
+print "TESTING MOBY CLIENT with\n\tURL:  $URL\n\tURI: $URI\n\n";
+
 
 #register with two ISA's -> should fail
 TEST($C->registerObjectClass(objectType => "HypotheticalObject1",