r2238 - in
packages/libmail-spf-query-perl/branches/upstream/current: .
debian lib/Mail/SPF
Julian Mehnle
jmehnle-guest at costa.debian.org
Sun Feb 26 23:09:33 UTC 2006
Author: jmehnle-guest
Date: 2006-02-26 23:09:32 +0000 (Sun, 26 Feb 2006)
New Revision: 2238
Added:
packages/libmail-spf-query-perl/branches/upstream/current/debian/watch
Modified:
packages/libmail-spf-query-perl/branches/upstream/current/CHANGES
packages/libmail-spf-query-perl/branches/upstream/current/MANIFEST
packages/libmail-spf-query-perl/branches/upstream/current/META.yml
packages/libmail-spf-query-perl/branches/upstream/current/README
packages/libmail-spf-query-perl/branches/upstream/current/debian/changelog
packages/libmail-spf-query-perl/branches/upstream/current/lib/Mail/SPF/Query.pm
Log:
Load /tmp/tmp.6hQVLk/libmail-spf-query-perl-1.999.1 into
packages/libmail-spf-query-perl/branches/upstream/current.
Modified: packages/libmail-spf-query-perl/branches/upstream/current/CHANGES
===================================================================
--- packages/libmail-spf-query-perl/branches/upstream/current/CHANGES 2006-02-26 17:32:11 UTC (rev 2237)
+++ packages/libmail-spf-query-perl/branches/upstream/current/CHANGES 2006-02-26 23:09:32 UTC (rev 2238)
@@ -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:
Modified: packages/libmail-spf-query-perl/branches/upstream/current/MANIFEST
===================================================================
--- packages/libmail-spf-query-perl/branches/upstream/current/MANIFEST 2006-02-26 17:32:11 UTC (rev 2237)
+++ packages/libmail-spf-query-perl/branches/upstream/current/MANIFEST 2006-02-26 23:09:32 UTC (rev 2238)
@@ -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/branches/upstream/current/META.yml
===================================================================
--- packages/libmail-spf-query-perl/branches/upstream/current/META.yml 2006-02-26 17:32:11 UTC (rev 2237)
+++ packages/libmail-spf-query-perl/branches/upstream/current/META.yml 2006-02-26 23:09:32 UTC (rev 2238)
@@ -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/branches/upstream/current/README
===================================================================
--- packages/libmail-spf-query-perl/branches/upstream/current/README 2006-02-26 17:32:11 UTC (rev 2237)
+++ packages/libmail-spf-query-perl/branches/upstream/current/README 2006-02-26 23:09:32 UTC (rev 2238)
@@ -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/branches/upstream/current/debian/changelog
===================================================================
--- packages/libmail-spf-query-perl/branches/upstream/current/debian/changelog 2006-02-26 17:32:11 UTC (rev 2237)
+++ packages/libmail-spf-query-perl/branches/upstream/current/debian/changelog 2006-02-26 23:09:32 UTC (rev 2238)
@@ -1,3 +1,17 @@
+libmail-spf-query-perl (1.999.1) unstable; urgency=low
+
+ Debian:
+ * Added watch file.
+
+ 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 18:00:00 +0000
+
libmail-spf-query-perl (1.999) unstable; urgency=low
Debian:
Added: packages/libmail-spf-query-perl/branches/upstream/current/debian/watch
===================================================================
--- packages/libmail-spf-query-perl/branches/upstream/current/debian/watch 2006-02-26 17:32:11 UTC (rev 2237)
+++ packages/libmail-spf-query-perl/branches/upstream/current/debian/watch 2006-02-26 23:09:32 UTC (rev 2238)
@@ -0,0 +1,2 @@
+version=3
+http://mirrors.kernel.org/cpan/modules/by-module/Mail/Mail-SPF-Query-([\d\.]+)\.tar\.gz
Modified: packages/libmail-spf-query-perl/branches/upstream/current/lib/Mail/SPF/Query.pm
===================================================================
--- packages/libmail-spf-query-perl/branches/upstream/current/lib/Mail/SPF/Query.pm 2006-02-26 17:32:11 UTC (rev 2237)
+++ packages/libmail-spf-query-perl/branches/upstream/current/lib/Mail/SPF/Query.pm 2006-02-26 23:09:32 UTC (rev 2238)
@@ -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