Return to example1.pl CVS log

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

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

1.5       andrew      1: #!/usr/bin/perl
1.9     ! andrew      2: # $RedRiver$
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.9     ! andrew     12: my $acct = {
        !            13:        name      => 'Test3',
        !            14:        account   => 'anothertestaccount',
        !            15:        password  => 'adifferentmypass',
        !            16:        notes     => 'now that really roxorZ!',
1.8       andrew     17: };
1.5       andrew     18:
1.9     ! andrew     19: $pdb->Encrypt($rec, $acct);
1.8       andrew     20:
1.9     ! andrew     21: $pdb->Write("Keys-Gtkr-example.PDB");