# Copyright for the Uniform Repository Service (c) 1995 - 2020,
# by Gerald Banon. All rights reserved.
# Version 2.1
# customizeerror.tcl

# example of use:
# http://gjfb:1905/customizeerror.cgi/404

# ----------------------------------------------------------------------
# CustomizeError

proc CustomizeError {} {
if [catch {
	global env
	global homePath	;# used in FindLanguage
	global URLibServiceRepository

	set col ../../../../..
	set URLibServiceRepository $env(URLIB_SERVICE_REP)
	
	source ../$col/$URLibServiceRepository/doc/utilities1.tcl
	source ../$col/$URLibServiceRepository/doc/cgi/mirrorfind-.tcl

# homePath (used in FindLanguage)
	set homePath $env(DOCUMENT_ROOT)
	
# pathInfo	
	set pathInfo [file split $env(PATH_INFO)]
	
# errorNumber
	set errorNumber [lindex $pathInfo end]

# language
	foreach {language languageRep1} [FindLanguage $env(LOBIMIREP)] {break}

# localSite
	set localSite $env(SERVER_NAME):$env(SERVER_PORT)

	puts {Content-Type: text/html}
	puts {}

	switch $language {
		en {
			puts "
				<HTML>
					<HEAD>
						<TITLE>Warning</TITLE>
						<link rel='stylesheet' type='text/css' href='http://$localSite/col/$languageRep1/doc/mirrorStandard.css'>
					</HEAD>
					<BODY class='errorBody'>
						<br>
						<P ALIGN=CENTER>
							<I>Warning</I>
						</P>
			"
			switch $errorNumber {
				401 {
					puts "
								<P>
									Authorization required.
								</P>
					"
				}
				403 {
					puts "
								<P>
									Forbidden access to the file.
								</P>
					"
				}
				404 {
					puts "
								<P>
									Requested file not found.
								</P>
					"
				}
			}
			puts "
						<TABLE ALIGN=CENTER><TR><TD WIDTH=100><BR><HR></TD></TR></TABLE>
					</BODY>
				</HTML>
			"
		}
		pt-BR {
			puts "
				<HTML>
					<HEAD>
						<TITLE>Alerta</TITLE>
						<link rel='stylesheet' type='text/css' href='http://$localSite/col/$languageRep1/doc/mirrorStandard.css'>
					</HEAD>
					<BODY class='errorBody'>
						<P ALIGN=CENTER>
							<I>Alerta</I>
						</P>
			"
			switch $errorNumber {
				401 {
					puts "
								<P>
									Autorização requerida.
								</P>
					"
				}
				403 {
					puts "
								<P>
									Acesso proibido ao arquivo.
								</P>
					"
				}
				404 {
					puts "
								<P>
									Arquivo requerido não encontrado.
								</P>
					"
				}
			}
			puts "
						<TABLE ALIGN=CENTER><TR><TD WIDTH=100><BR><HR></TD></TR></TABLE>
					</BODY>
				</HTML>
			"

		}
	}
	
} m] {puts <PRE>$m</PRE>; if 0 {global errorInfo; puts <PRE>$errorInfo</PRE>}}
}

# CustomizeError - end
# ----------------------------------------------------------------------