# Copyright for the Uniform Repository Service (c) 1995 - 2021, # 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 " Warning

Warning

" switch $errorNumber { 401 { puts "

401 - Authorization required.

" } 403 { puts "

403 - Forbidden access to the file.

" } 404 { puts "

404 - Requested file not found.

" } 409 { puts "

409 - Reserved address - the target file path cannot contain the names 'ibi', 'ibi-', 'goto', 'goto-' or 'fullypersistenthref'.

" } 414 { puts "

414 - Requested URI too long.

" } 500 { puts "

500 - The server encountered an unexpected condition which prevented it from fulfilling the request.

" } 504 { puts "

504 - Socket access time-out or not all are responding.

" } 602 { puts "

602 - The name 'ibi' as a URN namespace identifier has not yet been registered with the IANA.

" } } puts "

" } pt-BR { puts " Aviso

Aviso

" switch $errorNumber { 401 { puts "

401 - Autorização requerida.

" } 403 { puts "

403 - Acesso proibido ao arquivo.

" } 404 { puts "

404 - Arquivo requerido não encontrado.

" } 409 { puts "

409 - Endereçamento reservado - o caminho do arquivo alvo não pode conter os nomes 'ibi', 'ibi-', 'goto', 'goto-' ou 'fullypersistenthref'.

" } 414 { puts "

414 - URI requerida longa demais.

" } 500 { puts "

500 - O servidor encontrou uma condição inesperada que o impediu de atender à solicitação.

" } 504 { puts "

504 - Tempo esgotado no acesso via soquete ou nem todos estão respondendo.

" } 602 { puts "

602 - O nome 'ibi' como identificador de espaço de nomes URN ainda não foi cadastrado junto à IANA.

" } } puts "

" } } } m] {puts 
$m
; if 0 {global errorInfo; puts 
$errorInfo
}} } # CustomizeError - end # ----------------------------------------------------------------------