Thomas Hooge
8 years ago
commit
e136e7cbbf
@ -0,0 +1,212 @@ |
|||||||
|
$Id: CHANGES,v 1.23 2006/07/25 20:10:54 sm Exp $ |
||||||
|
|
||||||
|
version 0.7.5 - Tue July 25 2006 |
||||||
|
* added swedish translation |
||||||
|
many thanks to Daniel Nylander |
||||||
|
|
||||||
|
version 0.7.4 - Thu June 29 2006 |
||||||
|
* fixed invalid filename encoding with german umlauts in base64 |
||||||
|
thanks to Bruno Blumenthal |
||||||
|
* Fixed display of UTF8 characters in the GUI |
||||||
|
Debian #367829 |
||||||
|
|
||||||
|
version 0.7.3 - Tue May 23 2006 |
||||||
|
* Add environment variable |
||||||
|
Gentoo #78576 |
||||||
|
thanks to dragonheart at gentoo dot org |
||||||
|
* Fixed crash when CA is created with nsCertType |
||||||
|
Debian #354386 |
||||||
|
|
||||||
|
version 0.7.3 - Tue May 23 2006 |
||||||
|
* Enhanced version detection |
||||||
|
thanks to Peter Marschall |
||||||
|
Debian #360766 #360555 |
||||||
|
* Changed command for openssl due to changed openssl behavior |
||||||
|
regarding fingerprints |
||||||
|
thanks to Peter Marschall |
||||||
|
Debian #360768 |
||||||
|
* Added "friendly name" to PKCS#12 export |
||||||
|
Debian #364617 |
||||||
|
* Corrected exit call |
||||||
|
thanks to Peter Marschall |
||||||
|
Debian #360767 |
||||||
|
|
||||||
|
|
||||||
|
version 0.7.2 - Sat Feb 18 2006 |
||||||
|
* Fixed bug, which made keysize always 4096 |
||||||
|
* Implemented correct usage of openssl crl depending on openssl version |
||||||
|
* Added tar file support for export |
||||||
|
|
||||||
|
version 0.7.1 - Sat Oct 22 2005 |
||||||
|
* Fixed possible crashbug, thanks to |
||||||
|
* Choose CA validity as maximal certificate lifetime |
||||||
|
* correctly include/don't include keys in exported certificate files |
||||||
|
thanks to "thus0 at free dot fr" |
||||||
|
* added ripemd160 support, thanks to Wim Lewis |
||||||
|
* added possibility to create pkcs#12 without password |
||||||
|
* fixed broken OU in SubCA, thanks to Charles Lepple |
||||||
|
* fixed bug which made saving options with comboboxes impossible |
||||||
|
thanks to "thus0 at free dot fr" |
||||||
|
* fixed bug inseting the right serial number during import |
||||||
|
thanks to Daniel Kahn Gillmor |
||||||
|
|
||||||
|
version 0.7.0 - Sun Apr 10 2005 |
||||||
|
* migrated to perl-Gtk2 |
||||||
|
* added advanced export options (Debian #293931) |
||||||
|
* added CA history |
||||||
|
* fixed some minor bugs |
||||||
|
|
||||||
|
version 0.6.8 (beta) - Sun Feb 20 2004 |
||||||
|
* added detection for openssl 0.9.8 |
||||||
|
* removed crlDistributionPoint for Root-CA |
||||||
|
* added patch for multiple OUs |
||||||
|
Thanks to Uwe Arndt <arndt@uni-koblenz.de> |
||||||
|
* added patch for multiple subjectAltName extensions (Debian #271183) |
||||||
|
Thanks to Peter Marschall <peter@adpm.de> |
||||||
|
|
||||||
|
version 0.6.7 (beta) - Mon Dec 5 2004 |
||||||
|
* added import functionality |
||||||
|
|
||||||
|
version 0.6.6 (beta) - Fri Aug 13 2004 |
||||||
|
* added czech translation |
||||||
|
Thanks to Robert Wolf <gentoo@slave.umbr.cas.cz> |
||||||
|
|
||||||
|
version 0.6.5 (beta) - Thu Aug 05 2004 |
||||||
|
* added spanish translation |
||||||
|
Thanks to Ramon Pons Vivanco <rpons@rinu.org> |
||||||
|
* force (re)parsing a newly created request |
||||||
|
* force delete of internal structures, when deleting a CA |
||||||
|
|
||||||
|
version 0.6.4 (beta) - Thu Jul 15 2004 |
||||||
|
* fixed bug, showing wrong options for renewal of certificates |
||||||
|
* fixed bug creating requests via rightclick directly after creating a new CA |
||||||
|
(thanks to wbx@openbsd.de) |
||||||
|
* fixed bug which added ugly empty box to cert/req page |
||||||
|
* fixed bug with wrong openssl.conf during startup (server-cert with |
||||||
|
ca-extensions) |
||||||
|
(thanks to bernhard.dawuidow@tronicplanet.de) |
||||||
|
* fixed ca-config dialog during creation of root-ca (drop-downs) |
||||||
|
(thanks to X_KurJ@viessmann.com) |
||||||
|
* revocation reason can be given with openssl 0.9.7 |
||||||
|
* changed default exportdir to users home |
||||||
|
* remeber exportdir from last export |
||||||
|
* added possibility to set the extension extendedKeyUsage |
||||||
|
* added possibility to leave email out of the subject dn (0.9.7) |
||||||
|
|
||||||
|
version 0.6.3 (beta) - Wed Jun 16 2004 |
||||||
|
* fixed bug which made it impossible to create new requests |
||||||
|
|
||||||
|
version 0.6.2 (beta) - Sun Jun 13 2004 |
||||||
|
* added new look for some functions |
||||||
|
* key, request and certificate can be generated in one step |
||||||
|
* code cleanup |
||||||
|
|
||||||
|
version 0.6.1 (beta) - Sat May 22 2004 |
||||||
|
* fixed bug, which made it impossible to create a new Root-CA |
||||||
|
Thanks to Olaf Gellert <og@pre-secure.de> |
||||||
|
|
||||||
|
version 0.6.0 (beta) - Tue May 11 2004 |
||||||
|
* some minor usability improvements |
||||||
|
* added possibility to create SubCAs now |
||||||
|
* added possibility also to use DSA keys |
||||||
|
* added possibility to select the digest during key creation |
||||||
|
* added possibility to export the complete CA-chain of a SubCA |
||||||
|
Thanks a lot to Olaf Gellert <og@pre-secure.de> for ideas and patches. |
||||||
|
|
||||||
|
version 0.5.4 (beta) - Fri Oct 3 2003 |
||||||
|
* added a lot of configuration options |
||||||
|
* correctly import/show details of requests without extensions |
||||||
|
(thanks to James.Leavitt@anywaregroup.com) |
||||||
|
|
||||||
|
version 0.5.3 (beta) - Mon Sep 29 2003 |
||||||
|
* fixed wrong label while creating new CA |
||||||
|
* fixed bug, saving configuration is possible again |
||||||
|
|
||||||
|
version 0.5.2 (beta) - Mon Sep 1 2003 |
||||||
|
* added renewal of certificates |
||||||
|
|
||||||
|
version 0.5.1 (beta) - Tue Aug 26 2003 |
||||||
|
* code cleanup |
||||||
|
* fixed some minor bugs and typos |
||||||
|
* corrected some window sizes and tables |
||||||
|
* added accelerators to the menu |
||||||
|
|
||||||
|
version 0.5.0 (beta) - Sat Aug 16 2003 |
||||||
|
* GUI rewriten with perl-Gtk/Gnome |
||||||
|
|
||||||
|
version 0.4.9 (beta) - Sat Jul 5 2003 |
||||||
|
* added german translation |
||||||
|
|
||||||
|
version 0.4.8 (beta) - Tue Jul 1 2003 |
||||||
|
* convert index.txt if openssl changed from 0.9.6x to 0.9.7x |
||||||
|
|
||||||
|
version 0.4.7 (beta) - Fri Jun 27 2003 |
||||||
|
* added export into zip-file |
||||||
|
thanks to ludwig.nussel@suse.de |
||||||
|
|
||||||
|
version 0.4.6 (beta) - Mon Jun 23 2003 |
||||||
|
* some tiny usability improvements |
||||||
|
thanks to ludwig.nussel@suse.de again |
||||||
|
|
||||||
|
version 0.4.5 (beta) - Thu Jun 19 2003 |
||||||
|
* some usability improvements |
||||||
|
thanks to ludwig.nussel@suse.de |
||||||
|
* some more configuration options |
||||||
|
|
||||||
|
version 0.4.4 (beta) - Fri Oct 4 2002 |
||||||
|
* Fixed bug exporting keys in PEM format |
||||||
|
* Fixed possible empty lines in cert/key/reqlist |
||||||
|
thanks to waldemar.mertke@gmx.de |
||||||
|
|
||||||
|
version 0.4.3 (beta) - Fri Sep 27 2002 |
||||||
|
* Fixed some minor bugs and typos (e.g. concerning openssl 0.9.7) |
||||||
|
thanks to iebgener@yahoo.com and waldemar.mertke@gmx.de |
||||||
|
|
||||||
|
version 0.4.2 (beta) - Sat Aug 24 2002 |
||||||
|
* fixed revocation when serial is > 15 |
||||||
|
thanks to curly@e-card.bg |
||||||
|
* fixed recognition of java-generated requests |
||||||
|
thanks to matthew.lewis@syntegra.com |
||||||
|
* code cleanup |
||||||
|
|
||||||
|
version 0.4.1 (beta) - Wed Aug 21 2002 |
||||||
|
* fixed revocation |
||||||
|
* added some colors |
||||||
|
* thanks to curly@e-card.bg |
||||||
|
|
||||||
|
version 0.4.0 (beta) - Sun Aug 18 2002 |
||||||
|
* works independent of OpenCA modules now |
||||||
|
* some enhancements to functionality (e.g. export of key without |
||||||
|
passwd) |
||||||
|
* some smaller bugfixes in usability |
||||||
|
* new specfile (thanks to oron@actcom.co.il) |
||||||
|
|
||||||
|
version 0.3.4 (beta) - Mon Jun 3 2002 |
||||||
|
* fixed wrong templatedir when creating a new CA |
||||||
|
|
||||||
|
version 0.3.3 (beta) - Sun Jun 2 2002 |
||||||
|
* fixed some minor bugs and typos |
||||||
|
import of requests from ssh-sentinel should work now without problems |
||||||
|
|
||||||
|
version 0.3.2 (beta) - Sat May 11 2002 |
||||||
|
* added parser for x509 extensions when viewing certificate details |
||||||
|
|
||||||
|
version 0.3.1 (beta) - Fri May 3 2002 |
||||||
|
* added option to view complete certificate/request as text |
||||||
|
|
||||||
|
version 0.3.0 (beta) - Thu Apr 18 2002 |
||||||
|
* added possibility to configure openssl |
||||||
|
* fixed some minor bugs |
||||||
|
|
||||||
|
version 0.2.5 (beta) - Sun Apr 7 2002 |
||||||
|
* improved usabilty and errorhandling |
||||||
|
* fixed some minor bugs and typos |
||||||
|
|
||||||
|
version 0.2.4 (beta) - Sun Mar 31 2002 |
||||||
|
* added possibilty to import PKCS#10 requests |
||||||
|
* added function to delete a configured CA |
||||||
|
|
||||||
|
version 0.2.3 (beta) - Tue Mar 26 2002 |
||||||
|
* fixed bug with expiration date defaults to 30 days when creating |
||||||
|
a new CA |
||||||
|
* change status to E in index.txt, if certificate is expired |
||||||
@ -0,0 +1,30 @@ |
|||||||
|
1. Unpack the sources (seems like you got it already) |
||||||
|
|
||||||
|
2. Configure the following paths for your setup. These variables |
||||||
|
are located in the file tinyca itself. |
||||||
|
|
||||||
|
@INC (location of the directory lib) |
||||||
|
$init->{'opensslbin'} (location of your openssl binary) |
||||||
|
$init->{'templatedir'} (location of the directory templates) |
||||||
|
$init->{'zipbin'} (location of your zip binary) |
||||||
|
$init->{'tarbin'} (location of your tar binary) |
||||||
|
|
||||||
|
3. If you want to have german/spanish/czech/swedish texts: |
||||||
|
Generate the file tinyca.mo from po/de.po: |
||||||
|
msgfmt po/de.po -o locale/de/LC_MESSAGES/tinyca.mo |
||||||
|
msgfmt po/es.po -o locale/es/LC_MESSAGES/tinyca.mo |
||||||
|
msgfmt po/cs.po -o locale/cs/LC_MESSAGES/tinyca.mo |
||||||
|
msgfmt po/sv.po -o locale/sv/LC_MESSAGES/tinyca.mo |
||||||
|
or even more simple: call make in the directory po/ |
||||||
|
|
||||||
|
If your locale is not set to german/spanish: |
||||||
|
export LC_ALL=de_DE.UTF-8 |
||||||
|
or |
||||||
|
export LC_ALL=es_ES.UTF-8 |
||||||
|
or |
||||||
|
export LC_ALL=cs_CZ.UTF-8 |
||||||
|
or |
||||||
|
export LC_ALL=sv_SE.UTF-8 |
||||||
|
before you call tinyca. |
||||||
|
|
||||||
|
4. Call tinyca2, use it and report bugs :-)) |
||||||
@ -0,0 +1,9 @@ |
|||||||
|
#!/bin/bash |
||||||
|
|
||||||
|
mkdir -p locale/de/LC_MESSAGES |
||||||
|
mkdir -p locale/es/LC_MESSAGES |
||||||
|
mkdir -p locale/cs/LC_MESSAGES |
||||||
|
|
||||||
|
msgfmt po/de.po -o locale/de/LC_MESSAGES/tinyca2.mo |
||||||
|
msgfmt po/es.po -o locale/es/LC_MESSAGES/tinyca2.mo |
||||||
|
msgfmt po/cs.po -o locale/cs/LC_MESSAGES/tinyca2.mo |
||||||
@ -0,0 +1,713 @@ |
|||||||
|
# Copyright (c) Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: CERT.pm,v 1.11 2006/06/28 21:50:41 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 CERT; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
sub new { |
||||||
|
my $that = shift; |
||||||
|
my $class = ref($that) || $that; |
||||||
|
|
||||||
|
my $self = {}; |
||||||
|
|
||||||
|
$self->{'OpenSSL'} = shift; |
||||||
|
|
||||||
|
bless($self, $class); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# read certificates in directory into list |
||||||
|
# |
||||||
|
sub read_certlist { |
||||||
|
my ($self, $certdir, $crlfile, $indexfile, $force, $main) = @_; |
||||||
|
|
||||||
|
my($f, $certlist, $crl, $modt, $parsed, $tmp, $t, $c, $p, @files); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$certlist = []; |
||||||
|
|
||||||
|
$modt = (stat($certdir))[9]; |
||||||
|
|
||||||
|
if(defined($self->{'lastread'}) && |
||||||
|
($self->{'lastread'} >= $modt) && |
||||||
|
not defined($force)) { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
return(0); |
||||||
|
} |
||||||
|
|
||||||
|
$crl = $self->{'OpenSSL'}->parsecrl($crlfile, $force); |
||||||
|
|
||||||
|
opendir(DIR, $certdir) || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = sprintf(_("Can't open Certificate directory: %s"), $certdir); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return(0); |
||||||
|
}; |
||||||
|
|
||||||
|
while($f = readdir(DIR)) { |
||||||
|
next if $f =~ /^\./; |
||||||
|
push(@files, $f); |
||||||
|
$c++; |
||||||
|
} |
||||||
|
|
||||||
|
$main->{'barbox'}->pack_start($main->{'progress'}, 0, 0, 0); |
||||||
|
$main->{'progress'}->show(); |
||||||
|
foreach $f (@files) { |
||||||
|
next if $f =~ /^\./; |
||||||
|
|
||||||
|
$f =~ s/\.pem//; |
||||||
|
|
||||||
|
$tmp = HELPERS::dec_base64($f); |
||||||
|
next if not defined($tmp); |
||||||
|
next if $tmp eq ""; |
||||||
|
|
||||||
|
if(defined($main)) { |
||||||
|
$t = sprintf(_(" Read Certificate: %s"), $tmp); |
||||||
|
GUI::HELPERS::set_status($main, $t); |
||||||
|
$p += 100/$c; |
||||||
|
if($p/100 <= 1) { |
||||||
|
$main->{'progress'}->set_fraction($p/100); |
||||||
|
while(Gtk2->events_pending) { |
||||||
|
Gtk2->main_iteration; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
my $debugf = $certdir."/".$f.".pem"; |
||||||
|
|
||||||
|
$parsed = $self->{'OpenSSL'}->parsecert($crlfile, $indexfile, |
||||||
|
$certdir."/".$f.".pem", $force); |
||||||
|
|
||||||
|
defined($parsed) || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_error(_("Can't read Certificate")); |
||||||
|
}; |
||||||
|
|
||||||
|
$tmp .= "%".$parsed->{'STATUS'}; |
||||||
|
|
||||||
|
push(@{$certlist}, $tmp); |
||||||
|
} |
||||||
|
@{$certlist} = sort(@{$certlist}); |
||||||
|
closedir(DIR); |
||||||
|
|
||||||
|
$self->{'certlist'} = $certlist; |
||||||
|
|
||||||
|
$self->{'lastread'} = time(); |
||||||
|
|
||||||
|
if(defined($main)) { |
||||||
|
$main->{'progress'}->set_fraction(0); |
||||||
|
$main->{'barbox'}->remove($main->{'progress'}); |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
} |
||||||
|
|
||||||
|
return(1); # got new list |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get information for renewing a certifikate |
||||||
|
# |
||||||
|
sub get_renew_cert { |
||||||
|
my ($self, $main, $opts, $box) = @_; |
||||||
|
|
||||||
|
my ($cert, $status, $t, $ca, $cadir); |
||||||
|
|
||||||
|
$box->destroy() if(defined($box)); |
||||||
|
|
||||||
|
if((not defined($opts->{'certfile'})) || |
||||||
|
(not defined($opts->{'passwd'})) || |
||||||
|
($opts->{'certfile'} eq '') || |
||||||
|
($opts->{'passwd'} eq '')) { |
||||||
|
|
||||||
|
$cert = $main->{'certbrowser'}->selection_dn(); |
||||||
|
|
||||||
|
if(not defined($cert)) { |
||||||
|
GUI::HELPERS::print_info(_("Please select a Certificate first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$ca = $main->{'certbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'certbrowser'}->selection_cadir(); |
||||||
|
$status = $main->{'certbrowser'}->selection_status(); |
||||||
|
|
||||||
|
if($status eq _("VALID")) { |
||||||
|
$t = sprintf( |
||||||
|
_("Can't renew Certifikate with Status: %s\nPlease revoke the Certificate first"), |
||||||
|
$status); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$opts->{'certname'} = HELPERS::enc_base64($cert); |
||||||
|
$opts->{'reqname'} = $opts->{'certname'}; |
||||||
|
$opts->{'certfile'} = $cadir."/certs/".$opts->{'certname'}.".pem"; |
||||||
|
$opts->{'keyfile'} = $cadir."/keys/".$opts->{'certname'}.".pem"; |
||||||
|
$opts->{'reqfile'} = $cadir."/req/".$opts->{'certname'}.".pem"; |
||||||
|
|
||||||
|
if((not -s $opts->{'certfile'}) || |
||||||
|
(not -s $opts->{'keyfile'}) || |
||||||
|
(not -s $opts->{'reqfile'})) { |
||||||
|
$t = _("Key and Request are necessary for renewal of a Certificate\nRenewal is not possible!"); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$main->show_req_sign_dialog($opts); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$main->{'REQ'}->sign_req($main, $opts); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get information for revoking a certifikate |
||||||
|
# |
||||||
|
sub get_revoke_cert { |
||||||
|
my ($self, $main, $opts, $box) = @_; |
||||||
|
|
||||||
|
my ($cert, $status, $t, $ca, $cadir); |
||||||
|
|
||||||
|
$box->destroy() if(defined($box)); |
||||||
|
|
||||||
|
if((not defined($opts->{'certfile'})) || |
||||||
|
(not defined($opts->{'passwd'})) || |
||||||
|
($opts->{'certfile'} eq '') || |
||||||
|
($opts->{'passwd'} eq '')) { |
||||||
|
$opts->{'certfile'} = $main->{'certbrowser'}->selection_fname(); |
||||||
|
|
||||||
|
if(not defined($opts->{'certfile'})) { |
||||||
|
$t = _("Please select a Certificate first"); |
||||||
|
GUI::HELPERS::print_info($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$ca = $main->{'certbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'certbrowser'}->selection_cadir(); |
||||||
|
$cert = $main->{'certbrowser'}->selection_dn(); |
||||||
|
$status = $main->{'certbrowser'}->selection_status(); |
||||||
|
|
||||||
|
if($status ne _("VALID")) { |
||||||
|
$t = sprintf(_("Can't revoke Certifikate with Status: %s"), |
||||||
|
$status); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$opts->{'certname'} = HELPERS::enc_base64($cert); |
||||||
|
$opts->{'cert'} = $cert; |
||||||
|
|
||||||
|
$main->show_cert_revoke_dialog($opts); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$self->revoke_cert($main, $opts); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# now really revoke the certificate |
||||||
|
# |
||||||
|
sub revoke_cert { |
||||||
|
my ($self, $main, $opts) = @_; |
||||||
|
|
||||||
|
my($ca, $cadir, $ret, $t, $ext, $reason); |
||||||
|
|
||||||
|
$ca = $main->{'certbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'certbrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
if(defined($opts->{'reason'}) && $opts->{'reason'} ne '') { |
||||||
|
$reason = $opts->{'reason'}; |
||||||
|
} else { |
||||||
|
$reason = 'none'; |
||||||
|
} |
||||||
|
|
||||||
|
($ret, $ext) = $self->{'OpenSSL'}->revoke( |
||||||
|
'config' => $main->{'CA'}->{$ca}->{'cnf'}, |
||||||
|
'infile' => $cadir."/certs/".$opts->{'certname'}.".pem", |
||||||
|
'pass' => $opts->{'passwd'}, |
||||||
|
'reason' => $reason |
||||||
|
); |
||||||
|
|
||||||
|
if($ret eq 1) { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = _("Wrong CA password given\nRevoking the Certificate failed"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
} elsif($ret eq 2) { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = _("CA Key not found\nRevoking the Certificate failed"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
} elsif($ret) { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = _("Revoking the Certificate failed"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
($ret, $ext) = $self->{'OpenSSL'}->newcrl( |
||||||
|
'config' => $main->{'CA'}->{$ca}->{'cnf'}, |
||||||
|
'pass' => $opts->{'passwd'}, |
||||||
|
'crldays' => 365, |
||||||
|
'outfile' => $cadir."/crl/crl.pem" |
||||||
|
); |
||||||
|
|
||||||
|
if (not -s $cadir."/crl/crl.pem" || $ret) { |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_error( |
||||||
|
_("Generating a new Revocation List failed"), $ext); |
||||||
|
} |
||||||
|
|
||||||
|
$self->{'OpenSSL'}->parsecrl( $cadir."/crl/crl.pem", 1); |
||||||
|
|
||||||
|
$self->reread_cert($main, $opts->{'cert'}); |
||||||
|
|
||||||
|
# force reread of certlist |
||||||
|
$main->{'certbrowser'}->update($cadir."/certs", |
||||||
|
$cadir."/crl/crl.pem", |
||||||
|
$cadir."/index.txt", |
||||||
|
0); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get name of certificatefile to delete |
||||||
|
# |
||||||
|
sub get_del_cert { |
||||||
|
my ($self, $main) = @_; |
||||||
|
|
||||||
|
my($certname, $cert, $certfile, $status, $t, $cadir, $ca); |
||||||
|
|
||||||
|
$certfile = $main->{'certbrowser'}->selection_fname(); |
||||||
|
|
||||||
|
if(not defined $certfile) { |
||||||
|
GUI::HELPERS::print_info(_("Please select a Certificate first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$ca = $main->{'certbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'certbrowser'}->selection_cadir(); |
||||||
|
$cert = $main->{'certbrowser'}->selection_dn(); |
||||||
|
$status = $main->{'certbrowser'}->selection_status(); |
||||||
|
|
||||||
|
$certname = HELPERS::enc_base64($cert); |
||||||
|
|
||||||
|
if($status eq _("VALID")) { |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Can't delete VALID certificate!\nPlease revoke the Certificate first.")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$main->show_del_confirm($certfile, 'cert'); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# now really delete the certificatefile |
||||||
|
# |
||||||
|
sub del_cert { |
||||||
|
my ($self, $main, $file) = @_; |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
unlink($file); |
||||||
|
|
||||||
|
my $cadir = $main->{'certbrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
$main->{'certbrowser'}->update($cadir."/certs", |
||||||
|
$cadir."/crl/crl.pem", |
||||||
|
$cadir."/index.txt", |
||||||
|
0); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get informations for exporting a certificate |
||||||
|
# |
||||||
|
sub get_export_cert { |
||||||
|
my ($self, $main, $opts, $box) = @_; |
||||||
|
|
||||||
|
$box->destroy() if(defined($box)); |
||||||
|
|
||||||
|
my($ca, $t, $cn, $email, $cadir); |
||||||
|
|
||||||
|
if(not defined($opts)) { |
||||||
|
$cn = $main->{'certbrowser'}->selection_cn(); |
||||||
|
$email = $main->{'certbrowser'}->selection_email(); |
||||||
|
|
||||||
|
if(not defined $cn) { |
||||||
|
GUI::HELPERS::print_info(_("Please select a Certificate first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$ca = $main->{'certbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'certbrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
$opts->{'status'} = $main->{'certbrowser'}->selection_status(); |
||||||
|
$opts->{'cert'} = $main->{'certbrowser'}->selection_dn(); |
||||||
|
|
||||||
|
$opts->{'certname'} = HELPERS::enc_base64($opts->{'cert'}); |
||||||
|
$opts->{'certfile'} = $cadir."/certs/".$opts->{'certname'}.".pem"; |
||||||
|
$opts->{'keyfile'} = $cadir."/keys/".$opts->{'certname'}.".pem"; |
||||||
|
$opts->{'cafile'} = $cadir."/cacert.pem"; |
||||||
|
|
||||||
|
if (-f $cadir."/cachain.pem") { |
||||||
|
$opts->{'cafile'} = $cadir."/cachain.pem"; |
||||||
|
} |
||||||
|
|
||||||
|
if($opts->{'status'} ne _("VALID")) { |
||||||
|
$t = _("Certificate seems not to be VALID"); |
||||||
|
$t .= "\n"; |
||||||
|
$t .= _("Export is not possible"); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$opts->{'parsed'} = $self->parse_cert($main, $opts->{'certname'}); |
||||||
|
|
||||||
|
if((defined($email)) && $email ne '' && $email ne ' ') { |
||||||
|
$opts->{'outfile'} = "$main->{'exportdir'}/$email-cert.pem"; |
||||||
|
}elsif((defined($cn)) && $cn ne '' && $cn ne ' ') { |
||||||
|
$opts->{'outfile'} = "$main->{'exportdir'}/$cn-cert.pem"; |
||||||
|
}else{ |
||||||
|
$opts->{'outfile'} = "$main->{'exportdir'}/cert.pem"; |
||||||
|
} |
||||||
|
$opts->{'format'} = 'PEM'; |
||||||
|
$opts->{'include'} = 0; |
||||||
|
$opts->{'incfp'} = 0; |
||||||
|
$opts->{'nopass'} = 0; |
||||||
|
$opts->{'friendlyname'} = ''; |
||||||
|
|
||||||
|
$main->show_export_dialog($opts, 'cert'); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if((not defined($opts->{'outfile'})) || ($opts->{'outfile'} eq '')) { |
||||||
|
$main->show_export_dialog($opts, 'cert'); |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Please give at least the output file")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if($opts->{'format'} eq 'P12') { |
||||||
|
if(not -s $opts->{'keyfile'}) { |
||||||
|
$t = _("Key is necessary for export as PKCS#12"); |
||||||
|
$t .= "\n"; |
||||||
|
$t .= _("Export is not possible!"); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if((not defined($opts->{'p12passwd'})) && |
||||||
|
(not $opts->{'nopass'})) { |
||||||
|
$opts->{'includeca'} = 1; |
||||||
|
$main->show_p12_export_dialog($opts, 'cert'); |
||||||
|
return; |
||||||
|
} |
||||||
|
} elsif(($opts->{'format'} eq 'ZIP') || ($opts->{'format'} eq 'TAR')) { |
||||||
|
if(not -s $opts->{'keyfile'}) { |
||||||
|
$t = sprintf( |
||||||
|
_("Key is necessary for export as %s"), $opts->{'format'}); |
||||||
|
$t .= "\n"; |
||||||
|
$t .= _("Export is not possible!"); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
$self->export_cert($main, $opts); #FIXME no need for two functions |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# |
||||||
|
# now really export the certificate |
||||||
|
# |
||||||
|
sub export_cert { |
||||||
|
my ($self, $main, $opts) = @_; |
||||||
|
|
||||||
|
my($ca, $t, $out, $ret, $ext); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
|
||||||
|
if($opts->{'format'} eq 'PEM') { |
||||||
|
if($opts->{'incfp'}) { |
||||||
|
$out = ''; |
||||||
|
$out .= "Fingerprint (MD5): $opts->{'parsed'}->{'FINGERPRINTMD5'}\n"; |
||||||
|
$out .= "Fingerprint (SHA1): $opts->{'parsed'}->{'FINGERPRINTSHA1'}\n\n"; |
||||||
|
} else { |
||||||
|
$out = ''; |
||||||
|
} |
||||||
|
|
||||||
|
$out .= $opts->{'parsed'}->{'PEM'}; |
||||||
|
|
||||||
|
if($opts->{'include'}) { |
||||||
|
open(IN, "<$opts->{'keyfile'}") || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = sprintf(_("Can't open Certificate file: %s: %s"), |
||||||
|
$opts->{'keyfile'}, $!); |
||||||
|
return; |
||||||
|
}; |
||||||
|
$out .= "\n"; |
||||||
|
$out .= $_ while(<IN>); |
||||||
|
close(IN); |
||||||
|
} |
||||||
|
} elsif ($opts->{'format'} eq 'DER') { |
||||||
|
$out = $opts->{'parsed'}->{'DER'}; |
||||||
|
} elsif ($opts->{'format'} eq 'TXT') { |
||||||
|
$out = $opts->{'parsed'}->{'TEXT'}; |
||||||
|
} elsif ($opts->{'format'} eq 'P12') { |
||||||
|
unlink($opts->{'outfile'}); |
||||||
|
($ret, $ext) = $self->{'OpenSSL'}->genp12( |
||||||
|
certfile => $opts->{'certfile'}, |
||||||
|
keyfile => $opts->{'keyfile'}, |
||||||
|
cafile => $opts->{'cafile'}, |
||||||
|
outfile => $opts->{'outfile'}, |
||||||
|
passwd => $opts->{'passwd'}, |
||||||
|
p12passwd => $opts->{'p12passwd'}, |
||||||
|
includeca => $opts->{'includeca'}, |
||||||
|
nopass => $opts->{'nopass'}, |
||||||
|
friendly => $opts->{'friendlyname'} |
||||||
|
); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
if($ret eq 1) { |
||||||
|
$t = "Wrong password given\nDecrypting Key failed\nGenerating PKCS#12 failed"; |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
return; |
||||||
|
} elsif($ret || (not -s $opts->{'outfile'})) { |
||||||
|
$t = _("Generating PKCS#12 failed"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$main->{'exportdir'} = HELPERS::write_export_dir($main, |
||||||
|
$opts->{'outfile'}); |
||||||
|
|
||||||
|
$t = sprintf(_("Certificate and Key successfully exported to %s"), |
||||||
|
$opts->{'outfile'}); |
||||||
|
GUI::HELPERS::print_info($t, $ext); |
||||||
|
return; |
||||||
|
|
||||||
|
} elsif (($opts->{'format'} eq "ZIP") || ($opts->{'format'} eq "TAR")) { |
||||||
|
|
||||||
|
my $tmpcert = "$main->{'tmpdir'}/cert.pem"; |
||||||
|
my $tmpkey = "$main->{'tmpdir'}/key.pem"; |
||||||
|
my $tmpcacert = "$main->{'tmpdir'}/cacert.pem"; |
||||||
|
|
||||||
|
open(OUT, ">$tmpcert") || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = sprintf(_("Can't create temporary file: %s: %s"), |
||||||
|
$tmpcert, $!); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print OUT $opts->{'parsed'}->{'PEM'}; |
||||||
|
close OUT; |
||||||
|
|
||||||
|
# store key in temporary location |
||||||
|
{ |
||||||
|
open(IN, "<$opts->{'keyfile'}") || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = sprintf(_("Can't read Key file: %s: %s"), $tmpcert, $!); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
}; |
||||||
|
my @key = <IN>; |
||||||
|
close IN; |
||||||
|
|
||||||
|
open(OUT, ">$tmpkey") || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = sprintf(_("Can't create temporary file: %s: %s"), |
||||||
|
$tmpcert, $!); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print OUT @key; |
||||||
|
close OUT; |
||||||
|
} |
||||||
|
|
||||||
|
# store cacert in temporary location |
||||||
|
{ |
||||||
|
open(IN, "<$opts->{'cafile'}") || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_warning(_("Can't read CA certificate")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
my @cacert = <IN>; |
||||||
|
close IN; |
||||||
|
|
||||||
|
open(OUT, ">$tmpcacert") || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_warning(_("Can't create temporary file")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print OUT @cacert; |
||||||
|
close OUT; |
||||||
|
} |
||||||
|
|
||||||
|
unlink($opts->{'outfile'}); |
||||||
|
if($opts->{'format'} eq "ZIP") { |
||||||
|
system($main->{'init'}->{'zipbin'}, '-j', $opts->{'outfile'}, |
||||||
|
$tmpcacert, $tmpkey, $tmpcert); |
||||||
|
my $ret = $? >> 8; |
||||||
|
} elsif ($opts->{'format'} eq "TAR") { |
||||||
|
system($main->{'init'}->{'tarbin'}, 'cfv', $opts->{'outfile'}, |
||||||
|
$tmpcacert, $tmpkey, $tmpcert); |
||||||
|
} |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
if(not -s $opts->{'outfile'} || $ret) { |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
sprintf(_("Generating %s file failed"), $opts->{'format'}) |
||||||
|
); |
||||||
|
} else { |
||||||
|
$main->{'exportdir'} = HELPERS::write_export_dir($main, |
||||||
|
$opts->{'outfile'}); |
||||||
|
|
||||||
|
$t = sprintf( |
||||||
|
_("Certificate and Key successfully exported to %s"), |
||||||
|
$opts->{'outfile'}); |
||||||
|
GUI::HELPERS::print_info($t); |
||||||
|
unlink($tmpcacert); |
||||||
|
unlink($tmpcert); |
||||||
|
unlink($tmpkey); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
} else { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
$t = sprintf(_("Invalid Format for export_cert(): %s"), |
||||||
|
$opts->{'format'}); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
open(OUT, ">$opts->{'outfile'}") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't open output file: %s: %s"), |
||||||
|
$opts->{'outfile'}, $!); |
||||||
|
return; |
||||||
|
}; |
||||||
|
|
||||||
|
print OUT $out; |
||||||
|
close OUT; |
||||||
|
|
||||||
|
$main->{'exportdir'} = HELPERS::write_export_dir($main, |
||||||
|
$opts->{'outfile'}); |
||||||
|
|
||||||
|
$t = sprintf(_("Certificate successfully exported to: %s"), |
||||||
|
$opts->{'outfile'}); |
||||||
|
GUI::HELPERS::print_info($t); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
sub reread_cert { |
||||||
|
my ($self, $main, $name) = @_; |
||||||
|
|
||||||
|
my ($parsed, $tmp); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$name = HELPERS::enc_base64($name); |
||||||
|
|
||||||
|
$parsed = $self->parse_cert($main, $name, 1); |
||||||
|
|
||||||
|
# print STDERR "DEBUG: status $parsed->{'STATUS'}\n"; |
||||||
|
|
||||||
|
foreach(@{$self->{'certlist'}}) { |
||||||
|
if(/^$name%/) { |
||||||
|
; #delete |
||||||
|
} else { |
||||||
|
push(@{$tmp}, $_); |
||||||
|
} |
||||||
|
} |
||||||
|
push(@{$tmp}, $name."%".$parsed->{'STATUS'}); |
||||||
|
@{$tmp} = sort(@{$tmp}); |
||||||
|
|
||||||
|
delete($self->{'certlist'}); |
||||||
|
$self->{'certlist'} = $tmp; |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
sub parse_cert { |
||||||
|
my ($self, $main, $name, $force) = @_; |
||||||
|
|
||||||
|
my($ca, $certfile, $x509, $parsed); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
|
||||||
|
if($name eq 'CA') { |
||||||
|
$certfile = $main->{'CA'}->{$ca}->{'dir'}."/cacert.pem"; |
||||||
|
} else { |
||||||
|
$certfile = $main->{'CA'}->{$ca}->{'dir'}."/certs/".$name.".pem"; |
||||||
|
} |
||||||
|
|
||||||
|
$parsed = $self->{'OpenSSL'}->parsecert( |
||||||
|
$main->{'CA'}->{$ca}->{'dir'}."/crl/crl.pem", |
||||||
|
$main->{'CA'}->{$ca}->{'dir'}."/index.txt", |
||||||
|
$certfile, |
||||||
|
$force |
||||||
|
); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
return($parsed); |
||||||
|
} |
||||||
|
|
||||||
|
1 |
||||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,173 @@ |
|||||||
|
# Copyright (c) Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: CALLBACK.pm,v 1.6 2006/06/28 21:50:42 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::CALLBACK; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
# |
||||||
|
# fill given var-reference with text from entry |
||||||
|
# |
||||||
|
sub entry_to_var { |
||||||
|
my ($widget, $entry, $var, $box, $words) = @_; |
||||||
|
|
||||||
|
if(defined($words)) { |
||||||
|
$$var = $words->{$entry->get_text()}; |
||||||
|
}else{ |
||||||
|
$$var = $entry->get_text(); |
||||||
|
} |
||||||
|
|
||||||
|
if(defined($box)) { |
||||||
|
$box->{'button_ok'}->set_sensitive(1); |
||||||
|
$box->{'button_apply'}->set_sensitive(1); |
||||||
|
} |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# fill given var-reference with text from entry subjectAltName |
||||||
|
# and set senitivity of togglebuttons |
||||||
|
# |
||||||
|
sub entry_to_var_san { |
||||||
|
my ($widget, $entry, $var, $box, $words, $radio1, $radio2, $radio3, $radio4) = @_; |
||||||
|
|
||||||
|
if(defined($words)) { |
||||||
|
if(my $tmp = $words->{$entry->get_text()}) { |
||||||
|
$$var = $tmp; |
||||||
|
} else { |
||||||
|
$$var = $entry->get_text(); |
||||||
|
} |
||||||
|
#print STDERR "DEBUG: var: $$var\n"; |
||||||
|
if($$var eq 'user') { |
||||||
|
#print STDERR "set sensitive(1)\n"; |
||||||
|
$radio1->set_sensitive(1) if(defined($radio1)); |
||||||
|
$radio2->set_sensitive(1) if(defined($radio2)); |
||||||
|
$radio3->set_sensitive(1) if(defined($radio3)); |
||||||
|
$radio4->set_sensitive(1) if(defined($radio4)); |
||||||
|
}else{ |
||||||
|
#print STDERR "DEBUG: set sensitive(0)\n"; |
||||||
|
#print STDERR "DEBUG: r1 $radio1 r2 $radio2 r3 $radio3 r4 $radio4\n"; |
||||||
|
$radio1->set_sensitive(0) if(defined($radio1)); |
||||||
|
$radio2->set_sensitive(0) if(defined($radio2)); |
||||||
|
$radio3->set_sensitive(0) if(defined($radio3)); |
||||||
|
$radio4->set_sensitive(0) if(defined($radio4)); |
||||||
|
} |
||||||
|
}else{ |
||||||
|
$$var = $entry->get_text(); |
||||||
|
} |
||||||
|
|
||||||
|
if(defined($box)) { |
||||||
|
$box->{'button_ok'}->set_sensitive(1); |
||||||
|
$box->{'button_apply'}->set_sensitive(1); |
||||||
|
} |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# fill given var-reference with text from entry subjectAltName |
||||||
|
# and set senitivity of togglebuttons |
||||||
|
# |
||||||
|
sub entry_to_var_key { |
||||||
|
my ($widget, $entry, $var, $box, $words, $radio1, $radio2, $radio3) = @_; |
||||||
|
|
||||||
|
if(defined($words)) { |
||||||
|
if(my $tmp = $words->{$entry->get_text()}) { |
||||||
|
$$var = $tmp; |
||||||
|
} else { |
||||||
|
$$var = $entry->get_text(); |
||||||
|
} |
||||||
|
if(($$var ne '') && ($$var ne 'none')) { |
||||||
|
$radio1->set_sensitive(1) if(defined($radio1)); |
||||||
|
$radio2->set_sensitive(1) if(defined($radio2)); |
||||||
|
$radio3->set_sensitive(1) if(defined($radio3)); |
||||||
|
}else{ |
||||||
|
$radio1->set_sensitive(0) if(defined($radio1)); |
||||||
|
$radio2->set_sensitive(0) if(defined($radio2)); |
||||||
|
$radio3->set_sensitive(0) if(defined($radio3)); |
||||||
|
} |
||||||
|
}else{ |
||||||
|
$$var = $entry->get_text(); |
||||||
|
} |
||||||
|
|
||||||
|
if(defined($box)) { |
||||||
|
$box->{'button_ok'}->set_sensitive(1); |
||||||
|
$box->{'button_apply'}->set_sensitive(1); |
||||||
|
} |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# fill given var-reference with value from togglebutton |
||||||
|
# |
||||||
|
sub toggle_to_var { |
||||||
|
my ($button, $var, $value, $outfileref, $formatref, $fileentry, $pass1, |
||||||
|
$pass2) = @_; |
||||||
|
|
||||||
|
$$var = $value; |
||||||
|
|
||||||
|
if(defined($outfileref) && defined($formatref)) { |
||||||
|
if($$outfileref =~ s/\.(pem|der|txt|p12|zip|tar)$//i) { |
||||||
|
$$outfileref .= "." . lc $$formatref; |
||||||
|
# something seem broken, need tmp var |
||||||
|
my $tmp = $$outfileref; |
||||||
|
$fileentry->set_text($tmp); |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($pass1) && defined($pass2)) { |
||||||
|
if($$formatref eq "PEM") { |
||||||
|
$pass1->set_sensitive(1); |
||||||
|
$pass2->set_sensitive(1); |
||||||
|
} elsif ($$formatref eq "DER") { |
||||||
|
$pass1->set_sensitive(0); |
||||||
|
$pass2->set_sensitive(0); |
||||||
|
} elsif ($$formatref eq "P12") { |
||||||
|
$pass1->set_sensitive(0); |
||||||
|
$pass2->set_sensitive(0); |
||||||
|
} elsif ($$formatref eq "ZIP") { |
||||||
|
$pass1->set_sensitive(0); |
||||||
|
$pass2->set_sensitive(0); |
||||||
|
} elsif ($$formatref eq "TAR") { |
||||||
|
$pass1->set_sensitive(0); |
||||||
|
$pass2->set_sensitive(0); |
||||||
|
} |
||||||
|
} |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# fill given var-reference with value from togglebutton |
||||||
|
# |
||||||
|
sub toggle_to_var_pref { |
||||||
|
my ($button, $var, $value, $box) = @_; |
||||||
|
|
||||||
|
$$var = $value; |
||||||
|
|
||||||
|
if(defined($box) && defined($box->{'nb'}->get_current_page())) { |
||||||
|
$box->{'button_ok'}->set_sensitive(1); |
||||||
|
$box->{'button_apply'}->set_sensitive(1); |
||||||
|
} |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
1 |
||||||
|
|
||||||
@ -0,0 +1,479 @@ |
|||||||
|
# Copyright (c) Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: HELPERS.pm,v 1.6 2006/06/28 21:50:42 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::HELPERS; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
# |
||||||
|
# Error message box, kills application |
||||||
|
# |
||||||
|
sub print_error { |
||||||
|
my ($t, $ext) = @_; |
||||||
|
|
||||||
|
my ($box, $button, $dbutton, $expander, $text, $scrolled, $buffer); |
||||||
|
|
||||||
|
$button = Gtk2::Button->new_from_stock('gtk-ok'); |
||||||
|
$button->signal_connect('clicked', sub { HELPERS::exit_clean(1) }); |
||||||
|
$button->can_default(1); |
||||||
|
|
||||||
|
$box = Gtk2::MessageDialog->new( |
||||||
|
undef, [qw/destroy-with-parent modal/], 'error', 'none', $t); |
||||||
|
$box->set_default_size(600, 0); |
||||||
|
$box->set_resizable(1); |
||||||
|
|
||||||
|
if(defined($ext)) { |
||||||
|
$buffer = Gtk2::TextBuffer->new(); |
||||||
|
$buffer->set_text($ext); |
||||||
|
|
||||||
|
$text = Gtk2::TextView->new_with_buffer($buffer); |
||||||
|
$text->set_editable(0); |
||||||
|
$text->set_wrap_mode('word'); |
||||||
|
|
||||||
|
$scrolled = Gtk2::ScrolledWindow->new(undef, undef); |
||||||
|
$scrolled->set_policy('never', 'automatic'); |
||||||
|
$scrolled->set_shadow_type('etched-in'); |
||||||
|
$scrolled->add($text); |
||||||
|
|
||||||
|
$expander = Gtk2::Expander->new(_("Command Details")); |
||||||
|
$expander->add($scrolled); |
||||||
|
$box->vbox->add($expander); |
||||||
|
} |
||||||
|
|
||||||
|
$box->add_action_widget($button, 0); |
||||||
|
|
||||||
|
$box->show_all(); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# Warning message box |
||||||
|
# |
||||||
|
sub print_warning { |
||||||
|
my ($t, $ext) = @_; |
||||||
|
|
||||||
|
my ($box, $button, $dbutton, $expander, $text, $scrolled, $buffer); |
||||||
|
|
||||||
|
$button = Gtk2::Button->new_from_stock('gtk-ok'); |
||||||
|
$button->signal_connect('clicked', sub { $box->destroy() }); |
||||||
|
$button->can_default(1); |
||||||
|
|
||||||
|
$box = Gtk2::MessageDialog->new( |
||||||
|
undef, [qw/destroy-with-parent modal/], 'warning', 'none', $t); |
||||||
|
$box->set_default_size(600, 0); |
||||||
|
$box->set_resizable(1); |
||||||
|
|
||||||
|
if(defined($ext)) { |
||||||
|
$buffer = Gtk2::TextBuffer->new(); |
||||||
|
$buffer->set_text($ext); |
||||||
|
|
||||||
|
$text = Gtk2::TextView->new_with_buffer($buffer); |
||||||
|
$text->set_editable(0); |
||||||
|
$text->set_wrap_mode('word'); |
||||||
|
|
||||||
|
$scrolled = Gtk2::ScrolledWindow->new(undef, undef); |
||||||
|
$scrolled->set_policy('never', 'automatic'); |
||||||
|
$scrolled->set_shadow_type('etched-in'); |
||||||
|
$scrolled->add($text); |
||||||
|
|
||||||
|
$expander = Gtk2::Expander->new(_("Command Details")); |
||||||
|
$expander->add($scrolled); |
||||||
|
$box->vbox->add($expander); |
||||||
|
} |
||||||
|
$box->add_action_widget($button, 0); |
||||||
|
|
||||||
|
$box->show_all(); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# Info message box |
||||||
|
# |
||||||
|
sub print_info { |
||||||
|
my ($t, $ext) = @_; |
||||||
|
|
||||||
|
my ($box, $button, $dbutton, $buffer, $text, $scrolled, $expander); |
||||||
|
|
||||||
|
$button = Gtk2::Button->new_from_stock('gtk-ok'); |
||||||
|
$button->signal_connect('clicked', sub { $box->destroy() }); |
||||||
|
$button->can_default(1); |
||||||
|
|
||||||
|
$box = Gtk2::MessageDialog->new( |
||||||
|
undef, [qw/destroy-with-parent modal/], 'info', 'none', $t); |
||||||
|
$box->set_default_size(600, 0); |
||||||
|
$box->set_resizable(1); |
||||||
|
|
||||||
|
if(defined($ext)) { |
||||||
|
$buffer = Gtk2::TextBuffer->new(); |
||||||
|
$buffer->set_text($ext); |
||||||
|
|
||||||
|
$text = Gtk2::TextView->new_with_buffer($buffer); |
||||||
|
$text->set_editable(0); |
||||||
|
$text->set_wrap_mode('word'); |
||||||
|
|
||||||
|
$scrolled = Gtk2::ScrolledWindow->new(undef, undef); |
||||||
|
$scrolled->set_policy('never', 'automatic'); |
||||||
|
$scrolled->set_shadow_type('etched-in'); |
||||||
|
$scrolled->add($text); |
||||||
|
|
||||||
|
$expander = Gtk2::Expander->new(_("Command Details")); |
||||||
|
$expander->add($scrolled); |
||||||
|
$box->vbox->add($expander); |
||||||
|
} |
||||||
|
$box->add_action_widget($button, 0); |
||||||
|
|
||||||
|
$box->show_all(); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# create standard dialog box |
||||||
|
# |
||||||
|
sub dialog_box { |
||||||
|
my ($title, $text, $button1, $button2) = @_; |
||||||
|
|
||||||
|
my $box = Gtk2::Dialog->new($title, undef, ["destroy-with-parent"]); |
||||||
|
|
||||||
|
$box->add_action_widget($button1, 0); |
||||||
|
|
||||||
|
if(defined($button2)) { |
||||||
|
$box->add_action_widget($button2, 0); |
||||||
|
$box->action_area->set_layout('spread'); |
||||||
|
} |
||||||
|
|
||||||
|
if(defined($text)) { |
||||||
|
my $label = create_label($text, 'center', 0, 1); |
||||||
|
$box->vbox->pack_start($label, 0, 0, 0); |
||||||
|
} |
||||||
|
|
||||||
|
$box->signal_connect(response => sub { $box->destroy }); |
||||||
|
|
||||||
|
return($box); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# create standard label |
||||||
|
# |
||||||
|
sub create_label { |
||||||
|
my ($text, $mode, $wrap, $bold) = @_; |
||||||
|
|
||||||
|
$text = "<b>$text</b>" if($bold); |
||||||
|
|
||||||
|
my $label = Gtk2::Label->new($text); |
||||||
|
|
||||||
|
$label->set_justify($mode); |
||||||
|
if($mode eq 'center') { |
||||||
|
$label->set_alignment(0.5, 0.5); |
||||||
|
}elsif($mode eq 'left') { |
||||||
|
$label->set_alignment(0, 0); |
||||||
|
}elsif($mode eq 'right') { |
||||||
|
$label->set_alignment(1, 1); |
||||||
|
} |
||||||
|
|
||||||
|
$label->set_line_wrap($wrap); |
||||||
|
|
||||||
|
$label->set_markup($text) if($bold); |
||||||
|
|
||||||
|
return($label); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# write two labels to table |
||||||
|
# |
||||||
|
sub label_to_table { |
||||||
|
my ($key, $val, $table, $row, $mode, $wrap, $bold) = @_; |
||||||
|
|
||||||
|
my ($label, $entry); |
||||||
|
|
||||||
|
$label = create_label($key, $mode, $wrap, $bold); |
||||||
|
$label->set_padding(20, 0); |
||||||
|
$table->attach_defaults($label, 0, 1, $row, $row+1); |
||||||
|
|
||||||
|
$label = create_label($val, $mode, $wrap, $bold); |
||||||
|
$label->set_padding(20, 0); |
||||||
|
$table->attach_defaults($label, 1, 2, $row, $row+1); |
||||||
|
|
||||||
|
$row++; |
||||||
|
$table->resize($row, 2); |
||||||
|
|
||||||
|
return($row); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# write label and entry to table |
||||||
|
# |
||||||
|
sub entry_to_table { |
||||||
|
my ($text, $var, $table, $row, $visibility, $box) = @_; |
||||||
|
|
||||||
|
my ($label, $entry); |
||||||
|
|
||||||
|
$label = create_label($text, 'left', 0, 0); |
||||||
|
$table->attach_defaults($label, 0, 1, $row, $row+1); |
||||||
|
|
||||||
|
$entry = Gtk2::Entry->new(); |
||||||
|
$entry->set_text($$var) if(defined($$var)); |
||||||
|
|
||||||
|
$table->attach_defaults($entry, 1, 2, $row, $row+1); |
||||||
|
$entry->signal_connect('changed' => |
||||||
|
sub {GUI::CALLBACK::entry_to_var($entry, $entry, $var, $box)} ); |
||||||
|
$entry->set_visibility($visibility); |
||||||
|
|
||||||
|
return($entry); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# sort the table by the clicked column |
||||||
|
# |
||||||
|
sub sort_clist { |
||||||
|
my ($clist, $col) = @_; |
||||||
|
|
||||||
|
$clist->set_sort_column($col); |
||||||
|
$clist->sort(); |
||||||
|
|
||||||
|
return(1); |
||||||
|
} |
||||||
|
|
||||||
|
sub create_activity_bar { |
||||||
|
my ($t) = @_; |
||||||
|
|
||||||
|
my($box, $bar); |
||||||
|
|
||||||
|
$box = Gtk2::MessageDialog->new( |
||||||
|
undef, [qw/destroy-with-parent modal/], 'info', 'none', $t); |
||||||
|
|
||||||
|
$bar = Gtk2::ProgressBar->new(); |
||||||
|
$bar->pulse(); |
||||||
|
$bar->set_pulse_step(0.1); |
||||||
|
|
||||||
|
$box->vbox->add($bar); |
||||||
|
|
||||||
|
$box->show_all(); |
||||||
|
|
||||||
|
return($box, $bar); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# set curser busy |
||||||
|
# |
||||||
|
sub set_cursor { |
||||||
|
my $main = shift; |
||||||
|
my $busy = shift; |
||||||
|
|
||||||
|
if($busy) { |
||||||
|
$main->{'rootwin'}->set_cursor($main->{'busycursor'}); |
||||||
|
} else { |
||||||
|
$main->{'rootwin'}->set_cursor($main->{'cursor'}); |
||||||
|
} |
||||||
|
while(Gtk2->events_pending) { |
||||||
|
Gtk2->main_iteration; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# call file chooser |
||||||
|
# |
||||||
|
sub browse_file { |
||||||
|
my($title, $entry, $mode) = @_; |
||||||
|
|
||||||
|
my($file_chooser, $filename, $filter); |
||||||
|
|
||||||
|
$file_chooser = Gtk2::FileChooserDialog->new ($title, undef, $mode, |
||||||
|
'gtk-cancel' => 'cancel', |
||||||
|
'gtk-ok' => 'ok'); |
||||||
|
|
||||||
|
$file_chooser->add_shortcut_folder ('/tmp'); |
||||||
|
|
||||||
|
if($mode eq 'open') { |
||||||
|
$filter = Gtk2::FileFilter->new(); |
||||||
|
$filter->set_name(_("Request Files (*.pem, *.der, *.req)")); |
||||||
|
$filter->add_pattern("*.pem"); |
||||||
|
$filter->add_pattern("*.der"); |
||||||
|
$filter->add_pattern("*.req"); |
||||||
|
$file_chooser->add_filter($filter); |
||||||
|
|
||||||
|
$filter = Gtk2::FileFilter->new(); |
||||||
|
$filter->set_name(_("All Files (*.*)")); |
||||||
|
$filter->add_pattern("*"); |
||||||
|
$file_chooser->add_filter($filter); |
||||||
|
} |
||||||
|
|
||||||
|
if ('ok' eq $file_chooser->run) { |
||||||
|
$filename = $file_chooser->get_filename(); |
||||||
|
$entry->set_text($filename); |
||||||
|
} |
||||||
|
|
||||||
|
$file_chooser->destroy(); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# set text in statusbar |
||||||
|
# |
||||||
|
sub set_status { |
||||||
|
my ($main, $t) = @_; |
||||||
|
|
||||||
|
$main->{'bar'}->pop($main->{'lastid'}) if(defined($main->{'lastid'})); |
||||||
|
$main->{'lastid'} = $main->{'bar'}->get_context_id('gargs'); |
||||||
|
$main->{'bar'}->push($main->{'lastid'}, $t); |
||||||
|
} |
||||||
|
|
||||||
|
1 |
||||||
|
|
||||||
|
__END__ |
||||||
|
|
||||||
|
=head1 NAME |
||||||
|
|
||||||
|
GUI::HELPERS - helper functions for TinyCA, doing small jobs related to the |
||||||
|
GUI |
||||||
|
|
||||||
|
=head1 SYNOPSIS |
||||||
|
|
||||||
|
use GUI::HELPERS; |
||||||
|
|
||||||
|
GUI::HELPERS::print_info($text, $ext); |
||||||
|
GUI::HELPERS::print_warning($text, $ext); |
||||||
|
GUI::HELPERS::print_error($text, $ext); |
||||||
|
GUI::HELPERS::sort_clist($clist, $col); |
||||||
|
GUI::HELPERS::set_cursor($main, $busy); |
||||||
|
GUI::HELPERS::browse_file($main, $entry, $mode); |
||||||
|
GUI::HELPERS::set_status($main, $text); |
||||||
|
|
||||||
|
$box = GUI::HELPERS::dialog_box( |
||||||
|
$title, $text, $button1, $button2); |
||||||
|
$label = GUI::HELPERS::create_label( |
||||||
|
$text, $mode, $wrap, $bold); |
||||||
|
$row = GUI::HELPERS::label_to_table( |
||||||
|
$key, $val, $table, $row, $mode, $wrap, $bold); |
||||||
|
$entry = GUI::HELPERS::entry_to_table( |
||||||
|
$text, $var, $table, $row, $visibility, $box); |
||||||
|
|
||||||
|
=head1 DESCRIPTION |
||||||
|
|
||||||
|
GUI::HELPERS.pm is a library, containing some useful functions used by other |
||||||
|
TinyCA2 modules. All functions are related to the GUI. |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::print_info($text, $ext); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
creates an Gtk2::MessageDialog of the type info. The string given in $text is |
||||||
|
shown as message, the (multiline) string $ext is available through the |
||||||
|
"Details" Button. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::print_warning($text, $ext); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
is identically with GUI::HELPERS::print_warning(), only the |
||||||
|
Gtk2::MessageDialog is of type warning. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::print_error($text, $ext); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
is identically with GUI::HELPERS::print_info(), only the Gtk2::MessageDialogog |
||||||
|
is of type error and the program will shut down after closing the message. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::sort_clist($clist, $col); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
sorts the clist with the values from the given column $col. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::dialog_box($title, $text, $button1, $button2); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
returns the reference to a new window of type Gtk2::Dialog. $title and |
||||||
|
$button1 must be given. $text and $button2 are optional arguments and can be |
||||||
|
undef. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::create_label($text, $mode, $wrap, $bold); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
returns the reference to a new Gtk2::Label. $mode can be "center", "left" or |
||||||
|
"right". $wrap and $bold are boolean values. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::label_to_table($key, $val, $table, $row, $mode, $wrap, $bold); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
adds a new row to $table. The new row is appended at $row and has two columns: |
||||||
|
the first will contain a label with the content of string $k, the second the |
||||||
|
content of string $v. $mode, $wrap, $bold are the arguments for |
||||||
|
GUI::HELPERS::create_label(), mentioned above. |
||||||
|
The function returns the number of the next free row in the table. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::entry_to_table($text, $var, $table, $row, $visibility, $box); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
adds a new row to $table. The new row is appended at $row and has two columns: |
||||||
|
the first will contain a label with the content of the string $text, the |
||||||
|
second one will contain a textentry Gtk2::Entry, associated with the variable |
||||||
|
$var. $visibility controls, if the entered text will be displayed or not |
||||||
|
(passwords). |
||||||
|
The function returns the reference to the new created entry. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::set_cursor($main, $busy); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
sets the actual cursor to busy or back to normal. The value of $busy is |
||||||
|
boolean. |
||||||
|
This functions returns nothing; |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::browse_file($main, $entry, $mode); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
opens a FileChooser dialog to select files or directories. $entry is a |
||||||
|
reference to the variable, where the selected path shall be stored. If $mode |
||||||
|
is set to "open", then only files with appropriate suffixes are displyed. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 GUI::HELPERS::set_status($main, $text); |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
sets the text in $text to the statusbar at the bottom of the window. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=cut |
||||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,112 @@ |
|||||||
|
# Copyright (c) Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: WORDS.pm,v 1.2 2006/06/28 21:50:42 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::WORDS; |
||||||
|
|
||||||
|
sub new { |
||||||
|
my $that = shift; |
||||||
|
|
||||||
|
my $self = { |
||||||
|
'none' => _("Not set"), |
||||||
|
'user' => _("Ask User"), |
||||||
|
'critical' => _("critical"), |
||||||
|
'noncritical' => _("not critical"), |
||||||
|
'emailcopy' => _("Copy Email"), |
||||||
|
'raw' => _("raw"), |
||||||
|
'dns' => _("DNS Name"), |
||||||
|
'ip' => _("IP Address"), |
||||||
|
'mail' => _("Email"), |
||||||
|
'server' => _("SSL Server"), |
||||||
|
'server, client' => _("SSL Server, SSL Client"), |
||||||
|
'key' => _("Key Encipherment"), |
||||||
|
'sig' => _("Digital Signature"), |
||||||
|
'keysig' => _("Key Encipherment, Digital Signature"), |
||||||
|
'objsign' => _("Object Signing"), |
||||||
|
'client, objsign' => _("SSL Client, Object Signing"), |
||||||
|
'client, email' => _("SSL Client, Email(S/MIME)"), |
||||||
|
'client' => _("SSL Client"), |
||||||
|
'email' => _("Email(S/MIME)"), |
||||||
|
'client, email, objsign'=> _("SSL Client, Email, Object Signing"), |
||||||
|
'objCA' => _("Object Signing CA"), |
||||||
|
'emailCA' => _("S/MIME CA"), |
||||||
|
'sslCA' => _("SSL CA"), |
||||||
|
'sslCA, emailCA' => _("SSL CA, S/MIME CA"), |
||||||
|
'sslCA, objCA' => _("SSL CA, Object Signing CA"), |
||||||
|
'emailCA, objCA' => _("S/MIME CA, Object Signing CA"), |
||||||
|
'sslCA, emailCA, objCA' => _("SSL CA, S/MIME CA, Object Signing CA"), |
||||||
|
'keyCertSign' => _("Certificate Signing"), |
||||||
|
'cRLSign' => _("CRL Signing"), |
||||||
|
'keyCertSign, cRLSign' => _("Certificate Signing, CRL Signing"), |
||||||
|
'CN' => _("Common Name"), |
||||||
|
'EMAIL' => _("eMail Address"), |
||||||
|
'O' => _("Organization"), |
||||||
|
'OU' => _("Organizational Unit"), |
||||||
|
'L' => _("Location"), |
||||||
|
'ST' => _("State"), |
||||||
|
'C' => _("Country"), |
||||||
|
'NOTBEFORE' => _("Creation Date"), |
||||||
|
'NOTAFTER' => _("Expiration Date"), |
||||||
|
'KEYSIZE' => _("Keylength"), |
||||||
|
'PK_ALGORITHM' => _("Public Key Algorithm"), |
||||||
|
'SIG_ALGORITHM' => _("Signature Algorithm"), |
||||||
|
'TYPE' => _("Type"), |
||||||
|
'SERIAL' => _("Serial"), |
||||||
|
'STATUS' => _("Status"), |
||||||
|
'FINGERPRINTMD5' => _("Fingerprint (MD5)"), |
||||||
|
'FINGERPRINTSHA1' => _("Fingerprint (SHA1)"), |
||||||
|
_("Not set") => 'none', |
||||||
|
_("Ask User") => 'user', |
||||||
|
_("critical") => 'critical', |
||||||
|
_("not critical") => 'noncritical', |
||||||
|
_("Copy Email") => 'emailcopy', |
||||||
|
_("raw") => 'raw', |
||||||
|
_("DNS Name") => 'dns', |
||||||
|
_("Email") => 'email', |
||||||
|
_("IP Address") => 'ip', |
||||||
|
_("SSL Server") => 'server', |
||||||
|
_("SSL Server, SSL Client") => 'server, client', |
||||||
|
_("Key Encipherment") => 'key', |
||||||
|
_("Digital Signature") => 'sig', |
||||||
|
_("Key Encipherment, Digital Signature") => 'keysig', |
||||||
|
_("Object Signing") => 'objsign', |
||||||
|
_("Email(S/MIME)") => 'email', |
||||||
|
_("SSL Client, Email(S/MIME)") => 'client, email', |
||||||
|
_("SSL Client") => 'client', |
||||||
|
_("SSL Client, Object Signing") => 'client, objsign', |
||||||
|
_("SSL Client, Email, Object Signing") => 'client, email, objsign', |
||||||
|
_("Object Signing CA") => 'objCA', |
||||||
|
_("S/MIME CA") => 'emailCA', |
||||||
|
_("SSL CA") => 'sslCA', |
||||||
|
_("SSL CA, S/MIME CA") => 'sslCA, emailCA', |
||||||
|
_("SSL CA, Object Signing CA") => 'sslCA, objCA', |
||||||
|
_("S/MIME CA, Object Signing CA") => 'emailCA, objCA', |
||||||
|
_("SSL CA, S/MIME CA, Object Signing CA")=> 'sslCA, emailCA, objCA', |
||||||
|
_("Certificate Signing") => 'keyCertSign', |
||||||
|
_("CRL Signing") => 'cRLSign', |
||||||
|
_("Certificate Signing, CRL Signing") => 'keyCertSign, cRLSign' |
||||||
|
}; |
||||||
|
|
||||||
|
my $class = ref($that) || $that; |
||||||
|
|
||||||
|
bless($self, $class); |
||||||
|
|
||||||
|
$self; |
||||||
|
} |
||||||
|
|
||||||
|
1 |
||||||
@ -0,0 +1,879 @@ |
|||||||
|
# Copyright (c) Olaf Gellert <og@pre-secure.de> and |
||||||
|
# Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: X509_browser.pm,v 1.6 2006/06/28 21:50:42 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::X509_browser; |
||||||
|
|
||||||
|
use HELPERS; |
||||||
|
use GUI::HELPERS; |
||||||
|
use GUI::X509_infobox; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
my $tmpdefault="/tmp"; |
||||||
|
|
||||||
|
my $version = "0.1"; |
||||||
|
my $true = 1; |
||||||
|
my $false = undef; |
||||||
|
|
||||||
|
sub new { |
||||||
|
my $that = shift; |
||||||
|
my $self = {}; |
||||||
|
|
||||||
|
$self->{'main'} = shift; |
||||||
|
my $mode = shift; |
||||||
|
|
||||||
|
my ($font, $fontfix); |
||||||
|
|
||||||
|
my $class = ref($that) || $that; |
||||||
|
|
||||||
|
|
||||||
|
if ((defined $mode) && |
||||||
|
(($mode eq 'cert') || ($mode eq 'req') || ($mode eq 'key'))) { |
||||||
|
$self->{'mode'} = $mode; |
||||||
|
} else { |
||||||
|
printf STDERR "No mode specified for X509browser\n"; |
||||||
|
return undef; |
||||||
|
} |
||||||
|
|
||||||
|
# initialize fonts and styles |
||||||
|
$font = Gtk2::Pango::FontDescription->from_string( |
||||||
|
"-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"); |
||||||
|
if(defined($font)) { |
||||||
|
$self->{'stylebold'} = Gtk2::Style->new(); |
||||||
|
$self->{'stylebold'}->font_desc->from_string( |
||||||
|
"-adobe-helvetica-bold-r-normal--*-120-*-*-*-*-*-*"); |
||||||
|
} else { |
||||||
|
$self->{'stylebold'} = undef; |
||||||
|
} |
||||||
|
|
||||||
|
$fontfix = Gtk2::Pango::FontDescription->from_string( |
||||||
|
"-adobe-courier-medium-r-normal--*-100-*-*-*-*-*-*"); |
||||||
|
if(defined($fontfix)) { |
||||||
|
$self->{'stylefix'} = Gtk2::Style->new(); |
||||||
|
$self->{'stylefix'}->font_desc->from_string( |
||||||
|
"-adobe-courier-medium-r-normal--*-100-*-*-*-*-*-*"); |
||||||
|
} else { |
||||||
|
$self->{'stylefix'} = undef; |
||||||
|
} |
||||||
|
|
||||||
|
bless($self, $class); |
||||||
|
|
||||||
|
$self; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# sub create_window { |
||||||
|
# my ($self, $title, $ok_text, $cancel_text, |
||||||
|
# $ok_function, $cancel_function) = @_; |
||||||
|
# |
||||||
|
# my ($button_ok, $button_cancel); |
||||||
|
# |
||||||
|
# if ( $self->{'dialog_shown'} == $true ) { |
||||||
|
# return(undef); |
||||||
|
# } |
||||||
|
# |
||||||
|
# # check arguments |
||||||
|
# if ($title eq undef) { |
||||||
|
# $title = "CA browser, V$version"; |
||||||
|
# } |
||||||
|
# |
||||||
|
# if (not defined($ok_text)) { |
||||||
|
# $ok_text = _("OK"); |
||||||
|
# } |
||||||
|
# if (not defined($cancel_text)) { |
||||||
|
# $cancel_text = _("Cancel"); |
||||||
|
# } |
||||||
|
# |
||||||
|
# # initialize main window |
||||||
|
# $self->{'window'} = new Gtk::Dialog(); |
||||||
|
# |
||||||
|
# # $self->{'window'}->set_policy($false,$false,$true); |
||||||
|
# |
||||||
|
# # store pointer to vbox as "browser widget" |
||||||
|
# $self->{'browser'}=$self->{'window'}->vbox; |
||||||
|
# |
||||||
|
# if (defined $ok_function) { |
||||||
|
# # todo: we should check if this is a function reference |
||||||
|
# $self->{'User_OK_function'} = $ok_function; |
||||||
|
# } |
||||||
|
# $self->{'OK_function'} = sub { $self->ok_function(); }; |
||||||
|
# |
||||||
|
# if (defined $cancel_function) { |
||||||
|
# # todo: we should check if this is a function reference |
||||||
|
# $self->{'User_CANCEL_function'} = $cancel_function; |
||||||
|
# } |
||||||
|
# $self->{'CANCEL_function'} = sub { $self->cancel_function(); }; |
||||||
|
# |
||||||
|
# |
||||||
|
# |
||||||
|
# $button_ok = new Gtk::Button( "$ok_text" ); |
||||||
|
# $button_ok->signal_connect( "clicked", $self->{'OK_function'}); |
||||||
|
# $self->{'window'}->action_area->pack_start( $button_ok, $true, $true, 0 ); |
||||||
|
# |
||||||
|
# $button_cancel = new Gtk::Button( "$cancel_text" ); |
||||||
|
# $button_cancel->signal_connect('clicked', $self->{'CANCEL_function'}); |
||||||
|
# $self->{'window'}->action_area->pack_start( $button_cancel, $true, $true, 0 ); |
||||||
|
# |
||||||
|
# $self->{'window'}->set_title( "$title" ); |
||||||
|
# |
||||||
|
# $self->{'window'}->show_all(); |
||||||
|
# |
||||||
|
# } |
||||||
|
|
||||||
|
sub set_window { |
||||||
|
my $self = shift; |
||||||
|
my $widget = shift; |
||||||
|
|
||||||
|
if ( (not defined $self->{'browser'}) || ( $self->{'browser'} == undef )) { |
||||||
|
$self->{'browser'}=$widget; |
||||||
|
} else { |
||||||
|
# browser widget already exists |
||||||
|
return $false; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
sub add_list { |
||||||
|
my ($self, $actca, $directory, $crlfile, $indexfile) = @_; |
||||||
|
|
||||||
|
my ($x509listwin, @titles, @certtitles, @reqtitles, @keytitles, $column, |
||||||
|
$color, $text, $iter, $renderer); |
||||||
|
|
||||||
|
# printf STDERR "AddList: Self: $self, Dir $directory, CRL $crlfile, Index: $indexfile\n"; |
||||||
|
|
||||||
|
@reqtitles = (_("Common Name"), |
||||||
|
_("eMail Address"), |
||||||
|
_("Organizational Unit"), |
||||||
|
_("Organization"), |
||||||
|
_("Location"), |
||||||
|
_("State"), |
||||||
|
_("Country")); |
||||||
|
|
||||||
|
@certtitles = (_("Common Name"), |
||||||
|
_("eMail Address"), |
||||||
|
_("Organizational Unit"), |
||||||
|
_("Organization"), |
||||||
|
_("Location"), |
||||||
|
_("State"), |
||||||
|
_("Country"), |
||||||
|
_("Status")); |
||||||
|
|
||||||
|
@keytitles = (_("Common Name"), |
||||||
|
_("eMail Address"), |
||||||
|
_("Organizational Unit"), |
||||||
|
_("Organization"), |
||||||
|
_("Location"), |
||||||
|
_("State"), |
||||||
|
_("Country"), |
||||||
|
_("Type")); |
||||||
|
|
||||||
|
$self->{'actca'} = $actca; |
||||||
|
$self->{'actdir'} = $directory; |
||||||
|
$self->{'actcrl'} = $crlfile; |
||||||
|
$self->{'actindex'} = $indexfile; |
||||||
|
|
||||||
|
if(defined($self->{'x509box'})) { |
||||||
|
$self->{'browser'}->remove($self->{'x509box'}); |
||||||
|
$self->{'x509box'}->destroy(); |
||||||
|
} |
||||||
|
|
||||||
|
$self->{'x509box'} = Gtk2::VBox->new(0, 0); |
||||||
|
|
||||||
|
# pane for list (top) and cert infos (bottom) |
||||||
|
$self->{'x509pane'} = Gtk2::VPaned->new(); |
||||||
|
$self->{'x509pane'}->set_position(250); |
||||||
|
$self->{'x509box'}->add($self->{'x509pane'}); |
||||||
|
|
||||||
|
$self->{'browser'}->pack_start($self->{'x509box'}, 1, 1, 0); |
||||||
|
|
||||||
|
# now the list |
||||||
|
$x509listwin = Gtk2::ScrolledWindow->new(undef, undef); |
||||||
|
$x509listwin->set_policy('automatic', 'automatic'); |
||||||
|
$x509listwin->set_shadow_type('etched-in'); |
||||||
|
$self->{'x509pane'}->pack1($x509listwin, 1, 1); |
||||||
|
|
||||||
|
# shall we display certificates, requests or keys? |
||||||
|
if ((defined $self->{'mode'}) && ($self->{'mode'} eq "cert")) { |
||||||
|
|
||||||
|
$self->{'x509store'} = Gtk2::ListStore->new( |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::Int'); |
||||||
|
|
||||||
|
@titles = @certtitles; |
||||||
|
|
||||||
|
} elsif ((defined $self->{'mode'}) && ($self->{'mode'} eq "req")) { |
||||||
|
|
||||||
|
$self->{'x509store'} = Gtk2::ListStore->new( |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::Int'); |
||||||
|
|
||||||
|
@titles = @reqtitles; |
||||||
|
|
||||||
|
} elsif ((defined $self->{'mode'}) && ($self->{'mode'} eq "key")) { |
||||||
|
|
||||||
|
$self->{'x509store'} = Gtk2::ListStore->new( |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::String', |
||||||
|
'Glib::Int'); |
||||||
|
|
||||||
|
@titles = @keytitles; |
||||||
|
|
||||||
|
} else { |
||||||
|
# undefined mode |
||||||
|
return undef; |
||||||
|
} |
||||||
|
|
||||||
|
$self->{'x509store'}->set_sort_column_id(0, 'ascending'); |
||||||
|
|
||||||
|
$self->{'x509clist'} = Gtk2::TreeView->new_with_model($self->{'x509store'}); |
||||||
|
$self->{'x509clist'}->get_selection->set_mode ('single'); |
||||||
|
|
||||||
|
for(my $i = 0; $titles[$i]; $i++) { |
||||||
|
$renderer = Gtk2::CellRendererText->new(); |
||||||
|
$column = Gtk2::TreeViewColumn->new_with_attributes( |
||||||
|
$titles[$i], $renderer, 'text' => $i); |
||||||
|
$column->set_sort_column_id($i); |
||||||
|
$column->set_resizable(1); |
||||||
|
if (($i == 7) && ($self->{'mode'} eq 'cert')) { |
||||||
|
$column->set_cell_data_func ($renderer, sub { |
||||||
|
my ($column, $cell, $model, $iter) = @_; |
||||||
|
$text = $model->get($iter, 7); |
||||||
|
$color = $text eq _("VALID")?'green':'red'; |
||||||
|
$cell->set (text => $text, foreground => $color); |
||||||
|
}); |
||||||
|
} |
||||||
|
$self->{'x509clist'}->append_column($column); |
||||||
|
} |
||||||
|
|
||||||
|
if ((defined $self->{'mode'}) && ($self->{'mode'} eq 'cert')) { |
||||||
|
$self->{'x509clist'}->get_selection->signal_connect('changed' => |
||||||
|
sub { _fill_info($self, 'cert') }); |
||||||
|
} elsif ((defined $self->{'mode'}) && ($self->{'mode'} eq 'req')) { |
||||||
|
$self->{'x509clist'}->get_selection->signal_connect('changed' => |
||||||
|
sub { _fill_info($self, 'req') }); |
||||||
|
} |
||||||
|
|
||||||
|
$x509listwin->add($self->{'x509clist'}); |
||||||
|
|
||||||
|
update($self, $directory, $crlfile, $indexfile, $true); |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
sub update { |
||||||
|
my ($self, $directory, $crlfile, $indexfile, $force) = @_; |
||||||
|
|
||||||
|
$self->{'actdir'} = $directory; |
||||||
|
$self->{'actcrl'} = $crlfile; |
||||||
|
$self->{'actindex'} = $indexfile; |
||||||
|
|
||||||
|
# print STDERR "DEBUG: set new dir: $self->{'actdir'}\n"; |
||||||
|
|
||||||
|
if ($self->{'mode'} eq "cert") { |
||||||
|
update_cert($self, $directory, $crlfile, $indexfile, $force); |
||||||
|
} elsif ($self->{'mode'} eq "req") { |
||||||
|
update_req($self, $directory, $crlfile, $indexfile, $force); |
||||||
|
} elsif ($self->{'mode'} eq "key") { |
||||||
|
update_key($self, $directory, $crlfile, $indexfile, $force); |
||||||
|
} else { |
||||||
|
return undef; |
||||||
|
} |
||||||
|
|
||||||
|
if ((defined $self->{'infowin'}) && ($self->{'infowin'} ne "")) { |
||||||
|
update_info($self); |
||||||
|
} |
||||||
|
|
||||||
|
$self->{'browser'}->show_all(); |
||||||
|
|
||||||
|
return($true); |
||||||
|
} |
||||||
|
|
||||||
|
sub update_req { |
||||||
|
my ($self, $directory, $crlfile, $indexfile, $force) = @_; |
||||||
|
|
||||||
|
my ($ind, $name, $state, @line, $iter); |
||||||
|
|
||||||
|
$self->{'main'}->{'REQ'}->read_reqlist( |
||||||
|
$directory, $crlfile, $indexfile, $force, $self->{'main'}); |
||||||
|
|
||||||
|
$self->{'x509store'}->clear(); |
||||||
|
|
||||||
|
$ind = 0; |
||||||
|
foreach my $n (@{$self->{'main'}->{'REQ'}->{'reqlist'}}) { |
||||||
|
($name, $state) = split(/\%/, $n); |
||||||
|
@line = split(/\:/, $name); |
||||||
|
$iter = $self->{'x509store'}->append(); |
||||||
|
$self->{'x509store'}->set($iter, |
||||||
|
0 => $line[0], |
||||||
|
1 => $line[1], |
||||||
|
2 => $line[2], |
||||||
|
3 => $line[3], |
||||||
|
4 => $line[4], |
||||||
|
5 => $line[5], |
||||||
|
6 => $line[6], |
||||||
|
7 => $ind); |
||||||
|
$ind++; |
||||||
|
} |
||||||
|
# now select the first row to display certificate informations |
||||||
|
$self->{'x509clist'}->get_selection->select_path( |
||||||
|
Gtk2::TreePath->new_first()); |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
sub update_cert { |
||||||
|
my ($self, $directory, $crlfile, $indexfile, $force) = @_; |
||||||
|
|
||||||
|
my ($ind, $name, $state, @line, $iter); |
||||||
|
|
||||||
|
$self->{'main'}->{'CERT'}->read_certlist( |
||||||
|
$directory, $crlfile, $indexfile, $force, $self->{'main'}); |
||||||
|
|
||||||
|
$self->{'x509store'}->clear(); |
||||||
|
|
||||||
|
$ind = 0; |
||||||
|
foreach my $n (@{$self->{'main'}->{'CERT'}->{'certlist'}}) { |
||||||
|
($name, $state) = split(/\%/, $n); |
||||||
|
@line = split(/\:/, $name); |
||||||
|
$iter = $self->{'x509store'}->append(); |
||||||
|
$self->{'x509store'}->set($iter, |
||||||
|
0 => $line[0], |
||||||
|
1 => $line[1], |
||||||
|
2 => $line[2], |
||||||
|
3 => $line[3], |
||||||
|
4 => $line[4], |
||||||
|
5 => $line[5], |
||||||
|
6 => $line[6], |
||||||
|
7 => $state, |
||||||
|
8 => $ind); |
||||||
|
|
||||||
|
|
||||||
|
# $self->{'x509clist'}->set_text($row, 7, $state); |
||||||
|
# if($state eq _("VALID")) { |
||||||
|
# $self->{'x509clist'}->set_cell_style($row, 7, $self->{'stylegreen'}); |
||||||
|
# } else { |
||||||
|
# $self->{'x509clist'}->set_cell_style($row, 7, $self->{'stylered'}); |
||||||
|
# } |
||||||
|
# $self->{'x509clist'}->set_text($row, 8, $ind); |
||||||
|
$ind++; |
||||||
|
} |
||||||
|
# now select the first row to display certificate informations |
||||||
|
$self->{'x509clist'}->get_selection->select_path( |
||||||
|
Gtk2::TreePath->new_first()); |
||||||
|
} |
||||||
|
|
||||||
|
sub update_key { |
||||||
|
my ($self, $directory, $crlfile, $indexfile, $force) = @_; |
||||||
|
|
||||||
|
my ($ind, $name, @line, $iter, $state); |
||||||
|
|
||||||
|
$self->{'main'}->{'KEY'}->read_keylist($self->{'main'}); |
||||||
|
|
||||||
|
$self->{'x509store'}->clear(); |
||||||
|
|
||||||
|
$ind = 0; |
||||||
|
foreach my $n (@{$self->{'main'}->{'KEY'}->{'keylist'}}) { |
||||||
|
($name, $state) = split(/\%/, $n); |
||||||
|
@line = split(/\:/, $name); |
||||||
|
$iter = $self->{'x509store'}->append(); |
||||||
|
$self->{'x509store'}->set($iter, |
||||||
|
0 => $line[0], |
||||||
|
1 => $line[1], |
||||||
|
2 => $line[2], |
||||||
|
3 => $line[3], |
||||||
|
4 => $line[4], |
||||||
|
5 => $line[5], |
||||||
|
6 => $line[6], |
||||||
|
7 => $state, |
||||||
|
8 => $ind); |
||||||
|
|
||||||
|
|
||||||
|
# $self->{'x509clist'}->set_text($row, 7, $state); |
||||||
|
# if($state eq _("VALID")) { |
||||||
|
# $self->{'x509clist'}->set_cell_style($row, 7, $self->{'stylegreen'}); |
||||||
|
# } else { |
||||||
|
# $self->{'x509clist'}->set_cell_style($row, 7, $self->{'stylered'}); |
||||||
|
# } |
||||||
|
# $self->{'x509clist'}->set_text($row, 8, $ind); |
||||||
|
$ind++; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
sub update_info { |
||||||
|
my ($self)=@_; |
||||||
|
|
||||||
|
my ($title, $parsed, $dn); |
||||||
|
|
||||||
|
$dn = selection_dn($self); |
||||||
|
|
||||||
|
if (defined $dn) { |
||||||
|
$dn = HELPERS::enc_base64($dn); |
||||||
|
|
||||||
|
if ($self->{'mode'} eq 'cert') { |
||||||
|
$parsed = $self->{'main'}->{'CERT'}->parse_cert($self->{'main'}, |
||||||
|
$dn, $false); |
||||||
|
$title = _("Certificate Information"); |
||||||
|
} else { |
||||||
|
$parsed = $self->{'main'}->{'REQ'}->parse_req($self->{'main'}, $dn, |
||||||
|
$false); |
||||||
|
$title = _("Request Information"); |
||||||
|
} |
||||||
|
|
||||||
|
defined($parsed) || |
||||||
|
GUI::HELPERS::print_error(_("Can't read file")); |
||||||
|
|
||||||
|
if(not defined($self->{'infobox'})) { |
||||||
|
$self->{'infobox'} = Gtk2::VBox->new(); |
||||||
|
} |
||||||
|
|
||||||
|
# printf STDERR "DEBUG: Infowin: $self->{'infowin'}, infobox: $self->{'infobox'}\n"; |
||||||
|
$self->{'infowin'}->display($self->{'infobox'}, $parsed, |
||||||
|
$self->{'mode'}, $title); |
||||||
|
|
||||||
|
} else { |
||||||
|
# nothing selected |
||||||
|
$self->{'infowin'}->hide(); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# add infobox to the browser window |
||||||
|
# |
||||||
|
sub add_info { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my ($row, $index, $parsed, $title, $status, $list, $dn); |
||||||
|
|
||||||
|
if ((defined $self->{'infowin'}) && ($self->{'infowin'} ne "")) { |
||||||
|
$self->{'infowin'}->hide(); |
||||||
|
} else { |
||||||
|
$self->{'infowin'} = GUI::X509_infobox->new(); |
||||||
|
} |
||||||
|
|
||||||
|
# printf STDERR "Infowin: $self->{'infowin'}\n"; |
||||||
|
# printf STDERR "x509clist: $self->{'x509clist'}\n"; |
||||||
|
|
||||||
|
$row = $self->{'x509clist'}->get_selection->get_selected(); |
||||||
|
|
||||||
|
if(defined($row)) { |
||||||
|
if ($self->{'mode'} eq 'cert') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[8]; |
||||||
|
$list = $self->{'main'}->{'CERT'}->{'certlist'}; |
||||||
|
} else { |
||||||
|
$index = ($self->{'x509store'}->get($row))[7]; |
||||||
|
$list = $self->{'main'}->{'REQ'}->{'reqlist'}; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
if (defined $index) { |
||||||
|
($dn, $status) = split(/\%/, $list->[$index]); |
||||||
|
$dn = HELPERS::enc_base64($dn); |
||||||
|
|
||||||
|
if ($self->{'mode'} eq 'cert') { |
||||||
|
$parsed = $self->{'main'}->{'CERT'}->parse_cert($self->{'main'}, $dn, |
||||||
|
$false); |
||||||
|
$title="Certificate Information"; |
||||||
|
} else { |
||||||
|
$parsed = $self->{'main'}->{'REQ'}->parse_req($self->{'main'}, $dn, |
||||||
|
$false); |
||||||
|
$title="Request Information"; |
||||||
|
} |
||||||
|
|
||||||
|
defined($parsed) || GUI::HELPERS::print_error(_("Can't read file")); |
||||||
|
|
||||||
|
# printf STDERR "Infowin: $self->{'infowin'}\n"; |
||||||
|
$self->{'infobox'} = Gtk2::VBox->new(); |
||||||
|
$self->{'x509pane'}->pack2($self->{'infobox'}, 1, 1); |
||||||
|
$self->{'infowin'}->display($self->{'infobox'}, $parsed, $self->{'mode'}, |
||||||
|
$title); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
sub hide { |
||||||
|
my ($self) = @_; |
||||||
|
|
||||||
|
$self->{'window'}->hide(); |
||||||
|
$self->{'dialog_shown'} = $false; |
||||||
|
} |
||||||
|
|
||||||
|
sub destroy { |
||||||
|
my ($self) = @_; |
||||||
|
|
||||||
|
$self->{'window'}->destroy(); |
||||||
|
$self->{'dialog_shown'} = $false; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# signal handler for selected list items |
||||||
|
# (updates the X509_infobox window) |
||||||
|
# XXX why is that function needed?? |
||||||
|
# |
||||||
|
sub _fill_info { |
||||||
|
my ($self) = @_; |
||||||
|
|
||||||
|
# print STDERR "DEBUG: fill_info: @_\n"; |
||||||
|
update_info($self) if (defined $self->{'infowin'}); |
||||||
|
} |
||||||
|
|
||||||
|
sub selection_fname { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my ($selected, $row, $index, $dn, $status, $filename, $list); |
||||||
|
|
||||||
|
$row = $self->{'x509clist'}->get_selection->get_selected(); |
||||||
|
|
||||||
|
return undef if (not defined $row); |
||||||
|
|
||||||
|
if ($self->{'mode'} eq 'req') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[7]; |
||||||
|
$list = $self->{'main'}->{'REQ'}->{'reqlist'}; |
||||||
|
} elsif ($self->{'mode'} eq 'cert') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[8]; |
||||||
|
$list = $self->{'main'}->{'CERT'}->{'certlist'}; |
||||||
|
} elsif ($self->{'mode'} eq 'key') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[8]; |
||||||
|
$list = $self->{'main'}->{'KEY'}->{'certlist'}; |
||||||
|
} else { |
||||||
|
GUI::HELPERS::print_error( |
||||||
|
_("Invalid browser mode for selection_fname():"." " |
||||||
|
.$self->{'mode'})); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
if (defined $index) { |
||||||
|
($dn, $status) = split(/\%/, $list->[$index]); |
||||||
|
$filename= HELPERS::enc_base64($dn); |
||||||
|
$filename=$self->{'actdir'}."/$filename".".pem"; |
||||||
|
} else { |
||||||
|
$filename = undef; |
||||||
|
} |
||||||
|
|
||||||
|
return($filename); |
||||||
|
} |
||||||
|
|
||||||
|
sub selection_dn { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my ($selected, $row, $index, $dn, $status, $list); |
||||||
|
|
||||||
|
$row = $self->{'x509clist'}->get_selection->get_selected(); |
||||||
|
|
||||||
|
return undef if (not defined $row); |
||||||
|
|
||||||
|
if ($self->{'mode'} eq 'req') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[7]; |
||||||
|
$list = $self->{'main'}->{'REQ'}->{'reqlist'}; |
||||||
|
} elsif ($self->{'mode'} eq 'cert') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[8]; |
||||||
|
$list = $self->{'main'}->{'CERT'}->{'certlist'}; |
||||||
|
} elsif ($self->{'mode'} eq 'key') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[8]; |
||||||
|
$list = $self->{'main'}->{'KEY'}->{'keylist'}; |
||||||
|
} else { |
||||||
|
GUI::HELPERS::print_error( |
||||||
|
_("Invalid browser mode for selection_dn():"." " |
||||||
|
.$self->{'mode'})); |
||||||
|
} |
||||||
|
|
||||||
|
if (defined $index) { |
||||||
|
($dn, $status) = split(/\%/, $list->[$index]); |
||||||
|
} else { |
||||||
|
$dn = undef; |
||||||
|
} |
||||||
|
|
||||||
|
return($dn); |
||||||
|
} |
||||||
|
|
||||||
|
sub selection_cadir { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my $dir; |
||||||
|
|
||||||
|
$dir = $self->{'actdir'}; |
||||||
|
# cut off the last directory name to provide the ca-directory |
||||||
|
$dir =~ s/\/certs|\/req|\/keys$//; |
||||||
|
return($dir); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
sub selection_caname { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my ($selected, $caname); |
||||||
|
|
||||||
|
$caname = $self->{'actca'}; |
||||||
|
return($caname); |
||||||
|
} |
||||||
|
|
||||||
|
sub selection_cn { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my ($selected, $row, $index, $cn); |
||||||
|
|
||||||
|
$row = $self->{'x509clist'}->get_selection->get_selected(); |
||||||
|
|
||||||
|
return undef if (not defined $row); |
||||||
|
|
||||||
|
if (($self->{'mode'} eq 'req') || |
||||||
|
($self->{'mode'} eq 'cert')|| |
||||||
|
($self->{'mode'} eq 'key')) { |
||||||
|
$cn = ($self->{'x509store'}->get($row))[0]; |
||||||
|
} else { |
||||||
|
GUI::HELPERS::print_error( |
||||||
|
_("Invalid browser mode for selection_cn():"." " |
||||||
|
.$self->{'mode'})); |
||||||
|
} |
||||||
|
|
||||||
|
return($cn); |
||||||
|
} |
||||||
|
|
||||||
|
sub selection_email { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my ($selected, $row, $index, $email); |
||||||
|
|
||||||
|
$row = $self->{'x509clist'}->get_selection->get_selected(); |
||||||
|
return undef if (not defined $row); |
||||||
|
|
||||||
|
if (($self->{'mode'} eq 'req') || |
||||||
|
($self->{'mode'} eq 'cert') || |
||||||
|
($self->{'mode'} eq 'key')) { |
||||||
|
$email = ($self->{'x509store'}->get($row))[1]; |
||||||
|
} else { |
||||||
|
GUI::HELPERS::print_error( |
||||||
|
_("Invalid browser mode for selection_cn():"." " |
||||||
|
.$self->{'mode'})); |
||||||
|
} |
||||||
|
|
||||||
|
return($email); |
||||||
|
} |
||||||
|
|
||||||
|
sub selection_status { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my ($selected, $row, $index, $dn, $status, $list); |
||||||
|
|
||||||
|
$row = $self->{'x509clist'}->get_selection->get_selected(); |
||||||
|
|
||||||
|
return undef if (not defined $row); |
||||||
|
|
||||||
|
if ($self->{'mode'} eq 'cert') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[8]; |
||||||
|
$list = $self->{'main'}->{'CERT'}->{'certlist'}; |
||||||
|
} else { |
||||||
|
GUI::HELPERS::print_error( |
||||||
|
_("Invalid browser mode for selection_status():"." " |
||||||
|
.$self->{'mode'})); |
||||||
|
} |
||||||
|
|
||||||
|
if (defined $index) { |
||||||
|
($dn, $status) = split(/\%/, $list->[$index]); |
||||||
|
} else { |
||||||
|
$status = undef; |
||||||
|
} |
||||||
|
|
||||||
|
return($status); |
||||||
|
} |
||||||
|
|
||||||
|
sub selection_type { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
my ($selected, $row, $index, $dn, $type, $list); |
||||||
|
|
||||||
|
$row = $self->{'x509clist'}->get_selection->get_selected(); |
||||||
|
|
||||||
|
return undef if (not defined $row); |
||||||
|
|
||||||
|
if ($self->{'mode'} eq 'key') { |
||||||
|
$index = ($self->{'x509store'}->get($row))[8]; |
||||||
|
$list = $self->{'main'}->{'KEY'}->{'keylist'}; |
||||||
|
} else { |
||||||
|
GUI::HELPERS::print_error( |
||||||
|
_("Invalid browser mode for selection_type():"." " |
||||||
|
.$self->{'mode'})); |
||||||
|
} |
||||||
|
|
||||||
|
if (defined $index) { |
||||||
|
($dn, $type) = split(/\%/, $list->[$index]); |
||||||
|
} else { |
||||||
|
$type = undef; |
||||||
|
} |
||||||
|
|
||||||
|
return($type); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
sub ok_function { |
||||||
|
my ($self) = @_; |
||||||
|
|
||||||
|
# is there a user defined ok_function? |
||||||
|
if (defined $self->{'User_OK_function'}) { |
||||||
|
$self->{'User_OK_function'}($self, selection_fname($self)); |
||||||
|
} |
||||||
|
# otherwise do default |
||||||
|
else { |
||||||
|
printf STDOUT "%s\n", selection_fname($self); |
||||||
|
$self->hide(); |
||||||
|
} |
||||||
|
return $true; |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
sub cancel_function { |
||||||
|
my ($self) = @_; |
||||||
|
|
||||||
|
# is there a user defined ok_function? |
||||||
|
if (defined $self->{'User_CANCEL_function'}) { |
||||||
|
$self->{'User_CANCEL_function'}($self, get_listselect($self)); |
||||||
|
} |
||||||
|
# otherwise do default |
||||||
|
else { |
||||||
|
$self->{'window'}->hide(); |
||||||
|
$self->{'dialog_shown'} = $false; |
||||||
|
} |
||||||
|
return $true; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# |
||||||
|
# sort the table by the clicked column |
||||||
|
# |
||||||
|
sub _sort_clist { |
||||||
|
my ($clist, $col) = @_; |
||||||
|
|
||||||
|
$clist->set_sort_column($col); |
||||||
|
$clist->sort(); |
||||||
|
|
||||||
|
return(1); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# |
||||||
|
# called on mouseclick in certlist |
||||||
|
# |
||||||
|
sub _show_cert_menu { |
||||||
|
my ($clist, $self, $event) = @_; |
||||||
|
|
||||||
|
if ((defined($event->{'type'})) && |
||||||
|
$event->{'button'} == 3) { |
||||||
|
$self->{'certmenu'}->popup( |
||||||
|
undef, |
||||||
|
undef, |
||||||
|
0, |
||||||
|
$event->{'button'}, |
||||||
|
undef); |
||||||
|
|
||||||
|
return(1); |
||||||
|
} |
||||||
|
|
||||||
|
return(0); |
||||||
|
} |
||||||
|
|
||||||
|
$true; |
||||||
|
|
||||||
|
__END__ |
||||||
|
|
||||||
|
=head1 NAME |
||||||
|
|
||||||
|
GUI::X509_browser - Perl-Gtk2 browser for X.509 certificates and requests |
||||||
|
|
||||||
|
=head1 SYNOPSIS |
||||||
|
|
||||||
|
use X509_browser; |
||||||
|
|
||||||
|
$browser=X509_browser->new($mode); |
||||||
|
$browser->create_window($title, $oktext, $canceltext, |
||||||
|
\&okayfunction, \&cancelfunction); |
||||||
|
$browser->add_ca_select($cadir, @calist, $active-ca); |
||||||
|
$browser->add_list($active-ca, $X509dir, $crlfile, $indexfile); |
||||||
|
$browser->add_info(); |
||||||
|
my $selection = $browser->selection_fname(); |
||||||
|
$browser->hide(); |
||||||
|
|
||||||
|
=head1 DESCRIPTION |
||||||
|
|
||||||
|
This displays a browser for X.509v3 certificates or certification |
||||||
|
requests (CSR) from a CA managed by TinyCA2 (or some similar |
||||||
|
structure). |
||||||
|
|
||||||
|
Creation of an X509_browser is done by calling B<new()>, |
||||||
|
the argument has to be 'cert' or 'req' to display certificates |
||||||
|
or requests. |
||||||
|
|
||||||
|
A window can be created for this purpose using |
||||||
|
B<create_window($title, $oktext, $canceltext, \&okfunction, \&cancelfunction)>, |
||||||
|
all arguments are optional. |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
=item $title: |
||||||
|
|
||||||
|
the existing Gtk2::VBox inside which the info will be |
||||||
|
displayed. |
||||||
|
|
||||||
|
=item $oktext: |
||||||
|
|
||||||
|
The text to be displayed on the OK button of the dialog. |
||||||
|
|
||||||
|
=item $canceltext: |
||||||
|
|
||||||
|
The text to be displayed on the CANCEL button of the dialog. |
||||||
|
|
||||||
|
=item \&okfunction: |
||||||
|
|
||||||
|
Reference to a function that is executed on click on OK button. |
||||||
|
This function should fetch the selected result (using |
||||||
|
B<selection_fname()>) and also close the dialog using B<hide()>. |
||||||
|
|
||||||
|
=item \&cancelfunction: |
||||||
|
|
||||||
|
Reference to a function that is executed on click on CANCEL button. |
||||||
|
This function should also close the dialog using B<hide()>. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
Further functions to get information about the selected item |
||||||
|
exist, these are <B>selection_dn()</B>, <B>selection_status()</B>, |
||||||
|
<B>selection_cadir()</B> and <B>selection_caname()</B>. |
||||||
|
|
||||||
|
An existing infobox that already displays the content |
||||||
|
of some directory can be modified by calling |
||||||
|
<B>update()</B> with the same arguments that add_list(). |
||||||
|
|
||||||
|
An existing infobox is destroyed by calling B<destroy()>. |
||||||
|
|
||||||
|
=cut |
||||||
@ -0,0 +1,280 @@ |
|||||||
|
# Copyright (c) Olaf Gellert <og@pre-secure.de> and |
||||||
|
# Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: X509_infobox.pm,v 1.7 2006/06/28 21:50:42 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::X509_infobox; |
||||||
|
|
||||||
|
use HELPERS; |
||||||
|
use GUI::HELPERS; |
||||||
|
use GUI::WORDS; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
my $version = "0.1"; |
||||||
|
my $true = 1; |
||||||
|
my $false = undef; |
||||||
|
|
||||||
|
sub new { |
||||||
|
my $that = shift; |
||||||
|
my $self = {}; |
||||||
|
|
||||||
|
my $class = ref($that) || $that; |
||||||
|
|
||||||
|
$self->{'init'} = shift; |
||||||
|
|
||||||
|
bless($self, $class); |
||||||
|
|
||||||
|
$self; |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
sub display { |
||||||
|
my ($self, $parent, $parsed, $mode, $title) = @_; |
||||||
|
|
||||||
|
my ($bottombox, $textbox, $lefttable, $righttable, $leftbox, $rightbox, |
||||||
|
@fields, $scrolled); |
||||||
|
|
||||||
|
$self->{'root'} = $parent; |
||||||
|
|
||||||
|
if (defined $self->{'child'}) { |
||||||
|
$self->{'child'}->destroy(); |
||||||
|
} |
||||||
|
|
||||||
|
# if title is given create a surrounding frame with the title |
||||||
|
if (defined $title) { |
||||||
|
$self->{'child'}= Gtk2::Frame->new($title); |
||||||
|
$self->{'x509textbox'}= Gtk2::VBox->new(0,0); |
||||||
|
$self->{'child'}->add($self->{'x509textbox'}); |
||||||
|
} |
||||||
|
# otherwise we create the VBox directly inside the root widget |
||||||
|
else { |
||||||
|
$self->{'child'} = Gtk2::VBox->new(0,0); |
||||||
|
$self->{'x509textbox'} = $self->{'child'}; |
||||||
|
} |
||||||
|
|
||||||
|
# and pack it there |
||||||
|
$self->{'root'}->pack_start($self->{'child'}, 1, 1, 0); |
||||||
|
|
||||||
|
if (($mode eq 'cert') || ($mode eq 'cacert')) { |
||||||
|
# fingerprint in the top of certtextbox |
||||||
|
if(defined($self->{'certfingerprintmd5'})) { |
||||||
|
$self->{'certfingerprintmd5'}->destroy(); |
||||||
|
} |
||||||
|
$self->{'certfingerprintmd5'} = GUI::HELPERS::create_label( |
||||||
|
_("Fingerprint (MD5)").": ".$parsed->{'FINGERPRINTMD5'}, |
||||||
|
'center', 0, 0); |
||||||
|
$self->{'x509textbox'}->pack_start( $self->{'certfingerprintmd5'}, |
||||||
|
0, 0, 0); |
||||||
|
|
||||||
|
if(defined($self->{'certfingerprintsha1'})) { |
||||||
|
$self->{'certfingerprintsha1'}->destroy(); |
||||||
|
} |
||||||
|
$self->{'certfingerprintsha1'} = GUI::HELPERS::create_label( |
||||||
|
_("Fingerprint (SHA1)").": ".$parsed->{'FINGERPRINTSHA1'}, |
||||||
|
'center', 0, 0); |
||||||
|
$self->{'x509textbox'}->pack_start($self->{'certfingerprintsha1'}, |
||||||
|
0, 0, 0); |
||||||
|
} |
||||||
|
|
||||||
|
if (($mode eq 'cert') || ($mode eq 'cacert')) { |
||||||
|
$bottombox = 'certbottombox'; |
||||||
|
$textbox = 'x509textbox'; |
||||||
|
$lefttable = 'certlefttable'; |
||||||
|
$leftbox = 'certleftbox'; |
||||||
|
$righttable = 'certrighttable'; |
||||||
|
$rightbox = 'certrightbox'; |
||||||
|
}else{ |
||||||
|
$bottombox = 'reqbottombox'; |
||||||
|
$textbox = 'x509textbox'; |
||||||
|
$lefttable = 'reqlefttable'; |
||||||
|
$leftbox = 'reqleftbox'; |
||||||
|
$righttable = 'reqrighttable'; |
||||||
|
$rightbox = 'reqrightbox'; |
||||||
|
} |
||||||
|
|
||||||
|
# hbox in the bottom |
||||||
|
if(defined($self->{$bottombox})) { |
||||||
|
$self->{$bottombox}->destroy(); |
||||||
|
} |
||||||
|
$self->{$bottombox} = Gtk2::HBox->new(1, 0); |
||||||
|
$self->{$textbox}->pack_start($self->{$bottombox}, 1, 1, 5); |
||||||
|
|
||||||
|
# vbox in the bottom/left |
||||||
|
if(defined($self->{$lefttable})) { |
||||||
|
$self->{$lefttable}->destroy(); |
||||||
|
} |
||||||
|
@fields = qw( CN EMAIL O OU L ST C); |
||||||
|
$self->{$lefttable} = _create_detail_table(\@fields, $parsed); |
||||||
|
|
||||||
|
# the only widget i know to set shadow type :-( |
||||||
|
$scrolled = Gtk2::ScrolledWindow->new(); |
||||||
|
$scrolled->set_shadow_type('etched-in'); |
||||||
|
$scrolled->set_policy('never', 'never'); |
||||||
|
|
||||||
|
$self->{$leftbox} = Gtk2::VBox->new(0, 0); |
||||||
|
$self->{$bottombox}->pack_start($self->{$leftbox}, 1, 1, 0); |
||||||
|
|
||||||
|
$self->{$leftbox}->pack_start($scrolled, 1, 1, 0); |
||||||
|
$scrolled->add($self->{$lefttable}); |
||||||
|
|
||||||
|
# vbox in the bottom/right |
||||||
|
if(defined($self->{$righttable})) { |
||||||
|
$self->{$righttable}->destroy(); |
||||||
|
} |
||||||
|
if ($mode eq "cacert") { |
||||||
|
@fields = qw(SERIAL NOTBEFORE NOTAFTER KEYSIZE PK_ALGORITHM SIG_ALGORITHM |
||||||
|
TYPE); |
||||||
|
} else { |
||||||
|
@fields = qw(STATUS SERIAL NOTBEFORE NOTAFTER KEYSIZE PK_ALGORITHM |
||||||
|
SIG_ALGORITHM TYPE); |
||||||
|
} |
||||||
|
|
||||||
|
$self->{$righttable} = _create_detail_table(\@fields, $parsed); |
||||||
|
|
||||||
|
$scrolled = Gtk2::ScrolledWindow->new(); |
||||||
|
$scrolled->set_shadow_type('etched-in'); |
||||||
|
$scrolled->set_policy('never', 'never'); |
||||||
|
|
||||||
|
$self->{$rightbox} = Gtk2::VBox->new(0, 0); |
||||||
|
$self->{$bottombox}->pack_start($self->{$rightbox}, 1, 1, 0); |
||||||
|
|
||||||
|
$self->{$rightbox}->pack_start($scrolled, 1, 1, 0); |
||||||
|
$scrolled->add($self->{$righttable}); |
||||||
|
|
||||||
|
$self->{$textbox}->show_all(); |
||||||
|
|
||||||
|
$parent->show_all(); |
||||||
|
} |
||||||
|
|
||||||
|
sub hide { |
||||||
|
my $self = shift; |
||||||
|
|
||||||
|
if (defined $self->{'child'}) { |
||||||
|
$self->{'child'}->destroy(); |
||||||
|
undef $self->{'child'}; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# create standard table with details (cert/req) |
||||||
|
# |
||||||
|
sub _create_detail_table { |
||||||
|
my ($fields, $parsed) = @_; |
||||||
|
|
||||||
|
my ($list, $store, $rows, $words, @l, $iter, $column, $renderer); |
||||||
|
|
||||||
|
$words = GUI::WORDS->new(); |
||||||
|
|
||||||
|
$store = Gtk2::ListStore->new('Glib::String', 'Glib::String'); |
||||||
|
$list = Gtk2::TreeView->new_with_model($store); |
||||||
|
$list->set_headers_visible(0); |
||||||
|
$list->get_selection->set_mode('none'); |
||||||
|
|
||||||
|
$renderer = Gtk2::CellRendererText->new(); |
||||||
|
$column = Gtk2::TreeViewColumn->new_with_attributes( |
||||||
|
'', $renderer, 'text' => 0); |
||||||
|
$list->append_column($column); |
||||||
|
|
||||||
|
$renderer = Gtk2::CellRendererText->new(); |
||||||
|
$column = Gtk2::TreeViewColumn->new_with_attributes( |
||||||
|
'', $renderer, 'text' => 1); |
||||||
|
$list->append_column($column); |
||||||
|
|
||||||
|
|
||||||
|
foreach my $f (@{$fields}) { |
||||||
|
if(defined($parsed->{$f})){ |
||||||
|
if(ref($parsed->{$f})) { |
||||||
|
foreach(@{$parsed->{$f}}) { |
||||||
|
$iter = $store->append(); |
||||||
|
$store->set($iter, 0 => $words->{$f}, 1 => $_); |
||||||
|
# print STDERR "DEBUG: add line: @l\n"; |
||||||
|
|
||||||
|
} |
||||||
|
}else{ |
||||||
|
# print STDERR "DEBUG: add line: @l\n"; |
||||||
|
$iter = $store->append(); |
||||||
|
$store->set($iter, 0 => $words->{$f}, 1 => $parsed->{$f}); |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
return($list); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
1; |
||||||
|
|
||||||
|
|
||||||
|
__END__ |
||||||
|
|
||||||
|
=head1 NAME |
||||||
|
|
||||||
|
GUI::X509_infobox - show X.509 certificates and requests in a Gtk2::VBox |
||||||
|
|
||||||
|
=head1 SYNOPSIS |
||||||
|
|
||||||
|
use X509_infobox; |
||||||
|
|
||||||
|
$infobox=X509_infobox->new(); |
||||||
|
$infobox->update($parent,$parsed,$mode,$title); |
||||||
|
$infobox->update($parent,$parsed,$mode); |
||||||
|
$infobox->hide(); |
||||||
|
|
||||||
|
=head1 DESCRIPTION |
||||||
|
|
||||||
|
This displays the information of an X.509v3 certificate or |
||||||
|
certification request (CSR) inside a given Gtk2::VBox. |
||||||
|
|
||||||
|
Creation of an X509_infobox is done by calling B<new()>, |
||||||
|
no arguments are required. |
||||||
|
|
||||||
|
The infobox is shown when inserted into an already |
||||||
|
existing Gtk2::VBox using the method B<update()>. Arguments |
||||||
|
to update are: |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
=item $parent: |
||||||
|
|
||||||
|
the existing Gtk2::VBox inside which the info will be |
||||||
|
displayed. |
||||||
|
|
||||||
|
=item $parsed: |
||||||
|
|
||||||
|
a structure returned by OpenSSL::parsecert() or OpenSSL::parsecrl() |
||||||
|
containing the required information. |
||||||
|
|
||||||
|
=item $mode: |
||||||
|
|
||||||
|
what type of information is to be displayed. Valid modes |
||||||
|
are 'req' (certification request), 'cert' (certificate), 'key' or 'cacert' |
||||||
|
(same as certificate but without displaying the validity information |
||||||
|
of the cert because this cannot be decided on from the view of the |
||||||
|
actual CA). |
||||||
|
|
||||||
|
=item $title: |
||||||
|
|
||||||
|
if specified, a surrounding frame with the given title |
||||||
|
is drawn. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
An existing infobox is destroyed by calling B<hide()>. |
||||||
|
|
||||||
|
=cut |
||||||
@ -0,0 +1,393 @@ |
|||||||
|
# Copyright (c) Olaf Gellert <og@pre-secure.de> and |
||||||
|
# Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: HELPERS.pm,v 1.6 2006/06/28 21:50:41 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 HELPERS; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
my $version = "0.1"; |
||||||
|
my $true = 1; |
||||||
|
my $false = undef; |
||||||
|
|
||||||
|
# |
||||||
|
# generate filename from Subject-DN |
||||||
|
# |
||||||
|
sub gen_name { |
||||||
|
my $opts = shift; |
||||||
|
|
||||||
|
my $name = ''; |
||||||
|
|
||||||
|
foreach (qw(CN EMAIL OU O L ST C)) { |
||||||
|
if((not defined($opts->{$_})) || ($opts->{$_} eq '')) { |
||||||
|
$opts->{$_} = "."; |
||||||
|
} |
||||||
|
if($opts->{$_} ne '.' && not ref($opts->{$_})) { |
||||||
|
$name .= $opts->{$_}; |
||||||
|
} elsif (ref($opts->{$_})) { |
||||||
|
if(defined($opts->{$_}->[0])) { |
||||||
|
$name .= $opts->{$_}->[0]; |
||||||
|
} else { |
||||||
|
$name .= " "; |
||||||
|
} |
||||||
|
} else { |
||||||
|
$name .= " "; |
||||||
|
} |
||||||
|
$name .= ":" if($_ ne 'C'); |
||||||
|
} |
||||||
|
|
||||||
|
return($name); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# generate temporary filename |
||||||
|
# |
||||||
|
sub mktmp { |
||||||
|
my $base = shift; |
||||||
|
|
||||||
|
my @rand = (); |
||||||
|
my $ret = ''; |
||||||
|
|
||||||
|
do { |
||||||
|
for(my $i = 0; $i < 8; $i++) { |
||||||
|
push(@rand, int(rand 26)+65); |
||||||
|
} |
||||||
|
my $end = pack("C8", @rand); |
||||||
|
$ret = $base.$end; |
||||||
|
} while (-e $ret); |
||||||
|
|
||||||
|
return($ret); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
# |
||||||
|
# finished... |
||||||
|
# |
||||||
|
sub exit_clean { |
||||||
|
my ($ret) = @_; |
||||||
|
|
||||||
|
$ret = 0 unless(defined $ret); |
||||||
|
|
||||||
|
# hack to avoid busy cursor |
||||||
|
my $rootwin = Gtk2::Gdk->get_default_root_window(); |
||||||
|
my $cursor = Gtk2::Gdk::Cursor->new('left-ptr'); |
||||||
|
|
||||||
|
$rootwin->set_cursor($cursor); |
||||||
|
|
||||||
|
Gtk2->main_quit(); |
||||||
|
exit($ret); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# split Subject DN and return hash |
||||||
|
# |
||||||
|
sub parse_dn { |
||||||
|
my $dn = shift; |
||||||
|
|
||||||
|
my (@dn, $k, $v, $tmp); |
||||||
|
|
||||||
|
$tmp = {}; |
||||||
|
|
||||||
|
$dn =~ s/,/\//g; |
||||||
|
|
||||||
|
@dn = split(/\//, $dn); |
||||||
|
foreach(@dn) { |
||||||
|
s/^\s+//; |
||||||
|
s/\s+$//; |
||||||
|
($k, $v) = split(/=/); |
||||||
|
next if(not defined($k)); |
||||||
|
if($k =~ /ou/i) { |
||||||
|
$tmp->{'OU'} or $tmp->{'OU'} = []; |
||||||
|
push(@{$tmp->{'OU'}}, $v); |
||||||
|
} else { |
||||||
|
if($k =~ /emailaddress/i) { |
||||||
|
$tmp->{'EMAIL'} = $v; |
||||||
|
} else { |
||||||
|
$tmp->{uc($k)} = $v; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
return($tmp); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# parse (requested) X509 extensions and return hash |
||||||
|
# |
||||||
|
sub parse_extensions { |
||||||
|
my ($lines, $mode) = @_; |
||||||
|
|
||||||
|
my ($sep, $i, $k, $v, $tmp); |
||||||
|
|
||||||
|
$sep = $mode eq "req"?"Requested extensions:":"X509v3 extensions:"; |
||||||
|
|
||||||
|
$tmp = {}; |
||||||
|
|
||||||
|
# skip everything before the extensions |
||||||
|
for($i = 0; defined($lines->[$i]) && $lines->[$i] !~ /^[\s\t]*$sep$/i; $i++) { |
||||||
|
return(undef) if not defined($lines->[$i]); |
||||||
|
} |
||||||
|
$i++; |
||||||
|
|
||||||
|
while($i < @{$lines}) { |
||||||
|
if(($lines->[$i] =~ /^[\s\t]*[^:]+:\s*$/) || |
||||||
|
($lines->[$i] =~ /^[\s\t]*[^:]+:\s+.+$/)) { |
||||||
|
if($lines->[$i] =~ /^[\s\t]*Signature Algorithm/i) { |
||||||
|
$i++; |
||||||
|
next; |
||||||
|
} |
||||||
|
$k = $lines->[$i]; |
||||||
|
$k =~ s/[\s\t:]*$//g; |
||||||
|
$k =~ s/^[\s\t]*//g; |
||||||
|
$tmp->{$k} = []; |
||||||
|
$i++; |
||||||
|
while(($lines->[$i] !~ /^[\s\t].+:\s*$/) && |
||||||
|
($lines->[$i] !~ /^[\s\t]*[^:]+:\s+.+$/) && |
||||||
|
($lines->[$i] !~ /^[\s\t]*Signature Algorithm/i) && |
||||||
|
($i < @{$lines})) { |
||||||
|
$v = $lines->[$i]; |
||||||
|
$v =~ s/^[\s]+//g; |
||||||
|
$v =~ s/[\s]+$//g; |
||||||
|
$i++; |
||||||
|
next if $v =~ /^$/; |
||||||
|
next if $v =~ /Signature Algorithm:/; |
||||||
|
my @vs = split(/,/, $v); |
||||||
|
foreach(@vs) { |
||||||
|
$_ =~ s/^\s//; |
||||||
|
$_ =~ s/\s$//; |
||||||
|
push(@{$tmp->{$k}}, $_); |
||||||
|
} |
||||||
|
} |
||||||
|
} else { |
||||||
|
$i++; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
return($tmp); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get last used export directory |
||||||
|
# |
||||||
|
sub get_export_dir { |
||||||
|
my $main = shift; |
||||||
|
|
||||||
|
open(EXPIN, "<$main->{'cadir'}/.exportdir") || return(undef); |
||||||
|
my $dir = <EXPIN>; |
||||||
|
chomp($dir); |
||||||
|
|
||||||
|
return($dir); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# write last used export directory |
||||||
|
# |
||||||
|
sub write_export_dir { |
||||||
|
my ($main, $dir) = @_; |
||||||
|
|
||||||
|
$dir =~ s:/[^/]+$::; |
||||||
|
|
||||||
|
open(EXPOUT, ">$main->{'cadir'}/.exportdir") || do { |
||||||
|
my $t = sprintf(_("Can't write exportdir: %s, %s"), |
||||||
|
"$main->{'cadir'}/.exportdir", $!); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print EXPOUT "$dir\n"; |
||||||
|
|
||||||
|
close(EXPOUT); |
||||||
|
|
||||||
|
return($dir); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# generate contents for subjectAltName |
||||||
|
# |
||||||
|
sub gen_subjectaltname_contents($@) |
||||||
|
{ |
||||||
|
my $type = shift || ''; |
||||||
|
my @input = map { split/,\s*|\s+/, $_ } @_; # split on ',' and ' ' |
||||||
|
my %output = (); # uniq on the fly |
||||||
|
|
||||||
|
if ($type) { # type given => use that one for all |
||||||
|
foreach my $elem (@input) { |
||||||
|
$output{$type.$elem} = 1; |
||||||
|
} |
||||||
|
} |
||||||
|
else { # no type => use heuristigcs to guess type per element |
||||||
|
foreach my $elem (@input) { |
||||||
|
if ($elem =~ s/^(ip:|dns:)(.*)/$2/i) { |
||||||
|
$type = uc($1); |
||||||
|
} elsif ($elem =~ s/^(email:)(.*)/$2/i) { |
||||||
|
$type = lc($1); |
||||||
|
} else { |
||||||
|
if ($elem =~ /^\d+\.\d+\.\d+\.\d+$/) { # it's an IP address |
||||||
|
$type = 'IP:'; |
||||||
|
} |
||||||
|
elsif ($elem =~ /^.+\@.+\.\w+$/) { # it's a mail address |
||||||
|
$type = 'email:'; |
||||||
|
} |
||||||
|
else { |
||||||
|
$type = 'DNS:' # otherwise it's a DNS name |
||||||
|
} |
||||||
|
} |
||||||
|
$output{$type.$elem} = 1; |
||||||
|
} |
||||||
|
} |
||||||
|
return(wantarray ? keys(%output) : join(', ', keys(%output))); |
||||||
|
} |
||||||
|
|
||||||
|
sub enc_base64 { |
||||||
|
my $data = shift; |
||||||
|
my $ret = MIME::Base64::encode($data, ''); |
||||||
|
$ret =~ tr/\/+/-_/; |
||||||
|
return $ret; |
||||||
|
} |
||||||
|
|
||||||
|
sub dec_base64 { |
||||||
|
my $data = shift; |
||||||
|
$data =~ tr/-_/\/+/; |
||||||
|
return MIME::Base64::decode($data); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
1 |
||||||
|
|
||||||
|
__END__ |
||||||
|
|
||||||
|
=head1 NAME |
||||||
|
|
||||||
|
HELPERS - helper functions for TinyCA, doing small jobs not related to the GUI |
||||||
|
|
||||||
|
=head1 SYNOPSIS |
||||||
|
|
||||||
|
use HELPERS; |
||||||
|
|
||||||
|
$name = HELPERS::gen_name($opts); |
||||||
|
$tmpnam = HELPERS::mktmp($base); |
||||||
|
$dnhash = HELPERS::parse_dn($dnstring); |
||||||
|
$exthash = HELPERS::parse_extensions($mode, $lines); |
||||||
|
$subjaltname = HELPERS::gen_subjectaltname_contents($type, @list); |
||||||
|
|
||||||
|
exit_clean($retcode); |
||||||
|
|
||||||
|
=head1 DESCRIPTION |
||||||
|
|
||||||
|
HELPERS.pm is just a library, containing some useful functions used by other |
||||||
|
TinyCA modules. |
||||||
|
|
||||||
|
=head1 FUNCTIONS |
||||||
|
|
||||||
|
=head2 HELPERS::gen_name($opts) |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
returns a string with the TinyCA filename for a certificate, request or key. |
||||||
|
The filename is generated from the following parts of the Subject DN from the |
||||||
|
related request or certificate if present: |
||||||
|
|
||||||
|
CN EMAIL OU O L ST C |
||||||
|
|
||||||
|
These parts need to be elements in the given options hash. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 HELPERS::mktmp($base) |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
returns a string, containing a uniqe filename starting with $base, which is |
||||||
|
not existing yet. |
||||||
|
|
||||||
|
$base needs to be an absolute path to allow HELPERS::mktmp() reliable check |
||||||
|
that the filename is really uniqe. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 HELPERS::parse_dn($dnstring) |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
returns the reference to a hash containing all elements of the Subject DN, |
||||||
|
given in $dnstring. |
||||||
|
|
||||||
|
The element OU is included as an array refernce in the hash, with an array |
||||||
|
containing all values of OU. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 HELPERS::parse_extensions($mode, $lines) |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
returns the reference to a hash containing all X509 extensions of the given |
||||||
|
request or certificate. |
||||||
|
|
||||||
|
The request or certificate is given in textform as an array reference |
||||||
|
with the array containing one line per element. |
||||||
|
|
||||||
|
$mode contains one of the strings "req" or "cert" depending on the type of the |
||||||
|
data. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 HELPERS::exit_clean($retcode) |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
does nothing yet, than closing the Gtk application returning the exitcode |
||||||
|
given in $retcode. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 $main->HELPERS::get_export_dir() |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
Get last used export directory. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 $main->HELPERS::write_export-dir($dir) |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
Store last used export directory |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=head2 HELPERS::gen_subjectaltname_contents($type, @list) |
||||||
|
|
||||||
|
=over 1 |
||||||
|
|
||||||
|
Generate a string suitable for the use as subjhectAltname contets for OpenSSL. |
||||||
|
|
||||||
|
If $Type is not empty create the contents of that type only, |
||||||
|
otherwise use either the type prefix of the list elements or |
||||||
|
the following heuristics to find the type for the appropriate elements: |
||||||
|
|
||||||
|
If the element looks like an IP address in dotted quad notation set |
||||||
|
then treat it as one. |
||||||
|
If the element contains a '@' followed by a '.' and a sequence of letters |
||||||
|
then treat the element as an email address. |
||||||
|
In all other cases treat it as a DNS name. |
||||||
|
|
||||||
|
=back |
||||||
|
|
||||||
|
=cut |
||||||
@ -0,0 +1,494 @@ |
|||||||
|
# Copyright (c) Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: KEY.pm,v 1.8 2006/06/28 21:50:41 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 KEY; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
sub new { |
||||||
|
my $self = {}; |
||||||
|
my $that = shift; |
||||||
|
my $class = ref($that) || $that; |
||||||
|
|
||||||
|
bless($self, $class); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get name of keyfile to delete |
||||||
|
# |
||||||
|
sub get_del_key { |
||||||
|
my ($self, $main) = @_; |
||||||
|
|
||||||
|
my($keyname, $key, $keyfile, $row, $ind, $ca, $type); |
||||||
|
|
||||||
|
$ca = $main->{'keybrowser'}->selection_caname(); |
||||||
|
$key = $main->{'keybrowser'}->selection_dn(); |
||||||
|
|
||||||
|
if(not defined $key) { |
||||||
|
GUI::HELPERS::print_info(_("Please select a Key first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$keyname = HELPERS::enc_base64($key); |
||||||
|
|
||||||
|
$keyfile = $main->{'cadir'}."/keys/".$keyname.".pem"; |
||||||
|
|
||||||
|
if(not -s $keyfile) { |
||||||
|
GUI::HELPERS::print_warning(_("Key file not found:".$keyfile)); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$main->show_del_confirm($keyfile, 'key'); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# now really delete the key |
||||||
|
# |
||||||
|
sub del_key { |
||||||
|
my ($self, $main, $file) = @_; |
||||||
|
|
||||||
|
unlink($file); |
||||||
|
|
||||||
|
my $cadir = $main->{'keybrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
$main->{'keybrowser'}->update($cadir."/keys", |
||||||
|
$cadir."/crl/crl.pem", |
||||||
|
$cadir."/index.txt", |
||||||
|
0); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# read keys in directory into list |
||||||
|
# |
||||||
|
sub read_keylist { |
||||||
|
my ($self, $main) = @_; |
||||||
|
|
||||||
|
my ($f, $modt, $tmp, $ca, $keydir, $keylist); |
||||||
|
|
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
$keydir = $main->{'cadir'}."/keys"; |
||||||
|
$keylist = []; |
||||||
|
|
||||||
|
$modt = (stat($keydir))[9]; |
||||||
|
|
||||||
|
if(defined($self->{'lastread'}) && |
||||||
|
$self->{'lastread'} >= $modt) { |
||||||
|
return(0); |
||||||
|
} |
||||||
|
|
||||||
|
opendir(DIR, $keydir) || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't open key directory")); |
||||||
|
return(0); |
||||||
|
}; |
||||||
|
|
||||||
|
while($f = readdir(DIR)) { |
||||||
|
next if $f =~ /^\./; |
||||||
|
$f =~ s/\.pem//; |
||||||
|
$tmp = HELPERS::dec_base64($f); |
||||||
|
next if not defined($tmp); |
||||||
|
next if $tmp eq ""; |
||||||
|
$tmp = _check_key($main, $keydir."/".$f.".pem", $tmp); |
||||||
|
push(@{$keylist}, $tmp); |
||||||
|
} |
||||||
|
@{$keylist} = sort(@{$keylist}); |
||||||
|
closedir(DIR); |
||||||
|
|
||||||
|
$self->{'keylist'} = $keylist; |
||||||
|
|
||||||
|
$self->{'lastread'} = time(); |
||||||
|
return(1); # got new list |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get the information to export the key |
||||||
|
# |
||||||
|
sub get_export_key { |
||||||
|
my ($self, $main, $opts, $box) = @_; |
||||||
|
|
||||||
|
$box->destroy() if(defined($box)); |
||||||
|
|
||||||
|
my($ca, $ind, $row, $t, $out, $cn, $email, $ret, $ext, $cadir); |
||||||
|
|
||||||
|
if(not defined($opts)) { |
||||||
|
$cn = $main->{'keybrowser'}->selection_cn(); |
||||||
|
|
||||||
|
if(not defined $cn) { |
||||||
|
GUI::HELPERS::print_info(_("Please select a Key first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$ca = $main->{'keybrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'keybrowser'}->selection_cadir(); |
||||||
|
$email = $main->{'keybrowser'}->selection_email(); |
||||||
|
|
||||||
|
$opts->{'type'} = $main->{'keybrowser'}->selection_type(); |
||||||
|
$opts->{'key'} = $main->{'keybrowser'}->selection_dn(); |
||||||
|
|
||||||
|
$opts->{'keyname'} = HELPERS::enc_base64($opts->{'key'}); |
||||||
|
$opts->{'keyfile'} = $cadir."/keys/".$opts->{'keyname'}.".pem"; |
||||||
|
$opts->{'certfile'} = $cadir."/certs/".$opts->{'keyname'}.".pem"; |
||||||
|
|
||||||
|
# set some defaults |
||||||
|
$opts->{'nopass'} = 0; |
||||||
|
$opts->{'include'} = 0; |
||||||
|
$opts->{'format'} = 'PEM'; |
||||||
|
$opts->{'friendlyname'} = ''; |
||||||
|
|
||||||
|
if((defined($email)) && $email ne '' && $email ne ' ') { |
||||||
|
$opts->{'outfile'} = "$main->{'exportdir'}/$email-key.pem"; |
||||||
|
}elsif((defined($cn)) && $cn ne '' && $cn ne ' ') { |
||||||
|
$opts->{'outfile'} = "$main->{'exportdir'}/$cn-key.pem"; |
||||||
|
}else{ |
||||||
|
$opts->{'outfile'} = "$main->{'exportdir'}/key.pem"; |
||||||
|
} |
||||||
|
|
||||||
|
$main->show_export_dialog($opts, 'key'); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if((not defined($opts->{'outfile'})) || ($opts->{'outfile'} eq '')) { |
||||||
|
$main->show_export_dialog($opts, 'key'); |
||||||
|
GUI::HELPERS::print_warning(_("Please give at least the output file")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if(($opts->{'nopass'} || $opts->{'format'} eq 'DER') && |
||||||
|
((not defined($opts->{'passwd'})) || ($opts->{'passwd'} eq ''))) { |
||||||
|
$main->show_key_nopasswd_dialog($opts); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if(($opts->{'format'} eq 'PEM') || ($opts->{'format'} eq 'DER')) { |
||||||
|
unless(($opts->{'format'} eq 'PEM') && not $opts->{'nopass'}) { |
||||||
|
($out, $ext) = $main->{'OpenSSL'}->convkey( |
||||||
|
'type' => $opts->{'type'}, |
||||||
|
'inform' => 'PEM', |
||||||
|
'outform' => $opts->{'format'}, |
||||||
|
'nopass' => $opts->{'nopass'}, |
||||||
|
'pass' => $opts->{'passwd'}, |
||||||
|
'keyfile' => $opts->{'keyfile'} |
||||||
|
); |
||||||
|
|
||||||
|
if(defined($out) && $out eq 1) { |
||||||
|
$t = _("Wrong password given\nDecrypting of the Key failed\nExport is not possible"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
return; |
||||||
|
} elsif((not defined($out)) || (length($out) < 3)) { |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Converting failed, Export not possible"), $ext); |
||||||
|
return; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
if(($opts->{'format'} eq 'PEM') && not $opts->{'nopass'}) { |
||||||
|
open(IN, "<$opts->{'keyfile'}") || do { |
||||||
|
$t = sprintf(_("Can't open Key file: %s: %s"), |
||||||
|
$opts->{'keyfile'}, $!); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
}; |
||||||
|
$out .= $_ while(<IN>); |
||||||
|
close(IN); |
||||||
|
} |
||||||
|
if($opts->{'include'}) { |
||||||
|
open(IN, "<$opts->{'certfile'}") || do { |
||||||
|
$t = sprintf(_("Can't open Certificate file: %s: %s"), |
||||||
|
$opts->{'certfile'}, $!); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
}; |
||||||
|
$out .= "\n"; |
||||||
|
$out .= $_ while(<IN>); |
||||||
|
close(IN); |
||||||
|
} |
||||||
|
|
||||||
|
open(OUT, ">$opts->{'outfile'}") || do { |
||||||
|
$t = sprintf(_("Can't open output file: %s: %s"), |
||||||
|
$opts->{'outfile'}, $!); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
}; |
||||||
|
|
||||||
|
print OUT $out; |
||||||
|
close(OUT); |
||||||
|
|
||||||
|
$main->{'exportdir'} = HELPERS::write_export_dir($main, |
||||||
|
$opts->{'outfile'}); |
||||||
|
|
||||||
|
$t = sprintf(_("Key succesfully exported to %s"), |
||||||
|
$opts->{'outfile'}); |
||||||
|
GUI::HELPERS::print_info($t); |
||||||
|
return; |
||||||
|
|
||||||
|
} elsif ($opts->{'format'} eq 'P12') { |
||||||
|
$opts->{'certfile'} = |
||||||
|
$main->{'cadir'}."/certs/".$opts->{'keyname'}.".pem"; |
||||||
|
$opts->{'cafile'} = |
||||||
|
$main->{'cadir'}."/cacert.pem"; |
||||||
|
|
||||||
|
if (-f $main->{'cadir'}."/cachain.pem") { |
||||||
|
$opts->{'cafile'} = $main->{'cadir'}."/cachain.pem"; |
||||||
|
} |
||||||
|
|
||||||
|
if(not -s $opts->{'certfile'}) { |
||||||
|
$t = _("Certificate is necessary for export as PKCS#12"); |
||||||
|
$t .= "\n"; |
||||||
|
$t .= _("Export is not possible!"); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if((not defined($opts->{'p12passwd'})) && |
||||||
|
(not $opts->{'nopass'})) { |
||||||
|
$opts->{'includeca'} = 1; |
||||||
|
$main->show_p12_export_dialog($opts, 'key'); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
unlink($opts->{'outfile'}); |
||||||
|
($ret, $ext) = $main->{'OpenSSL'}->genp12( |
||||||
|
type => $opts->{'type'}, |
||||||
|
certfile => $opts->{'certfile'}, |
||||||
|
keyfile => $opts->{'keyfile'}, |
||||||
|
cafile => $opts->{'cafile'}, |
||||||
|
outfile => $opts->{'outfile'}, |
||||||
|
passwd => $opts->{'passwd'}, |
||||||
|
p12passwd => $opts->{'p12passwd'}, |
||||||
|
includeca => $opts->{'includeca'}, |
||||||
|
nopass => $opts->{'nopass'}, |
||||||
|
friendly => $opts->{'friendlyname'} |
||||||
|
); |
||||||
|
|
||||||
|
if($ret eq 1) { |
||||||
|
$t = "Wrong password given\nDecrypting Key failed\nGenerating PKCS#12 failed"; |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
return; |
||||||
|
} elsif($ret || (not -s $opts->{'outfile'})) { |
||||||
|
$t = _("Generating PKCS#12 failed"); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$main->{'exportdir'} = HELPERS::write_export_dir($main, |
||||||
|
$opts->{'outfile'}); |
||||||
|
|
||||||
|
$t = sprintf(_("Certificate and Key successfully exported to %s"), |
||||||
|
$opts->{'outfile'}); |
||||||
|
GUI::HELPERS::print_info($t, $ext); |
||||||
|
return; |
||||||
|
|
||||||
|
} elsif (($opts->{'format'} eq "ZIP") || ($opts->{'format'} eq "TAR")) { |
||||||
|
$opts->{'certfile'} = |
||||||
|
$main->{'cadir'}."/certs/".$opts->{'keyname'}.".pem"; |
||||||
|
if(not -s $opts->{'certfile'}) { |
||||||
|
$t = sprintf( |
||||||
|
_("Certificate is necessary for export as %s file"), |
||||||
|
$opts->{'format'}); |
||||||
|
$t .= "\n"; |
||||||
|
$t .= _("Export is not possible!"); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$opts->{'parsed'} = |
||||||
|
$main->{'CERT'}->parse_cert($main, $opts->{'keyname'}); |
||||||
|
|
||||||
|
my $tmpcert = "$main->{'tmpdir'}/cert.pem"; |
||||||
|
my $tmpkey = "$main->{'tmpdir'}/key.pem"; |
||||||
|
my $tmpcacert = "$main->{'tmpdir'}/cacert.pem"; |
||||||
|
|
||||||
|
open(OUT, ">$tmpcert") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't create temporary file")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print OUT $opts->{'parsed'}->{'PEM'}; |
||||||
|
close OUT; |
||||||
|
|
||||||
|
# store key in temporary location |
||||||
|
{ |
||||||
|
open(IN, "<$opts->{'keyfile'}") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't read Key file")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
my @key = <IN>; |
||||||
|
close IN; |
||||||
|
|
||||||
|
open(OUT, ">$tmpkey") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't create temporary file")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print OUT @key; |
||||||
|
close OUT; |
||||||
|
} |
||||||
|
|
||||||
|
# store cacert in temporary location |
||||||
|
{ |
||||||
|
$opts->{'cafile'} = $main->{'cadir'}."/cacert.pem"; |
||||||
|
open(IN, "<$opts->{'cafile'}") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't read CA certificate")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
my @cacert = <IN>; |
||||||
|
close IN; |
||||||
|
|
||||||
|
open(OUT, ">$tmpcacert") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't create temporary file")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print OUT @cacert; |
||||||
|
close OUT; |
||||||
|
} |
||||||
|
|
||||||
|
unlink($opts->{'outfile'}); |
||||||
|
if($opts->{'format'} eq 'ZIP') { |
||||||
|
system($main->{'init'}->{'zipbin'}, '-j', $opts->{'outfile'}, |
||||||
|
$tmpcacert, $tmpkey, $tmpcert); |
||||||
|
my $ret = $? >> 8; |
||||||
|
} elsif ($opts->{'format'} eq 'TAR') { |
||||||
|
system($main->{'init'}->{'tarbin'}, 'cfv', $opts->{'outfile'}, |
||||||
|
$tmpcacert, $tmpkey, $tmpcert); |
||||||
|
my $ret = $? >> 8; |
||||||
|
} |
||||||
|
|
||||||
|
if(not -s $opts->{'outfile'} || $ret) { |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
sprintf(_("Generating %s file failed"), |
||||||
|
$opts->{'format'})); |
||||||
|
} else { |
||||||
|
$main->{'exportdir'} = HELPERS::write_export_dir($main, |
||||||
|
$opts->{'outfile'}); |
||||||
|
$t = sprintf( |
||||||
|
_("Certificate and Key successfully exported to %s"), |
||||||
|
$opts->{'outfile'}); |
||||||
|
GUI::HELPERS::print_info($t); |
||||||
|
} |
||||||
|
unlink($tmpcacert); |
||||||
|
unlink($tmpcert); |
||||||
|
unlink($tmpkey); |
||||||
|
|
||||||
|
return; |
||||||
|
|
||||||
|
} else { |
||||||
|
$t = sprintf(_("Invalid format for export requested: %s"), |
||||||
|
$opts->{'format'}); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
GUI::HELPERS::print_warning(_("Something Failed ??")); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# check if its a dsa or rsa key |
||||||
|
sub _check_key { |
||||||
|
my ($main, $file, $name) = @_; |
||||||
|
|
||||||
|
my ($t, $type); |
||||||
|
|
||||||
|
open(KEY, "<$file") || do { |
||||||
|
$t = sprintf(_("Can't open Key file: %s: %s"), |
||||||
|
$file, $!); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return; |
||||||
|
}; |
||||||
|
|
||||||
|
while(<KEY>) { |
||||||
|
if(/RSA PRIVATE KEY/i) { |
||||||
|
$type = "RSA"; |
||||||
|
last; |
||||||
|
} elsif(/DSA PRIVATE KEY/i) { |
||||||
|
$type = "DSA"; |
||||||
|
last; |
||||||
|
} else { |
||||||
|
$type = "UNKNOWN"; |
||||||
|
} |
||||||
|
} |
||||||
|
close(KEY); |
||||||
|
|
||||||
|
if(defined($type) && $type ne "") { |
||||||
|
$name .= "%".$type; |
||||||
|
} |
||||||
|
|
||||||
|
return($name); |
||||||
|
} |
||||||
|
|
||||||
|
sub key_change_passwd { |
||||||
|
my ($self, $main, $file, $oldpass, $newpass) = @_; |
||||||
|
my $opts = {}; |
||||||
|
my ($t, $ret, $ext); |
||||||
|
|
||||||
|
my $inform = "DER"; |
||||||
|
my $outform = "PEM"; |
||||||
|
|
||||||
|
my($type); |
||||||
|
|
||||||
|
# ckeck file format |
||||||
|
open(KEY, "<$file") || do { |
||||||
|
$t = sprintf(_("Can't open Key file:\n%s"), |
||||||
|
$file); |
||||||
|
GUI::HELPERS::print_warning($t); |
||||||
|
return(1); |
||||||
|
}; |
||||||
|
while(<KEY>) { |
||||||
|
if(/BEGIN RSA PRIVATE KEY/) { |
||||||
|
$inform = "PEM"; |
||||||
|
$type = "RSA"; |
||||||
|
last; |
||||||
|
} elsif(/BEGIN RSA PRIVATE KEY/){ |
||||||
|
$inform = "PEM"; |
||||||
|
$type = "DSA"; |
||||||
|
last; |
||||||
|
} else { |
||||||
|
$type = "UNKNOWN"; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
($ret, $ext) = $main->{'OpenSSL'}->convkey( |
||||||
|
'type' => $type, |
||||||
|
'inform' => $inform, |
||||||
|
'outform' => $outform, |
||||||
|
'nopass' => 0, |
||||||
|
'pass' => $newpass, |
||||||
|
'oldpass' => $oldpass, |
||||||
|
'keyfile' => $file |
||||||
|
); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
if($ret eq 1) { |
||||||
|
$t = _("Generating key failed"); |
||||||
|
|
||||||
|
if($ext =~ /unable to load Private Key/) { |
||||||
|
$t .= _("The password for your old CA Key is wrong"); |
||||||
|
} |
||||||
|
GUI::HELPERS::print_warning(($t), $ext); |
||||||
|
return($ret); |
||||||
|
} |
||||||
|
|
||||||
|
return($ret); |
||||||
|
} |
||||||
|
|
||||||
|
1 |
||||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,777 @@ |
|||||||
|
# Copyright (c) Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: REQ.pm,v 1.7 2006/06/28 21:50:42 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 REQ; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
sub new { |
||||||
|
my $that = shift; |
||||||
|
my $class = ref($that) || $that; |
||||||
|
|
||||||
|
my $self = {}; |
||||||
|
|
||||||
|
$self->{'OpenSSL'} = shift; |
||||||
|
|
||||||
|
bless($self, $class); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# check if all data for creating a new request is available |
||||||
|
# |
||||||
|
sub get_req_create { |
||||||
|
my ($self, $main, $opts, $box) = @_; |
||||||
|
|
||||||
|
$box->destroy() if(defined($box)); |
||||||
|
|
||||||
|
my ($name, $action, $parsed, $reqfile, $keyfile, $ca, $t); |
||||||
|
|
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
|
||||||
|
if(!(defined($opts)) || !(ref($opts))) { |
||||||
|
if(defined($opts) && $opts eq "signserver") { |
||||||
|
$opts = {}; |
||||||
|
$opts->{'sign'} = 1; |
||||||
|
$opts->{'type'} = "server"; |
||||||
|
} elsif(defined($opts) && $opts eq "signclient") { |
||||||
|
$opts = {}; |
||||||
|
$opts->{'sign'} = 1; |
||||||
|
$opts->{'type'} = "client"; |
||||||
|
} elsif (defined($opts)) { |
||||||
|
$t = sprintf(_("Strange value for 'opts': %s"), $opts); |
||||||
|
GUI::HELPERS::print_error($t); |
||||||
|
} |
||||||
|
$opts->{'bits'} = 4096; |
||||||
|
$opts->{'digest'} = 'sha1'; |
||||||
|
$opts->{'algo'} = 'rsa'; |
||||||
|
if(defined($opts) && $opts eq "sign") { |
||||||
|
$opts->{'sign'} = 1; |
||||||
|
} |
||||||
|
|
||||||
|
$parsed = $main->{'CERT'}->parse_cert($main, 'CA'); |
||||||
|
|
||||||
|
defined($parsed) || |
||||||
|
GUI::HELPERS::print_error(_("Can't read CA certificate")); |
||||||
|
|
||||||
|
# set defaults |
||||||
|
if(defined $parsed->{'C'}) { |
||||||
|
$opts->{'C'} = $parsed->{'C'}; |
||||||
|
} |
||||||
|
if(defined $parsed->{'ST'}) { |
||||||
|
$opts->{'ST'} = $parsed->{'ST'}; |
||||||
|
} |
||||||
|
if(defined $parsed->{'L'}) { |
||||||
|
$opts->{'L'} = $parsed->{'L'}; |
||||||
|
} |
||||||
|
if(defined $parsed->{'O'}) { |
||||||
|
$opts->{'O'} = $parsed->{'O'}; |
||||||
|
} |
||||||
|
my $cc = 0; |
||||||
|
foreach my $ou (@{$parsed->{'OU'}}) { |
||||||
|
$opts->{'OU'}->[$cc++] = $ou; |
||||||
|
} |
||||||
|
|
||||||
|
$main->show_req_dialog($opts); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if((not defined($opts->{'CN'})) || |
||||||
|
($opts->{'CN'} eq "") || |
||||||
|
(not defined($opts->{'passwd'})) || |
||||||
|
($opts->{'passwd'} eq "")) { |
||||||
|
$main->show_req_dialog($opts); |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Please specify at least Common Name ") |
||||||
|
._("and Password")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if((not defined($opts->{'passwd2'})) || |
||||||
|
$opts->{'passwd'} ne $opts->{'passwd2'}) { |
||||||
|
$main->show_req_dialog($opts); |
||||||
|
GUI::HELPERS::print_warning(_("Passwords don't match")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$opts->{'C'} = uc($opts->{'C'}); |
||||||
|
|
||||||
|
if((defined $opts->{'C'}) && |
||||||
|
($opts->{'C'} ne "") && |
||||||
|
(length($opts->{'C'}) != 2)) { |
||||||
|
$main->show_req_dialog($opts); |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Country must be exact 2 letter code")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$name = HELPERS::gen_name($opts); |
||||||
|
|
||||||
|
$opts->{'reqname'} = HELPERS::enc_base64($name); |
||||||
|
|
||||||
|
$reqfile = $main->{'CA'}->{$ca}->{'dir'}."/req/".$opts->{'reqname'}.".pem"; |
||||||
|
$keyfile = $main->{'CA'}->{$ca}->{'dir'}."/keys/".$opts->{'reqname'}.".pem"; |
||||||
|
|
||||||
|
if(-s $reqfile || -s $keyfile) { |
||||||
|
$main->show_req_overwrite_warning($opts); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$self->create_req($main, $opts); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# create new request and key |
||||||
|
# |
||||||
|
sub create_req { |
||||||
|
my ($self, $main, $opts) = @_; |
||||||
|
|
||||||
|
my($reqfile, $keyfile, $ca, $ret, $ext, $cadir); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
$cadir = $main->{'CA'}->{$ca}->{'dir'}; |
||||||
|
|
||||||
|
$reqfile = $cadir."/req/".$opts->{'reqname'}.".pem"; |
||||||
|
$keyfile = $cadir."/keys/".$opts->{'reqname'}.".pem"; |
||||||
|
|
||||||
|
($ret, $ext) = $self->{'OpenSSL'}->newkey( |
||||||
|
'algo' => $opts->{'algo'}, |
||||||
|
'bits' => $opts->{'bits'}, |
||||||
|
'outfile' => $keyfile, |
||||||
|
'pass' => $opts->{'passwd'} |
||||||
|
); |
||||||
|
|
||||||
|
if (not -s $keyfile || $ret) { |
||||||
|
unlink($keyfile); |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_warning(_("Generating key failed"), $ext); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
my @dn = ( $opts->{'C'}, $opts->{'ST'}, $opts->{'L'}, $opts->{'O'} ); |
||||||
|
if(ref($opts->{'OU'})) { |
||||||
|
foreach my $ou (@{$opts->{'OU'}}) { |
||||||
|
push(@dn,$ou); |
||||||
|
} |
||||||
|
} else { |
||||||
|
push(@dn, $opts->{'OU'}); |
||||||
|
} |
||||||
|
@dn = (@dn, $opts->{'CN'}, $opts->{'EMAIL'}, '', ''); |
||||||
|
($ret, $ext) = $self->{'OpenSSL'}->newreq( |
||||||
|
'config' => $main->{'CA'}->{$ca}->{'cnf'}, |
||||||
|
'outfile' => $reqfile, |
||||||
|
'keyfile' => $keyfile, |
||||||
|
'digest' => $opts->{'digest'}, |
||||||
|
'pass' => $opts->{'passwd'}, |
||||||
|
'dn' => \@dn, |
||||||
|
); |
||||||
|
|
||||||
|
if (not -s $reqfile || $ret) { |
||||||
|
unlink($keyfile); |
||||||
|
unlink($reqfile); |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_warning(_("Generating Request failed"), $ext); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
my $parsed = $self->parse_req($main, $opts->{'reqname'}, 1); |
||||||
|
|
||||||
|
$main->{'reqbrowser'}->update($cadir."/req", |
||||||
|
$cadir."/crl/crl.pem", |
||||||
|
$cadir."/index.txt", |
||||||
|
0); |
||||||
|
|
||||||
|
$main->{'keybrowser'}->update($cadir."/keys", |
||||||
|
$cadir."/crl/crl.pem", |
||||||
|
$cadir."/index.txt", |
||||||
|
0); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
if($opts->{'sign'}) { |
||||||
|
$opts->{'reqfile'} = $reqfile; |
||||||
|
$opts->{'passwd'} = undef; # to sign request, ca-password is needed |
||||||
|
$self->get_sign_req($main, $opts); |
||||||
|
} |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get name of requestfile to delete |
||||||
|
# |
||||||
|
sub get_del_req { |
||||||
|
my ($self, $main) = @_; |
||||||
|
|
||||||
|
my($reqname, $req, $reqfile, $row, $ind, $ca, $cadir); |
||||||
|
|
||||||
|
$ca = $main->{'reqbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'reqbrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
if(not(defined($reqfile))) { |
||||||
|
$req = $main->{'reqbrowser'}->selection_dn(); |
||||||
|
|
||||||
|
|
||||||
|
if(not defined($req)) { |
||||||
|
GUI::HELPERS::print_info(_("Please select a Request first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$reqname = HELPERS::enc_base64($req); |
||||||
|
$reqfile = $cadir."/req/".$reqname.".pem"; |
||||||
|
|
||||||
|
} |
||||||
|
|
||||||
|
if(not -s $reqfile) { |
||||||
|
GUI::HELPERS::print_warning(_("Request file not found")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$main->show_del_confirm($reqfile, 'req'); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# now really delete the requestfile |
||||||
|
# |
||||||
|
sub del_req { |
||||||
|
my ($self, $main, $file) = @_; |
||||||
|
|
||||||
|
my ($ca, $cadir); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
unlink($file); |
||||||
|
|
||||||
|
$ca = $main->{'reqbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'reqbrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
$main->{'reqbrowser'}->update($cadir."/req", |
||||||
|
$cadir."/crl/crl.pem", |
||||||
|
$cadir."/index.txt", |
||||||
|
0); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
sub read_reqlist { |
||||||
|
my ($self, $reqdir, $crlfile, $indexfile, $force, $main) = @_; |
||||||
|
|
||||||
|
my ($f, $modt, $d, $reqlist, $c, $p, $t); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$reqlist = []; |
||||||
|
|
||||||
|
$modt = (stat($reqdir))[9]; |
||||||
|
|
||||||
|
if(defined($self->{'lastread'}) && |
||||||
|
$self->{'lastread'} >= $modt) { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
return(0); |
||||||
|
} |
||||||
|
|
||||||
|
opendir(DIR, $reqdir) || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_warning(_("Can't open Request directory")); |
||||||
|
return(0); |
||||||
|
}; |
||||||
|
|
||||||
|
while($f = readdir(DIR)) { |
||||||
|
next if $f =~ /^\./; |
||||||
|
$c++; |
||||||
|
} |
||||||
|
rewinddir(DIR); |
||||||
|
|
||||||
|
$main->{'barbox'}->pack_start($main->{'progress'}, 0, 0, 0); |
||||||
|
$main->{'progress'}->show(); |
||||||
|
while($f = readdir(DIR)) { |
||||||
|
next if $f =~ /^\./; |
||||||
|
$f =~ s/\.pem//; |
||||||
|
$d = HELPERS::dec_base64($f); |
||||||
|
next if not defined($d); |
||||||
|
next if $d eq ""; |
||||||
|
push(@{$reqlist}, $d); |
||||||
|
|
||||||
|
if(defined($main)) { |
||||||
|
$t = sprintf(_(" Read Request: %s"), $d); |
||||||
|
GUI::HELPERS::set_status($main, $t); |
||||||
|
$p += 100/$c; |
||||||
|
if($p/100 <= 1) { |
||||||
|
$main->{'progress'}->set_fraction($p/100); |
||||||
|
while(Gtk2->events_pending) { |
||||||
|
Gtk2->main_iteration; |
||||||
|
} |
||||||
|
} |
||||||
|
select(undef, undef, undef, 0.025); |
||||||
|
} |
||||||
|
} |
||||||
|
@{$reqlist} = sort(@{$reqlist}); |
||||||
|
closedir(DIR); |
||||||
|
|
||||||
|
delete($self->{'reqlist'}); |
||||||
|
$self->{'reqlist'} = $reqlist; |
||||||
|
|
||||||
|
$self->{'lastread'} = time(); |
||||||
|
|
||||||
|
if(defined($main)) { |
||||||
|
$main->{'progress'}->set_fraction(0); |
||||||
|
$main->{'barbox'}->remove($main->{'progress'}); |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
} |
||||||
|
|
||||||
|
return(1); # got new list |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get name of request to sign |
||||||
|
# |
||||||
|
sub get_sign_req { |
||||||
|
my ($self, $main, $opts, $box) = @_; |
||||||
|
|
||||||
|
my($time, $parsed, $ca, $cadir, $ext, $ret); |
||||||
|
|
||||||
|
$box->destroy() if(defined($box)); |
||||||
|
|
||||||
|
$time = time(); |
||||||
|
$ca = $main->{'reqbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'reqbrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
if(not(defined($opts->{'reqfile'}))) { |
||||||
|
$opts->{'req'} = $main->{'reqbrowser'}->selection_dn(); |
||||||
|
|
||||||
|
if(not defined($opts->{'req'})) { |
||||||
|
GUI::HELPERS::print_info(_("Please select a Request first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$opts->{'reqname'} = HELPERS::enc_base64($opts->{'req'}); |
||||||
|
$opts->{'reqfile'} = $cadir."/req/".$opts->{'reqname'}.".pem"; |
||||||
|
} |
||||||
|
|
||||||
|
if(not -s $opts->{'reqfile'}) { |
||||||
|
GUI::HELPERS::print_warning(_("Request file not found")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if((-s $cadir."/certs/".$opts->{'reqname'}.".pem") && |
||||||
|
(!(defined($opts->{'overwrite'})) || ($opts->{'overwrite'} ne 'true'))) { |
||||||
|
$main->show_cert_overwrite_confirm($opts); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$parsed = $main->{'CERT'}->parse_cert($main, 'CA'); |
||||||
|
|
||||||
|
defined($parsed) || |
||||||
|
GUI::HELPERS::print_error(_("Can't read CA certificate")); |
||||||
|
|
||||||
|
if(!defined($opts->{'passwd'})) { |
||||||
|
$opts->{'days'} = |
||||||
|
$main->{'TCONFIG'}->{$opts->{'type'}."_ca"}->{'default_days'}; |
||||||
|
|
||||||
|
if($opts->{'days'} > (($parsed->{'EXPDATE'}/86400) - ($time/86400))) { |
||||||
|
$opts->{'days'} = int(($parsed->{'EXPDATE'}/86400) - ($time/86400)); |
||||||
|
} |
||||||
|
|
||||||
|
$main->show_req_sign_dialog($opts); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if((($time + ($opts->{'days'} * 86400)) > $parsed->{'EXPDATE'}) && |
||||||
|
(!(defined($opts->{'ignoredate'})) || |
||||||
|
$opts->{'ignoredate'} ne 'true')){ |
||||||
|
$main->show_req_date_warning($opts); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# try to find message digest used for the request |
||||||
|
$parsed = undef; |
||||||
|
$parsed = $self->parse_req($main, $opts->{'reqname'}, 1); |
||||||
|
defined($parsed) || |
||||||
|
GUI::HELPERS::print_error(_("Can't read Request file")); |
||||||
|
|
||||||
|
if(defined($parsed->{'SIG_ALGORITHM'})) { |
||||||
|
$opts->{'digest'} = $parsed->{'SIG_ALGORITHM'}; |
||||||
|
|
||||||
|
if($opts->{'digest'} =~ /^md2/) { |
||||||
|
$opts->{'digest'} = "md2"; |
||||||
|
} elsif ($opts->{'digest'} =~ /^mdc2/) { |
||||||
|
$opts->{'digest'} = "mdc2"; |
||||||
|
} elsif ($opts->{'digest'} =~ /^md4/) { |
||||||
|
$opts->{'digest'} = "md4"; |
||||||
|
} elsif ($opts->{'digest'} =~ /^md5/) { |
||||||
|
$opts->{'digest'} = "md5"; |
||||||
|
} elsif ($opts->{'digest'} =~ /^sha1/) { |
||||||
|
$opts->{'digest'} = "sha1"; |
||||||
|
} elsif ($opts->{'digest'} =~ /^ripemd160/) { |
||||||
|
$opts->{'digest'} = "ripemd160"; |
||||||
|
} else { |
||||||
|
} |
||||||
|
} else { |
||||||
|
$opts->{'digest'} = 0; |
||||||
|
} |
||||||
|
|
||||||
|
($ret, $ext) = $self->sign_req($main, $opts); |
||||||
|
|
||||||
|
return($ret, $ext); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# now really sign the request |
||||||
|
# |
||||||
|
sub sign_req { |
||||||
|
my ($self, $main, $opts) = @_; |
||||||
|
|
||||||
|
my($serial, $certout, $certfile, $certfile2, $ca, $cadir, $ret, $t, $ext); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$ca = $main->{'reqbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'reqbrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
$serial = $cadir."/serial"; |
||||||
|
open(IN, "<$serial") || do { |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_warning(_("Can't read serial")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
$serial = <IN>; |
||||||
|
chomp($serial); |
||||||
|
close IN; |
||||||
|
|
||||||
|
if(not defined($opts->{'nsSslServerName'})) { |
||||||
|
$opts->{'nsSslServerName'} = 'none'; |
||||||
|
} |
||||||
|
if(not defined($opts->{'nsRevocationUrl'})) { |
||||||
|
$opts->{'nsRevocationUrl'} = 'none'; |
||||||
|
} |
||||||
|
if(not defined($opts->{'nsRenewalUrl'})) { |
||||||
|
$opts->{'nsRenewalUrl'} = 'none'; |
||||||
|
} |
||||||
|
if(not defined($opts->{'subjectAltName'})) { |
||||||
|
$opts->{'subjectAltName'} = 'none'; |
||||||
|
$opts->{'subjectAltNameType'} = 'none'; |
||||||
|
} else { |
||||||
|
$opts->{'subjectAltNameType'} = |
||||||
|
$main->{TCONFIG}->{$opts->{'type'}.'_cert'}->{'subjectAltNameType'}; |
||||||
|
} |
||||||
|
if(not defined($opts->{'extendedKeyUsage'})) { |
||||||
|
$opts->{'extendedKeyUsage'} = 'none'; |
||||||
|
$opts->{'extendedKeyUsageType'} = 'none'; |
||||||
|
} else { |
||||||
|
$opts->{'extendedKeyUsageType'} = |
||||||
|
$main->{TCONFIG}->{$opts->{'type'}.'_cert'}->{'extendedKeyUsageType'}; |
||||||
|
} |
||||||
|
|
||||||
|
if(defined($opts->{'mode'}) && $opts->{'mode'} eq "sub") { |
||||||
|
($ret, $ext) = $self->{'OpenSSL'}->signreq( |
||||||
|
'mode' => $opts->{'mode'}, |
||||||
|
'config' => $main->{'CA'}->{$ca}->{'cnf'}, |
||||||
|
'reqfile' => $opts->{'reqfile'}, |
||||||
|
'keyfile' => $opts->{'keyfile'}, |
||||||
|
'cacertfile' => $opts->{'cacertfile'}, |
||||||
|
'outdir' => $opts->{'outdir'}, |
||||||
|
'days' => $opts->{'days'}, |
||||||
|
'parentpw' => $opts->{'parentpw'}, |
||||||
|
'caname' => "ca_ca", |
||||||
|
'revocationurl' => $opts->{'nsRevocationUrl'}, |
||||||
|
'renewalurl' => $opts->{'nsRenewalUrl'}, |
||||||
|
'subjaltname' => $opts->{'subjectAltName'}, |
||||||
|
'subjaltnametype' => $opts->{'subjectAltNameType'}, |
||||||
|
'extendedkeyusage' => $opts->{'extendedKeyUsage'}, |
||||||
|
'extendedkeyusagetype' => $opts->{'extendedKeyUsageType'}, |
||||||
|
'noemaildn' => $opts->{'noemaildn'}, |
||||||
|
'digest' => $opts->{'digest'} |
||||||
|
); |
||||||
|
} else { |
||||||
|
($ret, $ext) = $self->{'OpenSSL'}->signreq( |
||||||
|
'config' => $main->{'CA'}->{$ca}->{'cnf'}, |
||||||
|
'reqfile' => $opts->{'reqfile'}, |
||||||
|
'days' => $opts->{'days'}, |
||||||
|
'pass' => $opts->{'passwd'}, |
||||||
|
'caname' => $opts->{'type'}."_ca", |
||||||
|
'sslservername' => $opts->{'nsSslServerName'}, |
||||||
|
'revocationurl' => $opts->{'nsRevocationUrl'}, |
||||||
|
'renewalurl' => $opts->{'nsRenewalUrl'}, |
||||||
|
'subjaltname' => $opts->{'subjectAltName'}, |
||||||
|
'subjaltnametype' => $opts->{'subjectAltNameType'}, |
||||||
|
'extendedkeyusage' => $opts->{'extendedKeyUsage'}, |
||||||
|
'extendedkeyusagetype' => $opts->{'extendedKeyUsageType'}, |
||||||
|
'noemaildn' => $opts->{'noemaildn'}, |
||||||
|
'digest' => $opts->{'digest'} |
||||||
|
); |
||||||
|
} |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
if($ret eq 1) { |
||||||
|
$t = _("Wrong CA password given\nSigning of the Request failed"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
} elsif($ret eq 2) { |
||||||
|
$t = _("CA Key not found\nSigning of the Request failed"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
} elsif($ret eq 3) { |
||||||
|
$t = _("Certificate already existing\nSigning of the Request failed"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
} elsif($ret eq 4) { |
||||||
|
$t = _("Invalid IP Address given\nSigning of the Request failed"); |
||||||
|
GUI::HELPERS::print_warning($t, $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
} elsif($ret) { |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Signing of the Request failed"), $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return($ret, $ext); |
||||||
|
} |
||||||
|
|
||||||
|
if(defined($opts->{'mode'}) && $opts->{'mode'} eq "sub") { |
||||||
|
$certout = $cadir."/newcerts/".$serial.".pem"; |
||||||
|
$certfile = $opts->{'outfile'}; |
||||||
|
$certfile2 = $cadir."/certs/".$opts->{'reqname'}.".pem"; |
||||||
|
} else { |
||||||
|
$certout = $cadir."/newcerts/".$serial.".pem"; |
||||||
|
$certfile = $cadir."/certs/".$opts->{'reqname'}.".pem"; |
||||||
|
#print STDERR "DEBUG: write certificate to: ".$cadir."/certs/".$opts->{'reqname'}.".pem"; |
||||||
|
} |
||||||
|
|
||||||
|
if (not -s $certout) { |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Signing of the Request failed"), $ext); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
open(IN, "<$certout") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't read Certificate file")); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
}; |
||||||
|
open(OUT, ">$certfile") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't write Certificate file")); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
}; |
||||||
|
print OUT while(<IN>); |
||||||
|
|
||||||
|
if(defined($opts->{'mode'}) && $opts->{'mode'} eq "sub") { |
||||||
|
close OUT; |
||||||
|
open(OUT, ">$certfile2") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't write Certificate file")); |
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
return; |
||||||
|
}; |
||||||
|
seek(IN, 0, 0); |
||||||
|
print OUT while(<IN>); |
||||||
|
} |
||||||
|
|
||||||
|
close IN; close OUT; |
||||||
|
|
||||||
|
GUI::HELPERS::print_info( |
||||||
|
_("Request signed succesfully.\nCertificate created"), $ext); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$main->{'CERT'}->reread_cert($main, |
||||||
|
HELPERS::dec_base64($opts->{'reqname'})); |
||||||
|
|
||||||
|
$main->{'certbrowser'}->update($cadir."/certs", |
||||||
|
$cadir."/crl/crl.pem", |
||||||
|
$cadir."/index.txt", |
||||||
|
0); |
||||||
|
|
||||||
|
delete($opts->{$_}) foreach(keys(%$opts)); |
||||||
|
$opts = undef; |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
return($ret, $ext); |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# get informations/verifications to import request from file |
||||||
|
# |
||||||
|
sub get_import_req { |
||||||
|
my ($self, $main, $opts, $box) = @_; |
||||||
|
|
||||||
|
my ($ret, $ext, $der); |
||||||
|
|
||||||
|
$box->destroy() if(defined($box)); |
||||||
|
|
||||||
|
my($ca, $parsed, $file, $format); |
||||||
|
|
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
|
||||||
|
if(not defined($opts)) { |
||||||
|
$main->show_req_import_dialog(); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
if(not defined($opts->{'infile'})) { |
||||||
|
$main->show_req_import_dialog(); |
||||||
|
GUI::HELPERS::print_warning(_("Please select a Request file first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
if(not -s $opts->{'infile'}) { |
||||||
|
$main->show_req_import_dialog(); |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Can't find Request file: ").$opts->{'infile'}); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
open(IN, "<$opts->{'infile'}") || do { |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Can't read Request file:").$opts->{'infile'}); |
||||||
|
return; |
||||||
|
}; |
||||||
|
|
||||||
|
$opts->{'in'} .= $_ while(<IN>); |
||||||
|
|
||||||
|
if($opts->{'in'} =~ /-BEGIN[\s\w]+CERTIFICATE REQUEST-/i) { |
||||||
|
$format = "PEM"; |
||||||
|
$file = $opts->{'infile'}; |
||||||
|
} else { |
||||||
|
$format = "DER"; |
||||||
|
} |
||||||
|
|
||||||
|
if($format eq "DER") { |
||||||
|
($ret, $der, $ext) = $opts->{'in'} = $self->{'OpenSSL'}->convdata( |
||||||
|
'cmd' => 'req', |
||||||
|
'data' => $opts->{'in'}, |
||||||
|
'inform' => 'DER', |
||||||
|
'outform' => 'PEM' |
||||||
|
); |
||||||
|
|
||||||
|
if($ret) { |
||||||
|
GUI::HELPERS::print_warning( |
||||||
|
_("Error converting Request"), $ext); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$opts->{'tmpfile'} = |
||||||
|
HELPERS::mktmp($self->{'OpenSSL'}->{'tmp'}."/import"); |
||||||
|
|
||||||
|
open(TMP, ">$opts->{'tmpfile'}") || do { |
||||||
|
GUI::HELPERS::print_warning( _("Can't create temporary file: %s: %s"), |
||||||
|
$opts->{'tmpfile'}, $!); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print TMP $opts->{'in'}; |
||||||
|
close(TMP); |
||||||
|
$file = $opts->{'tmpfile'}; |
||||||
|
} |
||||||
|
|
||||||
|
$parsed = $self->{'OpenSSL'}->parsereq( |
||||||
|
$main->{'CA'}->{$ca}->{'cnf'}, |
||||||
|
$file); |
||||||
|
|
||||||
|
if(not defined($parsed)) { |
||||||
|
unlink($opts->{'tmpfile'}); |
||||||
|
GUI::HELPERS::print_warning(_("Parsing Request failed")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$main->show_import_verification("req", $opts, $parsed); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
# |
||||||
|
# import request |
||||||
|
# |
||||||
|
sub import_req { |
||||||
|
my ($self, $main, $opts, $parsed, $box) = @_; |
||||||
|
|
||||||
|
my ($ca, $cadir); |
||||||
|
|
||||||
|
$box->destroy() if(defined($box)); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$ca = $main->{'reqbrowser'}->selection_caname(); |
||||||
|
$cadir = $main->{'reqbrowser'}->selection_cadir(); |
||||||
|
|
||||||
|
$opts->{'name'} = HELPERS::gen_name($parsed); |
||||||
|
|
||||||
|
$opts->{'reqname'} = HELPERS::enc_base64($opts->{'name'}); |
||||||
|
|
||||||
|
$opts->{'reqfile'} = $cadir."/req/".$opts->{'reqname'}.".pem"; |
||||||
|
|
||||||
|
open(OUT, ">$opts->{'reqfile'}") || do { |
||||||
|
unlink($opts->{'tmpfile'}); |
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
GUI::HELPERS::print_warning(_("Can't open output file: %s: %s"), |
||||||
|
$opts->{'reqfile'}, $!); |
||||||
|
return; |
||||||
|
}; |
||||||
|
print OUT $opts->{'in'}; |
||||||
|
close OUT; |
||||||
|
|
||||||
|
$main->{'reqbrowser'}->update($cadir."/req", |
||||||
|
$cadir."/crl/crl.pem", |
||||||
|
$cadir."/index.txt", |
||||||
|
0); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
sub parse_req { |
||||||
|
my ($self, $main, $name, $force) = @_; |
||||||
|
|
||||||
|
my ($parsed, $ca, $reqfile, $req); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 1); |
||||||
|
|
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
|
||||||
|
$reqfile = $main->{'CA'}->{$ca}->{'dir'}."/req/".$name.".pem"; |
||||||
|
|
||||||
|
$parsed = $self->{'OpenSSL'}->parsereq($main->{'CA'}->{$ca}->{'cnf'}, |
||||||
|
$reqfile, $force); |
||||||
|
|
||||||
|
GUI::HELPERS::set_cursor($main, 0); |
||||||
|
|
||||||
|
return($parsed); |
||||||
|
} |
||||||
|
|
||||||
|
1 |
||||||
|
|
||||||
@ -0,0 +1,555 @@ |
|||||||
|
# Copyright (c) Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# $Id: TCONFIG.pm,v 1.2 2006/06/28 21:50:42 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 TCONFIG; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
|
||||||
|
sub new { |
||||||
|
my $self = {}; |
||||||
|
my $that = shift; |
||||||
|
my $class = ref($that) || $that; |
||||||
|
|
||||||
|
bless($self, $class); |
||||||
|
} |
||||||
|
|
||||||
|
sub init_config { |
||||||
|
my ($self, $main, $ca) = @_; |
||||||
|
|
||||||
|
my($file, @lines, $i, $section, $l, $k, $v); |
||||||
|
|
||||||
|
if(not defined($ca)) { |
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
} |
||||||
|
if(not defined($ca)) { |
||||||
|
GUI::HELPERS::print_warning(_("Please select a CA first")); |
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
$file = $main->{'CA'}->{$ca}->{'cnf'}; |
||||||
|
|
||||||
|
open(IN, "<$file") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't open configuration")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
|
||||||
|
@lines = <IN>; |
||||||
|
close IN; |
||||||
|
chomp(@lines); |
||||||
|
|
||||||
|
# clean old configuration |
||||||
|
foreach $k (keys(%$self)) { |
||||||
|
delete($self->{$k}); |
||||||
|
} |
||||||
|
|
||||||
|
foreach $l (@lines) { |
||||||
|
next if $l =~ /^#/; |
||||||
|
next if $l =~ /^$/; |
||||||
|
next if $l =~ /^ *$/; |
||||||
|
|
||||||
|
# find section |
||||||
|
if($l =~ /\[\s*([^\s]+)\s*\]/) { |
||||||
|
$section = $1; |
||||||
|
} elsif ($l =~ /^([^\s\t]+)[\s\t]*=[\s\t]*([^\s\t]+.*)$/) { |
||||||
|
if($section eq "ca" || |
||||||
|
$section eq "policy_client" || |
||||||
|
$section eq "policy_server" || |
||||||
|
$section eq "policy_ca" || |
||||||
|
$section eq "req" || |
||||||
|
$section eq "req_distinguished_name" || |
||||||
|
$section eq "v3_req" || |
||||||
|
$section eq "req_attributes") { |
||||||
|
if(not defined($self->{$section})) { |
||||||
|
$self->{$section} = []; |
||||||
|
} |
||||||
|
push(@{$self->{$section}}, $l); |
||||||
|
} else { |
||||||
|
$k = $1; |
||||||
|
$v = $2; |
||||||
|
# really ugly hack XXX |
||||||
|
if($v =~ /ENV::(\w+)$/) { |
||||||
|
$ENV{$1} = 'dummy'; |
||||||
|
} |
||||||
|
if(not defined($self->{$section})) { |
||||||
|
$self->{$section} = {}; |
||||||
|
} |
||||||
|
$self->{$section}->{$k} = $v; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# store nsSslServerName information |
||||||
|
if(defined($self->{'server_cert'}->{'nsSslServerName'})) { |
||||||
|
if($self->{'server_cert'}->{'nsSslServerName'} |
||||||
|
=~ /ENV:/) { |
||||||
|
$self->{'server_cert'}->{'nsSslServerName'} = 'user'; |
||||||
|
} |
||||||
|
}else { |
||||||
|
$self->{'server_cert'}->{'nsSslServerName'} = 'none'; |
||||||
|
} |
||||||
|
|
||||||
|
# store subjectAltName information |
||||||
|
# ca |
||||||
|
if(defined($self->{'v3_ca'}->{'subjectAltName'})) { |
||||||
|
if($self->{'v3_ca'}->{'subjectAltName'} eq 'email:copy') { |
||||||
|
$self->{'v3_ca'}->{'subjectAltName'} = 'emailcopy'; |
||||||
|
} |
||||||
|
}else { |
||||||
|
$self->{'v3_ca'}->{'subjectAltName'} = 'none'; |
||||||
|
} |
||||||
|
|
||||||
|
# server |
||||||
|
if(defined($self->{'server_cert'}->{'subjectAltName'})) { |
||||||
|
if($self->{'server_cert'}->{'subjectAltName'} |
||||||
|
=~ /ENV:.*IP/) { |
||||||
|
$self->{'server_cert'}->{'subjectAltNameType'} = 'ip'; |
||||||
|
$self->{'server_cert'}->{'subjectAltName'} = 'user'; |
||||||
|
}elsif($self->{'server_cert'}->{'subjectAltName'} |
||||||
|
=~ /ENV:.*DNS/) { |
||||||
|
$self->{'server_cert'}->{'subjectAltNameType'} = 'dns'; |
||||||
|
$self->{'server_cert'}->{'subjectAltName'} = 'user'; |
||||||
|
}elsif($self->{'server_cert'}->{'subjectAltName'} |
||||||
|
=~ /ENV:.*RAW/) { |
||||||
|
$self->{'server_cert'}->{'subjectAltNameType'} = 'raw'; |
||||||
|
$self->{'server_cert'}->{'subjectAltName'} = 'user'; |
||||||
|
}elsif($self->{'server_cert'}->{'subjectAltName'} |
||||||
|
eq 'email:copy') { |
||||||
|
$self->{'server_cert'}->{'subjectAltName'} = 'emailcopy'; |
||||||
|
$self->{'server_cert'}->{'subjectAltNameType'} = 'ip'; |
||||||
|
} |
||||||
|
}else { |
||||||
|
$self->{'server_cert'}->{'subjectAltNameType'} = 'ip'; |
||||||
|
$self->{'server_cert'}->{'subjectAltName'} = 'none'; |
||||||
|
} |
||||||
|
|
||||||
|
# client |
||||||
|
if(defined($self->{'client_cert'}->{'subjectAltName'})) { |
||||||
|
if($self->{'client_cert'}->{'subjectAltName'} |
||||||
|
=~ /ENV:.*IP/) { |
||||||
|
$self->{'client_cert'}->{'subjectAltNameType'} = 'ip'; |
||||||
|
$self->{'client_cert'}->{'subjectAltName'} = 'user'; |
||||||
|
}elsif($self->{'client_cert'}->{'subjectAltName'} |
||||||
|
=~ /ENV:.*DNS/) { |
||||||
|
$self->{'client_cert'}->{'subjectAltNameType'} = 'dns'; |
||||||
|
$self->{'client_cert'}->{'subjectAltName'} = 'user'; |
||||||
|
}elsif($self->{'client_cert'}->{'subjectAltName'} |
||||||
|
=~ /ENV:.*EMAIL/) { |
||||||
|
$self->{'client_cert'}->{'subjectAltNameType'} = 'mail'; |
||||||
|
$self->{'client_cert'}->{'subjectAltName'} = 'user'; |
||||||
|
}elsif($self->{'client_cert'}->{'subjectAltName'} |
||||||
|
=~ /ENV:.*RAW/) { |
||||||
|
$self->{'client_cert'}->{'subjectAltNameType'} = 'raw'; |
||||||
|
$self->{'client_cert'}->{'subjectAltName'} = 'user'; |
||||||
|
}elsif($self->{'client_cert'}->{'subjectAltName'} |
||||||
|
eq 'email:copy') { |
||||||
|
$self->{'client_cert'}->{'subjectAltName'} = 'emailcopy'; |
||||||
|
$self->{'client_cert'}->{'subjectAltNameType'} = 'ip'; |
||||||
|
} |
||||||
|
}else { |
||||||
|
$self->{'client_cert'}->{'subjectAltNameType'} = 'ip'; |
||||||
|
$self->{'client_cert'}->{'subjectAltName'} = 'none'; |
||||||
|
} |
||||||
|
|
||||||
|
foreach my $sect ('server_cert', 'client_cert', 'v3_ca') { |
||||||
|
# store nsRevocationUrl information |
||||||
|
if(defined($self->{$sect}->{'nsRevocationUrl'})) { |
||||||
|
if($self->{$sect}->{'nsRevocationUrl'} |
||||||
|
=~ /ENV:/) { |
||||||
|
$self->{$sect}->{'nsRevocationUrl'} = 'user'; |
||||||
|
} |
||||||
|
}else { |
||||||
|
$self->{$sect}->{'nsRevocationUrl'} = 'none'; |
||||||
|
} |
||||||
|
|
||||||
|
# store nsRenewalUrl information |
||||||
|
if(defined($self->{$sect}->{'nsRenewalUrl'})) { |
||||||
|
if($self->{$sect}->{'nsRenewalUrl'} |
||||||
|
=~ /ENV:/) { |
||||||
|
$self->{$sect}->{'nsRenewalUrl'} = 'user'; |
||||||
|
} |
||||||
|
}else { |
||||||
|
$self->{$sect}->{'nsRenewalUrl'} = 'none'; |
||||||
|
} |
||||||
|
|
||||||
|
# store extendedKeyUsage information |
||||||
|
if(defined($self->{$sect}->{'extendedKeyUsage'})) { |
||||||
|
if($self->{$sect}->{'extendedKeyUsage'} =~ /critical/) { |
||||||
|
$self->{$sect}->{'extendedKeyUsageType'} = 'critical'; |
||||||
|
$self->{$sect}->{'extendedKeyUsage'} =~ s/critical\s*,\s*//; |
||||||
|
}else { |
||||||
|
$self->{$sect}->{'extendedKeyUsageType'} = 'noncritical'; |
||||||
|
} |
||||||
|
if($self->{$sect}->{'extendedKeyUsage'} |
||||||
|
=~ /ENV:/) { |
||||||
|
$self->{$sect}->{'extendedKeyUsage'} = 'user'; |
||||||
|
} |
||||||
|
}else { |
||||||
|
$self->{$sect}->{'extendedKeyUsage'} = 'none'; |
||||||
|
$self->{$sect}->{'extendedKeyUsageType'} = 'noncritical'; |
||||||
|
} |
||||||
|
|
||||||
|
# store keyUsage information |
||||||
|
if(defined($self->{$sect}->{'keyUsage'})) { |
||||||
|
if($self->{$sect}->{'keyUsage'} =~ /critical/) { |
||||||
|
$self->{$sect}->{'keyUsageType'} = 'critical'; |
||||||
|
}else { |
||||||
|
$self->{$sect}->{'keyUsageType'} = 'noncritical'; |
||||||
|
} |
||||||
|
if($self->{$sect}->{'keyUsage'} |
||||||
|
=~ /digitalSignature, keyEncipherment/) { |
||||||
|
$self->{$sect}->{'keyUsage'} = 'keysig'; |
||||||
|
} elsif($self->{$sect}->{'keyUsage'} |
||||||
|
=~ /digitalSignature/) { |
||||||
|
$self->{$sect}->{'keyUsage'} = 'sig'; |
||||||
|
} elsif($self->{$sect}->{'keyUsage'} |
||||||
|
=~ /keyEncipherment/) { |
||||||
|
$self->{$sect}->{'keyUsage'} = 'key'; |
||||||
|
} elsif($self->{$sect}->{'keyUsage'} |
||||||
|
=~ /keyCertSign, cRLSign/) { |
||||||
|
$self->{$sect}->{'keyUsage'} = 'keyCertSign, cRLSign'; |
||||||
|
} elsif($self->{$sect}->{'keyUsage'} |
||||||
|
=~ /keyCertSign/) { |
||||||
|
$self->{$sect}->{'keyUsage'} = 'keyCertSign'; |
||||||
|
} elsif($self->{$sect}->{'keyUsage'} |
||||||
|
=~ /cRLSign/) { |
||||||
|
$self->{$sect}->{'keyUsage'} = 'cRLSign'; |
||||||
|
}else { |
||||||
|
$self->{$sect}->{'keyUsage'} = 'none'; |
||||||
|
} |
||||||
|
}else { |
||||||
|
$self->{$sect}->{'keyUsage'} = 'none'; |
||||||
|
$self->{$sect}->{'keyUsageType'} = 'noncritical'; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
# hack to add new section to openssl.cnf, if old config |
||||||
|
if(not defined($self->{'ca_ca'})) { |
||||||
|
$self->{'ca_ca'} = $self->{'server_ca'}; |
||||||
|
$self->{'ca_ca'}->{'x509_extensions'} = "v3_ca"; |
||||||
|
$self->{'server_ca'}->{'x509_extensions'} = "server_cert"; |
||||||
|
|
||||||
|
$self->write_config($main, $ca); |
||||||
|
} |
||||||
|
if($self->{'server_ca'}->{'x509_extensions'} eq "v3_ca") { |
||||||
|
$self->{'server_ca'}->{'x509_extensions'} = "server_cert"; |
||||||
|
$self->write_config($main, $ca); |
||||||
|
} |
||||||
|
|
||||||
|
# hack to add new option |
||||||
|
if(not defined($self->{'ca_ca'}->{'unique_subject'})) { |
||||||
|
$self->{'ca_ca'}->{'unique_subject'} = "yes"; |
||||||
|
|
||||||
|
$self->write_config($main, $ca); |
||||||
|
} |
||||||
|
if(not defined($self->{'server_ca'}->{'unique_subject'})) { |
||||||
|
$self->{'server_ca'}->{'unique_subject'} = "yes"; |
||||||
|
|
||||||
|
$self->write_config($main, $ca); |
||||||
|
} |
||||||
|
if(not defined($self->{'client_ca'}->{'unique_subject'})) { |
||||||
|
$self->{'client_ca'}->{'unique_subject'} = "yes"; |
||||||
|
|
||||||
|
$self->write_config($main, $ca); |
||||||
|
} |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
sub config_ca { |
||||||
|
my ($self, $main, $ca) = @_; |
||||||
|
|
||||||
|
my($action); |
||||||
|
|
||||||
|
if(not defined($ca)) { |
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
} |
||||||
|
if(not defined($ca)) { |
||||||
|
GUI::HELPERS::print_warning(_("Can't get CA name")); |
||||||
|
} |
||||||
|
|
||||||
|
$action = GUI::TCONFIG::show_config_ca($main, $ca); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
sub config_openssl { |
||||||
|
my ($self, $main, $ca) = @_; |
||||||
|
|
||||||
|
if(not defined($ca)) { |
||||||
|
$ca = $main->{'CA'}->{'actca'}; |
||||||
|
} |
||||||
|
if(not defined($ca)) { |
||||||
|
GUI::HELPERS::print_warning(_("Can't get CA name")); |
||||||
|
} |
||||||
|
|
||||||
|
GUI::TCONFIG::show_configbox($main, $ca); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
sub write_config { |
||||||
|
my ($self, $main, $ca) = @_; |
||||||
|
|
||||||
|
my($file, @sections, $line, $sect, $key, $val, @opts); |
||||||
|
|
||||||
|
# these sections are not configurable |
||||||
|
@sections = qw( |
||||||
|
ca |
||||||
|
policy_client |
||||||
|
policy_server |
||||||
|
policy_ca |
||||||
|
req |
||||||
|
req_distinguished_name |
||||||
|
v3_req |
||||||
|
req_attributes |
||||||
|
); |
||||||
|
|
||||||
|
$file = $main->{'CA'}->{$ca}->{'cnf'}; |
||||||
|
|
||||||
|
open(OUT, ">$file") || do { |
||||||
|
GUI::HELPERS::print_warning(_("Can't open configfile")); |
||||||
|
return; |
||||||
|
}; |
||||||
|
|
||||||
|
foreach $sect (@sections) { |
||||||
|
print OUT "[ $sect ]\n"; |
||||||
|
foreach $line (@{$self->{$sect}}) { |
||||||
|
print OUT "$line\n"; |
||||||
|
} |
||||||
|
print OUT "\n"; |
||||||
|
} |
||||||
|
|
||||||
|
# these sections are configurable |
||||||
|
@sections = qw( |
||||||
|
v3_ca |
||||||
|
crl_ext |
||||||
|
server_ca |
||||||
|
client_ca |
||||||
|
ca_ca |
||||||
|
client_cert |
||||||
|
server_cert |
||||||
|
); |
||||||
|
|
||||||
|
foreach $sect (@sections) { |
||||||
|
print OUT "[ $sect ]\n"; |
||||||
|
if($sect eq "v3_ca") { |
||||||
|
@opts = qw( |
||||||
|
subjectKeyIdentifier |
||||||
|
authorityKeyIdentifier |
||||||
|
basicConstraints |
||||||
|
nsCertType |
||||||
|
issuerAltName |
||||||
|
nsComment |
||||||
|
crlDistributionPoints |
||||||
|
nsCaRevocationUrl |
||||||
|
nsCaPolicyUrl |
||||||
|
nsRevocationUrl |
||||||
|
nsRenewalUrl |
||||||
|
); |
||||||
|
|
||||||
|
foreach $key (@opts) { |
||||||
|
if(defined($self->{$sect}->{$key}) && |
||||||
|
$self->{$sect}->{$key} ne '' && |
||||||
|
$self->{$sect}->{$key} ne 'none') { |
||||||
|
print OUT "$key = $self->{$sect}->{$key}\n"; |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($self->{$sect}->{'subjectAltName'})) { |
||||||
|
if($self->{$sect}->{'subjectAltName'} eq 'emailcopy') { |
||||||
|
print OUT "subjectAltName = email:copy\n"; |
||||||
|
} elsif($self->{$sect}->{'subjectAltName'} eq 'none') { |
||||||
|
;# do nothing |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($self->{$sect}->{'keyUsage'})) { |
||||||
|
if($self->{$sect}->{'keyUsage'} eq 'keyCertSign') { |
||||||
|
if($self->{$sect}->{'keyUsageType'} eq 'critical') { |
||||||
|
print OUT "keyUsage = critical, keyCertSign\n"; |
||||||
|
} else { |
||||||
|
print OUT "keyUsage = keyCertSign\n"; |
||||||
|
} |
||||||
|
}elsif($self->{$sect}->{'keyUsage'} eq 'cRLSign') { |
||||||
|
if($self->{$sect}->{'keyUsageType'} eq 'critical') { |
||||||
|
print OUT "keyUsage = critical, cRLSign\n"; |
||||||
|
}else { |
||||||
|
print OUT "keyUsage = cRLSign\n"; |
||||||
|
} |
||||||
|
}elsif($self->{$sect}->{'keyUsage'} eq 'keyCertSign, cRLSign') { |
||||||
|
if($self->{$sect}->{'keyUsageType'} eq 'critical') { |
||||||
|
print OUT "keyUsage = critical, keyCertSign, cRLSign\n"; |
||||||
|
}else { |
||||||
|
print OUT "keyUsage = keyCertSign, cRLSign\n"; |
||||||
|
} |
||||||
|
}elsif($self->{$sect}->{'keyUsage'} eq 'none') { |
||||||
|
;# do nothing |
||||||
|
} |
||||||
|
} |
||||||
|
} elsif($sect eq "server_cert" || |
||||||
|
$sect eq "client_cert") { |
||||||
|
@opts = qw( |
||||||
|
basicConstraints |
||||||
|
nsCertType |
||||||
|
nsComment |
||||||
|
subjectKeyIdentifier |
||||||
|
authorityKeyIdentifier |
||||||
|
issuerAltName |
||||||
|
crlDistributionPoints |
||||||
|
nsCaRevocationUrl |
||||||
|
nsBaseUrl |
||||||
|
nsCaPolicyUrl |
||||||
|
); |
||||||
|
|
||||||
|
foreach $key (@opts) { |
||||||
|
if(defined($self->{$sect}->{$key}) && |
||||||
|
$self->{$sect}->{$key} ne '' && |
||||||
|
$self->{$sect}->{$key} ne 'none') { |
||||||
|
print OUT "$key = $self->{$sect}->{$key}\n"; |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($self->{$sect}->{'nsSslServerName'})) { |
||||||
|
if($self->{$sect}->{'nsSslServerName'} eq 'user') { |
||||||
|
print OUT "nsSslServerName = \$ENV::NSSSLSERVERNAME\n"; |
||||||
|
} elsif($self->{$sect}->{'nsSslServerName'} eq 'none') { |
||||||
|
;# do nothing |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($self->{$sect}->{'nsRevocationUrl'})) { |
||||||
|
if($self->{$sect}->{'nsRevocationUrl'} eq 'user') { |
||||||
|
print OUT "nsRevocationUrl = \$ENV::NSREVOCATIONURL\n"; |
||||||
|
} elsif($self->{$sect}->{'nsRevocationUrl'} eq 'none') { |
||||||
|
;# do nothing |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($self->{$sect}->{'nsRenewalUrl'})) { |
||||||
|
if($self->{$sect}->{'nsRenewalUrl'} eq 'user') { |
||||||
|
print OUT "nsRenewalUrl = \$ENV::NSRENEWALURL\n"; |
||||||
|
} elsif($self->{$sect}->{'nsRenewalUrl'} eq 'none') { |
||||||
|
;# do nothing |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($self->{$sect}->{'subjectAltName'})) { |
||||||
|
if($self->{$sect}->{'subjectAltName'} eq 'user') { |
||||||
|
if($self->{$sect}->{'subjectAltNameType'} eq 'ip') { |
||||||
|
print OUT "subjectAltName = \$ENV::SUBJECTALTNAMEIP\n"; |
||||||
|
} elsif($self->{$sect}->{'subjectAltNameType'} eq 'dns') { |
||||||
|
print OUT "subjectAltName = \$ENV::SUBJECTALTNAMEDNS\n"; |
||||||
|
} elsif($self->{$sect}->{'subjectAltNameType'} eq 'mail') { |
||||||
|
print OUT "subjectAltName = \$ENV::SUBJECTALTNAMEEMAIL\n"; |
||||||
|
} elsif($self->{$sect}->{'subjectAltNameType'} eq 'raw') { |
||||||
|
print OUT "subjectAltName = \$ENV::SUBJECTALTNAMERAW\n"; |
||||||
|
} |
||||||
|
} elsif($self->{$sect}->{'subjectAltName'} eq 'emailcopy') { |
||||||
|
print OUT "subjectAltName = email:copy\n"; |
||||||
|
} elsif($self->{$sect}->{'subjectAltName'} eq 'none') { |
||||||
|
;# do nothing |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($self->{$sect}->{'keyUsage'})) { |
||||||
|
if($self->{$sect}->{'keyUsage'} eq 'key') { |
||||||
|
if($self->{$sect}->{'keyUsageType'} eq 'critical') { |
||||||
|
print OUT "keyUsage = critical, keyEncipherment\n"; |
||||||
|
} else { |
||||||
|
print OUT "keyUsage = keyEncipherment\n"; |
||||||
|
} |
||||||
|
}elsif($self->{$sect}->{'keyUsage'} eq 'sig') { |
||||||
|
if($self->{$sect}->{'keyUsageType'} eq 'critical') { |
||||||
|
print OUT "keyUsage = critical, digitalSignature\n"; |
||||||
|
}else { |
||||||
|
print OUT "keyUsage = digitalSignature\n"; |
||||||
|
} |
||||||
|
}elsif($self->{$sect}->{'keyUsage'} eq 'keysig') { |
||||||
|
if($self->{$sect}->{'keyUsageType'} eq 'critical') { |
||||||
|
print OUT "keyUsage = critical, digitalSignature, keyEncipherment\n"; |
||||||
|
}else { |
||||||
|
print OUT "keyUsage = digitalSignature, keyEncipherment\n"; |
||||||
|
} |
||||||
|
}elsif($self->{$sect}->{'keyUsage'} eq 'none') { |
||||||
|
;# do nothing |
||||||
|
} |
||||||
|
} |
||||||
|
if(defined($self->{$sect}->{'extendedKeyUsage'})) { |
||||||
|
if(($self->{$sect}->{'extendedKeyUsage'} ne 'none') && |
||||||
|
($self->{$sect}->{'extendedKeyUsage'} ne '')) { |
||||||
|
if($self->{$sect}->{'extendedKeyUsage'} eq 'user') { |
||||||
|
if($self->{$sect}->{'extendedKeyUsageType'} eq 'critical') { |
||||||
|
print OUT "extendedKeyUsage = critical, \$ENV::EXTENDEDKEYUSAGE\n"; |
||||||
|
} else { |
||||||
|
print OUT "extendedKeyUsage = \$ENV::EXTENDEDKEYUSAGE\n"; |
||||||
|
} |
||||||
|
} else { |
||||||
|
if($self->{$sect}->{'extendedKeyUsageType'} eq 'critical') { |
||||||
|
print OUT "extendedKeyUsage = critical, $self->{$sect}->{'extendedKeyUsage'}\n"; |
||||||
|
} else { |
||||||
|
print OUT "extendedKeyUsage = $self->{$sect}->{'extendedKeyUsage'}\n"; |
||||||
|
} |
||||||
|
} |
||||||
|
} elsif ($self->{$sect}->{'extendedKeyUsage'} eq 'none') { |
||||||
|
;# do nothing |
||||||
|
} |
||||||
|
} |
||||||
|
} elsif(($sect eq "server_ca") || |
||||||
|
($sect eq "client_ca") || |
||||||
|
($sect eq "ca_ca")) { |
||||||
|
@opts = qw( |
||||||
|
dir |
||||||
|
certs |
||||||
|
crl_dir |
||||||
|
database |
||||||
|
new_certs_dir |
||||||
|
certificate |
||||||
|
serial |
||||||
|
crl |
||||||
|
private_key |
||||||
|
RANDFILE |
||||||
|
x509_extensions |
||||||
|
default_days |
||||||
|
default_crl_days |
||||||
|
default_md |
||||||
|
preserve |
||||||
|
policy |
||||||
|
unique_subject |
||||||
|
); |
||||||
|
|
||||||
|
foreach $key (@opts) { |
||||||
|
if(defined($self->{$sect}->{$key}) && |
||||||
|
$self->{$sect}->{$key} ne '' && |
||||||
|
$self->{$sect}->{$key} ne 'none') { |
||||||
|
print OUT "$key = $self->{$sect}->{$key}\n"; |
||||||
|
} |
||||||
|
} |
||||||
|
} else { |
||||||
|
while(($key, $val) = each(%{$self->{$sect}})) { |
||||||
|
if(defined($val) && $val ne "") { |
||||||
|
print OUT "$key = $val\n"; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
print OUT "\n"; |
||||||
|
} |
||||||
|
|
||||||
|
close OUT; |
||||||
|
|
||||||
|
# print STDERR "DEBUG: wrote config and reinit\n"; |
||||||
|
# $self->init_config($main, $ca); |
||||||
|
|
||||||
|
return; |
||||||
|
} |
||||||
|
|
||||||
|
1 |
||||||
@ -0,0 +1,25 @@ |
|||||||
|
POTFILES=$(wildcard ../lib/*.pm) $(wildcard ../lib/GUI/*.pm) ../tinyca2
|
||||||
|
CATALOGS=de.mo es.mo cs.mo fr.mo sv.mo
|
||||||
|
|
||||||
|
all: $(CATALOGS) |
||||||
|
|
||||||
|
.po.mo: |
||||||
|
msgfmt -o $@ $<
|
||||||
|
install -m 644 $@ ../locale/`basename $@ .mo`/LC_MESSAGES/tinyca2.mo
|
||||||
|
|
||||||
|
%.po: tinyca2.pot |
||||||
|
msgmerge -vU $@ tinyca2.pot
|
||||||
|
|
||||||
|
tinyca2.pot: $(POTFILES) |
||||||
|
xgettext --add-comments \
|
||||||
|
--keyword=_ \
|
||||||
|
--keyword=N_ \
|
||||||
|
--language=C \
|
||||||
|
-o tinyca2.pot \
|
||||||
|
$(POTFILES); \
|
||||||
|
|
||||||
|
clean: |
||||||
|
rm -f $(CATALOGS)
|
||||||
|
rm -f tinyca2.pot
|
||||||
|
|
||||||
|
.SUFFIXES: .po .pot .mo |
||||||
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,147 @@ |
|||||||
|
[ ca ] |
||||||
|
default_ca = server_ca |
||||||
|
|
||||||
|
[ client_ca ] |
||||||
|
dir = %dir% |
||||||
|
certs = $dir/certs |
||||||
|
crl_dir = $dir/crl |
||||||
|
database = $dir/index.txt |
||||||
|
new_certs_dir = $dir/newcerts |
||||||
|
certificate = $dir/cacert.pem |
||||||
|
serial = $dir/serial |
||||||
|
crl = $dir/crl.pem |
||||||
|
private_key = $dir/cacert.key |
||||||
|
RANDFILE = $dir/.rand |
||||||
|
x509_extensions = client_cert |
||||||
|
default_days = 365 |
||||||
|
default_crl_days= 30 |
||||||
|
default_md = sha1 |
||||||
|
preserve = no |
||||||
|
policy = policy_client |
||||||
|
|
||||||
|
[ server_ca ] |
||||||
|
dir = %dir% |
||||||
|
certs = $dir/certs |
||||||
|
crl_dir = $dir/crl |
||||||
|
database = $dir/index.txt |
||||||
|
new_certs_dir = $dir/newcerts |
||||||
|
certificate = $dir/cacert.pem |
||||||
|
serial = $dir/serial |
||||||
|
crl = $dir/crl.pem |
||||||
|
private_key = $dir/cacert.key |
||||||
|
RANDFILE = $dir/.rand |
||||||
|
x509_extensions = server_cert |
||||||
|
default_days = 365 |
||||||
|
default_crl_days= 30 |
||||||
|
default_md = sha1 |
||||||
|
preserve = no |
||||||
|
policy = policy_server |
||||||
|
|
||||||
|
[ ca_ca ] |
||||||
|
dir = %dir% |
||||||
|
certs = $dir/certs |
||||||
|
crl_dir = $dir/crl |
||||||
|
database = $dir/index.txt |
||||||
|
new_certs_dir = $dir/newcerts |
||||||
|
certificate = $dir/cacert.pem |
||||||
|
serial = $dir/serial |
||||||
|
crl = $dir/crl.pem |
||||||
|
private_key = $dir/cacert.key |
||||||
|
RANDFILE = $dir/.rand |
||||||
|
x509_extensions = v3_ca |
||||||
|
default_days = 365 |
||||||
|
default_crl_days= 30 |
||||||
|
default_md = sha1 |
||||||
|
preserve = no |
||||||
|
policy = policy_ca |
||||||
|
|
||||||
|
[ policy_client ] |
||||||
|
countryName = optional |
||||||
|
stateOrProvinceName = optional |
||||||
|
organizationName = optional |
||||||
|
organizationalUnitName = optional |
||||||
|
commonName = supplied |
||||||
|
emailAddress = optional |
||||||
|
|
||||||
|
[ policy_server ] |
||||||
|
countryName = optional |
||||||
|
stateOrProvinceName = optional |
||||||
|
organizationName = optional |
||||||
|
organizationalUnitName = optional |
||||||
|
commonName = supplied |
||||||
|
emailAddress = optional |
||||||
|
|
||||||
|
[ policy_ca ] |
||||||
|
countryName = optional |
||||||
|
stateOrProvinceName = optional |
||||||
|
organizationName = optional |
||||||
|
organizationalUnitName = optional |
||||||
|
commonName = supplied |
||||||
|
emailAddress = optional |
||||||
|
|
||||||
|
[ req ] |
||||||
|
default_bits = 4096 |
||||||
|
default_keyfile = privkey.pem |
||||||
|
distinguished_name = req_distinguished_name |
||||||
|
attributes = req_attributes |
||||||
|
x509_extensions = v3_ca |
||||||
|
string_mask = nombstr |
||||||
|
req_extensions = v3_req |
||||||
|
|
||||||
|
[ req_distinguished_name ] |
||||||
|
countryName = Country Name (2 letter code) |
||||||
|
countryName_default = AU |
||||||
|
countryName_min = 2 |
||||||
|
countryName_max = 2 |
||||||
|
stateOrProvinceName = State or Province Name (full name) |
||||||
|
stateOrProvinceName_default = Some-State |
||||||
|
localityName = Locality Name (eg, city) |
||||||
|
0.organizationName = Organization Name (eg, company) |
||||||
|
0.organizationName_default = Internet Widgits Pty Ltd |
||||||
|
organizationalUnitName = Organizational Unit Name (eg, section) |
||||||
|
commonName = Common Name (eg, YOUR name) |
||||||
|
commonName_max = 64 |
||||||
|
emailAddress = Email Address |
||||||
|
emailAddress_max = 40 |
||||||
|
|
||||||
|
[ v3_req ] |
||||||
|
basicConstraints = CA:FALSE |
||||||
|
keyUsage = nonRepudiation, digitalSignature, keyEncipherment |
||||||
|
|
||||||
|
[ req_attributes ] |
||||||
|
challengePassword = A challenge password |
||||||
|
challengePassword_min = 4 |
||||||
|
challengePassword_max = 20 |
||||||
|
unstructuredName = An optional company name |
||||||
|
|
||||||
|
[ client_cert ] |
||||||
|
basicConstraints=CA:FALSE |
||||||
|
nsCertType = client, email, objsign |
||||||
|
nsComment = "TinyCA Generated Certificate" |
||||||
|
keyUsage = nonRepudiation, digitalSignature, keyEncipherment |
||||||
|
subjectKeyIdentifier=hash |
||||||
|
authorityKeyIdentifier=keyid,issuer:always |
||||||
|
subjectAltName=email:copy |
||||||
|
issuerAltName=issuer:copy |
||||||
|
|
||||||
|
[ server_cert ] |
||||||
|
basicConstraints=CA:FALSE |
||||||
|
nsCertType = server |
||||||
|
nsComment = "TinyCA Generated Certificate" |
||||||
|
subjectKeyIdentifier=hash |
||||||
|
authorityKeyIdentifier=keyid,issuer:always |
||||||
|
subjectAltName=email:copy |
||||||
|
issuerAltName=issuer:copy |
||||||
|
|
||||||
|
[ v3_ca ] |
||||||
|
nsComment = "TinyCA Generated Certificate" |
||||||
|
subjectKeyIdentifier=hash |
||||||
|
authorityKeyIdentifier=keyid:always,issuer:always |
||||||
|
basicConstraints = critical,CA:true |
||||||
|
keyUsage = keyCertSign, cRLSign |
||||||
|
nsCertType = sslCA, emailCA |
||||||
|
subjectAltName=email:copy |
||||||
|
issuerAltName=issuer:copy |
||||||
|
|
||||||
|
[ crl_ext ] |
||||||
|
authorityKeyIdentifier=keyid:always,issuer:always |
||||||
@ -0,0 +1,115 @@ |
|||||||
|
#!/usr/bin/perl -w |
||||||
|
# |
||||||
|
# $Id: tinyca2,v 1.6 2006/07/04 19:53:16 sm Exp $ |
||||||
|
# |
||||||
|
# Copyright (c) Stephan Martin <sm@sm-zone.net> |
||||||
|
# |
||||||
|
# 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. |
||||||
|
|
||||||
|
BEGIN { unshift(@INC, './lib'); # put here the location of the modules |
||||||
|
} |
||||||
|
|
||||||
|
use strict; |
||||||
|
|
||||||
|
use Gtk2 '-init'; |
||||||
|
|
||||||
|
use MIME::Base64; |
||||||
|
|
||||||
|
use POSIX; |
||||||
|
use Locale::gettext; |
||||||
|
|
||||||
|
use OpenSSL; |
||||||
|
use CA; |
||||||
|
use GUI; |
||||||
|
use HELPERS; |
||||||
|
use GUI::TCONFIG; |
||||||
|
use GUI::HELPERS; |
||||||
|
use GUI::CALLBACK; |
||||||
|
use GUI::WORDS; |
||||||
|
use GUI::X509_infobox; |
||||||
|
use GUI::X509_browser; |
||||||
|
use CERT; |
||||||
|
use REQ; |
||||||
|
use KEY; |
||||||
|
use TCONFIG; |
||||||
|
|
||||||
|
setlocale(LC_MESSAGES, ""); |
||||||
|
bindtextdomain("tinyca2", "./locale/"); |
||||||
|
textdomain("tinyca2"); |
||||||
|
|
||||||
|
# https://bugs.gentoo.org/show_bug.cgi?id=78576 |
||||||
|
$ENV{XLIB_SKIP_ARGB_VISUALS}= '1'; |
||||||
|
|
||||||
|
my $init = {}; |
||||||
|
|
||||||
|
# location of openssl |
||||||
|
$init->{'opensslbin'} = "/usr/bin/openssl"; |
||||||
|
$init->{'zipbin'} = "/usr/bin/zip"; |
||||||
|
$init->{'tarbin'} = "/bin/tar"; |
||||||
|
|
||||||
|
if(not -x $init->{'opensslbin'}) { |
||||||
|
printf(gettext("Can't execute %s.\n"), $init->{'opensslbin'}); |
||||||
|
print gettext("Configure correct path to openssl in tinyca.\n"); |
||||||
|
exit(1); |
||||||
|
} |
||||||
|
|
||||||
|
if(not -x $init->{'zipbin'}) { |
||||||
|
print gettext("zip command not found, support disabled.\n"); |
||||||
|
print gettext("Configure correct path to zip in tinyca.\n"); |
||||||
|
} |
||||||
|
|
||||||
|
if(not -x $init->{'tarbin'}) { |
||||||
|
print gettext("tar command not found, support disabled.\n"); |
||||||
|
print gettext("Configure correct path to tar in tinyca.\n"); |
||||||
|
} |
||||||
|
|
||||||
|
# directory with the templates |
||||||
|
$init->{'templatedir'} = "./templates"; |
||||||
|
|
||||||
|
if(not -d $init->{'templatedir'}) { |
||||||
|
print gettext("Can't find templatedir.\n"); |
||||||
|
print gettext("Please configure correct path with templates in tinyca.\n"); |
||||||
|
exit(1); |
||||||
|
} |
||||||
|
|
||||||
|
# location for CA files |
||||||
|
$init->{'basedir'} = $ENV{HOME}."/.TinyCA"; |
||||||
|
$init->{'exportdir'} = $ENV{HOME}; |
||||||
|
|
||||||
|
umask(0077); |
||||||
|
|
||||||
|
# create main object and initialize CA |
||||||
|
my $gui = GUI->new($init); |
||||||
|
|
||||||
|
# and now run... |
||||||
|
$gui->{'mw'}->show_all(); |
||||||
|
|
||||||
|
# decide what to do on startup |
||||||
|
if(@{$gui->{'CA'}->{'calist'}}) { |
||||||
|
$gui->{'CA'}->get_open_name($gui); |
||||||
|
} else { |
||||||
|
$gui->{'CA'}->get_ca_create($gui); |
||||||
|
} |
||||||
|
|
||||||
|
sub _ { |
||||||
|
my $s = gettext(@_); |
||||||
|
utf8::decode($s); |
||||||
|
return($s); |
||||||
|
} |
||||||
|
|
||||||
|
Gtk2->main(); |
||||||
|
|
||||||
|
exit(0); |
||||||
|
|
||||||
@ -0,0 +1,38 @@ |
|||||||
|
[Desktop Entry] |
||||||
|
Encoding=UTF-8 |
||||||
|
Type=Application |
||||||
|
GenericName=Tool to manage a Certification Authority |
||||||
|
Name=TinyCA2 |
||||||
|
Exec=tinyca2 |
||||||
|
|
||||||
|
Categories=Network;Security |
||||||
|
GenericName[bg]=GenericName(tinyca.desktop): Управление на сертификационните регистри (Certification Authority) |
||||||
|
Name[cs]=TinyCA2 |
||||||
|
GenericName[cs]=Nástroj pro správu certifikační autority |
||||||
|
Name[de]=TinyCA2 |
||||||
|
GenericName[de]=Werkzeug zum Verwalten einer Certification Authority |
||||||
|
Name[es]=TinyCA2 |
||||||
|
GenericName[es]=Herramienta para gestionar autoridades certificadoras |
||||||
|
Name[fr]=TinyCA2 |
||||||
|
GenericName[fr]=Outil de gestion d'une autorité de certification |
||||||
|
Name[hu]=TinyCA2 |
||||||
|
GenericName[hu]=CA (Certification Authority) kezelő segédeszköz |
||||||
|
Name[it]=TinyCA2 |
||||||
|
GenericName[it]=Tool d'amministrazione per una certification authority |
||||||
|
Name[ja]=TinyCA2 |
||||||
|
GenericName[ja]=認証局の管理ツール |
||||||
|
Name[nb]=TinyCA2 |
||||||
|
GenericName[nb]=Administrasjonsverktøy for sertifikater |
||||||
|
Name[nl]=TinyCA2 |
||||||
|
GenericName[nl]=Programma om een certificaat autoriteit te beheren |
||||||
|
Name[pl]=TinyCA2 |
||||||
|
GenericName[pl]=Narzędzie do zarządzania centrum certyfikacyjnym |
||||||
|
Name[pt_BR]=TinyCA2 |
||||||
|
GenericName[pt_BR]=Ferramenta para gerenciar uma Autoridade de Certificação |
||||||
|
Name[sk]=TinyCA2 |
||||||
|
GenericName[sk]=Nástroj pre správu certifikačnej autority |
||||||
|
Name[zh_CN]=TinyCA2 |
||||||
|
GenericName[zh_CN]=管理证书授权者的工具 |
||||||
|
Name[zh_TW]=TinyCA2 |
||||||
|
GenericName[zh_TW]=管理認證授權的工具 |
||||||
|
X-SuSE-translate=true |
||||||
@ -0,0 +1,170 @@ |
|||||||
|
# spec file for package tinyca |
||||||
|
# |
||||||
|
# $Id: tinyca2.spec,v 1.9 2006/07/25 20:10:54 sm Exp $ |
||||||
|
# |
||||||
|
# Copyright (c) 2002 Stephan Martin |
||||||
|
# This file and all modifications and additions to the pristine |
||||||
|
# package are under the same license as the package itself. |
||||||
|
# |
||||||
|
|
||||||
|
%define bindir %{_bindir} |
||||||
|
%define libdir %{_datadir}/TinyCA2/lib |
||||||
|
%define templatesdir %{_datadir}/TinyCA2/templates |
||||||
|
%define localedir %{_datadir}/TinyCA2/locale/ |
||||||
|
|
||||||
|
Name: tinyca2 |
||||||
|
URL: http://tinyca.sm-zone.net/ |
||||||
|
Group: Productivity/Networking/Security |
||||||
|
License: GPL |
||||||
|
Requires: perl perl-Gtk2 perl-MIME-Base64 |
||||||
|
Packager: Stephan Martin <sm@sm-zone.net> |
||||||
|
Version: @version@ |
||||||
|
Release: 0 |
||||||
|
Source0: %{name}-%{version}.tar.gz |
||||||
|
Source1: %{name}.desktop |
||||||
|
Summary: Graphical Tool for Managing a Certification Authority |
||||||
|
BuildArch: noarch |
||||||
|
BuildRoot: %{_tmppath}/%{name}-%{version}-build |
||||||
|
|
||||||
|
%description |
||||||
|
TinyCA is a graphical tool written in Perl/Gtk to manage a small |
||||||
|
Certification Authority (CA) using openssl. |
||||||
|
|
||||||
|
TinyCA supports - creation and revocation of x509 - S/MIME |
||||||
|
certificates. |
||||||
|
|
||||||
|
- PKCS#10 requests. |
||||||
|
|
||||||
|
- exporting certificates as PEM, DER, TXT, and PKCS#12. |
||||||
|
|
||||||
|
- server certificates for use in web servers, email servers, IPsec, |
||||||
|
and more. |
||||||
|
|
||||||
|
- client certificates for use in web browsers, email clients, IPsec, |
||||||
|
and more. |
||||||
|
|
||||||
|
- creation and management of SubCAs |
||||||
|
|
||||||
|
|
||||||
|
Authors: |
||||||
|
-------- |
||||||
|
Stephan Martin <sm@sm-zone.net> |
||||||
|
|
||||||
|
%prep |
||||||
|
%setup |
||||||
|
|
||||||
|
%build |
||||||
|
# Configure pristine source |
||||||
|
perl -pi -e 's:./lib:%{libdir}:g' tinyca2 |
||||||
|
perl -pi -e 's:./templates:%{templatesdir}:g' tinyca2 |
||||||
|
perl -pi -e 's:./locale:%{localedir}:g' tinyca2 |
||||||
|
make -C po |
||||||
|
|
||||||
|
%install |
||||||
|
[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT; |
||||||
|
|
||||||
|
LANGUAGES="de es cs fr sv" |
||||||
|
|
||||||
|
mkdir -p $RPM_BUILD_ROOT%{bindir} |
||||||
|
mkdir -p $RPM_BUILD_ROOT%{libdir} |
||||||
|
mkdir -p $RPM_BUILD_ROOT%{libdir}/GUI |
||||||
|
mkdir -p $RPM_BUILD_ROOT%{templatesdir} |
||||||
|
|
||||||
|
install -m 644 lib/*.pm $RPM_BUILD_ROOT%{libdir} |
||||||
|
install -m 644 lib/GUI/*.pm $RPM_BUILD_ROOT%{libdir}/GUI/ |
||||||
|
install -m 644 templates/openssl.cnf $RPM_BUILD_ROOT%{templatesdir} |
||||||
|
install -m 755 tinyca2 $RPM_BUILD_ROOT%{bindir} |
||||||
|
mkdir -p $RPM_BUILD_ROOT/usr/share/applications/ |
||||||
|
install -m 644 tinyca2.desktop $RPM_BUILD_ROOT/usr/share/applications/ |
||||||
|
|
||||||
|
for LANG in $LANGUAGES; do |
||||||
|
mkdir -p $RPM_BUILD_ROOT%{localedir}/$LANG/LC_MESSAGES/ |
||||||
|
install -m 644 locale/$LANG/LC_MESSAGES/tinyca2.mo %{buildroot}%{localedir}/$LANG/LC_MESSAGES/ |
||||||
|
done |
||||||
|
|
||||||
|
%clean |
||||||
|
rm -rf %{buildroot} |
||||||
|
|
||||||
|
%files |
||||||
|
%defattr(-,root,root) |
||||||
|
%doc CHANGES |
||||||
|
%dir %{_datadir}/TinyCA2 |
||||||
|
%{bindir}/tinyca2 |
||||||
|
%{_datadir}/TinyCA2/* |
||||||
|
%{_datadir}/applications/* |
||||||
|
|
||||||
|
%changelog |
||||||
|
* Sun Dec 5 2004 - sm@sm-zone.net |
||||||
|
- import functioins added |
||||||
|
* Fri Aug 13 2004 - sm@sm-zone.net |
||||||
|
- czech translation |
||||||
|
* Sun Jun 13 2004 - sm@sm-zone.net |
||||||
|
- gui polishing |
||||||
|
- code cleanup |
||||||
|
- some usability improvements |
||||||
|
* Wed Jun 2 2004 - sm@sm-zone.net |
||||||
|
- gui polishing |
||||||
|
- GUI module splitted to several files |
||||||
|
* Fri Oct 3 2003 - sm@sm-zone.net |
||||||
|
- added a lot of configuration options |
||||||
|
- correctly import/show details of requests without extensions |
||||||
|
(thanks to James.Leavitt@anywaregroup.com) |
||||||
|
* Mon Sep 1 2003 - sm@sm-zone.net |
||||||
|
- added renewal of certificates |
||||||
|
* Wed Aug 13 2003 - sm@sm-zone.net |
||||||
|
- rewite, now using perl-Gtk |
||||||
|
* Sat Jul 5 2003 - sm@sm-zone.net |
||||||
|
- added german translation |
||||||
|
* Tue Jul 1 2003 - sm@sm-zone.net |
||||||
|
- convert index.txt if openssl changed from 0.9.6x to 0.9.7x |
||||||
|
* Fri Jun 27 2003 - sm@sm-zone.net |
||||||
|
- added export into zip-file |
||||||
|
thanks to ludwig.nussel@suse.de |
||||||
|
* Mon Jun 23 2003 - sm@sm-zone.net |
||||||
|
- some tiny usability improvements |
||||||
|
thanks to ludwig.nussel@suse.de again |
||||||
|
* Thu Jun 19 2003 - sm@sm-zone.net |
||||||
|
- some usability improvements |
||||||
|
thanks to ludwig.nussel@suse.de |
||||||
|
- some more configuration options |
||||||
|
* Fri Oct 4 2002 - sm@sm-zone.net |
||||||
|
- Fixed bug exporting keys in PEM format |
||||||
|
- Fixed possible empty lines in cert/key/reqlist |
||||||
|
thanks to waldemar.mertke@gmx.de |
||||||
|
* Fri Sep 27 2002 - sm@sm-zone.net |
||||||
|
- fixed some minor bugs and typos (e.g. concerning openssl 0.9.7) |
||||||
|
thanks to iebgener@yahoo.com and waldemar.mertke@gmx.de |
||||||
|
* Wed Aug 21 2002 - sm@sm-zone.net |
||||||
|
- fixed revocation |
||||||
|
- added some colors |
||||||
|
- thanks to curly@e-card.bg |
||||||
|
* Sun Aug 18 2002 - sm@sm-zone.net |
||||||
|
- new version 0.4.0 |
||||||
|
- works independent of OpenCA modules now |
||||||
|
- some enhancements to functionality (e.g. export of key without |
||||||
|
passwd) |
||||||
|
- some smaller bugfixes in usability |
||||||
|
- new specfile (thanks to oron@actcom.co.il) |
||||||
|
* Thu Jun 6 2002 - Oron Peled <oron@actcom.co.il> |
||||||
|
- Cleaned .spec file |
||||||
|
* Mon Jun 3 2002 - sm@sm-zone.net |
||||||
|
- fixed wrong templatedir when creating new CA |
||||||
|
* Sun Jun 2 2002 - sm@sm-zone.net |
||||||
|
- fixed some minor bugs and typos |
||||||
|
* Sat May 11 2002 - sm@sm-zone.net |
||||||
|
- Added parser for x509 extensions |
||||||
|
* Fri May 03 2002 - sm@sm-zone.net |
||||||
|
- added possibility to view requests/certificates |
||||||
|
* Thu Apr 18 2002 - sm@sm-zone.net |
||||||
|
- added configuration |
||||||
|
* Sun Apr 7 2002 - sm@sm-zone.net |
||||||
|
- improved usability |
||||||
|
* Sun Mar 31 2002 - sm@sm-zone.net |
||||||
|
- added function to delete ca |
||||||
|
* Sat Mar 30 2002 - sm@sm-zone.net |
||||||
|
- allow import of pkcs#10 requests |
||||||
|
* Thu Mar 21 2002 - sm@sm-zone.et |
||||||
|
- use different listboxes |
||||||
|
* Mon Mar 18 2002 - sm@sm-zone.net |
||||||
|
- initial package |
||||||
|
|
||||||
Reference in new issue