/// // Класс на основе %CSP Page для создания ссылок
Class DEATH.myDownload Extends %CSP.Page
{

/// Event handler for <b>PreHTTP</b> event: this is invoked before
/// the HTTP headers for a CSP page have been sent.  All changes to the
/// <class>%CSP.Response</class> class, such as adding cookies, HTTP headers,
/// setting the content type etc. must be made from within the OnPreHTTP() method.
/// Also changes to the state of the CSP application such as changing
/// %session.EndSession or %session.AppTimeout must be made within the OnPreHTTP() method.
/// It is prefered that changes to %session.Preserve are also made in the OnPreHTTP() method
/// as this is more efficient, although it is supported in any section of the page.
/// Return <b> 0 </b> to prevent <method>OnPage</method> from being called.
ClassMethod OnPreHTTP() As %Boolean [ ServerOnly =  1  ]
{
	
	s %response.ContentType="text/plain"
	d %response.SetHeader("Content-Disposition","attachment;filename="_%request.Get("filename"))
	;d %response.SetHeader("Content-Disposition","attachment;filename="_"protocol.PR")
	Quit $$$OK
}

/// Event handler for <b>PAGE</b> event: this is invoked in order to  
/// generate the content of a csp page.
ClassMethod OnPage() As %Status [ ServerOnly =  1  ]
{
	
	s TmpFile=##class(%File).%New(%request.Get("dir")_"\"_%request.Get("filename"))
	
	if TmpFile.Open("RU") {
	  d TmpFile.OutputToDevice() 
	}
	
	d TmpFile.%Close()
	Quit $$$OK
}

}

w "<a href="_"DEATH.myDownload.cls?filename="_fname_"&dir="_sf.UnloadDir_">Скачать файл протокола</a>"