r2240 - in packages/libmail-spf-query-perl/trunk: . debian
lib/Mail/SPF
Julian Mehnle
jmehnle-guest at costa.debian.org
Sun Feb 26 23:28:17 UTC 2006
Author: jmehnle-guest
Date: 2006-02-26 23:28:16 +0000 (Sun, 26 Feb 2006)
New Revision: 2240
Modified:
packages/libmail-spf-query-perl/trunk/CHANGES
packages/libmail-spf-query-perl/trunk/MANIFEST
packages/libmail-spf-query-perl/trunk/META.yml
packages/libmail-spf-query-perl/trunk/README
packages/libmail-spf-query-perl/trunk/debian/changelog
packages/libmail-spf-query-perl/trunk/debian/watch
packages/libmail-spf-query-perl/trunk/lib/Mail/SPF/Query.pm
Log:
packages/libmail-spf-query-perl/trunk
* Upgraded to 1.999.1 upstream release.
Modified: packages/libmail-spf-query-perl/trunk/CHANGES
===================================================================
--- packages/libmail-spf-query-perl/trunk/CHANGES 2006-02-26 23:09:37 UTC (rev 2239)
+++ packages/libmail-spf-query-perl/trunk/CHANGES 2006-02-26 23:28:16 UTC (rev 2240)
@@ -4,6 +4,18 @@
# ! = Changed something significant, or removed a feature
# * = Fixed a bug, or made a minor improvement
+--- 1.999.1 (2006-02-26 18:00)
+
+ Mail::SPF::Query:
+ * Do not use \p{} named properties in the "a" and "mx" mechanisms' argument
+ validation code, since Perl 5.6 requires (flaky) "use utf8" for them to
+ work, and [a-z]/[a-z0-9] should work just as well (closes rt.cpan.org bug
+ #17815).
+ * Some minor documentation formatting improvements.
+
+ Debian:
+ + Added watch file.
+
--- 1.999 (2006-02-07 00:00)
Mail::SPF::Query:
@@ -216,5 +228,5 @@
* First public release.
-# $Id: CHANGES 2105 2006-02-09 19:05:02Z jmehnle-guest $
+# $Id: CHANGES 144 2006-02-26 18:01:35Z julian $
# vim:tw=79 syn=changelog
Modified: packages/libmail-spf-query-perl/trunk/MANIFEST
===================================================================
--- packages/libmail-spf-query-perl/trunk/MANIFEST 2006-02-26 23:09:37 UTC (rev 2239)
+++ packages/libmail-spf-query-perl/trunk/MANIFEST 2006-02-26 23:28:16 UTC (rev 2240)
@@ -6,6 +6,7 @@
debian/control
debian/copyright
debian/rules
+debian/watch
examples/exim-acl
examples/postfix-policyd-spf
examples/README
Modified: packages/libmail-spf-query-perl/trunk/META.yml
===================================================================
--- packages/libmail-spf-query-perl/trunk/META.yml 2006-02-26 23:09:37 UTC (rev 2239)
+++ packages/libmail-spf-query-perl/trunk/META.yml 2006-02-26 23:28:16 UTC (rev 2240)
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Mail-SPF-Query
-version: 1.999
+version: 1.999.1
version_from: lib/Mail/SPF/Query.pm
installdirs: site
requires:
@@ -11,4 +11,4 @@
URI::Escape: 0
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: packages/libmail-spf-query-perl/trunk/README
===================================================================
--- packages/libmail-spf-query-perl/trunk/README 2006-02-26 23:09:37 UTC (rev 2239)
+++ packages/libmail-spf-query-perl/trunk/README 2006-02-26 23:28:16 UTC (rev 2240)
@@ -1,5 +1,5 @@
-Mail::SPF::Query 1.999
-======================
+Mail::SPF::Query 1.999.1
+========================
The SPF protocol relies on sender domains to publish a DNS whitelist of their
designated outbound mailers. Given an envelope sender, Mail::SPF::Query
Modified: packages/libmail-spf-query-perl/trunk/debian/changelog
===================================================================
--- packages/libmail-spf-query-perl/trunk/debian/changelog 2006-02-26 23:09:37 UTC (rev 2239)
+++ packages/libmail-spf-query-perl/trunk/debian/changelog 2006-02-26 23:28:16 UTC (rev 2240)
@@ -1,9 +1,17 @@
-libmail-spf-query-perl (1:1.999-3) UNRELEASED; urgency=low
+libmail-spf-query-perl (1:1.999.1-1) unstable; urgency=low
- * NOT RELEASED YET
+ Debian:
+ * Added watch file.
- -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Sat, 25 Feb 2006 23:15:10 +0100
+ Mail::SPF::Query:
+ * Do not use \p{} named properties in the "a" and "mx" mechanisms' argument
+ validation code, since Perl 5.6 requires (flaky) "use utf8" for them to
+ work, and [a-z]/[a-z0-9] should work just as well (closes rt.cpan.org bug
+ #17815).
+ * Some minor documentation formatting improvements.
+ -- Julian Mehnle <julian at mehnle.net> Sun, 26 Feb 2006 23:20:08 +0000
+
libmail-spf-query-perl (1:1.999-2) unstable; urgency=low
* Just increase version without changes. Full source upload.
@@ -75,7 +83,7 @@
* Cleaned up code.
* Cleaned up comments in t/test.dat test data file.
- -- Julian Mehnle <julian at mehnle.net> Tue, 9 Feb 2006 18:57:24 +0000
+ -- Julian Mehnle <julian at mehnle.net> Thu, 9 Feb 2006 18:57:24 +0000
libmail-spf-query-perl (1.998-1) unstable; urgency=low
Modified: packages/libmail-spf-query-perl/trunk/debian/watch
===================================================================
--- packages/libmail-spf-query-perl/trunk/debian/watch 2006-02-26 23:09:37 UTC (rev 2239)
+++ packages/libmail-spf-query-perl/trunk/debian/watch 2006-02-26 23:28:16 UTC (rev 2240)
@@ -1,2 +1,2 @@
-version=2
+version=3
http://mirrors.kernel.org/cpan/modules/by-module/Mail/Mail-SPF-Query-([\d\.]+)\.tar\.gz
Modified: packages/libmail-spf-query-perl/trunk/lib/Mail/SPF/Query.pm
===================================================================
--- packages/libmail-spf-query-perl/trunk/lib/Mail/SPF/Query.pm 2006-02-26 23:09:37 UTC (rev 2239)
+++ packages/libmail-spf-query-perl/trunk/lib/Mail/SPF/Query.pm 2006-02-26 23:28:16 UTC (rev 2240)
@@ -11,7 +11,7 @@
# Contributions by various members of the SPF project <http://www.openspf.org>
# License: like Perl, i.e. GPL-2 and Artistic License
#
-# $Id: Query.pm 2105 2006-02-09 19:05:02Z jmehnle-guest $
+# $Id: Query.pm 143 2006-02-26 17:41:10Z julian $
# ----------------------------------------------------------
use 5.006;
@@ -20,8 +20,8 @@
use warnings;
no warnings 'uninitialized';
-our $VERSION = '1.999';
-$VERSION = eval($VERSION);
+our $VERSION = '1.999.1'; # fake version for EU::MM and CPAN
+$VERSION = '1.999001'; # real numerical version
use Sys::Hostname::Long;
use Net::DNS qw(); # by default it exports mx, which we define.
@@ -57,7 +57,7 @@
=head1 VERSION
-1.999
+1.999.1
=head1 SYNOPSIS
@@ -100,7 +100,9 @@
You can try out Mail::SPF::Query on the command line with the following
command:
- perl -MMail::SPF::Query -le 'print for Mail::SPF::Query->new(helo=>shift, ipv4=>shift, sender=>shift)->result' helohost.example.com 1.2.3.4 user at example.com
+ perl -MMail::SPF::Query -le 'print for Mail::SPF::Query->new(
+ helo => shift, ipv4 => shift, sender => shift)->result' \
+ helohost.example.com 1.2.3.4 user at example.com
=head1 BUGS
@@ -153,23 +155,23 @@
=head2 C<< Mail::SPF::Query->new() >>
my $query = eval { new Mail::SPF::Query (
- ip => '127.0.0.1',
- sender => 'foo at example.com',
- helo => 'host.example.com',
+ ip => '127.0.0.1',
+ sender => 'foo at example.com',
+ helo => 'host.example.com',
- # optional parameters:
- debug => 1, debuglog => sub { print STDERR "@_\n" },
- local => 'extra mechanisms',
- trusted => 1, # do trusted forwarder processing
- guess => 1, # do best_guess if no SPF record
+ # Optional parameters:
+ debug => 1, debuglog => sub { print STDERR "@_\n" },
+ local => 'extra mechanisms',
+ trusted => 1, # do trusted forwarder processing
+ guess => 1, # do best guess if no SPF record
default_explanation => 'Please see http://spf.my.isp/spferror.html for details',
- max_lookup_count => 10, # total number of SPF include/redirect queries
- sanitize => 0, # do not sanitize all returned strings
- myhostname => 'foo.example.com', # prepended to header_comment
- override => { 'example.net' => 'v=spf1 a mx -all',
- '*.example.net' => 'v=spf1 a mx -all' },
- fallback => { 'example.org' => 'v=spf1 a mx -all',
- '*.example.org' => 'v=spf1 a mx -all' }
+ max_lookup_count => 10, # total number of SPF includes/redirects
+ sanitize => 0, # do not sanitize all returned strings
+ myhostname => 'foo.example.com', # prepended to header_comment
+ override => { 'example.net' => 'v=spf1 a mx -all',
+ '*.example.net' => 'v=spf1 a mx -all' },
+ fallback => { 'example.org' => 'v=spf1 a mx -all',
+ '*.example.org' => 'v=spf1 a mx -all' }
) };
if ($@) { warn "bad input to Mail::SPF::Query: $@" }
@@ -1135,10 +1137,10 @@
my $original = $arg;
-# macro-char = ( '%{' alpha *digit [ 'r' ] *delim '}' )
-# / '%%'
-# / '%_'
-# / '%-'
+ # macro-char = ( '%{' alpha *digit [ 'r' ] *delim '}' )
+ # / '%%'
+ # / '%_'
+ # / '%-'
$arg =~ s/%([%_-]|{(\w[^}]*)})/$query->macro_substitute_item($1)/ge;
@@ -1348,7 +1350,7 @@
my $domain_to_use = $argument || $query->{domain};
# see code below in ip4 for more validation
- if ($domain_to_use !~ / \. \p{IsAlpha} (?: [\p{IsAlnum}-]* \p{IsAlnum} ) $ /x) {
+ if ($domain_to_use !~ / \. [a-z] (?: [a-z0-9-]* [a-z0-9] ) $ /ix) {
return ("unknown" => "bad argument to a: $domain_to_use not a valid FQDN");
}
@@ -1383,7 +1385,7 @@
my $domain_to_use = $argument || $query->{domain};
- if ($domain_to_use !~ / \. \p{IsAlpha} (?: [\p{IsAlnum}-]* \p{IsAlnum} ) $ /x) {
+ if ($domain_to_use !~ / \. [a-z] (?: [a-z0-9-]* [a-z0-9] ) $ /ix) {
return ("unknown" => "bad argument to mx: $domain_to_use not a valid FQDN");
}
@@ -1796,10 +1798,9 @@
=head1 AUTHORS
-Meng Weng Wong <mengwong+spf at pobox.com>
+Meng Weng Wong <mengwong+spf at pobox.com>, Philip Gladstone, Julian Mehnle
+<julian at mehnle.net>
-Philip Gladstone
-
=head1 SEE ALSO
About SPF: L<http://www.openspf.org>
More information about the Pkg-perl-cvs-commits
mailing list