[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
more changes for User Agent reporting
moby-live/Perl/MOBY Central.pm,1.269,1.270
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.269
retrieving revision 1.270
diff -u -r1.269 -r1.270
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/01/17 19:58:44	1.269
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2007/01/25 17:12:14	1.270
@@ -36,6 +36,7 @@
 #use RDF::Core::Constants qw(:xml :rdf :rdfs);
 use MOBY::MobyXMLConstants;
 my $debug = 0;
+my %user_agent_args = (agent => "MOBY-Central-Perl"); 
 
 if ($debug) {
 	open( OUT, ">/tmp/CentralRegistryLogOut.txt" ) || die "cant open logfile\n";
@@ -1430,7 +1431,7 @@
 
 sub _getServiceInstanceRDF {
 	my ( %args ) = @_;
-	my $browser = LWP::UserAgent->new;
+	my $browser = LWP::UserAgent->new(%user_agent_args);
 	my $conf = MOBY::Config->new();
 	return "" unless $conf->{mobycentral}->{rdf_generator};
 	my $url = URI->new( $conf->{mobycentral}->{rdf_generator} );