diff --git a/lib/CA.pm b/lib/CA.pm index b83121a..c1c2945 100644 --- a/lib/CA.pm +++ b/lib/CA.pm @@ -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"); diff --git a/lib/GUI.pm b/lib/GUI.pm index 83bb4b2..2a1f7f1 100644 --- a/lib/GUI.pm +++ b/lib/GUI.pm @@ -718,7 +718,10 @@ sub create_menu { _("_Preferences") => { item_type => '', children => [ - _("Experts Only!!") => { + _("View") => { + callback => sub { $self->show_cfg_dialog($self) }, + item_type => '', + extra_data => 'gtk-info' }, Separator => { item_type => '', @@ -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 #