r44600 - in /trunk/libpalm-perl: ./ debian/ lib/

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Tue Sep 22 02:08:34 UTC 2009


Author: jawnsy-guest
Date: Tue Sep 22 02:08:26 2009
New Revision: 44600

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44600
Log:
* New upstream release
  + Add support for the new calendar format
* Standards-Version 3.8.3 (no changes)
* Add myself to Uploaders and Copyright
* Use new short debhelper rules format
* Refreshed copyright information

Modified:
    trunk/libpalm-perl/Changes
    trunk/libpalm-perl/LICENSE
    trunk/libpalm-perl/META.yml
    trunk/libpalm-perl/Makefile.PL
    trunk/libpalm-perl/README
    trunk/libpalm-perl/debian/changelog
    trunk/libpalm-perl/debian/control
    trunk/libpalm-perl/debian/copyright
    trunk/libpalm-perl/debian/rules
    trunk/libpalm-perl/lib/Address.pm
    trunk/libpalm-perl/lib/DateTime.pm
    trunk/libpalm-perl/lib/Datebook.pm
    trunk/libpalm-perl/lib/Mail.pm
    trunk/libpalm-perl/lib/Memo.pm
    trunk/libpalm-perl/lib/PDB.pm
    trunk/libpalm-perl/lib/Palm.pm
    trunk/libpalm-perl/lib/Raw.pm
    trunk/libpalm-perl/lib/StdAppInfo.pm
    trunk/libpalm-perl/lib/ToDo.pm
    trunk/libpalm-perl/lib/ZirePhoto.pm

Modified: trunk/libpalm-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/Changes?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/Changes (original)
+++ trunk/libpalm-perl/Changes Tue Sep 22 02:08:26 2009
@@ -1,3 +1,8 @@
+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>
 	* cleaned up the pod coverage test.
 	* add License and Author stuff to the distro

Modified: trunk/libpalm-perl/LICENSE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/LICENSE?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/LICENSE (original)
+++ trunk/libpalm-perl/LICENSE Tue Sep 22 02:08:26 2009
@@ -1,7 +1,1 @@
-{\rtf1\mac\ansicpg10000\cocoartf824\cocoasubrtf420
-{\fonttbl\f0\fswiss\fcharset77 Helvetica;}
-{\colortbl;\red255\green255\blue255;}
-\margl1440\margr1440\vieww9000\viewh8400\viewkind0
-\pard\tx720\tx1440\tx2160\tx2880\tx3600\tx4320\tx5040\tx5760\tx6480\tx7200\tx7920\tx8640\ql\qnatural\pardirnatural
-
-\f0\fs24 \cf0 You can use p5-Palm under the same terms as Perl itself.}
+You can use p5-Palm under the same terms as Perl itself.

Modified: trunk/libpalm-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/META.yml?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/META.yml (original)
+++ trunk/libpalm-perl/META.yml Tue Sep 22 02:08:26 2009
@@ -1,14 +1,22 @@
 --- #YAML:1.0
-name:                p5-Palm
-version:             1.009
-abstract:            Module for handling PalmOS databases
-license:             perl
-generated_by:        ExtUtils::MakeMaker version 6.32
-distribution_type:   module
-requires:     
-    Test::More:                    0
-meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
-    version: 1.2
+name:               p5-Palm
+version:            1.011
+abstract:           Module for handling PalmOS databases
 author:
     - brian d foy <bdfoy at cpan.org>
+license:            perl
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:
+    Test::More:  0
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.50
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: trunk/libpalm-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/Makefile.PL?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/Makefile.PL (original)
+++ trunk/libpalm-perl/Makefile.PL Tue Sep 22 02:08:26 2009
@@ -1,6 +1,8 @@
 use ExtUtils::MakeMaker;
 
