diff options
author | ivan <ivan> | 2011-10-26 21:59:45 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-10-26 21:59:45 +0000 |
commit | 72e94d128a662b7a391b7a90060b5aa07cdef173 (patch) | |
tree | f35a7839a4e29ea3aac45745b7e52c93dcca5684 /FS/FS/Setup.pm | |
parent | 45f917c5e78ecc969eca54a585a63aa347ded600 (diff) |
add easier bin/enable-encryption
Diffstat (limited to 'FS/FS/Setup.pm')
-rw-r--r-- | FS/FS/Setup.pm | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/FS/FS/Setup.pm b/FS/FS/Setup.pm index 3725115..e1d890a 100644 --- a/FS/FS/Setup.pm +++ b/FS/FS/Setup.pm @@ -5,6 +5,7 @@ use vars qw( @ISA @EXPORT_OK ); use Exporter; #use Tie::DxHash; use Tie::IxHash; +use Crypt::OpenSSL::RSA; use FS::UID qw( dbh driver_name ); use FS::Record; @@ -13,7 +14,7 @@ $FS::svc_domain::whois_hack = 1; $FS::svc_domain::whois_hack = 1; @ISA = qw( Exporter ); -@EXPORT_OK = qw( create_initial_data ); +@EXPORT_OK = qw( create_initial_data enable_encryption ); =head1 NAME @@ -55,13 +56,34 @@ sub create_initial_data { populate_msgcat(); populate_numbering(); - + if ( $oldAutoCommit ) { dbh->commit or die dbh->errstr; } } +sub enable_encryption { + + eval "use FS::Conf"; + die $@ if $@; + + my $conf = new FS::Conf; + + die "encryption key(s) already in place" + if $conf->exists('encryptionpublickey') + || $conf->exists('encryptionprivatekey'); + + my $length = 2048; + my $rsa = Crypt::OpenSSL::RSA->generate_key($length); + + $conf->set('encryption', 1); + $conf->set('encryptionmodule', 'Crypt::OpenSSL::RSA'); + $conf->set('encryptionpublickey', $rsa->get_public_key_string ); + $conf->set('encryptionprivatekey', $rsa->get_private_key_string ); + +} + sub populate_numbering { eval "use FS::lata_Data;"; # this automatically populates the lata table, if unpopulated eval "use FS::msa_Data;"; # this automatically populates the msa table, if unpopulated |