The following module was proposed for inclusion in the Module List:
modid: User::Vault
DSLIP: idpOp
description: User credentials and settings management
userid: GREENPAU (Paul Greenberg)
chapterid: 12 (Opt_Arg_Param_Proc)
communities:
similar:
rationale:
User::Vault retrieves user settings and credentials from a flat
file organized in XML format. Several checks are done to ensure that
the file is complete. Additionally, there is a check that halts
execution if the file has permissions other than "600".
For example, the below file is stored in ".google.key".
<?xml version="1.0"?> <vault> <store> <uid>mauldger</uid>
<firstname>Gerry</firstname> <lastname>Maulden</lastname> <settings>
<pair> <key>google-email</key>
<value>gerry.maul...@gmail.com</value> </pair> <pair>
<key>google-pass</key> <value>DvmPYG9W</value> </pair> </settings>
</store> </vault>
To get Google credentials:
use User::Vault;
my $vault = new Vault(".google.key"); $vault->verbose(); # to
enable debugging, passwords are displayed my %user =
$vault->load("mauldger"); printf("Google E-mail: %s\n",
$user{'google_email'}) if exist($user{'google_email'});
printf("Google Password: %s\n", $user{'google_pass'}) if
exist($user{'google_pass'});
enteredby: GREENPAU (Paul Greenberg)
enteredon: Tue Mar 29 20:14:42 2011 GMT
The resulting entry would be:
User::
::Vault idpOp User credentials and settings management GREENPAU
Thanks for registering,
--
The PAUSE
PS: The following links are only valid for module list maintainers:
Registration form with editing capabilities:
https://pause.perl.org/pause/authenquery?ACTION=add_mod&USERID=e2600000_ce5d995cd8eeae6d&SUBMIT_pause99_add_mod_preview=1
Immediate (one click) registration:
https://pause.perl.org/pause/authenquery?ACTION=add_mod&USERID=e2600000_ce5d995cd8eeae6d&SUBMIT_pause99_add_mod_insertit=1
Peek at the current permissions:
https://pause.perl.org/pause/authenquery?pause99_peek_perms_by=me&pause99_peek_perms_query=User%3A%3AVault