-eval "use Test::Manifest 1.14";
+require 5.006;
+
+eval "use Test::Manifest 1.21";
 
 my @classes = qw( 
 	Address Datebook DateTime Mail 
@@ -11,7 +13,7 @@
 WriteMakefile(
     'NAME'			=> 'Palm',
 	'ABSTRACT'		=> 'Module for handling PalmOS databases',
-    'VERSION'		=> '1.009',
+    'VERSION_FROM'  => 'lib/Palm.pm',
     'LICENSE'       => 'perl',
     'DISTNAME'		=> 'p5-Palm',	# More descriptive than just "Palm"
 	'AUTHOR'        => 'brian d foy <bdfoy at cpan.org>',
@@ -25,11 +27,6 @@
 		map { ( "lib/$_.pm", "\$(INST_LIBDIR)/Palm/$_.pm" ) } @classes
 		},
 
-	'MAN3PODS'     => {
-		'lib/Palm.pm' => '$(INST_MAN3DIR)/Palm.3',
-		map { ( "lib/$_.pm", "\$(INST_MAN3DIR)/Palm::$_.3" ) } @classes
-		},
-
     'EXE_FILES'		=> [ 'examples/pdbdump' ],
 
 	clean  => { FILES    => q|*.bak p5-*| },

Modified: trunk/libpalm-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/README?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/README (original)
+++ trunk/libpalm-perl/README Tue Sep 22 02:08:26 2009
@@ -2,7 +2,7 @@
 manipulating, and writing the .pdb and .prc database files used by
 PalmOS devices such as the PalmPilot and its successors.
 
-Copyright (C) 1999, 2000 by Andrew Arensburger
+Copyright (C) 1999-2000 by Andrew Arensburger
 
 This program is free software; you can redistribute it and/or
 modify it under the terms of the Artistic License, a copy of which
@@ -15,7 +15,8 @@
 
 * INSTALLING:
 
-	This is pretty standard:
+This is pretty standard:
+
 	- Run "perl Makefile.PL" to create the Makefile.
 	- Run "make" to build everything.
 	- Run "make install" to install the package.
@@ -24,16 +25,23 @@
 
 * DOCUMENTATION:
 
-	All documentation is in the form of PODs embedded in the module
-	files themselves. Use pod2text Palm/PDB.pm to read the
-	documentation for Palm::PDB. You'll want to start with Palm::PDB,
-	then Palm::Raw, then the others.
+All documentation is in the form of PODs embedded in the module
+files themselves. Use pod2text Palm/PDB.pm to read the
+documentation for Palm::PDB. You'll want to start with Palm::PDB,
+then Palm::Raw, then the others.
 
 * FEEDBACK:
 
 	If you have any comments, suggestions, bug reports, patches,
-etc., please send mail to the maintainer, Andrew Arensburger, at
-<arensb at ooblick.com>. See also http://www.ooblick.com/software/coldsync/
+etc., please send mail to the maintainer, brian d foy, at
+<bdfoy at cpan.org>.
+
+* CONTRIBUTING
+
+The source is in Github: http://github.com/briandfoy/p5-Palm/tree/master
+
+If you have a change, fork the repo, make your patch, and send me a 
+pull request. Don't be scared; it's easy!
 
 * AUTHORS AND CONTRIBUTORS:
 

Modified: trunk/libpalm-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/debian/changelog?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/debian/changelog (original)
+++ trunk/libpalm-perl/debian/changelog Tue Sep 22 02:08:26 2009
@@ -1,4 +1,12 @@
-libpalm-perl (1:1.009-2) UNRELEASED; urgency=low
+libpalm-perl (1:1.011-1) UNRELEASED; urgency=low
+
+  [ Jonathan Yu ]
+  * New upstream release
+    + Add support for the new calendar format
+  * Standards-Version 3.8.3 (no changes)
+  * Add myself to Uploaders and Copyright
+  * Use new short debhelper rules format
+  * Refreshed copyright information
 
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
@@ -12,7 +20,7 @@
   * debian/watch: add uversionmangleto deal with old upstream versioning
     scheme.
 
- -- Nathan Handler <nhandler at ubuntu.com>  Sat, 06 Jun 2009 01:36:49 +0000
+ -- Jonathan Yu <jawnsy at cpan.org>  Mon, 21 Sep 2009 18:03:28 -0400
 
 libpalm-perl (1:1.009-1) unstable; urgency=low
 

Modified: trunk/libpalm-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/debian/control?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/debian/control (original)
+++ trunk/libpalm-perl/debian/control Tue Sep 22 02:08:26 2009
@@ -1,20 +1,19 @@
 Source: libpalm-perl
 Section: perl
 Priority: extra
+Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7)
+Build-Depends-Indep: perl, libtest-pod-perl, libtest-pod-coverage-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Tim Retout <tim at retout.co.uk>
-Standards-Version: 3.8.0
+Standards-Version: 3.8.3
 Homepage: http://search.cpan.org/dist/p5-Palm/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libpalm-perl/
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libpalm-perl/
-Build-Depends: debhelper (>= 7), quilt
-Build-Depends-Indep: perl, libtest-pod-perl,
- libtest-pod-coverage-perl
 
 Package: libpalm-perl
 Architecture: all
 Depends: ${misc:Depends}, ${perl:Depends}
 Description: Perl 5 modules for manipulating pdb and prc database files
