Changeset 413 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

09/03/09 04:25:41 (15 years ago)

Author:

nanardon

Message:

In SQL base, allow to have a peer of public/private RSA key, then when user set it password it is stored in it clear form but encrypt using public key
The la-encrypt-passwd tools allow to

• generate or regenerate a new key
• read password
• read password to propagate it into another base

Notice the private key is protected by a passwphrase prompt when setting it

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -128 +128 @@
 } 
 
+sub get_global_value {
+    my ($self, $varname) = @_;
+
+    my $sth = $self->db->prepare_cached(q{
+        select val from settings where varname = ?
+        });
+    $sth->execute($varname);
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res->{val}
+}
+
+sub set_global_value {
+    my ($self, $varname, $value) = @_;
+    my $sth = $self->db->prepare(q{
+        update settings set val = ? where varname = ?
+        });
+    $sth->execute($value, $varname) == 0 and do {
+        my $sth2 = $self->db->prepare(q{
+            insert into settings (val, varname) values (?,?)
+            });
+        $sth2->execute($value, $varname);
+    };
+}
+
 1;