# compat.tcl
#@c Compatibility layer - deprecated
#
# Derived from doc.tcl
# Stephen Uhler / Brent Welch (c) 1997-1998 Sun Microsystems
# Brent Welch (c) 1998-2000 Ajuba Solutions
# Colin McCormack (c) 2002
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: compat.tcl,v 1.5 2003/04/04 04:24:49 coldstore Exp $

package provide httpd::compat 3.3

foreach {oldname newname} {
    Doc_Cookie	Cookie_Get
    Doc_GetCookie	Cookie_Get
    Doc_SetCookie	Cookie_Set
    Doc_IsLinkToSelf	Url_IsLinkToSelf
    Doc_Redirect	Redirect_To
    Doc_RedirectSelf	Redirect_Self
    Doc_IsLinkToSelf	Url_IsLinkToSelf
    Doc_IndexFile	DirList_IndexFile
    Doc_Webmaster	Httpd_Webmaster
    Doc_CheckTemplates	Template_Check
    Doc_TemplateInterp	Template_Interp
    Doc_TemplateLibrary	Template_Library
    Doc_Dynamic		Template_Dynamic
    Doc_Subst		Subst_ReturnFile
    Doc_TemplateScope	Subst_Scope
    Doc_SubstInstall		Subst_Install

    Url_Redirect	Redirect_Url
    Url_RedirectSelf	Redirect_UrlSelf

} {
    interp alias {} $oldname {} $newname
}
