[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Aug 11 12:30:57 EDT 2004
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv24428/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.23,1.24
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/08/11 16:27:48	1.23
+++ /home/repository/moby/moby-live/Perl/scripts/testMOBYClientCentral_v05.pl	2004/08/11 16:30:57	1.24
@@ -26,6 +26,7 @@
 }
 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 $PROXY = $ENV{MOBY_PROXY}?$ENV{MOBY_PROXY}:'No Proxy Server';
 
 my $C = MOBY::Client::Central->new(
 Registries => {
@@ -34,7 +35,7 @@
 						}
 );
 
-print "TESTING MOBY CLIENT with\n\tURL:  $URL\n\tURI: $URI\n\n";
+print "TESTING MOBY CLIENT with\n\tURL:  $URL\n\tURI: $URI\n\tProxy: $PROXY\n\n";
 
 
 #register with two ISA's -> should fail