Menu
▾
▴
#1104 SPF package is apparently dysfunctional
SPF package (version 1.1.1) does not work.
% package require spf
1.1.1
% spf::spf 1.2.3.4 example.com bob@example.com
none
% spf::SPF example.com
=spf1 ip4:127.1.28.7 -all
% package present dns
1.3.3
Applying the following diff to "spf.tcl" results in correct operations:
--- spf.tcl 2009-01-21 13:09:37.450402473 -0500
+++ spf.tcl.fixed 2009-01-21 12:57:04.043184940 -0500
@@ -579,7 +579,7 @@
set ndx [lsearch $res rdata]
incr ndx
if {$ndx != 0} {
- append txt [string range [lindex $res $ndx] 1 end]
+ append txt [lindex $res $ndx]
}
}
}
Correct operation output:
% ::spf::spf 1.2.3.4 example.com bob@example.com
-
% spf::SPF example.com
v=spf1 ip4:127.1.28.7 -all
You can use "oc9.org" as "example.com" in the above for testing