Return to example1.pl CVS log

Up to [local] / palm / Palm-Keyring / examples

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;