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: 
[SRIV] Yep, but this is a good 1st step, which is retrieving the record from the dns server. The decoding of the record along with the simple macro language defined by SPF, along with decoding the XML format of Microsofts Email Caller-ID is the part I am specifically refering to. Im suprised you couldn't read my mind Pat :) . I'm sorry for being so vague.

 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]