Return to test2.pl CVS log

Up to [local] / palm / Palm-Keyring

Annotation of palm/Palm-Keyring/test2.pl, Revision 1.2

1.1       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.2     ! andrew     13: print "Enter: ";
        !            14: my $Pass = <>;
        !            15: chomp $Pass;
        !            16: print "\n";
        !            17:
1.1       andrew     18: $pdb->Load("Keys-Gtkr.PDB");
1.2     ! andrew     19: $pdb->Decrypt($Pass) || die "Couldn't decrypt!";
1.1       andrew     20:
                     21: print Dump $pdb;