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 [http://slashdot.org/article.pl?sid=04/05/21/2020246] on Slashdot that SPF and Microsofts email Caller-ID scheme may become merged. We need to pay attention to this..
----
[Category Acronym]