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

raeburn raeburn at source.lon-capa.org
Mon Aug 20 14:53:21 EDT 2018


raeburn		Mon Aug 20 18:53:21 2018 EDT

  Modified files:              
    /loncom	lonssl.pm 
  Log:
  - Reverse unneeded rev 1.17 changes in args passed to Read_Connect_Config(),
    (init of %crlchecked() occurs in LondConnection::ReadConfig() instead).
  
  
Index: loncom/lonssl.pm
diff -u loncom/lonssl.pm:1.18 loncom/lonssl.pm:1.19
--- loncom/lonssl.pm:1.18	Thu Aug  9 13:27:55 2018
+++ loncom/lonssl.pm	Mon Aug 20 18:53:20 2018
@@ -1,5 +1,5 @@
 #
-# $Id: lonssl.pm,v 1.18 2018/08/09 13:27:55 raeburn Exp $
+# $Id: lonssl.pm,v 1.19 2018/08/20 18:53:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -411,17 +411,13 @@
 }
 
 sub Read_Connect_Config {
-    my ($secureconf,$checkedcrl,$perlvarref) = @_;
-    return unless ((ref($secureconf) eq 'HASH') && (ref($checkedcrl) eq 'HASH'));
+    my ($secureconf,$perlvarref) = @_;
+    return unless (ref($secureconf) eq 'HASH');
 
     unless (ref($perlvarref) eq 'HASH') {
         $perlvarref = $perlvar;
     }
 
-    # Clear hash of clients for which Certificate Revocation List checked 
-    foreach my $key (keys(%{$checkedcrl})) {
-        delete($checkedcrl->{$key});
-    }
     # Clean out the old table first.
     foreach my $key (keys(%{$secureconf})) {
         delete($secureconf->{$key});




More information about the LON-CAPA-cvs mailing list