|
|
|
|
# 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)"),
|
|
|
|
|
'FINGERPRINTSHA256' => _("Fingerprint (SHA256)"),
|
|
|
|
|
'FINGERPRINTSHA384' => _("Fingerprint (SHA384)"),
|
|
|
|
|
'FINGERPRINTSHA512' => _("Fingerprint (SHA512)"),
|
|
|
|
|
_("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
|