- Contains Perl modules for manipulating Palm Pilot databases.  These 
- include Palm::ToDo, Palm::Memo, Palm::Mail, Palm::Address, Palm::Datebook,
- and the generic Palm::PDB.
+ p5-Palm is a Perl package that contains Perl modules for manipulating Palm
+ Pilot databases. These include Palm::ToDo, Palm::Memo, Palm::Datebook,
+ Palm::Address and the generic Palm::PDB.

Modified: trunk/libpalm-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/debian/copyright?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/debian/copyright (original)
+++ trunk/libpalm-perl/debian/copyright Tue Sep 22 02:08:26 2009
@@ -5,39 +5,33 @@
 Upstream-Name: p5-Palm
 
 Files: *
-Copyright: Copyright (C) 1999-2001, Andrew Arensburger <arensb at ooblick.com>
+Copyright: 1999-2001, Andrew Arensburger <arensb at ooblick.com>
 License: Artistic
 
 Files: lib/DateTime.pm
-Copyright: Copyright (C) 2001-2002, Alessandro Zummo <a.zummo at towertech.it>
+Copyright: 2001-2002, Alessandro Zummo <a.zummo at towertech.it>
 License: Artistic
 
 Files: lib/ZirePhoto.pm
-Copyright: Copyright (C) 2003, Alessandro Zummo.
+Copyright: 2003, Alessandro Zummo <a.zummo at towertech.it>
 License: Artistic
 
 Files: debian/*
-Copyright: 2000-2004 Bradley Marshall <brad at humbug.org.au>
-	   2003 Kenneth J. Pronovici <pronovic at debian.org>
-	   2006 Michael Ablassmeier <abi at debian.org>
-	   2008 Barry deFreese <bddebian at comcast.net>
-	   2008 gregor herrmann <gregoa at debian.org>
-	   2009 Tim Retout <tim at retout.co.uk>
+Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
+ 2009, Tim Retout <tim at retout.co.uk>
+ 2008, Barry deFreese <bddebian at comcast.net>
+ 2008, gregor herrmann <gregoa at debian.org>
+ 2006, Michael Ablassmeier <abi at debian.org>
+ 2003, Kenneth J. Pronovici <pronovic at debian.org>
+ 2000-2004, Bradley Marshall <bmarshal at pisoftware.com>
 License-Alias: Perl
 License: GPL-1+ | Artistic
 
 License: Artistic
- This program is free software; you can redistribute it and/or modify
- it under the terms of the Artistic License, a copy of which can be
- found with the Perl distribution.
- .
- This code is distributed in the hope that it will be useful, but
- WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the Artistic
- License for more details.
- .
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in /usr/share/common-licenses/Artistic
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the Artistic License, which comes with Perl.
+    On Debian GNU/Linux systems, the complete text of the Artistic License
+    can be found in `/usr/share/common-licenses/Artistic'
 
 License: GPL-1+
  This program is free software; you can redistribute it and/or modify

Modified: trunk/libpalm-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/debian/rules?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/debian/rules (original)
+++ trunk/libpalm-perl/debian/rules Tue Sep 22 02:08:26 2009
@@ -1,33 +1,4 @@
 #!/usr/bin/make -f
 
-USES_QUILT := $(shell if [ -f $(CURDIR)/debian/patches/series ]; then echo yes; else echo no; fi)
-ifeq ($(USES_QUILT),yes)
-	include /usr/share/quilt/quilt.make
-
-	PATCH_TARGET := $(QUILT_STAMPFN)
-	UNPATCH_TARGET := unpatch
-endif
-
-build: build-stamp
-build-stamp: $(PATCH_TARGET)
-	dh build
-	touch $@
-
-clean: $(UNPATCH_TARGET)
-	[ ! -f Makefile ] || touch Makefile
-	dh $@
-
-install: install-stamp
-install-stamp: build-stamp
-	dh install
-	touch $@
-
-binary-arch: install
-	dh $@
-
-binary-indep: install
-	dh $@
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build
+%:
+	dh --with quilt $@

Modified: trunk/libpalm-perl/lib/Address.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/Address.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/Address.pm (original)
+++ trunk/libpalm-perl/lib/Address.pm Tue Sep 22 02:08:26 2009
@@ -5,8 +5,6 @@
 #	Copyright (C) 1999, 2000, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: Address.pm,v 1.19 2002/11/07 14:11:42 arensb Exp $
 
 use strict;
 package Palm::Address;
@@ -18,7 +16,7 @@
 	%fieldMapBits );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.19 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @ISA = qw( Palm::StdAppInfo Palm::Raw );
 
@@ -677,9 +675,17 @@
 1;
 __END__
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/DateTime.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/DateTime.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/DateTime.pm (original)
+++ trunk/libpalm-perl/lib/DateTime.pm Tue Sep 22 02:08:26 2009
@@ -12,7 +12,6 @@
 #  dlptime	- PalmOS DlpDateTimeType (raw)
 #  datetime	- PalmOS DateTimeType (raw)	
 #  palmtime	- Decoded date/time
-#
 
 package Palm::DateTime;
 
@@ -20,9 +19,10 @@
 
 use Exporter;
 use POSIX;
+use vars qw($VERSION);
 
 # One liner, to allow MakeMaker to work.
-$Palm::DateTime::VERSION = do { my @r = (q$Revision: 1.4 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @Palm::DateTime::ISA = qw( Exporter );
 

Modified: trunk/libpalm-perl/lib/Datebook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/Datebook.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/Datebook.pm (original)
+++ trunk/libpalm-perl/lib/Datebook.pm Tue Sep 22 02:08:26 2009
@@ -1,12 +1,10 @@
 # Palm::Datebook.pm
 # 
-# Perl class for dealing with Palm DateBook databases. 
+# Perl class for dealing with Palm DateBook and Calendar databases. 
 #
 #	Copyright (C) 1999-2001, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: Datebook.pm,v 1.20 2003/10/10 23:19:58 azummo Exp $
 
 use strict;
 package Palm::Datebook;
@@ -16,14 +14,14 @@
 use vars qw( $VERSION @ISA );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.20 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @ISA = qw( Palm::StdAppInfo Palm::Raw );
 
 
 =head1 NAME
 
-Palm::Datebook - Handler for Palm DateBook databases.
+Palm::Datebook - Handler for Palm DateBook and Calendar databases.
 
 =head1 SYNOPSIS
 
@@ -32,7 +30,7 @@
 =head1 DESCRIPTION
 
 The Datebook PDB handler is a helper class for the Palm::PDB package.
-It parses DateBook databases.
+It parses DateBook and Calendar databases.
 
 =head2 AppInfo block
 
@@ -189,6 +187,10 @@
 
 A text string, the description of the event.
 
+    $record->{location}
+
+A text string, the location (if any) of the event (Calendar database only).
+
     $record->{note}
 
 A text string, the note (if any) attached to the event.
@@ -202,15 +204,18 @@
 {
 	&Palm::PDB::RegisterPDBHandlers(__PACKAGE__,
 		[ "date", "DATA" ],
+		[ "PDat", "DATA" ],
 		);
 }
 
 =head2 new
 
   $pdb = new Palm::Datebook;
+  $pdb = new Palm::Datebook({app => 'Calendar'});
 
 Create a new PDB, initialized with the various Palm::Datebook fields
-and an empty record list.
+and an empty record list. Creates a Datebook PDB by default.
+Specify the app parameter as 'Calendar' to create a Calendar PDB.
 
 =cut
 #'
@@ -220,13 +225,19 @@
 sub new
 {
 	my $classname	= shift;
+	my $params    = $_[0] || {};
 	my $self	= $classname->SUPER::new(@_);
 			# Create a generic PDB. No need to rebless it,
 			# though.
 
-	$self->{name} = "DatebookDB";	# Default
-	$self->{creator} = "date";
-	$self->{type} = "DATA";
+	if ($params->{app} eq 'Calendar' || $self->{creator} eq 'PDat') {
+		$self->{name} ||= "CalendarDB-PDat";	# Default
+		$self->{creator} = "PDat" if $self->{creator} eq "\0\0\0\0";
+	} else {
+		$self->{name} ||= "DatebookDB";	# Default
+		$self->{creator} = "date" if $self->{creator} eq "\0\0\0\0";
+	}
+	$self->{type} = "DATA" if $self->{type} eq "\0\0\0\0";
 	$self->{attributes}{resource} = 0;
 				# The PDB is not a resource database by
 				# default, but it's worth emphasizing,
@@ -281,6 +292,7 @@
 
 	$retval->{description} = "";
 	$retval->{note} = undef;
+	$retval->{location} = undef;
 
 	return $retval;
 }
@@ -336,6 +348,7 @@
 	my $self = shift;
 	my %record = @_;
 	my $data;
+	my $iscal = ($self->{creator} eq 'PDat');
 
 	delete $record{offset};	# This is useless
 
@@ -377,14 +390,15 @@
 	$record{year} = $year;
 
 	# Flags
-	my $when_changed	= ($flags & 0x8000 ? 1 : 0);
-	my $have_alarm		= ($flags & 0x4000 ? 1 : 0);
-	my $have_repeat		= ($flags & 0x2000 ? 1 : 0);
-	my $have_note		= ($flags & 0x1000 ? 1 : 0);
-	my $have_exceptions	= ($flags & 0x0800 ? 1 : 0);
+	my $when_changed	    = ($flags & 0x8000 ? 1 : 0);
+	my $have_alarm		    = ($flags & 0x4000 ? 1 : 0);
+	my $have_repeat		    = ($flags & 0x2000 ? 1 : 0);
+	my $have_note		    = ($flags & 0x1000 ? 1 : 0);
+	my $have_exceptions	    = ($flags & 0x0800 ? 1 : 0);
 	my $have_description	= ($flags & 0x0400 ? 1 : 0);
-
-	$record{other_flags} = $flags & 0x03ff;
+	my $have_location	    = (($iscal && ($flags & 0x0200)) ? 1 : 0);
+
+	$record{other_flags} = $flags & ($iscal ? 0x01ff : 0x03ff);
 
 	if ($when_changed)
 	{
@@ -517,6 +531,16 @@
 		$record{note} = $note;
 	}
 
+	if ($have_location)
+	{
+		my $location;
+
+		$location = shift @fields;
+		$record{location} = $location;
+	}
+
+	$record{other_data}= join ("\0", @fields) if @fields;
+
 	delete $record{data};
 
 	return \%record;
@@ -530,6 +554,7 @@
 
 	my $rawDate;
 	my $flags;
+	my $iscal = ($self->{creator} eq 'PDat');
 
 	$rawDate = ($record->{day}            & 0x001f) |
 		  (($record->{month}          & 0x000f) << 5) |
@@ -543,6 +568,7 @@
 #  	$flags |= 0x1000 if $record->{note} ne "";
 #  	$flags |= 0x0800 if $#{$record->{exceptions}} >= 0;
 #  	$flags |= 0x0400 if $record->{description} ne "";
+#  	$flags |= 0x0200 if $iscal && $record->{location} ne "";
 
 #  	$retval = pack "C C C C n n",
 #  		$record->{start_hour},
@@ -665,6 +691,14 @@
 		$note = $record->{note} . "\0";
 	}
 
+	my $location = undef;
+
+	if ($iscal && defined($record->{location}) && ($record->{location} ne ""))
+	{
+		$flags |= 0x0200;
+		$location = $record->{location} . "\0";
+	}
+
 	$retval = pack "C C C C n n",
 		$record->{start_hour},
 		$record->{start_minute},
@@ -673,11 +707,12 @@
 		$rawDate,
 		$flags;
 
-	$retval .= $alarm	if defined($alarm);
-	$retval .= $repeat	if defined($repeat);
+	$retval .= $alarm	    if defined($alarm);
+	$retval .= $repeat	    if defined($repeat);
 	$retval .= $exceptions	if defined($exceptions);
 	$retval .= $description	if defined($description);
-	$retval .= $note	if defined($note);
+	$retval .= $note        if defined($note);
+	$retval .= $location	if defined($location);
 
 	return $retval;
 }
@@ -685,9 +720,17 @@
 1;
 __END__
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/Mail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/Mail.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/Mail.pm (original)
+++ trunk/libpalm-perl/lib/Mail.pm Tue Sep 22 02:08:26 2009
@@ -5,8 +5,6 @@
 #	Copyright (C) 1999, 2000, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: Mail.pm,v 1.17 2003/06/26 19:21:09 azummo Exp $
 
 use strict;
 package Palm::Mail;
@@ -15,7 +13,7 @@
 use vars qw( $VERSION @ISA );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.17 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @ISA = qw( Palm::StdAppInfo Palm::Raw );
 
@@ -425,9 +423,17 @@
 1;
 __END__
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/Memo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/Memo.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/Memo.pm (original)
+++ trunk/libpalm-perl/lib/Memo.pm Tue Sep 22 02:08:26 2009
@@ -5,8 +5,6 @@
 #	Copyright (C) 1999, 2000, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: Memo.pm,v 1.13 2002/11/07 14:12:05 arensb Exp $
 
 use strict;
 package Palm::Memo;
@@ -15,7 +13,7 @@
 use vars qw( $VERSION @ISA );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.13 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @ISA = qw( Palm::StdAppInfo Palm::Raw );
 
@@ -203,9 +201,17 @@
 1;
 __END__
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/PDB.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/PDB.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/PDB.pm (original)
+++ trunk/libpalm-perl/lib/PDB.pm Tue Sep 22 02:08:26 2009
@@ -5,8 +5,6 @@
 #	Copyright (C) 1999, 2000, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: PDB.pm,v 1.36 2005/03/09 04:30:41 christophe Exp $
 
 # A Palm database file (either .pdb or .prc) has the following overall
 # structure:
@@ -25,7 +23,7 @@
 use vars qw( $VERSION %PDBHandlers %PRCHandlers );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.36 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 =head1 NAME
 
@@ -1859,9 +1857,17 @@
 
 It may be possible to parse sort blocks further.
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/Palm.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/Palm.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/Palm.pm (original)
+++ trunk/libpalm-perl/lib/Palm.pm Tue Sep 22 02:08:26 2009
@@ -5,8 +5,6 @@
 #	Copyright (C) 1999, 2000, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: Palm.pm,v 1.1 2005/03/09 03:51:22 christophe Exp $
 
 use strict;
 use warnings;
@@ -14,7 +12,7 @@
 use vars qw( $VERSION );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 =head1 NAME
 
@@ -76,9 +74,17 @@
 	return $name;
 }
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/Raw.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/Raw.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/Raw.pm (original)
+++ trunk/libpalm-perl/lib/Raw.pm Tue Sep 22 02:08:26 2009
@@ -11,8 +11,6 @@
 #	Copyright (C) 1999, 2000, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: Raw.pm,v 1.11 2005/03/29 02:46:03 arensb Exp $
 
 use strict;
 package Palm::Raw;
@@ -20,7 +18,7 @@
 use vars qw( $VERSION @ISA );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.11 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @ISA = qw( Palm::PDB );
 
@@ -180,9 +178,17 @@
 1;
 __END__
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/StdAppInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/StdAppInfo.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/StdAppInfo.pm (original)
+++ trunk/libpalm-perl/lib/StdAppInfo.pm Tue Sep 22 02:08:26 2009
@@ -5,8 +5,6 @@
 #	Copyright (C) 1999, 2000, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: StdAppInfo.pm,v 1.20 2004/07/07 02:36:16 christophe Exp $
 
 use strict;
 package Palm::StdAppInfo;
@@ -17,7 +15,7 @@
 	# $error acts like $! in that it reports the error that occurred
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.20 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @ISA = qw( Palm::Raw );
 
@@ -619,9 +617,17 @@
 1;
 __END__
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/ToDo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/ToDo.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/ToDo.pm (original)
+++ trunk/libpalm-perl/lib/ToDo.pm Tue Sep 22 02:08:26 2009
@@ -5,8 +5,6 @@
 #	Copyright (C) 1999, 2000, Andrew Arensburger.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: ToDo.pm,v 1.12 2002/11/07 14:12:10 arensb Exp $
 
 # XXX - Bug: apparently, the first ToDo item shows up with a category
 # of "unfiled"
@@ -19,7 +17,7 @@
 use vars qw( $VERSION @ISA );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.12 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @ISA = qw( Palm::StdAppInfo Palm::Raw );
 
@@ -299,9 +297,17 @@
 1;
 __END__
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Andrew Arensburger E<lt>arensb at ooblick.comE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 

Modified: trunk/libpalm-perl/lib/ZirePhoto.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpalm-perl/lib/ZirePhoto.pm?rev=44600&op=diff
==============================================================================
--- trunk/libpalm-perl/lib/ZirePhoto.pm (original)
+++ trunk/libpalm-perl/lib/ZirePhoto.pm Tue Sep 22 02:08:26 2009
@@ -5,9 +5,6 @@
 #	Copyright (C) 2003, Alessandro Zummo.
 #	You may distribute this file under the terms of the Artistic
 #	License, as specified in the README file.
-#
-# $Id: ZirePhoto.pm,v 1.9 2005/07/30 01:37:44 christophe Exp $
-
 
 use strict;
 package Palm::ZirePhoto;
@@ -17,7 +14,7 @@
 use vars qw( $VERSION @ISA );
 
 # One liner, to allow MakeMaker to work.
-$VERSION = do { my @r = (q$Revision: 1.9 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = '1.011';
 
 @ISA = qw( Palm::StdAppInfo Palm::Raw );
 
@@ -233,9 +230,17 @@
 
 __END__
 
+=head1 SOURCE CONTROL
+
+The source is in Github:
+
+	http://github.com/briandfoy/p5-Palm/tree/master
+	
 =head1 AUTHOR
 
-Alessandro Zummo E<lt>a.zummo at towertech.itE<gt>
+Alessandro Zummo, C<< <a.zummo at towertech.it> >>
+
+Currently maintained by brian d foy, C<< <bdfoy at cpan.org> >>
 
 =head1 SEE ALSO
 




More information about the Pkg-perl-cvs-commits mailing list