Return to example1.pl CVS log

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

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

1.5       andrew      1: #!/usr/bin/perl
                      2: use strict;
                      3: use warnings;
                      4: use diagnostics;
                      5:
                      6: use lib 'lib';
                      7: use Palm::Keyring;
                      8:
                      9: my $pdb = new Palm::Keyring;
                     10:
                     11: use YAML;
                     12:
1.8     ! andrew     13: my $new_record = $pdb->append_Record();
1.5       andrew     14:
1.8     ! andrew     15: $new_record->{plaintext} = {
        !            16:        name        => 'Test3',
        !            17:        account     => 'anothertestaccount',
        !            18:        password    => 'adifferentmypass',
        !            19:        description => 'now that really roxorZ!',
        !            20: };
1.5       andrew     21:
1.8     ! andrew     22: $pdb->Encrypt('12345');
        !            23:
        !            24: $pdb->Write("Keys-GtkrNEW.PDB");
1.5       andrew     25:
                     26: print Dump $pdb;
                     27: