Return to example1.pl CVS log

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

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

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