diff lib/hmdb.pm @ 8:97788e4bf3fc draft

planemo upload commit d1a5cd8f1baf00879ffa44649883f91c64f43392-dirty
author fgiacomoni
date Sat, 20 Jan 2018 17:36:51 -0500
parents 7ed37640fe2a
children c32280662103
line wrap: on
line diff
--- a/lib/hmdb.pm	Fri Jan 19 10:27:38 2018 -0500
+++ b/lib/hmdb.pm	Sat Jan 20 17:36:51 2018 -0500
@@ -223,9 +223,9 @@
     
     my @page = () ;
 
-	my $ua = new LWP::UserAgent;
+	my $ua = LWP::UserAgent->new( keep_alive => 10 );
 	$ua->agent("Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/34.0.1847.131 Safari/537.36");
-	$ua->timeout(500);
+	$ua->timeout(240);
 	 
 	my $req = HTTP::Request->new(
 	    POST => 'http://specdb.wishartlab.com/ms/search.csv');