palm/Palm-Keyring/examples/example1.pl - diff

Return to example1.pl CVS log

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

version 1.8, 2006/12/06 18:45:42

version 1.9, 2007/01/30 04:59:55

Line 1

#!/usr/bin/perl

# $RedRiver$

use strict;

use warnings;

use diagnostics;

use lib 'lib';

use Palm::Keyring;

my $pdb = new Palm::Keyring;

my $pdb = new Palm::Keyring('12345');

use YAML;

my $rec = $pdb->append_Record();

my $new_record = $pdb->append_Record();

my $acct = {

name => 'Test3',

$new_record->{plaintext} = {

account => 'anothertestaccount',

name => 'Test3',

password => 'adifferentmypass',

account => 'anothertestaccount',

notes => 'now that really roxorZ!',

password => 'adifferentmypass',

description => 'now that really roxorZ!',

};

$pdb->Encrypt('12345');

$pdb->Encrypt($rec, $acct);

$pdb->Write("Keys-GtkrNEW.PDB");

$pdb->Write("Keys-Gtkr-example.PDB");

print Dump $pdb;