[LON-CAPA-cvs] cvs: loncom / Lond.pm

[raeburn]

raeburn		Mon Dec 10 18:56:18 2018 EDT

  Modified files:              
    /loncom	Lond.pm 
  Log:
  - Common Name for "Connections Certificate" is host's "serverhomeID".
  
  
Index: loncom/Lond.pm
diff -u loncom/Lond.pm:1.12 loncom/Lond.pm:1.13
--- loncom/Lond.pm:1.12	Sat Aug 18 22:07:48 2018
+++ loncom/Lond.pm	Mon Dec 10 18:56:18 2018
@@ -1,6 +1,6 @@
 # The LearningOnline Network
 #
-# $Id: Lond.pm,v 1.12 2018/08/18 22:07:48 raeburn Exp $
+# $Id: Lond.pm,v 1.13 2018/12/10 18:56:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -822,7 +822,7 @@
                    );
     my (%md5hash,%expected_cn,%expired,%revoked,%wrongcn,%info,$crlfile);
     if (ref($perlvar) eq 'HASH') {
-        $expected_cn{'host'} = $lonhost;
+        $expected_cn{'host'} = $Apache::lonnet::serverhomeIDs{$hostname};
         $expected_cn{'hostname'} = 'internal-'.$hostname;
         my $certsdir = $perlvar->{'lonCertificateDirectory'};
         if (-d $certsdir) {