rpms/perl-Mail-SPF-Query/devel MSQ-fallback.patch, NONE, 1.1 perl-Mail-SPF-Query.spec, NONE, 1.1 use-sys-hostname.patch, NONE, 1.1 .cvsignore, 1.1, 1.2 sources, 1.1, 1.2

[Steven Pritchard (steve)]

Author: steve

Update of /cvs/extras/rpms/perl-Mail-SPF-Query/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv18401/devel

Modified Files:
	.cvsignore sources 
Added Files:
	MSQ-fallback.patch perl-Mail-SPF-Query.spec 
	use-sys-hostname.patch 
Log Message:
auto-import perl-Mail-SPF-Query-1.997-4 on branch devel from perl-Mail-SPF-Query-1.997-4.src.rpm

MSQ-fallback.patch:

--- NEW FILE MSQ-fallback.patch ---
--- Mail-SPF-Query-1.997/Query.pm	2004-04-26 07:02:17.000000000 +0100
+++ Mail-SPF-Query-1.997/Query.pm	2004-06-29 13:45:26.624665341 +0100
@@ -1727,6 +1727,17 @@
 	@txt = $query->myquery($current_domain, "TXT", "char_str_list");
 	$query->debuglog("  DirectiveSet->new(): TXT query on $current_domain returned error=$query->{error}, last_dns_error=$query->{last_dns_error}");
 
+	# check for non-SPF TXT records
+	my $spf_flag = 0;
+	foreach (@txt) {
+	  if (/^v=spf1\s/) {
+	    $spf_flag = 1;
+	    last;
+	  }
+	}
+	if (! $spf_flag) {
+	  @txt = ();
+	}
 	if ($query->{error} || $query->{last_dns_error} eq 'NXDOMAIN' || ! @txt) {
 	  # try the fallbacks.
 	  $query->debuglog("  DirectiveSet->new(): will try fallbacks.");


--- NEW FILE perl-Mail-SPF-Query.spec ---
%{!?perl_vendorlib: %define perl_vendorlib %(eval "`%{__perl} -V:installvendorlib`"; echo $installvendorlib)}

Name:           perl-Mail-SPF-Query
Version:        1.997
Release:        4%{?dist}
Summary:        Mail::SPF::Query Perl module
License:        GPL or Artistic
Group:          Development/Libraries
URL:            http://search.cpan.org/dist/Mail-SPF-Query/
Source0:        http://www.cpan.org/modules/by-module/Mail/Mail-SPF-Query-1.997.tar.gz
# From Paul Howarth
Patch0:         MSQ-fallback.patch
Patch1:         use-sys-hostname.patch
BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch:      noarch
Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
Requires:       perl(Net::DNS) >= 0.46, perl(Net::CIDR::Lite) >= 0.15

%{?_with_check:BuildRequires: perl(Test::Pod::Coverage)}
%{?_with_check:BuildRequires: perl(Net::DNS) >= 0.46}
%{?_with_check:BuildRequires: perl(Net::CIDR::Lite) >= 0.15}

%description
The SPF protocol relies on sender domains to publish a DNS whitelist of
their designated outbound mailers.  Given an envelope sender,
Mail::SPF::Query determines the legitimacy of an SMTP client IP.

%prep
%setup -q -n Mail-SPF-Query-%{version}
%patch0 -p1
%patch1 -p1

%build
%{__perl} Makefile.PL INSTALLDIRS=vendor
%{__perl} -pi -e 's/^\tLD_RUN_PATH=[^\s]+\s*/\t/' Makefile
make %{?_smp_mflags}

%install
rm -rf $RPM_BUILD_ROOT

make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT

find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
find $RPM_BUILD_ROOT -type d -depth -exec rmdir {} 2>/dev/null \;

chmod -R u+rwX,go+rX,go-w $RPM_BUILD_ROOT/*

# Don't include the spfd and spfquery scripts in _bindir.
rm -f $RPM_BUILD_ROOT%{_bindir}/spfd $RPM_BUILD_ROOT%{_bindir}/spfquery

# Does a lot of external DNS lookups.
%check || :
%{?_with_check:make test}

%clean
rm -rf $RPM_BUILD_ROOT

%files
%defattr(-,root,root,-)
%doc Changes README sample spfd spfquery
%{perl_vendorlib}/*
%{_mandir}/man3/*

%changelog
* Mon Aug 01 2005 Steven Pritchard <steve at kspei.com> 1.997-4
- Add some BuildRequires (suggested by Paul Howarth)

* Thu Jul 21 2005 Steven Pritchard <steve at kspei.com> 1.997-3
- Force use of Sys::Hostname (instead of Sys::Hostname::Long)

* Mon Jul 18 2005 Steven Pritchard <steve at kspei.com> 1.997-2
- Include MSQ-fallback.patch from Paul Howarth
- Run make test when built with --with check
- Include the spfd and spfquery scripts as %%doc

* Fri Jul 15 2005 Steven Pritchard <steve at kspei.com> 1.997-1
- Specfile autogenerated.

use-sys-hostname.patch:

--- NEW FILE use-sys-hostname.patch ---
--- Mail-SPF-Query-1.997.orig/Query.pm	2005-07-21 15:24:38.000000000 -0500
+++ Mail-SPF-Query-1.997/Query.pm	2005-07-21 15:25:32.000000000 -0500
@@ -325,8 +325,7 @@
 
   if (not $query->{myhostname}) {
     use Sys::Hostname; 
-    eval { require Sys::Hostname::Long };
-    $query->{myhostname} = $@ ? hostname() : Sys::Hostname::Long::hostname_long();
+    $query->{myhostname} = hostname();
   }
 
   $query->{myhostname} ||= "localhost";


Index: .cvsignore
===================================================================
RCS file: /cvs/extras/rpms/perl-Mail-SPF-Query/devel/.cvsignore,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- .cvsignore	4 Aug 2005 15:59:11 -0000	1.1
+++ .cvsignore	4 Aug 2005 15:59:58 -0000	1.2
@@ -0,0 +1 @@
+Mail-SPF-Query-1.997.tar.gz


Index: sources
===================================================================
RCS file: /cvs/extras/rpms/perl-Mail-SPF-Query/devel/sources,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- sources	4 Aug 2005 15:59:11 -0000	1.1
+++ sources	4 Aug 2005 15:59:58 -0000	1.2
@@ -0,0 +1 @@
+9e110d00520e0fe174c25c0734a8baf6  Mail-SPF-Query-1.997.tar.gz