r53523 - in /branches/upstream/libpalm-perl/current: Changes META.yml lib/Address.pm lib/DateTime.pm lib/Datebook.pm lib/Mail.pm lib/Memo.pm lib/PDB.pm lib/Palm.pm lib/Raw.pm lib/StdAppInfo.pm lib/ToDo.pm lib/ZirePhoto.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Mar 3 14:57:17 UTC 2010
Author: jawnsy-guest
Date: Wed Mar 3 14:57:02 2010
New Revision: 53523
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53523
Log:
[svn-upgrade] Integrating new upstream version, libpalm-perl (1.012)
Modified:
branches/upstream/libpalm-perl/current/Changes
branches/upstream/libpalm-perl/current/META.yml
branches/upstream/libpalm-perl/current/lib/Address.pm
branches/upstream/libpalm-perl/current/lib/DateTime.pm
branches/upstream/libpalm-perl/current/lib/Datebook.pm
branches/upstream/libpalm-perl/current/lib/Mail.pm
branches/upstream/libpalm-perl/current/lib/Memo.pm
branches/upstream/libpalm-perl/current/lib/PDB.pm
branches/upstream/libpalm-perl/current/lib/Palm.pm
branches/upstream/libpalm-perl/current/lib/Raw.pm
branches/upstream/libpalm-perl/current/lib/StdAppInfo.pm
branches/upstream/libpalm-perl/current/lib/ToDo.pm
branches/upstream/libpalm-perl/current/lib/ZirePhoto.pm
Modified: branches/upstream/libpalm-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/Changes?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/Changes (original)
+++ branches/upstream/libpalm-perl/current/Changes Wed Mar 3 14:57:02 2010
@@ -1,20 +1,24 @@
-2009-08-17 Tim Adye <T.J.Adye at rl.ac.uk>
-
+1.011 - 2009-08-17 Tim Adye <T.J.Adye at rl.ac.uk>
* Palm/Datebook.pm: add support for the newer-format Palm Calendar
databases.
-2007-07-30 brian d foy <bdfoy at cpan.org>
+1.12 - Tue Feb 23 16:44:10 2010
+ Promote to a full release from the latest development cycle.
+
+1.11_01 - Sat Jan 2 12:16:38 2010
+ Tim Adye <T.J.Adye at rl.ac.uk>: Palm/Datebook.pm: add support
+ for time zone entries.
+
+1.009 - 2007-07-30 brian d foy <bdfoy at cpan.org>
* cleaned up the pod coverage test.
* add License and Author stuff to the distro
-2007-01-15 brian d foy <bdfoy at cpan.org>
-
+1.006 - 2007-01-15 brian d foy <bdfoy at cpan.org>
* chromatic sent me some changes living in another distro
(p5-Palm-1.004_000). It catches up 1.003_000 for all of the
changes since November 2002 listed in this file.
-2007-01-13 brian d foy <bdfoy at cpan.org>
-
+1.005 - 2007-01-13 brian d foy <bdfoy at cpan.org>
* Cleansed the dist to make it installable by CPAN tools.
It just needs a version without a _ in it.
(http://rt.cpan.org/Ticket/Display.html?id=12837)
Modified: branches/upstream/libpalm-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/META.yml?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/META.yml (original)
+++ branches/upstream/libpalm-perl/current/META.yml Wed Mar 3 14:57:02 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: p5-Palm
-version: 1.011
+version: 1.012
abstract: Module for handling PalmOS databases
author:
- brian d foy <bdfoy at cpan.org>
Modified: branches/upstream/libpalm-perl/current/lib/Address.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/Address.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/Address.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/Address.pm Wed Mar 3 14:57:02 2010
@@ -16,7 +16,7 @@
%fieldMapBits );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@ISA = qw( Palm::StdAppInfo Palm::Raw );
Modified: branches/upstream/libpalm-perl/current/lib/DateTime.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/DateTime.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/DateTime.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/DateTime.pm Wed Mar 3 14:57:02 2010
@@ -22,7 +22,7 @@
use vars qw($VERSION);
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@Palm::DateTime::ISA = qw( Exporter );
Modified: branches/upstream/libpalm-perl/current/lib/Datebook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/Datebook.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/Datebook.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/Datebook.pm Wed Mar 3 14:57:02 2010
@@ -14,7 +14,7 @@
use vars qw( $VERSION @ISA );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@ISA = qw( Palm::StdAppInfo Palm::Raw );
@@ -52,8 +52,8 @@
$record->{year}
The day, month and year of the event. The day and month start at 1
-(I<i.e.>, for January, C<$record-E<gt>{month}> is set to 1). The year
-is a four-digit number (for dates in 2001, C<$record-E<gt>{year}> is
+(I<i.e.>, for January, C<< $record->{month} >> is set to 1). The year
+is a four-digit number (for dates in 2001, C<< $record->{year} >> is
"2001").
For repeating events, these fields specify the first date at which the
@@ -84,13 +84,13 @@
If C<advance> is -1, then there is no alarm associated with this event.
New records created via C<new_Record> have a 10 minute alarm set by
-default. C<undef $record->{alarm}> to remove this alarm before writing.
+default. C<< undef $record->{alarm} >> to remove this alarm before writing.
An alarm icon will still show up in the Datebook if the C<alarm>
field exists, even with C<advance> set to -1.
%{$record->{repeat}}
-This has exists iff this is a repeating event.
+This exists iff this is a repeating event.
$record->{repeat}{type}
@@ -122,8 +122,8 @@
$record->{repeat}{start_of_week}
-I'm not sure what this is, but the Datebook app appears to perform
-some hairy calculations involving this.
+Day the week starts on (0 for Sunday, 1 for Monday). This affects
+the phase of events that repeat every 2nd (or more) Sunday.
=item 3
@@ -194,6 +194,54 @@
$record->{note}
A text string, the note (if any) attached to the event.
+
+ %{$record->{timezone}}
+
+This exists iff a time zone has been set for the event.
+
+ $record->{timezone}{name}
+
+The time zone name, I<e.g.>, "London" or "San Francisco".
+
+ $record->{timezone}{country}
+
+The country the time zone is in. This is an integer defined in Core/System/PalmLocale.h.
+
+ $record->{timezone}{offset}
+
+This gives the offset from UTC, in minutes, of the time zone.
+
+ $record->{timezone}{dst_adjustment}
+
+This gives the additional offset while daylight savings time is in effect.
+The offset from UTC is $record->{timezone}{offset} + $record->{timezone}{dst_adjustment}
+(actually only 0 or 60 are used).
+
+ $record->{timezone}{custom}
+
+Should indicate whether this location was created by the user, though this
+always seems to be true.
+
+ $record->{timezone}{flags}
+
+Reserved flags.
+
+ $record->{timezone}{start_hour}
+ $record->{timezone}{start_daynum}
+ $record->{timezone}{start_weeknum}
+ $record->{timezone}{start_month}
+ $record->{timezone}{end_hour}
+ $record->{timezone}{end_daynum}
+ $record->{timezone}{end_weeknum}
+ $record->{timezone}{end_month}
+
+These define the period during which daylight savings time is in effect
+if $record->{timezone}{dst_adjustment} is non-zero.
+daynum specifies the day of week (0=Sunday, 6=Saturday) and weeknum specifies the week of month
+(0=1st, 3=4th, 4=last), analagously to the "monthly by day" repeating event.
+I<e.g.>, The "London" time zone has DST starting on the last Sunday of March, which
+is indicated with start_daynum=0 (Sunday), start_weeknum=4 (last week of the month),
+and start_month=3 (March).
=head1 METHODS
@@ -261,7 +309,7 @@
Creates a new Datebook record, with blank values for all of the fields.
C<new_Record> does B<not> add the new record to C<$pdb>. For that,
-you want C<$pdb-E<gt>append_Record>.
+you want C<< $pdb->append_Record >>.
=cut
@@ -513,7 +561,7 @@
}
}
- my @fields = split /\0/, $data;
+ my @fields = split /\0/, $data, -1;
if ($have_description)
{
@@ -539,7 +587,28 @@
$record{location} = $location;
}
- $record{other_data}= join ("\0", @fields) if @fields;
+ my $other_data= join ("\0", @fields);
+
+ if ($iscal && length ($other_data) >= 21 && substr ($other_data, 0, 4) eq 'Bd00') {
+ my $len= unpack ('n', substr ($other_data, 4, 2));
+ if ($len+6 <= length ($other_data)) {
+ my $tzdata= substr ($other_data, 6, $len);
+ $other_data= substr ($other_data, $len+6);
+ @{$record{timezone}}{qw(offset start_hour start_daynum start_weeknum start_month
+ end_hour end_daynum end_weeknum end_month
+ dst_adjustment country flags name)}= unpack ('n C8 n C2 a*', $tzdata);
+ $record{timezone}{name} =~ s/\0$//;
+ $record{timezone}{offset}= $record{timezone}{offset} -65536
+ if $record{timezone}{offset} > 32767; # signed short
+ $record{timezone}{dst_adjustment}= $record{timezone}{dst_adjustment}-65536
+ if $record{timezone}{dst_adjustment} > 32767; # signed short
+ $record{timezone}{custom}= ($record{timezone}{flags} & 0x80) ? 1 : 0;
+ $record{timezone}{flags} &= 0x7f;
+ $record{timezone}{data}= $tzdata;
+ }
+ }
+
+ $record{other_data}= $other_data if $other_data ne '';
delete $record{data};
@@ -714,6 +783,21 @@
$retval .= $note if defined($note);
$retval .= $location if defined($location);
+ if ($iscal && $record->{timezone}) {
+ my $tzflags= $record->{timezone}{flags};
+ $tzflags |= 0x80 if $record->{timezone}{custom};
+ my $tzdata = pack ('n C8 n C2',
+ @{$record->{timezone}}{qw(offset start_hour start_daynum start_weeknum start_month
+ end_hour end_daynum end_weeknum end_month
+ dst_adjustment country)}, $tzflags);
+ $tzdata .= "$record->{timezone}{name}\0";
+ $retval .= 'Bd00';
+ $retval .= pack ('n', length ($tzdata));
+ $retval .= $tzdata;
+ }
+
+ $retval .= $record->{other_data} if exists $record->{other_data};
+
return $retval;
}
Modified: branches/upstream/libpalm-perl/current/lib/Mail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/Mail.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/Mail.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/Mail.pm Wed Mar 3 14:57:02 2010
@@ -13,7 +13,7 @@
use vars qw( $VERSION @ISA );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@ISA = qw( Palm::StdAppInfo Palm::Raw );
Modified: branches/upstream/libpalm-perl/current/lib/Memo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/Memo.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/Memo.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/Memo.pm Wed Mar 3 14:57:02 2010
@@ -13,7 +13,7 @@
use vars qw( $VERSION @ISA );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@ISA = qw( Palm::StdAppInfo Palm::Raw );
Modified: branches/upstream/libpalm-perl/current/lib/PDB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/PDB.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/PDB.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/PDB.pm Wed Mar 3 14:57:02 2010
@@ -23,7 +23,7 @@
use vars qw( $VERSION %PDBHandlers %PRCHandlers );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
=head1 NAME
Modified: branches/upstream/libpalm-perl/current/lib/Palm.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/Palm.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/Palm.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/Palm.pm Wed Mar 3 14:57:02 2010
@@ -12,7 +12,7 @@
use vars qw( $VERSION );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
=head1 NAME
Modified: branches/upstream/libpalm-perl/current/lib/Raw.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/Raw.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/Raw.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/Raw.pm Wed Mar 3 14:57:02 2010
@@ -18,7 +18,7 @@
use vars qw( $VERSION @ISA );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@ISA = qw( Palm::PDB );
Modified: branches/upstream/libpalm-perl/current/lib/StdAppInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/StdAppInfo.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/StdAppInfo.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/StdAppInfo.pm Wed Mar 3 14:57:02 2010
@@ -15,7 +15,7 @@
# $error acts like $! in that it reports the error that occurred
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@ISA = qw( Palm::Raw );
Modified: branches/upstream/libpalm-perl/current/lib/ToDo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/ToDo.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/ToDo.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/ToDo.pm Wed Mar 3 14:57:02 2010
@@ -17,7 +17,7 @@
use vars qw( $VERSION @ISA );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@ISA = qw( Palm::StdAppInfo Palm::Raw );
Modified: branches/upstream/libpalm-perl/current/lib/ZirePhoto.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpalm-perl/current/lib/ZirePhoto.pm?rev=53523&op=diff
==============================================================================
--- branches/upstream/libpalm-perl/current/lib/ZirePhoto.pm (original)
+++ branches/upstream/libpalm-perl/current/lib/ZirePhoto.pm Wed Mar 3 14:57:02 2010
@@ -14,7 +14,7 @@
use vars qw( $VERSION @ISA );
# One liner, to allow MakeMaker to work.
-$VERSION = '1.011';
+$VERSION = '1.012';
@ISA = qw( Palm::StdAppInfo Palm::Raw );
More information about the Pkg-perl-cvs-commits
mailing list