mirror of
https://github.com/inspircd/inspircd.git
synced 2025-03-10 11:09:04 -04:00
3f8f4808f2
git-svn-id: http://svn.inspircd.org/repository/trunk/inspircd@6892 e03df62e-2008-0410-955e-edbf42e46eb7
115 lines
3.0 KiB
Perl
115 lines
3.0 KiB
Perl
package make::gnutlscert;
|
|
|
|
use Exporter 'import';
|
|
use make::configure;
|
|
@EXPORT = qw(make_gnutls_cert);
|
|
|
|
|
|
sub make_gnutls_cert()
|
|
{
|
|
open (FH, ">certtool.template");
|
|
my $timestr = time();
|
|
my $org = promptstring_s("Please enter the organization name", "My IRC Network");
|
|
my $unit = promptstring_s("Please enter the unit Name", "Server Admins");
|
|
my $state = promptstring_s("Pleae enter your state (two letter code)", "CA");
|
|
my $country = promptstring_s("Please enter your country", "Oompa Loompa Land");
|
|
my $commonname = promptstring_s("Please enter the certificate common name (hostname)", "irc.mynetwork.com");
|
|
my $email = promptstring_s("Please enter a contact email address", "oompa\@loompa.com");
|
|
print FH <<__END__;
|
|
# X.509 Certificate options
|
|
#
|
|
# DN options
|
|
|
|
# The organization of the subject.
|
|
organization = "$org"
|
|
|
|
# The organizational unit of the subject.
|
|
unit = "$unit"
|
|
|
|
# The locality of the subject.
|
|
# locality =
|
|
|
|
# The state of the certificate owner.
|
|
state = "$state"
|
|
|
|
# The country of the subject. Two letter code.
|
|
country = $country
|
|
|
|
# The common name of the certificate owner.
|
|
cn = "$commonname"
|
|
|
|
# A user id of the certificate owner.
|
|
#uid = "clauper"
|
|
|
|
# If the supported DN OIDs are not adequate you can set
|
|
# any OID here.
|
|
# For example set the X.520 Title and the X.520 Pseudonym
|
|
# by using OID and string pairs.
|
|
#dn_oid = "2.5.4.12" "Dr." "2.5.4.65" "jackal"
|
|
|
|
# This is deprecated and should not be used in new
|
|
# certificates.
|
|
# pkcs9_email = "none\@none.org"
|
|
|
|
# The serial number of the certificate
|
|
serial = $timestr
|
|
|
|
# In how many days, counting from today, this certificate will expire.
|
|
expiration_days = 700
|
|
|
|
# X.509 v3 extensions
|
|
|
|
# A dnsname in case of a WWW server.
|
|
#dns_name = "www.none.org"
|
|
|
|
# An IP address in case of a server.
|
|
#ip_address = "192.168.1.1"
|
|
|
|
# An email in case of a person
|
|
email = "$email"
|
|
|
|
# An URL that has CRLs (certificate revocation lists)
|
|
# available. Needed in CA certificates.
|
|
#crl_dist_points = "http://www.getcrl.crl/getcrl/"
|
|
|
|
# Whether this is a CA certificate or not
|
|
#ca
|
|
|
|
# Whether this certificate will be used for a TLS client
|
|
tls_www_client
|
|
|
|
# Whether this certificate will be used for a TLS server
|
|
tls_www_server
|
|
|
|
# Whether this certificate will be used to sign data (needed
|
|
# in TLS DHE ciphersuites).
|
|
signing_key
|
|
|
|
# Whether this certificate will be used to encrypt data (needed
|
|
# in TLS RSA ciphersuites). Note that it is prefered to use different
|
|
# keys for encryption and signing.
|
|
encryption_key
|
|
|
|
# Whether this key will be used to sign other certificates.
|
|
cert_signing_key
|
|
|
|
# Whether this key will be used to sign CRLs.
|
|
crl_signing_key
|
|
|
|
# Whether this key will be used to sign code.
|
|
code_signing_key
|
|
|
|
# Whether this key will be used to sign OCSP data.
|
|
ocsp_signing_key
|
|
|
|
# Whether this key will be used for time stamping.
|
|
time_stamping_key
|
|
__END__
|
|
close(FH);
|
|
system("certtool --generate-privkey --outfile key.pem");
|
|
system("certtool --generate-self-signed --load-privkey key.pem --outfile cert.pem --template certtool.template");
|
|
unlink("certtool.template");
|
|
}
|
|
|
|
1;
|