[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Fri Oct 14 22:05:20 2011 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Default timeout of 180s for LWP::UserAgent was too long.
    - Use 30s to limit delays in very rare case where a LON-CAPA "DNS"
      server is offline.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1133 loncom/lonnet/perl/lonnet.pm:1.1134
--- loncom/lonnet/perl/lonnet.pm:1.1133	Thu Oct  6 11:01:55 2011
+++ loncom/lonnet/perl/lonnet.pm	Fri Oct 14 22:05:19 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1133 2011/10/06 11:01:55 foxr Exp $
+# $Id: lonnet.pm,v 1.1134 2011/10/14 22:05:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10457,6 +10457,7 @@
     while (%alldns) {
 	my ($dns) = keys(%alldns);
 	my $ua=new LWP::UserAgent;
+        $ua->timeout(30);
 	my $request=new HTTP::Request('GET',"$alldns{$dns}://$dns$url");
 	my $response=$ua->request($request);
         delete($alldns{$dns});