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

Read CA configuration and show small info dialog

This commit is contained in:
Thomas Hooge 2020-12-03 18:41:40 +01:00
parent efa49c6ffc
commit 29901d491d
2 changed files with 47 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/CA.pm
View File

@ -127,6 +127,12 @@ sub open_ca {
$main->{'exportdir'} = $dir;
}
# read per CA configuration
$self->{'cfg'} = HELPERS::read_cfg($self->{'cadir'});
main::printd("Request-Type: " . ($self->{'cfg'}->{global}{default_req_type} // 'none'));
main::printd("Default bits server: " . ($self->{'cfg'}->{server}{default_bits} // 'none'));
main::printd("Default bits user: " . ($self->{'cfg'}->{user}{default_bits} // 'none'));
# update config (necessary for update from old tinyca)
$cnf = $self->{$opts->{'name'}}->{'cnf'};
open(IN, "<$cnf");

43
lib/GUI.pm
View File

@ -718,7 +718,10 @@ sub create_menu {
_("_Preferences") => {
item_type => '<Branch>',
children => [
_("Experts Only!!") => {
_("View") => {
callback => sub { $self->show_cfg_dialog($self) },
item_type => '<StockItem>',
extra_data => 'gtk-info'
},
Separator => {
item_type => '<Separator>',
@ -1014,7 +1017,7 @@ sub create_detail_tree {
if (defined $parsed->{'CN'}) {
$t .= " - $parsed->{'CN'}";
}
$root = $store->append(undef);
$store->set($root, 0 => $t);
@ -2648,6 +2651,42 @@ sub show_ca_import_dialog {
return;
}
#
# Configuration display dialog
#
sub show_cfg_dialog {
my $self = shift;
my $main = shift;
my ($box, $button, $table, $label);
$box = Gtk2::Dialog->new(_("Preferences"), undef, ["destroy-with-parent"]);
$box->signal_connect(response => sub { $box->destroy });
$label = Gtk2::Label->new("base directory:".$main->{'init'}->{'basedir'});
$box->vbox->add($label);
$label = Gtk2::Label->new("export directory:".$main->{'init'}->{'exportdir'});
$box->vbox->add($label);
$label = Gtk2::Label->new("openssl binary:".$main->{'init'}->{'opensslbin'});
$box->vbox->add($label);
$label = Gtk2::Label->new("zip binary:".$main->{'init'}->{'zipbin'});
$box->vbox->add($label);
$label = Gtk2::Label->new("tar binary:".$main->{'init'}->{'tarbin'});
$box->vbox->add($label);
$button = Gtk2::Button->new_from_stock('gtk-ok');
$box->add_action_widget($button, 0);
$button->can_default(1);
$button->grab_default();
$box->show_all();
}
#
# subroutines for pop-up boxes
#