thooge
/
tinyca
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Mark certificates that will expire in the next 7 days as "EXPIRING"

This commit is contained in:
Thomas Hooge 2021-11-11 10:11:34 +01:00
parent 1f402a5055
commit c823778cee
3 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/GUI.pm
View File

@ -2814,7 +2814,7 @@ sub about {
$aboutdialog->set_program_name("TinyCA2");
$aboutdialog->set_version($main->{'version'});
$aboutdialog->set_comments("using OpenSSL version " . $main->{'OpenSSL'}->get_version());
$aboutdialog->set_copyright("2002-2006 Stephan Martin\n 2020 Thomas Hooge");
$aboutdialog->set_copyright("2002-2006 Stephan Martin\n 2020-2021 Thomas Hooge");
$aboutdialog->set_license("GNU Public License (GPL)");
$aboutdialog->set_website("https://www.hoogi.de/tinyca/");
$aboutdialog->set_authors(

8
lib/GUI/X509_browser.pm
View File

@ -273,7 +273,13 @@ sub add_list {
$column->set_cell_data_func ($renderer, sub {
my ($column, $cell, $model, $iter) = @_;
$text = $model->get($iter, 7);
$color = $text eq _("VALID")?'green':'red';
if ($text eq _("VALID")) {
$color = 'green';
} elsif ($text eq _("EXPIRING")) {
$color = 'orange';
} else {
$color = 'red';
}
$cell->set (text => $text, foreground => $color);
});
}

3
lib/OpenSSL.pm
View File

@ -775,6 +775,9 @@ sub parsecert {
if($crl->{'ISSUER'} eq $tmp->{'ISSUER'}) {
_set_expired($tmp->{'SERIAL'}, $indexfile);
}
} elsif ($tmp->{'EXPDATE'} - $time < 608400) {
# cert expires in less than 7 days
$tmp->{'STATUS'} = _("EXPIRING");
}
if (defined($tmp->{'SERIAL'})) {