![]() ![]() | ![]() |
File: [local] / palm / Palm-Keyring / examples / example1.pl (download)
Revision 1.3, Thu Feb 2 00:59:08 2006 UTC (18 years, 6 months ago) by andrew
palmkeyring-tk now looks pretty good, loads the categories and accounts, but doesn't show any information or get a password yet. palmkeyring.pl uses the new Load function and Keyring.pm now overrides the Load function so it can populate the 'name' so we can use that while it is still encrypted. |
#!/usr/bin/perl use strict; use warnings; use diagnostics; use lib 'lib'; use Palm::Keyring; my $pdb = new Palm::Keyring; use YAML; #print Dumper $pdb #$pdb->Load("Keys-GtkrNEW.PDB"); #$pdb->Decrypt('12345'); $pdb->Load("Keys-Gtkr.PDB"); $pdb->Decrypt('Password'); #-------------------------------------------------- # my $new_record = $pdb->append_Record(); # # $new_record->{plaintext} = { # name => 'Test3', # account => 'anothertestaccount', # password => 'adifferentmypass', # description => 'now that really roxorZ!', # }; # #$pdb->Encrypt('12345'); # #$pdb->Write("Keys-GtkrNEW.PDB"); #-------------------------------------------------- print Dump $pdb;