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

raeburn raeburn at source.lon-capa.org
Mon Aug 1 14:05:23 EDT 2016


raeburn		Mon Aug  1 18:05:23 2016 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Fix logic used to check whether to use Lond.pm to retrieve SSL cert status.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1315 loncom/lonnet/perl/lonnet.pm:1.1316
--- loncom/lonnet/perl/lonnet.pm:1.1315	Mon Jul 25 19:50:44 2016
+++ loncom/lonnet/perl/lonnet.pm	Mon Aug  1 18:05:22 2016
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1315 2016/07/25 19:50:44 raeburn Exp $
+# $Id: lonnet.pm,v 1.1316 2016/08/01 18:05:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -235,7 +235,7 @@
     if (grep { $_ eq $lonhost } &current_machine_ids()) {
         $uselocal = 1;
     }
-    if (($context ne 'cgi') || $uselocal) {
+    if (($context ne 'cgi') && ($uselocal)) {
         my $distro = (split(/\:/,&get_server_distarch($lonhost)))[0];
         if ($distro =~ /^(?:centos|redhat|scientific)(\d+)$/) {
             if ($1 < 6) {




More information about the LON-CAPA-cvs mailing list