ad_removal_blurb_internal

one of the documented procedures in this installation of the ACS
Usage:
ad_removal_blurb_internal   subsection   filetype
What it does:
For use by ad_removal_blurb
Defined 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


philg@mit.edu