Return to example1.pl CVS log

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

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

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:
        !            13: #print Dumper $pdb
        !            14:
        !            15: #$pdb->Load("Keys-GtkrNEW.PDB");
        !            16: #$pdb->Decrypt('12345');
        !            17: $pdb->Load("Keys-Gtkr.PDB");
        !            18: #$pdb->Load("k:/working/Keys-Gtkr.PDB");
        !            19: $pdb->Decrypt('12345');
        !            20:
        !            21: #--------------------------------------------------
        !            22: # my $new_record = $pdb->append_Record();
        !            23: #
        !            24: # $new_record->{plaintext} = {
        !            25: #      name        => 'Test3',
        !            26: #      account     => 'anothertestaccount',
        !            27: #      password    => 'adifferentmypass',
        !            28: #      description => 'now that really roxorZ!',
        !            29: # };
        !            30: #
        !            31: #$pdb->Encrypt('12345');
        !            32: #
        !            33: #$pdb->Write("Keys-GtkrNEW.PDB");
        !            34: #--------------------------------------------------
        !            35:
        !            36: print Dump $pdb;
        !            37: