version 1.46, 2007/08/10 05:13:31 |
version 1.47, 2007/09/12 01:30:10 |
|
|
package Palm::Keyring; |
package Palm::Keyring; |
# $RedRiver: Keyring.pm,v 1.45 2007/02/26 00:02:13 andrew Exp $ |
# $RedRiver: Keyring.pm,v 1.46 2007/08/10 04:13:31 andrew Exp $ |
######################################################################## |
######################################################################## |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# Keyring.pm *** Perl class for Keyring for Palm OS databases. |
# |
# |
|
|
); |
); |
|
|
|
|
our $VERSION = 0.96; |
our $VERSION = '0.96_01'; |
|
|
sub new |
sub new |
{ |
{ |
|
|
year => $year, |
year => $year, |
month => $month, |
month => $month, |
day => $day, |
day => $day, |
}, |
}, |
}; |
}; |
} else { |
} else { |
# XXX Need to actually validate the above information somehow |
# XXX Need to actually validate the above information somehow |
|
|
and v5 databases. |
and v5 databases. |
|
|
$rec->{decrypted}->{0} => { |
$rec->{decrypted}->{0} => { |
label => 'name', |
label => 'name', |
data => 'account name', |
label_id => 0, |
|
font => 0, |
|
data => 'account name', |
}; |
}; |
|
|
If you have changed anything other than the lastchange, or don't pass in a |
If you have changed anything other than the lastchange, or don't pass in a |
|
|
|
|
=over |
=over |
|
|
=item Write |
|
|
|
For v4 databases it also puts back the record 0 for the encrypted password |
|
before writing it. |
|
|
|
=item ParseAppInfoBlock |
=item ParseAppInfoBlock |
|
|
Converts the extra returned by Palm::StdAppInfo::ParseAppInfoBlock() into |
Converts the extra returned by Palm::StdAppInfo::ParseAppInfoBlock() into |
|
|
|
|
Reverses ParseRecord and then sends it through Palm::StdAppInfo::PackRecord() |
Reverses ParseRecord and then sends it through Palm::StdAppInfo::PackRecord() |
|
|
|
=item Write |
|
|
|
For v4 databases it puts back the record 0 for the encrypted password before |
|
writing it. |
|
|
=back |
=back |
|
|
=head1 DEPENDENCIES |
=head1 DEPENDENCIES |
|
|
|
|
=head1 THANKS |
=head1 THANKS |
|
|
I would like to thank the helpful Perlmonk shigetsu who gave me some great advice |
I would like to thank the helpful Perlmonk shigetsu who gave me some great |
and helped me get my first module posted. L<http://perlmonks.org/?node_id=596998> |
advice and helped me get my first module posted. |
|
L<http://perlmonks.org/?node_id=596998> |
|
|
I would also like to thank |
I would also like to thank |
Johan Vromans |
Johan Vromans |