r25807 - in /trunk/libemail-messageid-perl: Changes META.yml debian/changelog debian/compat debian/control debian/copyright debian/docs debian/rules lib/Email/MessageID.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Mon Oct 6 17:12:06 UTC 2008
Author: ansgar-guest
Date: Mon Oct 6 17:12:03 2008
New Revision: 25807
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25807
Log:
* New upstream release.
* Refresh debian/rules for debhelper 7.
* Convert debian/copyright to proposed machine-readable format.
* debian/control: Mention module name in description.
* Do not install `README' (same contents as man page)
* Do not install upstream changelog a second time as `Changes'
* Add myself to Uploaders.
Removed:
trunk/libemail-messageid-perl/debian/docs
Modified:
trunk/libemail-messageid-perl/Changes
trunk/libemail-messageid-perl/META.yml
trunk/libemail-messageid-perl/debian/changelog
trunk/libemail-messageid-perl/debian/compat
trunk/libemail-messageid-perl/debian/control
trunk/libemail-messageid-perl/debian/copyright
trunk/libemail-messageid-perl/debian/rules
trunk/libemail-messageid-perl/lib/Email/MessageID.pm
Modified: trunk/libemail-messageid-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/Changes?rev=25807&op=diff
==============================================================================
--- trunk/libemail-messageid-perl/Changes (original)
+++ trunk/libemail-messageid-perl/Changes Mon Oct 6 17:12:03 2008
@@ -1,3 +1,8 @@
+1.400 2008-10-02
+ return MessageID objects, not Email::Address objects
+ this lets us add in_brackets
+ use Sys::Hostname::Long if available
+
1.351 2007-03-22
packaging improvements
Modified: trunk/libemail-messageid-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/META.yml?rev=25807&op=diff
==============================================================================
--- trunk/libemail-messageid-perl/META.yml (original)
+++ trunk/libemail-messageid-perl/META.yml Mon Oct 6 17:12:03 2008
@@ -1,16 +1,16 @@
--- #YAML:1.0
name: Email-MessageID
-version: 1.351
+version: 1.400
abstract: Generate world unique message-ids
license: perl
-generated_by: ExtUtils::MakeMaker version 6.32
+author:
+ - Casey West <casey at geeknest.com>
+generated_by: ExtUtils::MakeMaker version 6.44
distribution_type: module
requires:
Email::Address: 1.80
Sys::Hostname: 1.1
Test::More: 0.47
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
-author:
- - Casey West <casey at geeknest.com>
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: trunk/libemail-messageid-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/debian/changelog?rev=25807&op=diff
==============================================================================
--- trunk/libemail-messageid-perl/debian/changelog (original)
+++ trunk/libemail-messageid-perl/debian/changelog Mon Oct 6 17:12:03 2008
@@ -1,3 +1,15 @@
+libemail-messageid-perl (1.400-1) unstable; urgency=low
+
+ * New upstream release.
+ * Refresh debian/rules for debhelper 7.
+ * Convert debian/copyright to proposed machine-readable format.
+ * debian/control: Mention module name in description.
+ * Do not install `README' (same contents as man page)
+ * Do not install upstream changelog a second time as `Changes'
+ * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Mon, 06 Oct 2008 19:11:42 +0200
+
libemail-messageid-perl (1.351-3) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libemail-messageid-perl/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/debian/compat?rev=25807&op=diff
==============================================================================
--- trunk/libemail-messageid-perl/debian/compat (original)
+++ trunk/libemail-messageid-perl/debian/compat Mon Oct 6 17:12:03 2008
@@ -1,1 +1,1 @@
-6
+7
Modified: trunk/libemail-messageid-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/debian/control?rev=25807&op=diff
==============================================================================
--- trunk/libemail-messageid-perl/debian/control (original)
+++ trunk/libemail-messageid-perl/debian/control Mon Oct 6 17:12:03 2008
@@ -1,19 +1,20 @@
Source: libemail-messageid-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 6)
+Build-Depends: debhelper (>= 7)
Build-Depends-Indep: perl (>= 5.8.0), libemail-address-perl,
libtest-pod-perl, libtest-pod-coverage-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Ernesto Hernández-Novich (USB) <emhn at usb.ve>
+Uploaders: Ernesto Hernández-Novich (USB) <emhn at usb.ve>,
+ Ansgar Burchardt <ansgar at 43-1.org>
Homepage: http://search.cpan.org/dist/Email-MessageID/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libemail-messageid-perl/
Vcs-Browser: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/
-Standards-Version: 3.7.3
+Standards-Version: 3.8.0
Package: libemail-messageid-perl
Architecture: all
Depends: ${perl:Depends}, libemail-address-perl
Description: A Perl library for unique mail Message-ID generation
Message-IDs are optional, but highly recommended headers that identify a
- message uniquely. This library generates unique Message-IDs.
+ message uniquely. The Email::MessageID module generates unique Message-IDs.
Modified: trunk/libemail-messageid-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/debian/copyright?rev=25807&op=diff
==============================================================================
--- trunk/libemail-messageid-perl/debian/copyright (original)
+++ trunk/libemail-messageid-perl/debian/copyright Mon Oct 6 17:12:03 2008
@@ -1,21 +1,26 @@
-This package was debianized by Ernesto Hernández-Novich <emhn at telcel.net.ve>
-on Sun, 04 Dec 2005 12:05:25 -0400
+Format-Specification: http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=228
+Upstream-Name: Email-MessageID
+Upstream-Maintainer: Ricardo SIGNES
+Upstream-Source: http://search.cpan.org/dist/Email-MessageID/
-It was downloaded from http://search.cpan.org/dist/Email-MessageID/
+Files: *
+Copyright: © 2004, Casey West <casey at geeknest.com>
+License: GPL-1+ | Artistic
+ This module is free software; you can redistribute it and/or modify
+ it under the same terms as Perl itself.
+ .
+ Perl is distributed under your choice of the GNU General Public License or
+ the Artistic License. On Debian GNU/Linux systems, the complete text of the
+ GNU General Public License can be found in `/usr/share/common-licenses/GPL'
+ and the Artistic Licence in `/usr/share/common-licenses/Artistic'.
-Upstream Author:
+Files: debian/*
+Copyright:
+ © 2005-2008, Ernesto Hernández-Novich <emhn at usb.ve>
+ © 2008, Damyan Ivanov
+ © 2008, gregor herrmann
+ © 2008, Ansgar Burchardt <ansgar at 43-1.org>
+License: GPL-1+ | Artistic
+ It is assumed that all contributors put their work under the same license
+ as the module itself.
-Casey West, <casey at geeknest.com>
-
-
-Copyright (c) 2004 Casey West. All rights reserved.
-
-This module is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-Perl is distributed under your choice of the GNU General Public License or
-the Artistic License.
-
-The complete text of the GNU General Public License can be found in
-/usr/share/common-licenses/GPL and the Artistic Licence can be found
-in /usr/share/common-licenses/Artistic.
Modified: trunk/libemail-messageid-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/debian/rules?rev=25807&op=diff
==============================================================================
--- trunk/libemail-messageid-perl/debian/rules (original)
+++ trunk/libemail-messageid-perl/debian/rules Mon Oct 6 17:12:03 2008
@@ -1,65 +1,23 @@
#!/usr/bin/make -f
-# This debian/rules file is provided as a template for normal perl
-# packages. It was created by Marc Brockschmidt <marc at dch-faq.de> for
-# the Debian Perl Group (http://pkg-perl.alioth.debian.org/) but may
-# be used freely wherever it is useful.
-
-# Uncomment this to turn on verbose mode.
-#export DH_VERBOSE=1
-
-# If set to a true value then MakeMaker's prompt function will
-# always return the default without waiting for user input.
-export PERL_MM_USE_DEFAULT=1
-
-PACKAGE=$(shell dh_listpackages)
-
-ifndef PERL
-PERL = /usr/bin/perl
-endif
-
-TMP =$(CURDIR)/debian/$(PACKAGE)
build: build-stamp
build-stamp:
- dh_testdir
- $(PERL) Makefile.PL INSTALLDIRS=vendor
- $(MAKE)
- $(MAKE) test
- touch build-stamp
+ dh build
+ touch $@
clean:
- dh_testdir
- dh_testroot
- dh_clean build-stamp install-stamp
- [ ! -f Makefile ] || $(MAKE) realclean
+ dh $@
install: install-stamp
install-stamp: build-stamp
- dh_testdir
- dh_testroot
- dh_clean -k
- $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr
- [ ! -d $(TMP)/usr/lib/perl5 ] || rmdir --ignore-fail-on-non-empty --parents --verbose $(TMP)/usr/lib/perl5
- touch install-stamp
+ dh install
+ touch $@
binary-arch:
-# We have nothing to do by default.
-binary-indep: build install
- dh_testdir
- dh_testroot
- dh_installdocs
- dh_installchangelogs Changes
- dh_perl
- dh_compress
- dh_fixperms
- dh_installdeb
- dh_gencontrol
- dh_md5sums
- dh_builddeb
+binary-indep: install
+ dh $@
-source diff:
- @echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
+binary: binary-arch binary-indep
-binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary
+.PHONY: binary binary-arch binary-indep install clean build
Modified: trunk/libemail-messageid-perl/lib/Email/MessageID.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-messageid-perl/lib/Email/MessageID.pm?rev=25807&op=diff
==============================================================================
--- trunk/libemail-messageid-perl/lib/Email/MessageID.pm (original)
+++ trunk/libemail-messageid-perl/lib/Email/MessageID.pm Mon Oct 6 17:12:03 2008
@@ -1,10 +1,9 @@
+use strict;
+use warnings;
package Email::MessageID;
-use strict;
+use base 'Email::Address';
-use vars qw[$VERSION];
-$VERSION = '1.351';
-
-use Email::Address;
+our $VERSION = '1.400';
=head1 NAME
@@ -23,11 +22,9 @@
Message-ids are optional, but highly recommended, headers that identify a
message uniquely. This software generates a unique message-id.
-=head2 Methods
+=head1 METHODS
-=over 4
-
-=item new
+=head2 new
my $mid = Email::MessageID->new;
@@ -56,25 +53,33 @@
my $mid = join '@', @args{qw[user host]};
- return Email::Address->new(undef, $mid);
+ my $addr = Email::Address->new(undef, $mid);
+
+ bless $addr => $class;
}
-=item create_host
+=head2 create_host
- my $domain_part = Email::Address->create_host;
+ my $domain_part = Email::MessageID->create_host;
This method returns the domain part of the message-id.
=cut
+my $_SYS_HOSTNAME_LONG;
sub create_host {
- require Sys::Hostname;
- return Sys::Hostname::hostname();
+ unless (defined $_SYS_HOSTNAME_LONG) {
+ $_SYS_HOSTNAME_LONG = (eval { require Sys::Hostname::Long; 1 }) || 0;
+ require Sys::Hostname unless $_SYS_HOSTNAME_LONG;
+ }
+
+ return $_SYS_HOSTNAME_LONG ? Sys::Hostname::Long::hostname()
+ : Sys::Hostname::hostname();
}
-=item create_user
+=head2 create_user
- my $local_part = Email::Address->create_user;
+ my $local_part = Email::MessageID->create_user;
This method returns a unique local part for the message-id. It includes some
random data and some predictable data.
@@ -97,13 +102,30 @@
return $user;
}
+=head2 in_brackets
+
+The Message-Id header must start and end with angle brackets. This is a common
+mistake:
+
+ header => [
+ ...
+ 'Message-Id' => Email::MessageID->new->as_string,
+ ],
+
+Instead, use C<in_brackets> to get the string inside angle brackets.
+
+=cut
+
+sub in_brackets {
+ my ($self) = @_;
+ return sprintf '<%s>', $self->as_string;
+}
+
1;
__END__
=pod
-
-=back
=head1 SEE ALSO
More information about the Pkg-perl-cvs-commits
mailing list