Author: julian
Date: 2006-03-09 09:59:11 -0600 (Thu, 09 Mar 2006)
New Revision: 14
Added:
takeup.png
Modified:
wizard.html
Log:
wizard.html
* Lowercase all hostnames returned from PTR lookups (not just when making use
of them) so case differences get ignored _everywhere_.
* Added VIM modeline for proper Mason syntax highlighting.
takeup.png
* Replaced by a symlink to images/takeup.png.
Added: takeup.png
Property changes on: takeup.png
___________________________________________________________________
Name: svn:special
+ *
Modified: wizard.html
===================================================================
--- wizard.html 2006-02-01 21:54:02 UTC (rev 13)
+++ wizard.html 2006-03-09 15:59:11 UTC (rev 14)
@@ -1,3 +1,4 @@
+<!-- vim:set syn=mason: -->
<%attr>
title => "The SPF Setup Wizard"
</%attr>
@@ -111,7 +112,7 @@
foreach my $a (@a) {
my @a_ptr;
- if (my $query = $res->query(join (".", reverse(split /\./, $a),
"in-addr.arpa"), "PTR")) { @a_ptr = map { $_->ptrdname } grep { $_->type eq
"PTR" } $query->answer }
+ if (my $query = $res->query(join (".", reverse(split /\./, $a),
"in-addr.arpa"), "PTR")) { @a_ptr = map { lc $_->ptrdname } grep { $_->type eq
"PTR" } $query->answer }
$a_ptrdname = $a_ptr[0] || undef;
@[EMAIL PROTECTED]@a_ptr;
}
@@ -122,7 +123,7 @@
foreach my $mx_ip (@a_for_mx) {
my @hostnames;
if (my $query = $res->query(join(".",(reverse split /\./, $mx_ip),
"in-addr.arpa"), "PTR")) {
- @hostnames = map { $_->ptrdname } grep { $_->type eq "PTR" }
$query->answer;
+ @hostnames = map { lc $_->ptrdname } grep { $_->type eq "PTR" }
$query->answer;
}
foreach my $ptrdname ($mx, @hostnames) { push @{$mxhosts{$ptrdname}},
$mx_ip; }
}
@@ -237,7 +238,7 @@
% if (@a == 0) {
<% $Mydomain %> has no IP addresses. This
declaration has no effect.
% } elsif (@a == 1) {
- <% $Mydomain %>'s IP address is <% $a[0] %><%
($a_ptrdname && lc $a_ptrdname ne $Mydomain) ? " ($a_ptrdname)" : "" %>.
+ <% $Mydomain %>'s IP address is <% $a[0] %><%
($a_ptrdname && $a_ptrdname ne $Mydomain) ? " ($a_ptrdname)" : "" %>.
<BR>That server is allowed to send mail from <%
$Mydomain %>.
% } else {
<% $Mydomain %>'s IP addresses are <& comma_and,
in=>[map { s/.$Mydomain//i; $_ } keys %a_ptrdnames] &>.
@@ -535,7 +536,7 @@
<% $Mydomain %> does not have an IP address.
% }
% elsif (@a == 1) {
- <% $Mydomain %>'s IP address is <% $a[0] %><% ($a_ptrdname && lc
$a_ptrdname ne $Mydomain) ? " ($a_ptrdname)" : "" %>.
+ <% $Mydomain %>'s IP address is <% $a[0] %><% ($a_ptrdname && $a_ptrdname
ne $Mydomain) ? " ($a_ptrdname)" : "" %>.
<BR>Does that server send mail from <% $Mydomain %>?
% }
% else {
-------
To unsubscribe, change your address, or temporarily deactivate your
subscription,
please go to http://v2.listbox.com/member/[EMAIL PROTECTED]
