Return to example1.pl CVS log

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

Annotation of palm/Palm-Keyring/examples/example1.pl, Revision 1.11

1.5       andrew      1: #!/usr/bin/perl
1.11    ! andrew      2: # $RedRiver: example1.pl,v 1.10 2007/08/10 04:13:31 andrew Exp $
1.5       andrew      3: use strict;
                      4: use warnings;
                      5:
                      6: use Palm::Keyring;
                      7:
1.9       andrew      8: my $pdb = new Palm::Keyring('12345');
1.5       andrew      9:
1.9       andrew     10: my $rec = $pdb->append_Record();
1.5       andrew     11:
1.11    ! andrew     12: $rec->{plaintext} = {
1.10      andrew     13:        0 => { data => 'Test3' },
                     14:        1 => { data => 'anothertestaccount' },
                     15:        2 => { data => 'adifferentmypass' },
                     16:        255 => { data => 'now that really roxorZ!' },
1.8       andrew     17: };
1.5       andrew     18:
1.11    ! andrew     19: $pdb->Encrypt($rec);
1.8       andrew     20:
1.9       andrew     21: $pdb->Write("Keys-Gtkr-example.PDB");