version 1.9, 2007/01/30 04:59:55 |
version 1.10, 2007/08/10 05:13:31 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $RedRiver$ |
# $RedRiver: example1.pl,v 1.9 2007/01/30 04:59:55 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
my $rec = $pdb->append_Record(); |
my $rec = $pdb->append_Record(); |
|
|
my $acct = { |
my $acct = { |
name => 'Test3', |
0 => { data => 'Test3' }, |
account => 'anothertestaccount', |
1 => { data => 'anothertestaccount' }, |
password => 'adifferentmypass', |
2 => { data => 'adifferentmypass' }, |
notes => 'now that really roxorZ!', |
255 => { data => 'now that really roxorZ!' }, |
}; |
}; |
|
|
$pdb->Encrypt($rec, $acct); |
$pdb->Encrypt($rec, $acct); |