Return to example1.pl CVS log

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

more cleanup

#!/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->Load("Keys-Gtkr.PDB"); 
#$pdb->Load("k:/working/Keys-Gtkr.PDB"); 
$pdb->Decrypt('12345');

#--------------------------------------------------
# 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;