[BACK]Return to SSL.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / configuration

Diff for /loncom/configuration/SSL.pm between versions 1.1 and 1.3

version 1.1, 2016/07/25 19:50:16 version 1.3, 2016/08/01 18:03:53
Line 61  sub print_certstatus { Line 61  sub print_certstatus {
     my @files = qw(key host hostname ca);      my @files = qw(key host hostname ca);
     my @fields = qw(status cn start end alg size email);      my @fields = qw(status cn start end alg size email);
     foreach my $server (sort(keys(%{$servers}))) {      foreach my $server (sort(keys(%{$servers}))) {
         my $hostname = &Apache::lonnet::hostname($server);  
         my ($result,$hashref) = &Apache::lonnet::get_servercerts_info($server,$context);          my ($result,$hashref) = &Apache::lonnet::get_servercerts_info($server,$context);
         if ($result eq 'ok' && ref($hashref) eq 'HASH') {          if ($result eq 'ok' && ref($hashref) eq 'HASH') {
             if ($target eq 'web') {              if ($target eq 'web') {
                   my $hostname = &Apache::lonnet::hostname($server);
                 $message .= "<fieldset><legend>$hostname ($server)</legend>".                  $message .= "<fieldset><legend>$hostname ($server)</legend>".
                             &Apache::loncommon::start_data_table().                              &Apache::loncommon::start_data_table().
                             &Apache::loncommon::start_data_table_header_row()."\n";                              &Apache::loncommon::start_data_table_header_row()."\n";
Line 99  sub print_certstatus { Line 99  sub print_certstatus {
                             $message .= "$display,";                              $message .= "$display,";
                         }                          }
                     }                      }
   
                 } else {                  } else {
                     if ($target eq 'web') {                      if ($target eq 'web') {
                         $message .= '<td>'.$lt{'no'}.'<td>';                          $message .= '<td>'.$lt{'no'}.'<td>';
Line 111  sub print_certstatus { Line 112  sub print_certstatus {
                         } else {                          } else {
                             $message .= ',';                              $message .= ',';
                         }                          }
                     }                      } 
                     if ($target eq 'web') {                  }
                         $message .= &Apache::loncommon::end_data_table_row()."\n";                  if ($target eq 'web') {
                     } else {                      $message .= &Apache::loncommon::end_data_table_row()."\n";
                         $message =~ s/,$//;                  } else {
                         $message .= '&';                      $message =~ s/,$//;
                     }                      $message .= '&';
                 }                  }
             }              }
             if ($target eq 'web') {              if ($target eq 'web') {
Line 128  sub print_certstatus { Line 129  sub print_certstatus {
             $message .= "\n";              $message .= "\n";
         } else {          } else {
             if ($target eq 'web') {              if ($target eq 'web') {
                 $message .= "$server error\n";                  $message .= "$server:error\n";
             } else {              } else {
                 $message .= "$server error\n";                  $message .= "$server:error\n";
             }              }
         }          }
     }      }
Removed from v.1.1  
changed lines
  Added in v.1.3

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