# Copyright for the Uniform Repository Service (c) 1995 - 2021,
# by Gerald Banon. All rights reserved.
# Version 2.1
# findsimilarrecords.tcl
# example of use:
# http://gjfb:1905/findsimilarrecords.cgi/404
# ----------------------------------------------------------------------
# FindSimilarRecords
proc FindSimilarRecords {} {
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)
# 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
"
}
pt-BR {
puts "
Aviso
Aviso
"
}
}
} m] {puts
$m
; if 0 {global errorInfo; puts
$errorInfo
}}
}
# FindSimilarRecords - end
# ----------------------------------------------------------------------