[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

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