[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jan 25 12:15:13 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv31399/MOBY/Client

Modified Files:
	OntologyServer.pm 
Log Message:
more changes for User Agent reporting
moby-live/Perl/MOBY/Client OntologyServer.pm,1.16,1.17
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm	2007/01/25 17:12:14	1.16
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm	2007/01/25 17:15:13	1.17
@@ -76,7 +76,7 @@
 use vars qw($AUTOLOAD);
 use LWP::UserAgent;
 my $debug = 0;
-my %user_agent_args = (agent => "MOBY-OntologyServer-Perl"); 
+my $user_agent = "MOBY-OntologyServer-Perl"; 
 
 {
 
@@ -210,7 +210,8 @@
 
 sub getUserAgent {
 	my ( $self, @args ) = @_;
-	my $ua    = LWP::UserAgent->new(%user_agent_args);
+	my $ua    = LWP::UserAgent->new();
+	$ua->agent($user_agent);
 	my $proxy = $ENV{MOBY_PROXY}
 	  if $ENV{MOBY_PROXY};    # first check the environment
 	$proxy = $self->proxy