[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

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

moby-live/Perl/MOBY/Client Central.pm,1.78,1.79
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -r1.78 -r1.79
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/07/30 00:16:32	1.78
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/08/11 16:27:48	1.79
@@ -263,10 +263,10 @@
 		my %reg = %{$self->Registries};
 		while (my ($name, $acc) = each %reg){
 			$regno++;  # count how many registries we have in total
-			my $url = $acc->{URL};
-			my $uri = $acc->{URI};
-			my $type = $acc->{TYPE};
-			my $proxy = $acc->{PROXY};
+			my $url = $acc->{URL}?$acc->{URL}:$self->default_MOBY_server;
+			my $uri = $acc->{URI}?$acc->{URI}:$self->default_MOBY_uri;
+			my $type = $acc->{TYPE}?$acc->{TYPE}:$self->default_MOBY_type;
+			my $proxy = $acc->{PROXY}?$acc->{PROXY}:$self->default_MOBY_proxy;
 			$type ||='soap';
 			if (lc($type) eq "get"){
 				push @{$self->Connections}, [$name, $type, $url];