ad_removal_blurb_internal

ad_removal_blurb_internal   subsection   filetype

For use by ad_removal_blurb

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