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

Return to example1.pl CVS log

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

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

version 1.10, 2007/08/10 05:13:31

Line 1

#!/usr/bin/perl

# $RedRiver$

# $RedRiver: example1.pl,v 1.9 2007/01/30 04:59:55 andrew Exp $

use strict;

use warnings;

Line 10

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

my $acct = {

name => 'Test3',

0 => { data => 'Test3' },

account => 'anothertestaccount',

1 => { data => 'anothertestaccount' },

password => 'adifferentmypass',

2 => { data => 'adifferentmypass' },

notes => 'now that really roxorZ!',

255 => { data => 'now that really roxorZ!' },

};

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