[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
allow software using MOBY::Client::Central to declare its name as the User Agent such that we can keep track of it in the logs
moby-live/Perl/MOBY/Client Central.pm,1.138,1.139
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.138
retrieving revision 1.139
diff -u -r1.138 -r1.139
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/01/25 16:38:58	1.138
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/01/25 17:00:18	1.139
@@ -284,7 +284,7 @@
       else {
 	my @soapargs;
 	if ($proxy) {
-	  @soapargs = ( $url, proxy => [ 'http' => $proxy ] );
+	  @soapargs = ( $url, proxy => [ 'http' => $proxy ], user_agent => $self->user_agent, );
 	}
 	else {
 	  @soapargs = ($url);