# wrap.tcl
    #
    # This code will use the post-content filter to substitute content
    # into a file called wrapper.tml or wrapper.html at the point where %BODY% occurs.
    # 
    # To trigger this, put the following in a Doc domain's .tml
    #
    #	upvar #0 Httpd[Httpd_CurrentSocket] data
    #	lappend data(filter) Wrap 
    
    package require struct::list
    proc Wrap {sock content} {
        upvar #0 Httpd$sock data
    
        foreach dir [::struct::list::Lreverse [Doc_GetPath $sock]] {
    	set template [file join $dir wrapper.tml]
    	set wrapper [file join $dir wrapper.html]
    
    	if {![file exists $wrapper]
    	    && [file exists $template]} {
    	    # instantiate the wrapper
    	    set dynamic 0
    	    set wrapper [TemplateInstantiate $sock $template $wrapper $data(suffix) dynamic 0]
    	    set content [string map [list %BODY% $content] $wrapper]
    	    break
    	} elseif {[file exists $wrapper]} {
    	    # the wrapper exists
    	    set fd [open $wrapper]; set wrapper [read $fd]; close $fd
    	    set content [string map [list %BODY% $content] $wrapper]
    	    break
    	}
        }
    
        return $content
    }