/usr/share/perl5/Palm.pm is in libpalm-perl 1:1.013-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 | # Palm.pm
#
# Perl module for reading and writing Palm databases (both PDB and PRC).
#
# Copyright (C) 1999, 2000, Andrew Arensburger.
# You may distribute this file under the terms of the Artistic
# License, as specified in the README file.
use strict;
use warnings;
package Palm;
use vars qw( $VERSION );
# One liner, to allow MakeMaker to work.
$VERSION = '1.013';
=head1 NAME
Palm - Palm OS utility functions
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 FUNCTIONS
=cut
my $EPOCH_1904 = 2082844800; # Difference between Palm's
# epoch (Jan. 1, 1904) and
# Unix's epoch (Jan. 1, 1970),
# in seconds.
=head2 palm2epoch
my @parts = localtime( palm2epoch($palmtime) );
Converts a PalmOS timestamp to a Unix Epoch time. Note, however, that PalmOS
time is in the timezone of the Palm itself while Epoch is defined to be in
the GMT timezone. Further conversion may be necessary.
=cut
sub palm2epoch {
return $_[0] - $EPOCH_1904;
}
=head2 epoch2palm
my $palmtime = epoch2palm( time() );
Converts Unix epoch time to Palm OS time.
=cut
sub epoch2palm {
return $_[0] + $EPOCH_1904;
}
=head2 mkpdbname
$PDB->Write( mkpdbname($PDB->{name}) );
Convert a PalmOS database name to a 7-bit ASCII representation. Native
Palm database names can be found in ISO-8859-1 encoding. This encoding
isn't going to generate the most portable of filenames and, in particular,
ColdSync databases use this representation.
=cut
sub mkpdbname {
my $name = shift;
$name =~ s![%/\x00-\x19\x7f-\xff]!sprintf("%%%02X",ord($&))!ge;
return $name;
}
=head1 SOURCE CONTROL
The source is in Github:
http://github.com/briandfoy/p5-Palm/tree/master
=head1 AUTHOR
Alessandro Zummo, C<< <a.zummo@towertech.it> >>
brian d foy, C<< <bdfoy@cpan.org> >> maintained the module for awhile.
This module is currently unmaintained. You could take it over by
writing to C<< <modules@perl.org> >>.
=head1 SEE ALSO
Palm::PDB(3)
=cut
1;
|