--- loncom/lond	2016/05/30 03:16:38	1.522
+++ loncom/lond	2016/07/25 19:49:45	1.523
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.522 2016/05/30 03:16:38 raeburn Exp $
+# $Id: lond,v 1.523 2016/07/25 19:49:45 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,7 +41,7 @@ use IO::File;
 #use Apache::File;
 use POSIX;
 use Crypt::IDEA;
-use LWP::UserAgent();
+use HTTP::Request;
 use Digest::MD5 qw(md5_hex);
 use GDBM_File;
 use Authen::Krb5;
@@ -58,13 +58,14 @@ use Mail::Send;
 use Crypt::Eksblowfish::Bcrypt;
 use Digest::SHA;
 use Encode;
+use LONCAPA::LWPReq;
 
 my $DEBUG = 0;		       # Non zero to enable debug log entries.
 
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.522 $'; #' stupid emacs
+my $VERSION='$Revision: 1.523 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid="default";
 my $currentdomainid;
@@ -667,10 +668,8 @@ sub PushFile {
                 $clientprotocol = 'http' if ($clientprotocol ne 'https');
                 my $url = '/adm/'.$filename;
                 $url =~ s{_}{/};
-                my $ua=new LWP::UserAgent;
-                $ua->timeout(60);
                 my $request=new HTTP::Request('GET',"$clientprotocol://$clienthost$url");
-                my $response=$ua->request($request);
+                my $response = LONCAPA::LWPReq::makerequest($clientname,$request,'',\%perlvar,60,0);
                 if ($response->is_error()) {
                     &logthis('<font color="red"> Pushfile: unable to install '
                             .$tablefile." - error attempting to pull data. </font>");
@@ -1797,6 +1796,16 @@ sub server_distarch_handler {
 }
 &register_handler("serverdistarch", \&server_distarch_handler, 0, 1, 0);
 
+sub server_certs_handler {
+    my ($cmd,$tail,$client) = @_;
+    my $userinput = "$cmd:$tail";
+    my $result;
+    my $result = &LONCAPA::Lond::server_certs(\%perlvar);
+    &Reply($client,\$result,$userinput);
+    return;
+}
+&register_handler("servercerts", \&server_certs_handler, 0, 1, 0);
+
 #   Process a reinit request.  Reinit requests that either
 #   lonc or lond be reinitialized so that an updated 
 #   host.tab or domain.tab can be processed.
@@ -2331,9 +2340,8 @@ sub update_resource_handler {
 # FIXME: this should use the LWP mechanism, not internal alarms.
                 alarm(1200);
 		{
-		    my $ua=new LWP::UserAgent;
 		    my $request=new HTTP::Request('GET',"$remoteurl");
-		    $response=$ua->request($request,$transname);
+                    $response=&LONCAPA::LWPReq::makerequest($clientname,$request,$transname,\%perlvar,1200,0,1);
 		}
 		alarm(0);
 		if ($response->is_error()) {
@@ -2346,9 +2354,8 @@ sub update_resource_handler {
 # FIXME: isn't there an internal LWP mechanism for this?
 			alarm(120);
 			{
-			    my $ua=new LWP::UserAgent;
 			    my $mrequest=new HTTP::Request('GET',$remoteurl.'.meta');
-			    my $mresponse=$ua->request($mrequest,$fname.'.meta');
+                            my $mresponse = &LONCAPA::LWPReq::makerequest($clientname,$mrequest,$fname.'.meta',\%perlvar,120,0,1);
 			    if ($mresponse->is_error()) {
 				unlink($fname.'.meta');
 			    }
@@ -2423,11 +2430,15 @@ sub fetch_user_file_handler {
 	my $remoteurl=$clientprotocol.'://'.$clienthost.'/userfiles/'.$fname;
 	my $response;
 	Debug("Remote URL : $remoteurl Transfername $transname Destname: $destname");
-	alarm(120);
+	alarm(1200);
 	{
-	    my $ua=new LWP::UserAgent;
 	    my $request=new HTTP::Request('GET',"$remoteurl");
-	    $response=$ua->request($request,$transname);
+            my $verifycert = 1;
+            my @machine_ids = &Apache::lonnet::current_machine_ids();
+            if (grep(/^\Q$clientname\E$/,@machine_ids)) {
+                $verifycert = 0;
+            }
+            $response = &LONCAPA::LWPReq::makerequest($clientname,$request,$transname,\%perlvar,1200,$verifycert);
 	}
 	alarm(0);
 	if ($response->is_error()) {