diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-11-27 12:15:24 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-11-27 12:15:24 -0800 |
commit | f4c50db53c0da163d8efa1c71ce804e1bca35ff8 (patch) | |
tree | d4c15f36745b560c4d3fbd802d676e34204c052c /FS/FS/Record.pm | |
parent | 90577921bfaee52fb36542cd1cff96a297aea6ba (diff) |
clean up encryption module use
Diffstat (limited to 'FS/FS/Record.pm')
-rw-r--r-- | FS/FS/Record.pm | 31 |
1 files changed, 11 insertions, 20 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 156726b..0aa4674 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -18,6 +18,7 @@ use DBIx::DBSchema 0.43; #0.43 for foreign keys use Locale::Country; use Locale::Currency; use NetAddr::IP; # for validation +use Crypt::OpenSSL::RSA; use FS::UID qw(dbh datasrc driver_name); use FS::CurrentUser; use FS::Schema qw(dbdef); @@ -53,8 +54,6 @@ our $qsearch_qualify_columns = 1; our $no_check_foreign = 1; #well, not inefficiently in perl by default anymore -my $rsa_module; -my $rsa_loaded; my $rsa_encrypt; my $rsa_decrypt; @@ -3359,27 +3358,19 @@ sub decrypt { } sub loadRSA { - my $self = shift; - #Initialize the Module - $rsa_module = 'Crypt::OpenSSL::RSA'; # The Default + my $self = shift; - if ($conf_encryptionmodule && $conf_encryptionmodule ne '') { - $rsa_module = $conf_encryptionmodule; - } + my $rsa_module = $conf_encryptionmodule || 'Crypt::OpenSSL::RSA'; - if (!$rsa_loaded) { - eval ("require $rsa_module"); # No need to import the namespace - $rsa_loaded++; - } - # Initialize Encryption - if ($conf_encryptionpublickey && $conf_encryptionpublickey ne '') { - $rsa_encrypt = $rsa_module->new_public_key($conf_encryptionpublickey); - } + # Initialize Encryption + if ($conf_encryptionpublickey && $conf_encryptionpublickey ne '') { + $rsa_encrypt = $rsa_module->new_public_key($conf_encryptionpublickey); + } - # Intitalize Decryption - if ($conf_encryptionprivatekey && $conf_encryptionprivatekey ne '') { - $rsa_decrypt = $rsa_module->new_private_key($conf_encryptionprivatekey); - } + # Intitalize Decryption + if ($conf_encryptionprivatekey && $conf_encryptionprivatekey ne '') { + $rsa_decrypt = $rsa_module->new_private_key($conf_encryptionprivatekey); + } } =item h_search ACTION |