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