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

Return to example2.pl CVS log

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

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

version 1.3, 2007/01/31 04:17:15

Line 1

#!/usr/bin/perl

# $RedRiver$

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

use strict;

use warnings;

Line 16

my $rec = $pdb->{'records'}->[$_];

my $acct = $pdb->Decrypt($rec);

print join ":", $rec->{'data'} , $acct->{'account'},

print join ":", $rec->{'name'} , $acct->{'account'},

$acct->{'password'}, $acct->{'notes'};

print "\n";

}