Codage pour le changement de langue et accessibilité

Script de changement de langue en PERL

BUT : script minimaliste pour alterner entre les fichiers _e.htm et _f.htm files ou _e.html et _f.html.

DATE DE CRÉATION : 2000 08 31

NOTA : fonctionne sur notre serveur Netscape Enterprise Server (3.62SP1) on HP/UX 10.x et est utilisé dans le site http://jobs.gc.ca (parties du site conformes à la nouvelle NSI).

ÉNONCÉ DE DÉSISTEMENT : Script fourni à titre d'exemple seulement. Vous pouvez le modifier, au besoin.

# get the URL for the Web page that called this script
$calling_page = $ENV{'HTTP_REFERER'};
# dans le cas du navigateur Netscape, la référence peut contenir le symbole # et le nom de l'ancre : SUPPRIMEZ-LA! (eg. http://hostname/file.htm#anchorname)

if($calling_page =~ /(.*)\#.*/) {
# garder seulement la partie avant le  #
$calling_page = $1;}
# ignorer tous les fichiers ne se terminant pas par _e.htm ou _f.htm et ne rien faire!
# est-ce un fichier html se terminant par _e.htm?
if($calling_page =~ /_e\.htm/) {
# remplacer le suffix
$calling_page =~ s/_e\.htm/_f\.htm/;
print "Location: $calling_page\n\n";
# alors il s'agit d'un fichier se terminant par _f.htm?
} elsif($calling_page =~ /_f\.htm/) {
# remplacer le suffix
$calling_page =~ s/_f\.htm/_e\.htm/;
print "Location: $calling_page\n\n";}

Solution .ASP de changement de langue

Créez une page ASP et donnez-lui le nom language.asp. Stockez-la dans la racine de votre site Web. Incluez le code ci-dessous avant la balise HTML de la page.

<%@ LANGUAGE="VBSCRIPT" %>
<%sString = Request.ServerVariables("HTTP_REFERER")
sFullFileName = Mid (sString, Instr (sString, ".asp"))
iLen = Instr (sString, ".asp")-2
sFileName = Mid (sString, 1, iLen)
sExtension = Mid (sString, iLen+1, 1)
if (sExtension = "e") Then
sExtension = "f"
else
sExtension = "e"
end if
sNewFileName= sFileName & sExtension & sFullFileName
Response.Redirect sNewFileName
%>