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

Return to example2.pl CVS log

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

version 1.1, 2007/01/28 16:17:54

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

Line 1

#!/usr/bin/perl

# $RedRiver$

use strict;

use warnings;

use diagnostics;

use lib 'lib';

use Palm::PDB;

use Palm::Keyring;

my $pdb = new Palm::Keyring;

my $pdb = new Palm::PDB;

use YAML;

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

$pdb->Password('12345');

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

foreach (0..$#{ $pdb->{'records'} }) {

$pdb->Decrypt('12345');

next if $_ == 0;

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

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

print Dump $pdb;

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

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

print "\n";

}