You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
3302 lines
105 KiB
3302 lines
105 KiB
# Copyright (c) Stephan Martin <sm@sm-zone.net>
|
|
#
|
|
# $Id: GUI.pm,v 1.34 2006/07/25 20:10:54 sm Exp $
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 2 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111, USA.
|
|
|
|
use strict;
|
|
package GUI;
|
|
|
|
use POSIX;
|
|
|
|
use Gtk2::SimpleMenu;
|
|
|
|
my $false=undef;
|
|
my $true=1;
|
|
|
|
# This hash maps our internal MD names to the displayed digest names.
|
|
# Maybe it should live in a crypto-related file instead of a UI-related file?
|
|
my %md_algorithms = (
|
|
'sha256' => 'SHA-256',
|
|
'md5' => 'ins.MD5',
|
|
# n/a 'md2' => 'MD2',
|
|
# n/a 'mdc2' => 'MDC2',
|
|
'md4' => 'ins.MD4',
|
|
'ripemd160' => 'RIPEMD-160',
|
|
# 'sha' => 'SHA',
|
|
'sha1' => 'ins.SHA-1',
|
|
'sha384' => 'SHA-384',
|
|
'sha512' => 'SHA-512',
|
|
);
|
|
|
|
my %bit_lengths = (
|
|
'1024' => '1024',
|
|
'2048' => '2048',
|
|
'4096' => '4096'
|
|
);
|
|
|
|
|
|
#
|
|
# create the main object
|
|
#
|
|
sub new {
|
|
my $that = shift;
|
|
my $class = ref($that) || $that;
|
|
|
|
my $self = {};
|
|
$self->{'init'} = shift;
|
|
|
|
bless($self, $class);
|
|
|
|
my ($section, $x, $y, $w, $h);
|
|
|
|
$self->{'version'} = '0.7.6';
|
|
|
|
$self->{'words'} = GUI::WORDS->new();
|
|
|
|
$self->{'exportdir'} = $self->{'init'}->{'exportdir'};
|
|
$self->{'basedir'} = $self->{'init'}->{'basedir'};
|
|
$self->{'tmpdir'} = $self->{'basedir'}."/tmp";
|
|
$self->{'init'}->{'tmpdir'} = $self->{'basedir'}."/tmp";
|
|
|
|
# initialize CA object
|
|
$self->{'CA'} = CA->new($self->{'init'});
|
|
|
|
# initialize OpenSSL object
|
|
$self->{'OpenSSL'} = OpenSSL->new($self->{'init'}->{'opensslbin'},
|
|
$self->{'tmpdir'});
|
|
|
|
# initialize CERT object
|
|
$self->{'CERT'} = CERT->new($self->{'OpenSSL'});
|
|
|
|
# initialize KEY object
|
|
$self->{'KEY'} = KEY->new();
|
|
|
|
# initialize REQ object
|
|
$self->{'REQ'} = REQ->new($self->{'OpenSSL'});
|
|
|
|
# initialize CONFIG object
|
|
$self->{'TCONFIG'} = TCONFIG->new();
|
|
|
|
# initialize fonts and styles
|
|
$self->{'fontfix'} = Gtk2::Pango::FontDescription->from_string(
|
|
"Courier 10"
|
|
);
|
|
|
|
# Gtk::Rc->parse_string(
|
|
#'style "default"
|
|
#{
|
|
# fontset = "-*-helvetica-medium-r-normal--11-*,-*-fixed-medium-r-normal--11-*"
|
|
#}
|
|
#widget_class "*" style "default"');
|
|
|
|
# $self->{'stylered'} = Gtk2::Style->new();
|
|
# $self->{'stylered'}->fg('normal', Gtk2::Gdk::Color->parse('red'));
|
|
|
|
# $self->{'stylegreen'} = Gtk2::Style->new();
|
|
# $self->{'stylegreen'}->fg('normal', Gtk2::Gdk::Color->parse('green'));
|
|
|
|
# initialize main window
|
|
$self->{'mw'} = Gtk2::Window->new("toplevel");
|
|
$self->{'mw'}->set_title("TinyCA2 Management $self->{'version'}");
|
|
$self->{'mw'}->set_icon_from_file("./icons/tinyca.png");
|
|
|
|
$self->{'mw'}->set_resizable(1);
|
|
$section = $self->{'init'}->{'cfg'}->{window};
|
|
if(defined($section->{x}) && defined($section->{y})) {
|
|
# save position for later use after show_all()
|
|
$self->{'posx'} = $section->{x};
|
|
$self->{'posy'} = $section->{y};
|
|
}
|
|
$w = $section->{w} // 850;
|
|
$h = $section->{h} // 600;
|
|
main::printd("Sizing window to $w,$h");
|
|
$self->{'mw'}->set_default_size($w, $h);
|
|
$self->{'mw'}->signal_connect( 'delete_event',
|
|
sub { HELPERS::exit_clean(0) });
|
|
|
|
$self->{'busycursor'} = Gtk2::Gdk::Cursor->new('watch');
|
|
$self->{'cursor'} = Gtk2::Gdk::Cursor->new('left-ptr');
|
|
$self->{'rootwin'} = Gtk2::Gdk->get_default_root_window();
|
|
|
|
# split window horizontal to add menu, toolbar and notebook
|
|
$self->{'mvb'} = Gtk2::VBox->new();
|
|
$self->{'mw'}->add($self->{'mvb'});
|
|
|
|
$self->create_menu();
|
|
$self->{'mvb'}->pack_start($self->{'menu'}->{'widget'} , 0, 0, 0);
|
|
|
|
$self->create_toolbar('startup');
|
|
$self->{'mvb'}->pack_start($self->{'toolbar'}, 0, 0, 0);
|
|
|
|
$self->create_nb();
|
|
$self->{'mvb'}->pack_start($self->{'nb'}, 1, 1, 0);
|
|
|
|
$self->create_bar();
|
|
$self->{'mvb'}->pack_start($self->{'barbox'}, 0, 0, 0);
|
|
|
|
$self->{'rootwin'}->set_cursor($self->{'cursor'});
|
|
|
|
$self;
|
|
}
|
|
|
|
#
|
|
# create/update the main frame with the notebooks
|
|
#
|
|
sub create_mframe {
|
|
my ($self, $force) = @_;
|
|
|
|
my($parsed, $calabel, $caframe, $rows, $table, @fields, $text, @childs,
|
|
$label, $cert_export, $cert_revoke, $cert_delete, $certlabel,
|
|
$certlistwin, @certtitles, @keytitles, $keylabel, $keylistwin,
|
|
$reqlistwin, @reqtitles, $reqlabel, $ind, $column, $ca, $cadir);
|
|
|
|
if ((defined($self->{'CA'}->{'actca'})) &&
|
|
($self->{'CA'}->{'actca'} ne "")) {
|
|
$ca = $self->{'CA'}->{'actca'};
|
|
} else {
|
|
return;
|
|
}
|
|
|
|
$cadir = $self->{'CA'}->{'cadir'};
|
|
|
|
$parsed = $self->{'CERT'}->parse_cert( $self, 'CA');
|
|
|
|
defined($parsed) ||
|
|
GUI::HELPERS::print_error( _("Can't read CA certificate"));
|
|
|
|
### notebooktab for ca information
|
|
if(not defined($self->{'cabox'})) {
|
|
$self->{'cabox'} = Gtk2::VBox->new(0, 0);
|
|
$calabel = GUI::HELPERS::create_label(_("CA"), 'left', 1, 0);
|
|
$self->{'nb'}->insert_page($self->{'cabox'}, $calabel, 0);
|
|
} else {
|
|
$self->{'nb'}->hide();
|
|
$self->{'nb'}->remove_page(0);
|
|
$self->{'cabox'}->destroy();
|
|
$self->{'cabox'} = Gtk2::VBox->new(0, 0);
|
|
$calabel = GUI::HELPERS::create_label(_("CA"), 'left', 1, 0);
|
|
$self->{'nb'}->insert_page($self->{'cabox'}, $calabel, 0);
|
|
}
|
|
|
|
# frame for CA informations
|
|
$self->{'cainfobox'} = GUI::X509_infobox->new();
|
|
$self->{'cainfobox'}->display($self->{'cabox'}, $parsed, 'cacert',
|
|
_("CA Information"));
|
|
|
|
### notebooktab for certificates
|
|
|
|
# delete old instance, force reinitialisation
|
|
if (defined($self->{'certbox'}) && $force) {
|
|
$self->{'certbox'}->destroy();
|
|
delete($self->{'certbox'});
|
|
$self->{'certbox'} = undef;
|
|
delete($self->{'certbrowser'}->{'OpenSSL'});
|
|
$self->{'certbrowser'}->{'OpenSSL'} = undef;
|
|
delete($self->{'certbrowser'});
|
|
$self->{'certbrowser'} = undef;
|
|
}
|
|
|
|
if(not defined($self->{'certbox'})) {
|
|
$self->{'certbox'} = Gtk2::VBox->new(0, 0);
|
|
|
|
$certlabel = GUI::HELPERS::create_label(
|
|
_("Certificates"), 'left', 1, 0);
|
|
$self->{'nb'}->insert_page($self->{'certbox'}, $certlabel, 1);
|
|
|
|
if (not defined ($self->{'certbrowser'})) {
|
|
$self->{'certbrowser'}=GUI::X509_browser->new($self, 'cert');
|
|
$self->{'certbrowser'}->set_window($self->{'certbox'});
|
|
$self->{'certbrowser'}->add_list($ca,
|
|
$cadir."/certs",
|
|
$cadir."/crl/crl.pem",
|
|
$cadir."/index.txt");
|
|
|
|
$self->{'certbrowser'}->add_info();
|
|
|
|
# create popup menu
|
|
if(not defined($self->{'certmenu'})) {
|
|
_create_cert_menu($self);
|
|
}
|
|
|
|
$self->{'certbrowser'}->{'x509clist'}->signal_connect(
|
|
'button_release_event',
|
|
sub { _show_popup_menu($self, 'cert', @_) });
|
|
$self->{'certbrowser'}->{'x509clist'}->signal_connect(
|
|
'button_press_event',
|
|
sub { _show_details_wrapper($self, 'cert', @_)});
|
|
|
|
# $self->{'certbrowser'}->destroy();
|
|
} else {
|
|
$self->{'certbrowser'}->update($cadir."/certs",
|
|
$cadir."/crl/crl.pem",
|
|
$cadir."/index.txt");
|
|
}
|
|
|
|
} else {
|
|
$self->{'certbrowser'}->update($cadir."/certs",
|
|
$cadir."/crl/crl.pem",
|
|
$cadir."/index.txt");
|
|
}
|
|
|
|
|
|
### notebooktab for keys (split info and buttons)
|
|
@keytitles = (_("Common Name"),
|
|
_("eMail Address"),
|
|
_("Organizational Unit"),
|
|
_("Organization"),
|
|
_("Location"),
|
|
_("State"),
|
|
_("Country"),
|
|
_("Type"));
|
|
# delete old instance, force reinitialisation
|
|
if (defined($self->{'keybox'}) && $force) {
|
|
$self->{'keybox'}->destroy();
|
|
delete($self->{'keybox'});
|
|
$self->{'keybox'} = undef;
|
|
delete($self->{'keybrowser'}->{'OpenSSL'});
|
|
$self->{'keybrowser'}->{'OpenSSL'} = undef;
|
|
delete($self->{'keybrowser'});
|
|
$self->{'keybrowser'} = undef;
|
|
}
|
|
|
|
if(not defined($self->{'keybox'})) {
|
|
$self->{'keybox'} = Gtk2::VBox->new(0, 0);
|
|
$keylabel = GUI::HELPERS::create_label( _("Keys"), 'left', 1, 0);
|
|
$self->{'nb'}->insert_page($self->{'keybox'}, $keylabel, 2);
|
|
|
|
if (not defined ($self->{'keybrowser'})) {
|
|
$self->{'keybrowser'}=GUI::X509_browser->new($self, 'key');
|
|
$self->{'keybrowser'}->set_window($self->{'keybox'});
|
|
$self->{'keybrowser'}->add_list($ca,
|
|
$cadir."/keys",
|
|
$cadir."/crl/crl.pem",
|
|
$cadir."/index.txt");
|
|
|
|
# create popup menu
|
|
if(not defined($self->{'keymenu'})) {
|
|
_create_key_menu($self);
|
|
}
|
|
|
|
$self->{'keybrowser'}->{'x509clist'}->signal_connect(
|
|
'button_release_event',
|
|
sub { _show_popup_menu($self, 'key', @_) });
|
|
|
|
} else {
|
|
$self->{'keybrowser'}->update($cadir."/keys",
|
|
$cadir."/crl/crl.pem",
|
|
$cadir."/index.txt");
|
|
}
|
|
|
|
}
|
|
|
|
# delete old instance, force reinitialisation
|
|
if (defined($self->{'reqbox'}) && $force) {
|
|
$self->{'reqbox'}->destroy();
|
|
delete($self->{'reqbox'});
|
|
$self->{'reqbox'} = undef;
|
|
delete($self->{'reqbrowser'}->{'OpenSSL'});
|
|
$self->{'reqbrowser'}->{'OpenSSL'} = undef;
|
|
delete($self->{'reqbrowser'});
|
|
$self->{'reqbrowser'} = undef;
|
|
}
|
|
|
|
### notebooktab for requests (split info and buttons)
|
|
if(not defined($self->{'reqbox'})) {
|
|
$self->{'reqbox'} = Gtk2::VBox->new(0, 0);
|
|
$reqlabel = GUI::HELPERS::create_label(
|
|
_("Requests"), 'left', 1, 0);
|
|
$self->{'nb'}->insert_page($self->{'reqbox'}, $reqlabel, 3);
|
|
|
|
if (not defined ($self->{'reqbrowser'})) {
|
|
$self->{'reqbrowser'}=GUI::X509_browser->new($self, 'req');
|
|
$self->{'reqbrowser'}->set_window($self->{'reqbox'});
|
|
$self->{'reqbrowser'}->add_list($ca,
|
|
$cadir."/req",
|
|
$cadir."/crl/crl.pem",
|
|
$cadir."/index.txt");
|
|
|
|
$self->{'reqbrowser'}->add_info();
|
|
|
|
# create popup menu
|
|
if(not defined($self->{'reqmenu'})) {
|
|
_create_req_menu($self);
|
|
}
|
|
|
|
$self->{'reqbrowser'}->{'x509clist'}->signal_connect(
|
|
'button_release_event',
|
|
sub { _show_popup_menu($self, 'req', @_) });
|
|
|
|
$self->{'reqbrowser'}->{'x509clist'}->signal_connect(
|
|
'button_press_event',
|
|
sub { _show_details_wrapper($self, 'req', @_)});
|
|
|
|
} else {
|
|
$self->{'reqbrowser'}->update($cadir."/req",
|
|
$cadir."/crl/crl.pem",
|
|
$cadir."/index.txt");
|
|
}
|
|
|
|
} else {
|
|
$self->{'reqbrowser'}->update($cadir."/req",
|
|
$cadir."/crl/crl.pem",
|
|
$cadir."/index.txt");
|
|
}
|
|
|
|
$self->{'nb'}->show_all();
|
|
$self->{'nb'}->signal_connect_after('switch-page' =>
|
|
sub { _act_toolbar($self->{'nb'}, $self) });
|
|
|
|
$self->{'nb'}->set_current_page(1);
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# create empty notebook, add to main window and configure
|
|
#
|
|
sub create_nb {
|
|
my $self = shift;
|
|
|
|
$self->{'nb'} = Gtk2::Notebook->new();
|
|
$self->{'nb'}->set_tab_pos('top');
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# create the applicationbar
|
|
#
|
|
sub create_bar {
|
|
my $self = shift;
|
|
|
|
$self->{'barbox'} = Gtk2::HBox->new();
|
|
$self->{'bar'} = Gtk2::Statusbar->new();
|
|
|
|
$self->{'progress'} = Gtk2::ProgressBar->new();
|
|
|
|
$self->{'barbox'}->pack_start($self->{'bar'}, 1, 1, 0);
|
|
|
|
GUI::HELPERS::set_status($self, _(" Watch out..."));
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# keep toolbar in sync with notebook
|
|
#
|
|
sub _act_toolbar {
|
|
my ($nb, $self) = @_;
|
|
|
|
my $page_num = $nb->get_current_page();
|
|
|
|
my $mode = 'startup';
|
|
my $t;
|
|
|
|
if(defined($self->{'CA'}->{'actca'})) {
|
|
if ($page_num == 0) {
|
|
$mode = 'ca';
|
|
$t = _(" Actual CA: %s");
|
|
} elsif ($page_num == 1) {
|
|
$mode = 'cert';
|
|
$t = _(" Actual CA: %s - Certificates");
|
|
} elsif ($page_num == 2) {
|
|
$mode = 'key';
|
|
$t = _(" Actual CA: %s - Keys");
|
|
} elsif ($page_num == 3) {
|
|
$mode = 'req';
|
|
$t = _(" Actual CA: %s - Requests");
|
|
}
|
|
|
|
if(defined($self->{'CA'}->{'actca'})) {
|
|
$t = sprintf($t, $self->{'CA'}->{'actca'});
|
|
GUI::HELPERS::set_status($self, $t);
|
|
}
|
|
}
|
|
|
|
$self->create_toolbar($mode);
|
|
}
|
|
|
|
#
|
|
# create the toolbar
|
|
#
|
|
sub create_toolbar {
|
|
my ($self, $mode) = @_;
|
|
|
|
my ($icon, $mask, $iconw, $button, @children, $c, $ca);
|
|
|
|
$ca = $self->{'CA'}->{'actca'};
|
|
|
|
if(not defined($self->{'separator'})) {
|
|
$self->{'separator'} = Gtk2::SeparatorToolItem->new();
|
|
}
|
|
|
|
if(defined($self->{'toolbar'})) {
|
|
@children = $self->{'toolbar'}->get_children();
|
|
|
|
for(my $i = 6; $i < @children; $i++) {
|
|
$c = $children[$i];
|
|
$c->destroy();
|
|
}
|
|
} else {
|
|
$self->{'toolbar'} = Gtk2::Toolbar->new();
|
|
$self->{'tooltips'} = Gtk2::Tooltips->new();
|
|
$self->{'toolbar'}->set_orientation('horizontal');
|
|
$self->{'toolbar'}->set_icon_size('small-toolbar');
|
|
|
|
## Buttons for all toolbars
|
|
$self->{'toolbar'} = Gtk2::Toolbar->new();
|
|
$self->{'toolbar'}->set_orientation('horizontal');
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-quit');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->signal_connect('clicked', sub { Gtk2->main_quit() });
|
|
$button->set_tooltip($self->{'tooltips'}, _("Exit TinyCA"), "");
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-open');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Open CA"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Open other CA"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CA'}->get_open_name($self)});
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-new');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("New CA"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Create new CA"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CA'}->get_ca_create($self)});
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-convert');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Import CA"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Import CA"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CA'}->get_ca_import($self)});
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-delete');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Delete CA"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Delete CA"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CA'}->get_ca_delete($self)});
|
|
|
|
$self->{'toolbar'}->insert($self->{'separator'}, -1); }
|
|
|
|
|
|
if($mode eq 'ca') {
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-find');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Details"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Show certificate details"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->show_details('CA') });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-find-and-replace');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("History"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Show history"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->show_history() });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-new');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Sub CA"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Create new sub CA"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CA'}->get_ca_create($self, undef, undef, "sub")});
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-save');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Export CA"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Export CA certificate"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CA'}->export_ca_cert($self)});
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-save');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Export CRL"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Export certificate revocation list"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CA'}->export_crl($self)});
|
|
|
|
if(-s $self->{'CA'}->{$ca}->{'dir'}."/cachain.pem") {
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-save');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Export Chain"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Export Chain"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CA'}->export_ca_chain($self)});
|
|
}
|
|
|
|
} elsif($mode eq 'cert') {
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-find');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Details"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Show certificate details"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->show_details('cert') });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-find');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("View"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("View certificate raw data"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->show_text('cert') });
|
|
|
|
if(not(defined($self->{'newcertmenu'}))) {
|
|
_create_create_cert_menu($self);
|
|
}
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-new');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("New"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Create new certificate request"), "");
|
|
$button->signal_connect('clicked' =>
|
|
sub { $self->{'newcertmenu'}->popup(
|
|
undef, undef, undef, undef, 1, 0) });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-save');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Export"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Export certificate"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CERT'}->get_export_cert($self) });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-stop');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Revoke"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Revoke certificate"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CERT'}->get_revoke_cert($self) });
|
|
|
|
if(not defined($self->{'renewcertmenu'})) {
|
|
_create_renew_cert_menu($self);
|
|
}
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-refresh');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Renew"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Renew certificate"), "");
|
|
$button->signal_connect('clicked' =>
|
|
sub { $self->{'renewcertmenu'}->popup(
|
|
undef, undef, undef, undef, 1, 0) });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-delete');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Delete"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Delete certificate"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'CERT'}->get_del_cert($self) });
|
|
|
|
} elsif($mode eq 'key') {
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-revert-to-saved');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Import"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Import key"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'KEY'}->get_import_key($self) });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-save');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Export"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Export key"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'KEY'}->get_export_key($self) });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-delete');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Delete"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Delete key"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'KEY'}->get_del_key($self) });
|
|
|
|
} elsif($mode eq 'req') {
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-find');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Details"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Show request details"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->show_details('req') });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-find');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("View"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("View request raw data"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->show_text('req') });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-new');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("New"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("New request"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'REQ'}->get_req_create($self) });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-revert-to-saved');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Import"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Import request"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'REQ'}->get_import_req($self) });
|
|
|
|
if(not(defined($self->{'reqsignmenu'}))) {
|
|
_create_sign_req_menu($self);
|
|
}
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-properties');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Sign"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Sign request"), "");
|
|
$button->signal_connect('clicked' =>
|
|
sub { $self->{'reqsignmenu'}->popup(
|
|
undef, undef, undef, undef, 1, 0) });
|
|
|
|
$button = Gtk2::ToolButton->new_from_stock('gtk-delete');
|
|
$self->{'toolbar'}->insert($button, -1);
|
|
$button->set_label(_("Delete"));
|
|
$button->set_tooltip($self->{'tooltips'}, _("Delete request"), "");
|
|
$button->signal_connect('clicked', sub {
|
|
$self->{'REQ'}->get_del_req($self) });
|
|
}
|
|
|
|
$self->{'toolbar'}->set_icon_size('small-toolbar');
|
|
|
|
$self->{'toolbar'}->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# create the menubar
|
|
#
|
|
sub create_menu {
|
|
my $self = shift;
|
|
|
|
my $menu_tree = [
|
|
_("_CA") => {
|
|
item_type => '<Branch>',
|
|
children => [
|
|
_("_Open CA") => {
|
|
callback => sub { $self->{'CA'}->get_open_name($self) },
|
|
item_type => '<StockItem>',
|
|
extra_data => 'gtk-open'
|
|
},
|
|
_("_New CA") => {
|
|
callback => sub { $self->{'CA'}->get_ca_create($self)},
|
|
item_type => '<StockItem>',
|
|
extra_data => 'gtk-new'
|
|
},
|
|
_("_Delete CA") => {
|
|
callback => sub { $self->{'CA'}->get_ca_delete($self)},
|
|
item_type => '<StockItem>',
|
|
extra_data => 'gtk-delete'
|
|
},
|
|
Separator => {
|
|
item_type => '<Separator>',
|
|
},
|
|
_("_Exit") => {
|
|
callback => sub { Gtk2->main_quit() },
|
|
item_type => '<StockItem>',
|
|
extra_data => 'gtk-close'
|
|
}
|
|
],
|
|
},
|
|
_("_Preferences") => {
|
|
item_type => '<Branch>',
|
|
children => [
|
|
_("View") => {
|
|
callback => sub { $self->show_cfg_dialog($self) },
|
|
item_type => '<StockItem>',
|
|
extra_data => 'gtk-info'
|
|
},
|
|
Separator => {
|
|
item_type => '<Separator>',
|
|
},
|
|
_("OpenSSL _Configuration") => {
|
|
callback => sub{ $self->{'TCONFIG'}->config_openssl($self) },
|
|
item_type => '<StockItem>',
|
|
extra_data => 'gtk-preferences'
|
|
}
|
|
],
|
|
},
|
|
_("_Help") => {
|
|
item_type => '<Branch>',
|
|
children => [
|
|
_("_Help") => {
|
|
callback => sub{ $self->show_help() },
|
|
item_type => '<StockItem>',
|
|
extra_data => 'gtk-help'
|
|
},
|
|
_("_About TinyCA") => {
|
|
callback => sub { $self->about($self) },
|
|
item_type => '<StockItem>',
|
|
extra_data => 'gtk-about'
|
|
}
|
|
],
|
|
}
|
|
];
|
|
|
|
$self->{'menu'} = Gtk2::SimpleMenu->new(menu_tree => $menu_tree);
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# pop-up to display request/cert as TXT
|
|
#
|
|
sub show_text {
|
|
my ($self, $mode) = @_;
|
|
|
|
my($parsed, $t, $box, $label, $text, $vscrollbar, $name, $button_ok,
|
|
$status, $scrolled, $ca, $buffer);
|
|
|
|
$ca = $self->{'CA'}->{'actca'};
|
|
|
|
if($mode eq 'req') {
|
|
$name = $self->{'reqbrowser'}->selection_dn();
|
|
} elsif($mode eq 'cert') {
|
|
$name = $self->{'certbrowser'}->selection_dn();
|
|
} else {
|
|
GUI::HELPERS::print_error(
|
|
_("Invalid mode for show_text():")." ".$mode);
|
|
return;
|
|
}
|
|
|
|
if((not defined $name) && ($mode eq 'req')) {
|
|
GUI::HELPERS::print_info(_("Please select a Request first"));
|
|
return;
|
|
}elsif((not defined $name) && ($mode eq 'cert')) {
|
|
GUI::HELPERS::print_info(_("Please select a certificate first"));
|
|
return;
|
|
}
|
|
|
|
if($mode eq 'cert') {
|
|
$status = $self->{'certbrowser'}->selection_status();
|
|
}
|
|
|
|
$name = HELPERS::enc_base64($name);
|
|
|
|
if($mode eq 'req') {
|
|
$parsed = $self->{'REQ'}->parse_req( $self, $name);
|
|
} elsif($mode eq 'cert') {
|
|
$parsed = $self->{'CERT'}->parse_cert( $self, $name);
|
|
}
|
|
|
|
defined($parsed) || GUI::HELPERS::print_error(_("Can't read file"));
|
|
|
|
$t = $mode eq 'req'?_("Request"):_("Certificate");
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->signal_connect('clicked', sub { $box->destroy() });
|
|
$button_ok->can_default(1);
|
|
|
|
$box = GUI::HELPERS::dialog_box($t, $t, $button_ok);
|
|
|
|
$box->set_default_size(550, 440);
|
|
$button_ok->grab_default();
|
|
|
|
$scrolled = Gtk2::ScrolledWindow->new(undef, undef);
|
|
$scrolled->set_policy('automatic', 'automatic');
|
|
$scrolled->set_shadow_type('etched-in');
|
|
$box->vbox->pack_start($scrolled, 1, 1, 0);
|
|
|
|
$buffer = Gtk2::TextBuffer->new();
|
|
$buffer->set_text($parsed->{'TEXT'});
|
|
|
|
$text = Gtk2::TextView->new_with_buffer($buffer);
|
|
$text->set_editable(0);
|
|
$text->set_wrap_mode('none');
|
|
|
|
$text->modify_font($self->{'fontfix'});
|
|
|
|
$scrolled->add($text);
|
|
|
|
$box->show_all();
|
|
return;
|
|
}
|
|
|
|
#
|
|
# completeley sick, but needed for doubleclick
|
|
#
|
|
sub _show_details_wrapper {
|
|
my ($self, $mode, $list, $event) = @_;
|
|
|
|
return(0) if($event->type() ne '2button-press');
|
|
|
|
show_details($self, $mode);
|
|
|
|
return(1);
|
|
}
|
|
|
|
#
|
|
# called on rightclick in [key|cert|reqlist]
|
|
#
|
|
sub _show_popup_menu {
|
|
my ($self, $mode, $list, $event) = @_;
|
|
|
|
my $t;
|
|
|
|
if ($event->button() == 3) {
|
|
if($mode eq 'cert') {
|
|
$self->{'certmenu'}->popup(undef, undef, undef, undef, 3, 0);
|
|
} elsif ($mode eq 'req') {
|
|
$self->{'reqmenu'}->popup(undef, undef, undef, undef, 3, 0);
|
|
} elsif ($mode eq 'key') {
|
|
$self->{'keymenu'}->popup(undef, undef, undef, undef, 3, 0);
|
|
} else {
|
|
$t = sprintf(
|
|
_("Invalid mode for _show_popup_menu(): %s"), $mode);
|
|
GUI::HELPERS::print_error($t);
|
|
}
|
|
return(1);
|
|
}
|
|
|
|
return(0);
|
|
}
|
|
|
|
#
|
|
# show request/certificate informations and extensions
|
|
#
|
|
sub show_details {
|
|
my ($self, $mode) = @_;
|
|
|
|
my($name, $status, $parsed, $row, $ind, $label, $table, $tree, $box,
|
|
$button_ok, $t, @fields, $ca);
|
|
|
|
$ca = $self->{'CA'}->{'actca'};
|
|
|
|
if($mode eq 'req') {
|
|
$name = $self->{'reqbrowser'}->selection_dn();
|
|
} elsif($mode eq 'cert') {
|
|
$name = $self->{'certbrowser'}->selection_dn();
|
|
} elsif($mode eq 'CA') {
|
|
$name = 'CA';
|
|
} else {
|
|
GUI::HELPERS::print_error(
|
|
_("Invalid mode for show_details():")." ".$mode);
|
|
return;
|
|
}
|
|
|
|
if((not defined $name) && ($mode eq 'req')) {
|
|
GUI::HELPERS::print_info(_("Please select a Request first"));
|
|
return;
|
|
}elsif((not defined $name) && ($mode eq 'cert')) {
|
|
GUI::HELPERS::print_info(_("Please select a Certificate first"));
|
|
return;
|
|
}
|
|
|
|
if($mode eq 'cert') {
|
|
$status = $self->{'certbrowser'}->selection_status();
|
|
}
|
|
|
|
$name = HELPERS::enc_base64($name) if($name ne 'CA');
|
|
|
|
if($mode eq 'req') {
|
|
$parsed = $self->{'REQ'}->parse_req( $self, $name);
|
|
} elsif($mode eq 'cert' || $mode eq 'CA') {
|
|
$parsed = $self->{'CERT'}->parse_cert( $self, $name);
|
|
}
|
|
|
|
defined($parsed) || GUI::HELPERS::print_error(_("Can't read file"));
|
|
|
|
$t = $mode eq 'req'?_("Request Details"):_("Certificate Details");
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->can_default(1);
|
|
$button_ok->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box($t, $t, $button_ok);
|
|
$box->set_default_size(700, 400);
|
|
|
|
$button_ok->grab_default();
|
|
|
|
$mode = 'cert' if($mode eq 'CA');
|
|
|
|
$tree = $self->create_detail_tree($parsed, $mode);
|
|
$box->vbox->add($tree);
|
|
|
|
$box->show_all();
|
|
$tree->{'tree'}->columns_autosize();
|
|
}
|
|
|
|
#
|
|
# pop-up to verify import
|
|
#
|
|
sub show_import_verification {
|
|
my ($self, $mode, $opts, $parsed) = @_;
|
|
|
|
my($box, $button_ok, $button_cancel, $label, $rows, $tree, $t);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->can_default(1);
|
|
if($mode eq "req") {
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'REQ'}->import_req($self, $opts, $parsed, $box) });
|
|
} elsif($mode eq "cacert") {
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'CA'}->import_ca($self, $opts, $box) });
|
|
}
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
if($mode eq "req") {
|
|
$t = _("Import Request");
|
|
} elsif($mode eq "cacert") {
|
|
$t = _("Import CA Certificate");
|
|
}
|
|
$box = GUI::HELPERS::dialog_box( $t, $t, $button_ok, $button_cancel);
|
|
$box->set_default_size(700, 400);
|
|
|
|
$button_ok->grab_default();
|
|
|
|
if($mode eq "req") {
|
|
$t = _("Do you want to import the following Certificate Request?");
|
|
} elsif($mode eq "cacert") {
|
|
$t = _("Do you want to import the following CA Certificate?");
|
|
}
|
|
$label = GUI::HELPERS::create_label($t, 'center', 1, 0);
|
|
$box->vbox->pack_start($label, 0, 0, 0);
|
|
|
|
$tree = $self->create_detail_tree($parsed, $mode);
|
|
$box->vbox->pack_start($tree, 1, 1, 0);
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# create tree with details (cert/req)
|
|
#
|
|
sub create_detail_tree {
|
|
my ($self, $parsed, $mode) = @_;
|
|
|
|
# print STDERR "DEBUG: create_detail_tree called with mode $mode\n";
|
|
|
|
my ($tree, $tree_scrolled, $t, $root, $store, $piter, $citer, $column,
|
|
$ind, $nsext);
|
|
|
|
$tree_scrolled = Gtk2::ScrolledWindow->new(undef, undef);
|
|
$tree_scrolled->set_policy('automatic', 'automatic');
|
|
$tree_scrolled->set_shadow_type('etched-in');
|
|
|
|
$store = Gtk2::TreeStore->new('Glib::String','Glib::String');
|
|
$tree = Gtk2::TreeView->new_with_model($store);
|
|
$tree->get_selection->set_mode('none');
|
|
$tree->set_headers_visible(0);
|
|
|
|
$tree_scrolled->{'tree'} = $tree;
|
|
|
|
my @titles = ("", "");
|
|
$ind = 0;
|
|
foreach my $title (@titles) {
|
|
$column = Gtk2::TreeViewColumn->new_with_attributes(
|
|
$title, Gtk2::CellRendererText->new(), 'text' => $ind);
|
|
$tree->append_column($column);
|
|
$ind++;
|
|
}
|
|
|
|
$tree_scrolled->add_with_viewport($tree);
|
|
|
|
$t = $mode eq 'req'?_("Request Details"):_("Certificate Details");
|
|
if (defined $parsed->{'CN'}) {
|
|
$t .= " - $parsed->{'CN'}";
|
|
}
|
|
|
|
$root = $store->append(undef);
|
|
$store->set($root, 0 => $t);
|
|
|
|
# Information about Subject DN
|
|
|
|
$t = _("Subject DN").":";
|
|
$piter = $store->append($root);
|
|
$store->set($piter, 0 => $t);
|
|
|
|
for my $l (qw(CN EMAIL O OU C ST L)) {
|
|
if(defined($parsed->{$l})) {
|
|
if($l eq "OU") {
|
|
foreach my $ou (@{$parsed->{'OU'}}) {
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $self->{'words'}{$l},
|
|
1 => $ou);
|
|
}
|
|
} else {
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $self->{'words'}{$l},
|
|
1 => $parsed->{$l});
|
|
}
|
|
}
|
|
}
|
|
|
|
if($mode ne "req") {
|
|
# Information about Issuer
|
|
$t = _("Issuer").":";
|
|
|
|
$piter = $store->append($root);
|
|
$store->set($piter, 0 => $t);
|
|
|
|
for my $l (qw(CN EMAIL O OU C ST L)) {
|
|
if(defined($parsed->{'ISSUERDN'}->{$l})) {
|
|
if($l eq "OU") {
|
|
foreach my $ou (@{$parsed->{'ISSUERDN'}->{'OU'}}) {
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $self->{'words'}{$l},
|
|
1 => $ou);
|
|
}
|
|
} else {
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $self->{'words'}{$l},
|
|
1 => $parsed->{'ISSUERDN'}->{$l});
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if($mode ne "req") {
|
|
# Information about Validity
|
|
$t = _("Validity").":";
|
|
|
|
$piter = $store->append($root);
|
|
$store->set($piter, 0 => $t);
|
|
|
|
for my $l (qw(STATUS NOTBEFORE NOTAFTER)) {
|
|
if(defined($parsed->{$l})) {
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $self->{'words'}{$l},
|
|
1 => $parsed->{$l});
|
|
}
|
|
}
|
|
}
|
|
|
|
# Information about Key/Certificate
|
|
$t = $mode eq 'req'?_("Key/Request Details:"):_("Key/Certificate Details:");
|
|
$piter = $store->append($root);
|
|
$store->set($piter, 0 => $t);
|
|
|
|
|
|
for my $l (qw(STATUS SERIAL KEYSIZE PK_ALGORITHM SIG_ALGORITHM TYPE)) {
|
|
if(defined($parsed->{$l})) {
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $self->{'words'}{$l},
|
|
1 => $parsed->{$l});
|
|
}
|
|
}
|
|
|
|
if($mode ne "req") {
|
|
# Fingerprints
|
|
$t = _("Fingerprints").":";
|
|
$piter = $store->append($root);
|
|
$store->set($piter, 0 => $t);
|
|
|
|
for my $l (qw(FINGERPRINTMD5 FINGERPRINTSHA1 FINGERPRINTSHA256 FINGERPRINTSHA384 FINGERPRINTSHA512)) {
|
|
if(defined($parsed->{$l})) {
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $self->{'words'}{$l},
|
|
1 => $parsed->{$l});
|
|
}
|
|
}
|
|
}
|
|
|
|
# Information about Key/Certificate
|
|
if(keys(%{$parsed->{'EXT'}})) {
|
|
$t = $mode eq 'req'?_("Requested X.509 Extensions"):_("X.509v3 Extensions");
|
|
$piter = $store->append($root);
|
|
$store->set($piter, 0 => $t);
|
|
|
|
while(my ($key, $val) = each(%{$parsed->{'EXT'}})) {
|
|
if($key =~ /^netscape/i) {
|
|
$nsext = 1; next;
|
|
}
|
|
# print STDERR "DEBUG: print key: >$key< val: >$val->[0]<\n";
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $key,
|
|
1 => $val->[0]);
|
|
|
|
if(@{$val} > 1) {
|
|
for(my $i = 1; $val->[$i]; $i++) {
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $key,
|
|
1 => $val->[$i]);
|
|
}
|
|
}
|
|
}
|
|
|
|
if($nsext) {
|
|
$t = $mode eq 'req'?_("Requested Netscape Extensions"):_("Netscape Extensions");
|
|
$piter = $store->append($root);
|
|
$store->set($piter, 0 => $t);
|
|
|
|
while(my ($key, $val) = each(%{$parsed->{'EXT'}})) {
|
|
if($key !~ /^netscape/i) {
|
|
next;
|
|
}
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $key,
|
|
1 => $val->[0]);
|
|
|
|
if(@{$val} > 1) {
|
|
for(my $i = 1; $val->[$i]; $i++) {
|
|
$t = [$key, $val->[$i]];
|
|
$citer = $store->append($piter);
|
|
$store->set($citer,
|
|
0 => $key,
|
|
1 => $val->[$i]);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
$tree->expand_to_path(Gtk2::TreePath->new_first());
|
|
|
|
return($tree_scrolled);
|
|
}
|
|
|
|
|
|
#
|
|
# get name for open/delete a CA
|
|
#
|
|
sub show_select_ca_dialog {
|
|
my ($self, $action, $opts)= @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $label, $scrolled, $list,
|
|
$model, $name, $t, $store, $column, $iter);
|
|
|
|
if($action eq 'open') {
|
|
$t = _("Open CA");
|
|
}elsif($action eq 'delete') {
|
|
$t = _("Delete CA");
|
|
}else {
|
|
GUI::HELPERS::print_error(_("Invalid action given: ").$action);
|
|
return;
|
|
}
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->can_default(1);
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$button_ok->signal_connect('clicked',
|
|
sub {
|
|
$iter = $list->get_selection->get_selected();
|
|
if(defined($iter)) {
|
|
$name = $store->get($iter);
|
|
if($action eq 'open') {
|
|
$opts->{'name'} = $name;
|
|
$self->{'CA'}->open_ca($self, $opts, $box);
|
|
}elsif($action eq 'delete') {
|
|
$self->{'CA'}->delete_ca($self, $name, $box);
|
|
}else {
|
|
GUI::HELPERS::print_error(
|
|
_("Invalid action for show_select_ca_dialog(): ").$action);
|
|
}
|
|
}
|
|
}
|
|
);
|
|
|
|
$box = GUI::HELPERS::dialog_box($t, $t, $button_ok, $button_cancel);
|
|
$box->set_default_size(240,320);
|
|
|
|
$button_ok->grab_default();
|
|
|
|
$scrolled = Gtk2::ScrolledWindow->new(undef, undef);
|
|
$scrolled->set_policy('automatic', 'automatic' );
|
|
$scrolled->set_shadow_type('etched-in');
|
|
$box->vbox->add($scrolled);
|
|
|
|
$store = Gtk2::ListStore->new('Glib::String');
|
|
|
|
$list = Gtk2::TreeView->new_with_model ($store);
|
|
$list->get_selection->set_mode('single');
|
|
$scrolled->add_with_viewport($list);
|
|
|
|
$column = Gtk2::TreeViewColumn->new_with_attributes(
|
|
_("Available CAs"), Gtk2::CellRendererText->new(), 'text' => 0);
|
|
$list->append_column($column);
|
|
|
|
foreach(@{$self->{'CA'}->{'calist'}}) {
|
|
next if (not defined $_ );
|
|
$iter = $store->append();
|
|
$store->set($iter, 0, $_);
|
|
}
|
|
|
|
# activate doubleclick in the list
|
|
$list->signal_connect('button_press_event',
|
|
sub {
|
|
if($_[1]->type() eq '2button-press') {
|
|
$iter = $list->get_selection->get_selected();
|
|
if($iter) {
|
|
$name = $store->get($iter);
|
|
|
|
if($action eq 'open') {
|
|
$opts->{'name'} = $name;
|
|
$self->{'CA'}->open_ca($self, $opts, $box);
|
|
}elsif($action eq 'delete') {
|
|
$self->{'CA'}->delete_ca($self, $name, $box);
|
|
}else {
|
|
GUI::HELPERS::print_error(
|
|
_("Invalid action for show_select_ca_dialog(): ").$action);
|
|
}
|
|
}
|
|
return(1);
|
|
}
|
|
return(0);
|
|
}
|
|
);
|
|
|
|
$button_ok->grab_default();
|
|
|
|
$box->show_all();
|
|
}
|
|
|
|
#
|
|
# get data for creating a new request
|
|
#
|
|
sub show_req_dialog {
|
|
my ($self, $opts) = @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $reqtable, $radiobox, $key1, $key2,
|
|
$key3, $key4, $key5, $entry, $label);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->can_default(1);
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'REQ'}->get_req_create($self, $opts, $box) });
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Create Request") ,
|
|
_("Create a new Certificate Request"),
|
|
$button_ok, $button_cancel);
|
|
|
|
# table for request data
|
|
my $cc=0;
|
|
my $ous = 1;
|
|
if(defined($opts->{'OU'}) and ref($opts->{'OU'}) eq 'ARRAY') {
|
|
$ous = @{$opts->{'OU'}} - 1;
|
|
}
|
|
$reqtable = Gtk2::Table->new(1, 13 + $ous, 0);
|
|
$reqtable->set_col_spacing(0, 7);
|
|
$box->vbox->add($reqtable);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Common Name (eg, your Name,"),
|
|
\$opts->{'CN'}, $reqtable, 0, 1);
|
|
$entry->grab_focus();
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("your eMail Address"), 'right', 0, 0);
|
|
$reqtable->attach_defaults($label, 0, 1, 2, 3);
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("or the Servers Name)"), 'right', 0, 0);
|
|
$reqtable->attach_defaults($label, 0, 1, 3, 4);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("eMail Address").":",
|
|
\$opts->{'EMAIL'}, $reqtable, 4, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Password (protect your private Key):"),
|
|
\$opts->{'passwd'}, $reqtable, 5, 0);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Password (confirmation):"),
|
|
\$opts->{'passwd2'}, $reqtable, 6, 0);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Country Name (2 letter code):"),
|
|
\$opts->{'C'}, $reqtable, 7, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("State or Province Name:"),
|
|
\$opts->{'ST'}, $reqtable, 8, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Locality Name (eg. city):"),
|
|
\$opts->{'L'}, $reqtable, 9, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Organization Name (eg. company):"),
|
|
\$opts->{'O'}, $reqtable, 10, 1);
|
|
|
|
if(defined($opts->{'OU'}) and ref($opts->{'OU'}) eq 'ARRAY') {
|
|
foreach my $ou (@{$opts->{'OU'}}) {
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Organizational Unit Name (eg. section):"),
|
|
\$ou, $reqtable, 11 + $cc++, 1);
|
|
}
|
|
} else {
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Organizational Unit Name (eg. section):"),
|
|
\$opts->{'OU'}, $reqtable, 11, 1);
|
|
}
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Keylength").":", 'left', 0, 0);
|
|
$reqtable->attach_defaults($label, 0, 1, 13, 14);
|
|
|
|
$radiobox = Gtk2::HBox->new(0, 0);
|
|
# use config if present
|
|
main::printd("preparing radiobox for type " . $self->{'CA'}->{'cfg'}->{global}{default_req_type});
|
|
if ($self->{'CA'}->{'cfg'}->{global}{default_req_type} eq 'user') {
|
|
$opts->{'bits'} = $self->{'CA'}->{'cfg'}->{user}{default_bits} // \$opts->{'bits'};
|
|
} elsif ($self->{'CA'}->{'cfg'}->{global}{default_req_type} eq 'server') {
|
|
$opts->{'bits'} = $self->{'CA'}->{'cfg'}->{server}{default_bits}// \$opts->{'bits'};
|
|
}
|
|
_fill_radiobox($radiobox, \$opts->{'bits'}, %bit_lengths);
|
|
$reqtable->attach_defaults($radiobox, 1, 2, 13, 14);
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Digest").":", 'left', 0, 0);
|
|
$reqtable->attach_defaults($label, 0, 1, 15, 16);
|
|
|
|
$radiobox = Gtk2::HBox->new(0, 0);
|
|
_fill_radiobox($radiobox, \$opts->{'digest'}, %md_algorithms);
|
|
$reqtable->attach_defaults($radiobox, 1, 2, 15, 16);
|
|
|
|
$label = GUI::HELPERS::create_label(_("Algorithm").":", 'left', 0, 0);
|
|
$reqtable->attach_defaults($label, 0, 1, 16, 17);
|
|
|
|
$radiobox = Gtk2::HBox->new(0, 0);
|
|
_fill_radiobox($radiobox, \$opts->{'algo'},
|
|
'rsa' => 'RSA',
|
|
'dsa' => 'DSA');
|
|
$reqtable->attach_defaults($radiobox, 1, 2, 16, 17);
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# get data for revoking a certificate
|
|
#
|
|
sub show_cert_revoke_dialog {
|
|
my ($self, $opts) = @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $table, $entry, $t, $label, $combo,
|
|
@combostrings);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'CERT'}->get_revoke_cert($self, $opts, $box) });
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Revoke Certificate"), _("Revoke Certificate"),
|
|
$button_ok, $button_cancel);
|
|
|
|
# small table for data
|
|
$table = Gtk2::Table->new(1, 2, 0);
|
|
$table->set_col_spacing(0, 10);
|
|
$box->vbox->add($table);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("CA Password:"), \$opts->{'passwd'}, $table, 0, 0);
|
|
$entry->grab_focus();
|
|
|
|
if($self->{'OpenSSL'}->{'version'} !~ /^0\.9\.[0-6][a-z]?$/) {
|
|
# OpenSSL < 0.9.7 was not able to handle revocation reasons
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Revocation Reason:"), 'left', 0, 0);
|
|
|
|
$table->attach_defaults($label, 0, 1, 1, 2);
|
|
|
|
$combo = Gtk2::Combo->new();
|
|
@combostrings = qw(
|
|
unspecified
|
|
keyCompromise
|
|
CACompromise
|
|
affiliationChanged
|
|
superseded
|
|
cessationOfOperation
|
|
certificateHold);
|
|
$combo->set_popdown_strings(@combostrings);
|
|
$combo->set_use_arrows(1);
|
|
$combo->set_value_in_list(1, 0);
|
|
|
|
$combo->entry->signal_connect('changed' =>
|
|
sub{GUI::CALLBACK::entry_to_var(
|
|
$combo, $combo->entry, \$opts->{'reason'}, undef, undef)});
|
|
|
|
$table->attach_defaults($combo, 1, 2, 1, 2); }
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# get data for exporting a crl
|
|
#
|
|
sub show_crl_export_dialog {
|
|
my ($self, $opts) = @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $button, $label, $format1, $format2,
|
|
$format3, $table, $entry, $fileentry, $hbox);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-save');
|
|
$button_ok->signal_connect('clicked' =>
|
|
sub { $self->{'CA'}->export_crl($self, $opts, $box) });
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Export CRL"), _("Export Revocation List to File"),
|
|
$button_ok, $button_cancel);
|
|
|
|
# small table for file selection
|
|
$table = Gtk2::Table->new(3, 3, 0);
|
|
$table->set_col_spacing(0, 10);
|
|
$box->vbox->add($table);
|
|
|
|
$label = GUI::HELPERS::create_label(_("File:"), 'left', 0, 0);
|
|
$table->attach_defaults($label, 0, 1, 0, 1);
|
|
|
|
$fileentry = Gtk2::Entry->new();
|
|
$table->attach_defaults($fileentry, 1, 2, 0, 1);
|
|
$fileentry->set_text($opts->{'outfile'}) if(defined($opts->{'outfile'}));
|
|
$fileentry->signal_connect( 'changed' =>
|
|
sub{GUI::CALLBACK::entry_to_var(
|
|
$fileentry, $fileentry, \$opts->{'outfile'})});
|
|
$fileentry->grab_focus();
|
|
|
|
$button = Gtk2::Button->new(_("Browse..."));
|
|
$button->signal_connect('clicked' =>
|
|
sub{GUI::HELPERS::browse_file(
|
|
_("Export CA Certificate"), $fileentry, 'save')});
|
|
$table->attach_defaults($button, 2, 3, 0, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(_("CA Password:"),
|
|
\$opts->{'passwd'}, $table, 1, 0);
|
|
$entry->grab_focus();
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(_("Valid for (Days):"),
|
|
\$opts->{'days'}, $table, 2, 1);
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Export Format:"), 'left', 0, 0);
|
|
$box->vbox->add($label);
|
|
|
|
$hbox = Gtk2::HBox->new(0, 0);
|
|
$box->vbox->add($hbox);
|
|
|
|
$format1 = Gtk2::RadioButton->new(undef, _("PEM"));
|
|
$format1->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'PEM');
|
|
$format1->signal_connect('toggled' =>
|
|
sub{GUI::CALLBACK::toggle_to_var($format1,
|
|
\$opts->{'format'}, 'PEM', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$hbox->add($format1);
|
|
|
|
$format2 = Gtk2::RadioButton->new($format1, _("DER"));
|
|
$format2->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'DER');
|
|
$format2->signal_connect('toggled' =>
|
|
sub{GUI::CALLBACK::toggle_to_var($format2,
|
|
\$opts->{'format'}, 'DER', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$hbox->add($format2);
|
|
|
|
$format3 = Gtk2::RadioButton->new($format1, _("TXT"));
|
|
$format3->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'TXT');
|
|
$format3->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format3,
|
|
\$opts->{'format'}, 'TXT', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$hbox->add($format3);
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# get data for exporting a ca certificate chain
|
|
#
|
|
sub show_ca_chain_export_dialog {
|
|
my ($self, $opts) = @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $button, $label, $format1, $format2,
|
|
$format3, $table, $fileentry, $hbox);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-save');
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'CA'}->export_ca_chain($self, $opts, $box) });
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Export CA Certificate Chain"),
|
|
_("Export CA Certificate Chain to File"),
|
|
$button_ok, $button_cancel);
|
|
|
|
# small table for file selection
|
|
$table = Gtk2::Table->new(1, 3, 0);
|
|
$box->vbox->add($table);
|
|
|
|
$label = GUI::HELPERS::create_label(_("File:"), 'left', 0, 0);
|
|
$table->attach_defaults($label, 0, 1, 0, 1);
|
|
|
|
$fileentry = Gtk2::Entry->new();
|
|
$table->attach_defaults($fileentry, 1, 2, 0, 1);
|
|
$fileentry->set_text($opts->{'outfile'}) if(defined($opts->{'outfile'}));
|
|
$fileentry->signal_connect( 'changed' =>
|
|
sub { GUI::CALLBACK::entry_to_var(
|
|
$fileentry, $fileentry, \$opts->{'outfile'}) });
|
|
$fileentry->grab_focus();
|
|
|
|
$button = Gtk2::Button->new(_("Browse..."));
|
|
$button->signal_connect('clicked' =>
|
|
sub{GUI::HELPERS::browse_file(
|
|
_("Export CA Certificate Chain"), $fileentry, 'save')});
|
|
$table->attach_defaults($button, 2, 3, 0, 1);
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# get data for exporting a ca certificate
|
|
#
|
|
sub show_ca_export_dialog {
|
|
my ($self, $opts) = @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $label, $format1, $format2,
|
|
$format3, $table, $entry, $fileentry, $hbox, $button);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-save');
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'CA'}->export_ca_cert($self, $opts, $box) });
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Export CA Certificate"),
|
|
_("Export CA Certificate to File"),
|
|
$button_ok, $button_cancel);
|
|
|
|
# small table for file selection
|
|
$table = Gtk2::Table->new(1, 3, 0);
|
|
$table->set_col_spacing(0, 10);
|
|
$box->vbox->add($table);
|
|
|
|
$label = GUI::HELPERS::create_label(_("File:"), 'left', 0, 0);
|
|
$table->attach_defaults($label, 0, 1, 0, 1);
|
|
|
|
$fileentry = Gtk2::Entry->new();
|
|
$table->attach_defaults($fileentry, 1, 2, 0, 1);
|
|
$fileentry->set_text($opts->{'outfile'}) if(defined($opts->{'outfile'}));
|
|
$fileentry->signal_connect('changed' =>
|
|
sub{GUI::CALLBACK::entry_to_var(
|
|
$fileentry, $fileentry, \$opts->{'outfile'})});
|
|
$fileentry->grab_focus();
|
|
|
|
$button = Gtk2::Button->new(_("Browse..."));
|
|
$button->signal_connect('clicked' =>
|
|
sub{GUI::HELPERS::browse_file(
|
|
_("Export CA Certificate"), $fileentry, 'save')});
|
|
$table->attach_defaults($button, 2, 3, 0, 1);
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Export Format:"), 'left', 0, 0);
|
|
$box->vbox->add($label);
|
|
|
|
$hbox = Gtk2::HBox->new(0, 0);
|
|
$box->vbox->add($hbox);
|
|
|
|
$format1 = Gtk2::RadioButton->new(undef, _("PEM"));
|
|
$format1->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'PEM');
|
|
$format1->signal_connect_after('toggled' =>
|
|
sub{GUI::CALLBACK::toggle_to_var($format1,
|
|
\$opts->{'format'}, 'PEM', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$hbox->add($format1);
|
|
|
|
$format2 = Gtk2::RadioButton->new($format1, _("DER"));
|
|
$format2->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'DER');
|
|
$format2->signal_connect_after('toggled' =>
|
|
sub{GUI::CALLBACK::toggle_to_var($format2,
|
|
\$opts->{'format'}, 'DER', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$hbox->add($format2);
|
|
|
|
$format3 = Gtk2::RadioButton->new($format1, _("TXT"));
|
|
$format3->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'TXT');
|
|
$format3->signal_connect_after('toggled' =>
|
|
sub{GUI::CALLBACK::toggle_to_var($format3,
|
|
\$opts->{'format'}, 'TXT', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$hbox->add($format3);
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# get filename for importing keys
|
|
#
|
|
sub show_key_import_dialog {
|
|
my ($self, $opts) = @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $button, $entry, $table, $label);
|
|
my ($t, $fileentry);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'KEY'}->get_import_key($self, $opts, $box) });
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Import Key"),
|
|
_("Import Key"),
|
|
$button_ok, $button_cancel);
|
|
$box->set_default_size(640, -1);
|
|
|
|
# small table for file selection
|
|
$table = Gtk2::Table->new(1, 3, 0);
|
|
$table->set_col_spacing(0, 10);
|
|
$box->vbox->add($table);
|
|
|
|
$label = GUI::HELPERS::create_label(_("File:"), 'left', 0, 0);
|
|
$table->attach($label, 0, 1, 0, 1, 'fill', 'fill', 0, 0);
|
|
|
|
$t = _("Select key file");
|
|
$fileentry = Gtk2::Entry->new();
|
|
$fileentry->set_text($opts->{'infile'}) if(defined($opts->{'infile'}));
|
|
$fileentry->signal_connect( 'changed',
|
|
sub{ GUI::CALLBACK::entry_to_var(
|
|
$fileentry, $fileentry, \$opts->{'infile'})});
|
|
$table->attach_defaults($fileentry, 1, 2, 0, 1);
|
|
|
|
$button = Gtk2::Button->new(_("Browse..."));
|
|
$button->signal_connect('clicked' =>
|
|
sub{GUI::HELPERS::browse_file(
|
|
$t, $fileentry, 'key')});
|
|
$table->attach($button, 2, 3, 0, 1, 'fill', 'fill', 0, 0);
|
|
|
|
$label = GUI::HELPERS::create_label(_("Metadata"), 'left', 0, 1);
|
|
$box->vbox->add($label);
|
|
|
|
$table = Gtk2::Table->new(1, 5, 0);
|
|
$table->set_col_spacing(0, 7);
|
|
$box->vbox->add($table);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Common Name"),
|
|
\$opts->{'CN'}, $table, 0, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("eMail Address").":",
|
|
\$opts->{'EMAIL'}, $table, 1, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Country Name (2 letter code):"),
|
|
\$opts->{'C'}, $table, 2, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("State or Province Name:"),
|
|
\$opts->{'ST'}, $table, 3, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Locality Name (eg. city):"),
|
|
\$opts->{'L'}, $table, 4, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Organization Name (eg. company):"),
|
|
\$opts->{'O'}, $table, 5, 1);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(
|
|
_("Organizational Unit Name (eg. section):"),
|
|
\$opts->{'OU'}, $table, 6, 1);
|
|
|
|
# Hint: We don't need the password for import
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# get password for exporting keys
|
|
#
|
|
sub show_key_nopasswd_dialog {
|
|
my ($self, $opts) = @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $label, $table, $entry);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'KEY'}->get_export_key($self, $opts, $box) });
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Export Key without Passphrase"),
|
|
_("Export Key without Passphrase"),
|
|
$button_ok, $button_cancel);
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("I hope you know what you\'re doing?"), 'center', 1, 0);
|
|
$box->vbox->add($label);
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("The Key Passphrase is needed for decryption of the Key"),
|
|
'center', 1, 0);
|
|
$box->vbox->add($label);
|
|
|
|
# small table for data
|
|
$table = Gtk2::Table->new(1, 2, 0);
|
|
$table->set_col_spacing(0, 10);
|
|
$box->vbox->add($table);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(_("Password:"),
|
|
\$opts->{'passwd'}, $table, 0, 0);
|
|
$entry->grab_focus();
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# get filename for importing a request
|
|
#
|
|
sub show_req_import_dialog {
|
|
my $self = shift;
|
|
|
|
my $opts = {};
|
|
my($box, $button_ok, $button_cancel, $button, $entry, $table, $label);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'REQ'}->get_import_req($self, $opts, $box) });
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Import Request"), _("Import Request from File"),
|
|
$button_ok, $button_cancel);
|
|
|
|
# small table for data
|
|
$table = Gtk2::Table->new(2, 3, 0);
|
|
$table->set_col_spacing(0, 10);
|
|
$box->vbox->add($table);
|
|
|
|
$label = GUI::HELPERS::create_label(_("File:"), 'left', 0, 0);
|
|
$table->attach_defaults($label, 0, 1, 0, 1);
|
|
|
|
$entry = Gtk2::Entry->new();
|
|
$table->attach_defaults($entry, 1, 2, 0, 1);
|
|
$entry->signal_connect( 'changed' =>
|
|
sub{ GUI::CALLBACK::entry_to_var($entry,
|
|
$entry, \$opts->{'infile'})});
|
|
$entry->grab_focus();
|
|
|
|
$button = Gtk2::Button->new(_("Browse..."));
|
|
$button->signal_connect('clicked' =>
|
|
sub{GUI::HELPERS::browse_file(
|
|
_("Import Request from File"), $entry, 'open')});
|
|
$table->attach_defaults($button, 2, 3, 0, 1);
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
#
|
|
# get data for exporting a certificate
|
|
#
|
|
sub show_export_dialog {
|
|
my ($self, $opts, $mode) = @_;
|
|
|
|
my ($box, $button_ok, $button_cancel, $button, $label, $table, $entry,
|
|
$fileentry, $format1, $format2, $format3, $format4, $format5,
|
|
$format6, $passbox, $pass1, $pass2, $title, $text, $t, $incbox,
|
|
$inc1, $inc2, $fpbox, $incfp1, $incfp2);
|
|
|
|
if($mode eq 'cert') {
|
|
$title = _("Export Certificate");
|
|
} elsif($mode eq 'key') {
|
|
$title = _("Export Key");
|
|
} else {
|
|
GUI::HELPERS::print_error(
|
|
_("Invalid mode for show_export_dialog(): ").$mode);
|
|
return;
|
|
}
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-save');
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
|
|
if($mode eq 'cert') {
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'CERT'}->get_export_cert($self, $opts, $box) });
|
|
} else {
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'KEY'}->get_export_key($self, $opts, $box) });
|
|
}
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
if($mode eq 'cert') {
|
|
$text = _("Export Certificate to File");
|
|
} else {
|
|
$text = _("Export Key to File");
|
|
}
|
|
|
|
$box = GUI::HELPERS::dialog_box($title, $text, $button_ok, $button_cancel);
|
|
$box->set_default_size(640, -1);
|
|
|
|
# small table for file selection
|
|
$table = Gtk2::Table->new(1, 3, 0);
|
|
$table->set_col_spacing(0, 10);
|
|
$box->vbox->add($table);
|
|
|
|
$label = GUI::HELPERS::create_label(_("File:"), 'left', 0, 0);
|
|
$table->attach($label, 0, 1, 0, 1, 'fill', 'fill', 0, 0);
|
|
|
|
if($mode eq 'cert') {
|
|
$t = _("Export Certificate");
|
|
}else {
|
|
$t = _("Export Key");
|
|
}
|
|
|
|
$fileentry = Gtk2::Entry->new();
|
|
$table->attach_defaults($fileentry, 1, 2, 0, 1);
|
|
$fileentry->set_text($opts->{'outfile'}) if(defined($opts->{'outfile'}));
|
|
$fileentry->signal_connect( 'changed',
|
|
sub{ GUI::CALLBACK::entry_to_var(
|
|
$fileentry, $fileentry, \$opts->{'outfile'})});
|
|
$fileentry->grab_focus();
|
|
|
|
$button = Gtk2::Button->new(_("Browse..."));
|
|
$button->signal_connect('clicked' =>
|
|
sub{GUI::HELPERS::browse_file(
|
|
$t, $fileentry, 'save')});
|
|
$table->attach($button, 2, 3, 0, 1, 'fill', 'fill', 0, 0);
|
|
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Export Format:"), 'center', 0, 0);
|
|
$box->vbox->add($label);
|
|
|
|
if($mode eq 'cert') {
|
|
$t = _("PEM (Certificate)");
|
|
}else {
|
|
$t = _("PEM (Key)");
|
|
}
|
|
|
|
$format1 = Gtk2::RadioButton->new(undef, $t);
|
|
$format1->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'PEM');
|
|
$box->vbox->add($format1);
|
|
|
|
if($mode eq 'cert') {
|
|
$t = _("DER (Certificate)");
|
|
}else {
|
|
$t = _("DER (Key without Passphrase)");
|
|
}
|
|
|
|
$format2 = Gtk2::RadioButton->new($format1, $t);
|
|
$format2->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'DER');
|
|
$box->vbox->add($format2);
|
|
|
|
$t = _("PKCS#12 (Certificate & Key)");
|
|
|
|
$format3 = Gtk2::RadioButton->new($format1, $t);
|
|
$format3->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'P12');
|
|
$box->vbox->add($format3);
|
|
|
|
$t = _("Zip (Certificate & Key)");
|
|
|
|
$format4 = Gtk2::RadioButton->new($format1, $t);
|
|
$format4->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'ZIP');
|
|
$box->vbox->add($format4);
|
|
if(not -x $self->{'init'}->{'zipbin'}) {
|
|
$format4->set_sensitive(0);
|
|
}
|
|
|
|
$t = _("Tar (Certificate & Key)");
|
|
|
|
$format5 = Gtk2::RadioButton->new($format1, $t);
|
|
$format5->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'TAR');
|
|
$box->vbox->add($format5);
|
|
if(not -x $self->{'init'}->{'tarbin'}) {
|
|
$format5->set_sensitive(0);
|
|
}
|
|
|
|
if($mode eq 'cert') {
|
|
$format6 = Gtk2::RadioButton->new(
|
|
$format1, _("TXT (Certificate)"));
|
|
$format6->set_active(1)
|
|
if(defined($opts->{'format'}) && $opts->{'format'} eq 'TXT');
|
|
$box->vbox->add($format6);
|
|
} else { # no password for PEM key
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Without Passphrase (PEM/PKCS#12)"), 'left', 0, 0);
|
|
$box->vbox->add($label);
|
|
|
|
$passbox = Gtk2::HBox->new(0, 0);
|
|
$box->vbox->add($passbox);
|
|
|
|
$pass1 = Gtk2::RadioButton->new(undef, _("Yes"));
|
|
$pass1->set_active(1)
|
|
if(defined($opts->{'nopass'}) && $opts->{'nopass'} == 1);
|
|
$passbox->add($pass1);
|
|
|
|
$pass2 = Gtk2::RadioButton->new($pass1, _("No"));
|
|
$pass2->set_active(1)
|
|
if(defined($opts->{'nopass'}) && $opts->{'nopass'} == 0);
|
|
$passbox->add($pass2);
|
|
}
|
|
|
|
# add key/certificate
|
|
|
|
if($mode eq 'cert') {
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Include Key (PEM)"), 'left', 0, 0);
|
|
$box->vbox->add($label);
|
|
|
|
} else {
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Include Certificate (PEM)"), 'left', 0, 0);
|
|
$box->vbox->add($label);
|
|
}
|
|
|
|
$incbox = Gtk2::HBox->new(0, 0);
|
|
$box->vbox->add($incbox);
|
|
|
|
$inc1 = Gtk2::RadioButton->new(undef, _("Yes"));
|
|
$inc1->set_active(1)
|
|
if(defined($opts->{'include'}) && $opts->{'include'} == 1);
|
|
$incbox->add($inc1);
|
|
|
|
$inc2 = Gtk2::RadioButton->new($inc1, _("No"));
|
|
$inc2->set_active(1)
|
|
if(defined($opts->{'include'}) && $opts->{'include'} == 0);
|
|
$incbox->add($inc2);
|
|
|
|
# add fingerprint
|
|
if($mode eq 'cert') {
|
|
$label = GUI::HELPERS::create_label(
|
|
_("Include Fingerprint (PEM)"), 'left', 0, 0);
|
|
$box->vbox->add($label);
|
|
|
|
$fpbox = Gtk2::HBox->new(0, 0);
|
|
$box->vbox->add($fpbox);
|
|
|
|
$incfp1 = Gtk2::RadioButton->new(undef, _("Yes"));
|
|
$incfp1->set_active(1)
|
|
if(defined($opts->{'incfp'}) && $opts->{'incfp'} == 1);
|
|
$fpbox->add($incfp1);
|
|
|
|
$incfp2 = Gtk2::RadioButton->new($incfp1, _("No"));
|
|
$incfp2->set_active(1)
|
|
if(defined($opts->{'incfp'}) && $opts->{'incfp'} == 0);
|
|
$fpbox->add($incfp2);
|
|
}
|
|
|
|
if($mode eq 'cert') {
|
|
$format1->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format1,
|
|
\$opts->{'format'}, 'PEM', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$format2->signal_connect('toggled' =>
|
|
sub{ &GUI::CALLBACK::toggle_to_var($format2,
|
|
\$opts->{'format'}, 'DER', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$format3->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format3,
|
|
\$opts->{'format'}, 'P12', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$format4->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format4,
|
|
\$opts->{'format'}, 'ZIP', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$format5->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format5,
|
|
\$opts->{'format'}, 'TAR', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$format6->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format6,
|
|
\$opts->{'format'}, 'TXT', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry)});
|
|
$inc1->signal_connect('toggled' =>
|
|
sub { GUI::CALLBACK::toggle_to_var($incfp1, \$opts->{'include'}, 1)});
|
|
$inc2->signal_connect('toggled' =>
|
|
sub { GUI::CALLBACK::toggle_to_var($incfp2, \$opts->{'include'}, 0)});
|
|
$incfp1->signal_connect('toggled' =>
|
|
sub { GUI::CALLBACK::toggle_to_var($incfp1, \$opts->{'incfp'}, 1)});
|
|
$incfp2->signal_connect('toggled' =>
|
|
sub { GUI::CALLBACK::toggle_to_var($incfp2, \$opts->{'incfp'}, 0)});
|
|
}else {
|
|
$format1->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format1,
|
|
\$opts->{'format'}, 'PEM', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry, $pass1, $pass2)});
|
|
$format2->signal_connect('toggled' =>
|
|
sub{ &GUI::CALLBACK::toggle_to_var($format2,
|
|
\$opts->{'format'}, 'DER', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry, $pass1, $pass2)});
|
|
$format3->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format3,
|
|
\$opts->{'format'}, 'P12', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry, $pass1, $pass2)});
|
|
$format4->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format4,
|
|
\$opts->{'format'}, 'ZIP', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry, $pass1, $pass2)});
|
|
$format5->signal_connect('toggled' =>
|
|
sub{ GUI::CALLBACK::toggle_to_var($format5,
|
|
\$opts->{'format'}, 'TAR', \$opts->{'outfile'},
|
|
\$opts->{'format'}, $fileentry, $pass1, $pass2)});
|
|
$pass1->signal_connect('toggled' =>
|
|
sub { GUI::CALLBACK::toggle_to_var($pass1, \$opts->{'nopass'}, 1)});
|
|
$pass2->signal_connect('toggled' =>
|
|
sub { GUI::CALLBACK::toggle_to_var($pass2, \$opts->{'nopass'}, 0)});
|
|
$inc1->signal_connect('toggled' =>
|
|
sub { GUI::CALLBACK::toggle_to_var($inc1, \$opts->{'include'}, 1)});
|
|
$inc2->signal_connect('toggled' =>
|
|
sub { GUI::CALLBACK::toggle_to_var($inc2, \$opts->{'include'}, 0)});
|
|
}
|
|
|
|
$box->show_all();
|
|
|
|
return;
|
|
}
|
|
|
|
#
|
|
# get export passwd for pkcs#12
|
|
#
|
|
sub show_p12_export_dialog {
|
|
my ($self, $opts, $mode) = @_;
|
|
|
|
my ($box, $label, $table, $entry, $button_ok, $button_cancel, $radiobox,
|
|
$includeca1, $includeca2, $passbox, $pass1, $pass2);
|
|
|
|
$button_ok = Gtk2::Button->new_from_stock('gtk-ok');
|
|
if($mode eq 'key') {
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'KEY'}->get_export_key($self, $opts, $box) });
|
|
} elsif($mode eq 'cert') {
|
|
$button_ok->signal_connect('clicked',
|
|
sub { $self->{'CERT'}->get_export_cert($self, $opts, $box) });
|
|
}
|
|
|
|
$button_cancel = Gtk2::Button->new_from_stock('gtk-cancel');
|
|
$button_cancel->signal_connect('clicked', sub { $box->destroy() });
|
|
|
|
$box = GUI::HELPERS::dialog_box(
|
|
$self->{'CA'}->{'actca'} . ': ' . _("Export to PKCS#12"),
|
|
_("Export to PKCS#12"),
|
|
$button_ok, $button_cancel);
|
|
|
|
# small table for storage name
|
|
$table = Gtk2::Table->new(2, 2, 0);
|
|
$box->vbox->add($table);
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(_("Key Password:"),
|
|
\$opts->{'passwd'}, $table, 0, 0);
|
|
$entry->grab_focus();
|
|
|
|
$entry = GUI::HELPERS::entry_to_table(_("Export Password:"),
|
|
\$opts->{'p12passwd'}, $ |