[BACK]Return to loncron CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom

Diff for /loncom/loncron between versions 1.107 and 1.109

version 1.107, 2018/08/07 17:12:09 version 1.109, 2018/10/25 02:48:56
Line 1028  sub update_revocation_list { Line 1028  sub update_revocation_list {
 }  }
   
 sub reset_nosslverify_pids {  sub reset_nosslverify_pids {
     my (%sslrem) = @_;      my ($fh,%sslrem) = @_;
     &checkon_daemon($fh,'lond',40000,'USR2');      &checkon_daemon($fh,'lond',40000,'USR2');
     my $loncpidfile="$perlvar{'lonDaemons'}/logs/lonc.pid";      my $loncpidfile="$perlvar{'lonDaemons'}/logs/lonc.pid";
     my $loncppid;      my $loncppid;
Line 1057  sub reset_nosslverify_pids { Line 1057  sub reset_nosslverify_pids {
                             if ($sslrem{$host}) {                              if ($sslrem{$host}) {
                                 if (ref($pids_by_host{$host}) eq 'HASH') {                                  if (ref($pids_by_host{$host}) eq 'HASH') {
                                     if (ref($pids_by_host{$host}{'insecure'}) eq 'HASH') {                                      if (ref($pids_by_host{$host}{'insecure'}) eq 'HASH') {
                                         if (keys($pids_by_host{$host}{'insecure'})) {                                          if (keys(%{$pids_by_host{$host}{'insecure'}})) {
                                             foreach my $pid (keys($pids_by_host{$host}{'insecure'})) {                                              foreach my $pid (keys(%{$pids_by_host{$host}{'insecure'}})) {
                                                 if (open(PIPE,"ps -o ppid= -p $pid |")) {                                                  if (open(PIPE,"ps -o ppid= -p $pid |")) {
                                                     my $ppid = <PIPE>;                                                      my $ppid = <PIPE>;
                                                     chomp($ppid);                                                      chomp($ppid);
Line 1274  sub main () { Line 1274  sub main () {
         &write_serverhomeIDs();          &write_serverhomeIDs();
  &write_checksums();   &write_checksums();
         my %sslrem = &clean_nosslverify($fh);          my %sslrem = &clean_nosslverify($fh);
         &finish_logging($fh);  
         my %conchgs = &write_connection_config();          my %conchgs = &write_connection_config();
         my %hosttypechgs = &write_hosttypes();          my %hosttypechgs = &write_hosttypes();
         my $hadcrlchg = &update_revocation_list();          my $hadcrlchg = &update_revocation_list();
         if ((keys(%{$conchgs}) > 0) || (keys(%hosttypechgs) > 0) ||          if ((keys(%conchgs) > 0) || (keys(%hosttypechgs) > 0) ||
             $hadcrlchg || (keys(%sslrem) > 0)) {              $hadcrlchg || (keys(%sslrem) > 0)) {
             &checkon_daemon($fh,'lond',40000,'USR2');              &checkon_daemon($fh,'lond',40000,'USR2');
             &reset_nosslverify_pids(%sslrem);              &reset_nosslverify_pids($fh,%sslrem);
         }          }
           &finish_logging($fh);
  if ($totalcount>200 && !$noemail) { &send_mail(); }   if ($totalcount>200 && !$noemail) { &send_mail(); }
     }      }
 }  }
Removed from v.1.107  
changed lines
  Added in v.1.109

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>