Sender Policy Framework
A DNS txt record based mail server verification system. Its homepage is at http://spf.pobox.com .
2004-05-19 SRIV If anyone has started working on a tcl implementation of SPF and would like to share, please place your code here. Otherwise, I'll be writing one and placing it here soon.
PT 2004-05-24: Depends what you mean. The tcllib dns module will accept SPF as a type (aliases to TXT). I guess you mean something more though? Anyway:
proc spf {domain} {
set tok [dns::resolve $domain -type SPF]
dns::wait $tok
if {[dns::status $tok] eq "ok"} {
eval [linsert [dns::result $tok] 0 array set d]
set result $d(rdata)
set code ok
} else {
set result [dns::error $tok]
set code error
}
dns::cleanup $tok
return -code $code $result
}2004-05-21 SRIV News today [L1 ] on Slashdot that SPF and Microsofts email Caller-ID scheme may become merged. We need to pay attention to this..