ad_removal_blurb_internal subsection filetypeWhat it does:
For use by ad_removal_blurbDefined in: /web/philip/tcl/spam-defs.tcl
Source code:
set default_blurb "------- Removal instructions ------ [ad_url]/pvt/home.tcl" if {[lsearch {txt aol htm} $filetype] < 0} { ad_return_error "error in input to ad_removal_blurb" " filetype should be in {txt aol htm}" return } if {![empty_string_p subsection]} { set fd [ad_parameter RemovalBlurbStub $subsection] if {[empty_string_p $fd]} { ns_log notice "$subsection has no RemovalBlurb parameter" set fd [ad_parameter RemovalBlurbStub] } } else { set fd [ad_parameter RemovalBlurbStub] } if {[empty_string_p $fd]} { ns_log warning "System has no RemovalBlurbStub set" return $default_blurb } set blurb [subst [read_file_as_string "$fd.$filetype"]] if {[empty_string_p $blurb] && ![string compare $filetype "aol"]} { # if .aol file not defined, default to .htm set filetype "htm" set blurb [subst [read_file_as_string "$fd.$filetype"]] } if {[empty_string_p $blurb] && ![string compare $filetype "htm"]} { # if .htm file not defined, default to .txt set filetype "txt" set blurb [subst [read_file_as_string "$fd.$filetype"]] } if {[empty_string_p $blurb]} { set blurb $default_blurb ns_log error "RemovalBlurbStub parameter specified a bad filename" } return $blurb