#!/bin/csh
#######################################################################################################################################
# #
# F I C H I E R D E S T I N E A L ' A L I A S ' Gserveur ' : #
# #
# #
# Author of '$xiMos/Gserveur$vv$Y' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
if ($?G_DiApOrAmA == $EXIST) then
# L'indicateur '$G_DiApOrAmA' a ete introduit le 20040407102656 et ce test est destine a #
# assurer la transition... #
if ("$G_DiApOrAmA" == "$K_VIDE") then
#20070816113719____: set G_DiApOrAmA=$EXIST #
set G_DiApOrAmA=$NEXIST
# Par defaut, l'eventuel diaporama sera genere. A compter du 20070816113719, l'eventuel #
# diaporama ne sera plus genere par defaut car, en effet, c'est en general une operation #
# tres longue (constituee de plusieurs dizaines de 'Gserveur's...). #
else
set G_DiApOrAmA=$G_DiApOrAmA[1]
# Introduit le 20170414032504 a cause de la nouvelle definition de 'Gserveur' a cette date. #
endif
else
set G_DiApOrAmA=$EXIST
# Par defaut, l'eventuel diaporama sera genere... #
endif
if ($?P_DiApOrAmA == $EXIST) then
# L'indicateur '$P_DiApOrAmA' a ete introduit le 20170414025423 et ce test est destine a #
# assurer la transition... #
if ("$P_DiApOrAmA" == "$K_VIDE") then
set P_DiApOrAmA=$EXIST
# Par defaut, l'eventuel diaporama sera genere en parallele... #
else
endif
else
set P_DiApOrAmA=$EXIST
# Par defaut, l'eventuel diaporama sera genere en parallele... #
endif
set DoCuMeNtD=`GetPath $DoCuMeNt`
# Recuperation du path d'acces (a priori inutile...). #
set DoCuMeNtN=`GetLeaf $DoCuMeNt`
set DoCuMeNtN=`SupPost $DoCuMeNtN $m4`
# L'image 'v $xiHi/www.bing.com_images_create__Lascaux_la_grotte.m4$JPEG' a du etre #
# rebaptisee 'v $xiHi/www.bing.com_images_create__Lascaux_la_grotte.n8$JPEG' le #
# 20240216100958 a cause de cette suppression de '$m4' en tant que postfixe... #
set DoCuMeNtN=`SupPost $DoCuMeNtN $D`
# Et recuperation du nom du fichier en supprimant un eventuel '$m4' ou '$D' en queue, ceci #
# a ete introduit le 20000329094634... #
set DoCuMeNtN=`SupPost $DoCuMeNtN $HTML`
# Et recuperation du nom du fichier en supprimant un eventuel '$HTML' en queue, ceci #
# a ete introduit le 20010130145729 a cause de 'v $xiMo/ReGenereAll$Z FindExec'. #
set DoCuMeNtN=`SupPost $DoCuMeNtN $PDF`
# Et recuperation du nom du fichier en supprimant un eventuel '$PDF' en queue, ceci #
# a ete introduit le 20180226111144... #
set GeNeReR=$EXIST
# A priori, on va generer... #
#20171109164442____:if ($WWW_RestrictedAccess == $EXIST) then #
if (($WWW_RestrictedAccess == $EXIST) || ($WWW_RestrictedAccess_invisible == $EXIST)) then
# La variable '$WWW_RestrictedAccess' a ete introduite le 20021024095510 ici... #
set PrIvAtE=`$CA $Fprocedures | $GRE -v "^ *#" | $R "," "$K_NL" | $R ")" "$K_NL" | $GRE -i ""`
if ("$PrIvAtE" != "$K_VIDE") then
set PrIvE=`echo "$DoCuMeNtN" | $EGRE -f $xiMoG/Liste_PRIVATE$vv$gre`
if ("$PrIvE" != "$K_VIDE") then
set GeNeReR=$NEXIST
# Un document "" sur '$mDev_WWW' n'est pas genere... #
# #
# Cette notion a ete etendue le 20021024095510 grace a la variable '$WWW_RestrictedAccess'. #
else
endif
unset PrIvE
else
EROR "['"'$xiMos/Gserveur$vv$Y'"'] Le discriminateur '' n'existe pas dans '"'$Fprocedures'"'."
endif
unset PrIvAtE
else
endif
if ($GeNeReR == $EXIST) then
set A_EtE_GeNeRe=$NEXIST
# A priori, rien ne va etre genere (variable introduite le 20030221101630). #
if ( ( (-e $DoCuMeNtN$m4) \
|| (-e $xiMd/$DoCuMeNtN$m4) \
) \
|| ( (-e $DoCuMeNtN$ANGLAIS$m4) \
|| (-e $xiMd/$DoCuMeNtN$ANGLAIS$m4) \
) \
|| ( (-e $DoCuMeNtN$ANGLAIS.$m4) \
|| (-e $xiMd/$DoCuMeNtN$ANGLAIS.$m4) \
) \
|| ( (-e $DoCuMeNtN$FRANCAIS$m4) \
|| (-e $xiMd/$DoCuMeNtN$FRANCAIS$m4) \
) \
|| ( (-e $DoCuMeNtN$FRANCAIS.$m4) \
|| (-e $xiMd/$DoCuMeNtN$FRANCAIS.$m4) \
) \
) then
# Cas d'un document de '$xiMd'... #
# #
# Le test sur {$ANGLAIS,$FRANCAIS} a ete introduit le 20030221100842 afin de faciliter la #
# generation des pages multilingues... #
# #
# Le 20211111095117 furent introduits {$ANGLAIS.$m4,$FRANCAIS.$m4} afin de faciliter #
# la generation de 'v $xiMd/MorePages$ANGLAIS.$m4' et de 'v $xiMd/MorePages$FRANCAIS.$m4}... #
set DaTeC_NewPictures=`DATEM $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I`
if (-e $xiMt/$ListeT_NewPictures_1.$m4.$I) then
set DaTeT1_NewPictures=`DATEM $xiMt/$ListeT_NewPictures_1.$m4.$I`
set NoMbR1_NewPictures=`$CA $xiMt/$ListeT_NewPictures_1.$m4.$I | $GRE "mapIMAG(" | $WCl`
# Le nombre effectif de nouvelles images a ete introduit le 20111223104156... #
else
set DaTeT1_NewPictures=0
set NoMbR1_NewPictures=0
endif
if (-e $xiMt/$ListeT_NewPictures_2.$m4.$I) then
set DaTeT2_NewPictures=`DATEM $xiMt/$ListeT_NewPictures_2.$m4.$I`
set NoMbR2_NewPictures=`$CA $xiMt/$ListeT_NewPictures_2.$m4.$I | $GRE "mapIMAG(" | $WCl`
# Le nombre effectif de nouvelles images a ete introduit le 20111223104156... #
else
set DaTeT2_NewPictures=0
set NoMbR2_NewPictures=0
endif
#20111223104156____: if ( (`$xcg/IFLT.01$X a=$DaTeT1_NewPictures b=$DaTeC_NewPictures` == $EXIST) \ #
#20111223104156____: || (`$xcg/IFLT.01$X a=$DaTeT2_NewPictures b=$DaTeC_NewPictures` == $EXIST) \ #
#20111223104156____: ) then #
if ( ( (`$xcg/IFLT.01$X a=$DaTeT1_NewPictures b=$DaTeC_NewPictures` == $EXIST) \
|| (`$xcg/IFLT.01$X a=$DaTeT2_NewPictures b=$DaTeC_NewPictures` == $EXIST) \
) \
|| ( ($NoMbR1_NewPictures != $NewPictures_1) \
|| ($NoMbR2_NewPictures != $NewPictures_2) \
) \
) then
if ( ("$sHOTE" == "$sPORTABLE_1") \
|| ("$sHOTE" == "$sPORTABLE_2") \
|| ("$sHOTE" == "$sPORTABLE_3") \
|| ("$sHOTE" == "$sPORTABLE_4") \
|| ("$sHOTE" == "$sPORTABLE_5") \
|| ("$sHOTE" == "$sPORTABLE_6") \
|| ("$sHOTE" == "$sPORTABLE_7") \
|| ("$sHOTE" == "$msREFERENCE") \
) then
PhasCriB $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I
# Introduit le 20110819144644 afin de prevenir des 'Gserveur's simultanes... #
# #
# La machines '$sPORTABLE_7' a ete introduite le 20211124144445... #
#20130106091857____: $xiMo/GenTable$Z $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I \ #
#20130106091857____: $ListeT_NewPictures_1 $EXIST $NewPictures_1 #
#20130106091857____: $xiMo/GenTable$Z $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I \ #
#20130106091857____: $ListeT_NewPictures_2 $EXIST $NewPictures_2 #
#20130107181332____: $xiMo/GenTable$Z $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I \ #
#20130107181332____: $ListeT_NewPictures_1 $NewPictures_1_ParLigne $EXIST $NewPictures_1 #
#20130107181332____: $xiMo/GenTable$Z $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I \ #
#20130107181332____: $ListeT_NewPictures_2 $NewPictures_2_ParLigne $EXIST $NewPictures_2 #
#20130108082401____: $xiMo/GenTable$Z $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I \ #
#20130108082401____: $ListeT_NewPictures_1 $NewPictures_1_ParLigne center center $EXIST $NewPictures_1 #
#20130108082401____: $xiMo/GenTable$Z $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I \ #
#20130108082401____: $ListeT_NewPictures_2 $NewPictures_2_ParLigne center center $EXIST $NewPictures_2 #
source $xiMos/GenTable.Galerie_NewPictures$vv$Y
# Introduit le 20110614101605 et optimise via 'DATEM' le 20110615090230... #
PhasCriE $xiMt/Galerie_NewPictures.catalogue$vv.$m4.$I
# Introduit le 20110819144644 afin de prevenir des 'Gserveur's simultanes... #
else
echo "ATTENTION : les deux tables de 'Galerie_NewPictures' ne sont pas a jour."
endif
else
endif
unset NoMbR2_NewPictures
unset DaTeT2_NewPictures
unset NoMbR1_NewPictures
unset DaTeT1_NewPictures
unset DaTeC_NewPictures
set DaTeC_BestOf=`DATEM $xiMt/Galerie_BestOf.catalogue$vv.$m4.$I`
#20130106103128____: if (-e $xiMt/$ListeT_BestOf.$m4.$I) then #
#20150520214833____: if ((-e $xiMt/$ListeT_BestOf_1.$m4.$I) && (-e $xiMt/$ListeT_BestOf_2.$m4.$I)) then #
if ( (-e $xiMt/$ListeT_BestOf_1.$m4.$I) \
&& (-e $xiMt/$ListeT_BestOf_2.$m4.$I) \
&& (-e $xiMt/$ListeT_BestOf_3.$m4.$I) \
) then
#20130106103128____: set DaTeT_BestOf=`DATEM $xiMt/$ListeT_BestOf.$m4.$I` #
set DaTeT_BestOf_1=`DATEM $xiMt/$ListeT_BestOf_1.$m4.$I`
set DaTeT_BestOf_2=`DATEM $xiMt/$ListeT_BestOf_2.$m4.$I`
set DaTeT_BestOf_3=`DATEM $xiMt/$ListeT_BestOf_3.$m4.$I`
#20150520214833____: set DaTeT_BestOf=`$xcg/MIN2.01$X a=$DaTeT_BestOf_1 b=$DaTeT_BestOf_2` #
set DaTeT_BestOf=`$xcg/MIN3.01$X a=$DaTeT_BestOf_1 b=$DaTeT_BestOf_2 c=$DaTeT_BestOf_3`
unset DaTeT_BestOf_3
unset DaTeT_BestOf_2
unset DaTeT_BestOf_1
else
set DaTeT_BestOf=0
endif
if ( (`$xcg/IFLT.01$X a=$DaTeT_BestOf b=$DaTeC_BestOf` == $EXIST) \
) then
if ( ("$sHOTE" == "$sPORTABLE_1") \
|| ("$sHOTE" == "$sPORTABLE_2") \
|| ("$sHOTE" == "$sPORTABLE_3") \
|| ("$sHOTE" == "$sPORTABLE_4") \
|| ("$sHOTE" == "$sPORTABLE_5") \
|| ("$sHOTE" == "$sPORTABLE_6") \
|| ("$sHOTE" == "$sPORTABLE_7") \
|| ("$sHOTE" == "$msREFERENCE") \
) then
PhasCriB $xiMt/Galerie_BestOf.catalogue$vv.$m4.$I
# Introduit le 20110819144644 afin de prevenir des 'Gserveur's simultanes... #
# #
# La machines '$sPORTABLE_7' a ete introduite le 20211124144445... #
#20130106091857____: $xiMo/GenTable$Z $xiMt/Galerie_BestOf.catalogue$vv.$m4.$I \ #
#20130106091857____: $ListeT_BestOf #
#20130107181332____: $xiMo/GenTable$Z $xiMt/Galerie_BestOf.catalogue$vv.$m4.$I \ #
#20130107181332____: $ListeT_BestOf_1 $Best_Of_1_ParLigne #
#20130107181332____: $xiMo/GenTable$Z $xiMt/Galerie_BestOf.catalogue$vv.$m4.$I \ #
#20130107181332____: $ListeT_BestOf_2 $Best_Of_2_ParLigne #
#20130108082401____: $xiMo/GenTable$Z $xiMt/Galerie_BestOf.catalogue$vv.$m4.$I \ #
#20130108082401____: $ListeT_BestOf_1 $Best_Of_1_ParLigne center center #
#20130108082401____: $xiMo/GenTable$Z $xiMt/Galerie_BestOf.catalogue$vv.$m4.$I \ #
#20130108082401____: $ListeT_BestOf_2 $Best_Of_2_ParLigne center top #
source $xiMos/GenTable.Galerie_BestOf$vv$Y
# Introduit le 20110614101605 et optimise via 'DATEM' le 20110615090230... #
PhasCriE $xiMt/Galerie_BestOf.catalogue$vv.$m4.$I
# Introduit le 20110819144644 afin de prevenir des 'Gserveur's simultanes... #
else
echo "ATTENTION : la table de 'Galerie_BestOf' n'est pas a jour."
endif
else
endif
unset DaTeT_BestOf
unset DaTeC_BestOf
# Introduit le 20120216173328 car, en effet, il manquait... #
unset DaTeC_NewPictures
if ( (-e $DoCuMeNtN$m4) \
|| (-e $xiMd/$DoCuMeNtN$m4) \
) then
GserveurD $DoCuMeNtN
set A_EtE_GeNeRe=$EXIST
else
endif
if ( (-e $DoCuMeNtN$ANGLAIS$m4) \
|| (-e $xiMd/$DoCuMeNtN$ANGLAIS$m4) \
) then
(Gserveur $DoCuMeNtN$ANGLAIS $G_DiApOrAmA)
# Le 20030221135412, je suis passe de 'GserveurD' a 'Gserveur' afin de beneficier de la #
# gestion automatique des '$FULL_VISUAL'. Le passage par un "sous-shell" est necesaire #
# afin d'assurer la "recursivite" de 'Gserveur' (a cause des variables...). #
# #
# Le 20050518113051 a ete introduit l'indicateur '$G_DiApOrAmA' qui manquait... #
set A_EtE_GeNeRe=$EXIST
# La generation implicite des pages '$ANGLAIS' a ete introduite le 20030221100842. #
else
endif
if ( (-e $DoCuMeNtN$ANGLAIS.$m4) \
|| (-e $xiMd/$DoCuMeNtN$ANGLAIS.$m4) \
) then
# Le 20211111095117 fut introduit '$ANGLAIS.$m4' afin de faciliter la generation de #
# 'v $xiMd/MorePages$ANGLAIS.$m4'... #
(Gserveur $DoCuMeNtN$ANGLAIS. $G_DiApOrAmA)
set A_EtE_GeNeRe=$EXIST
else
endif
if ( (-e $DoCuMeNtN$FRANCAIS$m4) \
|| (-e $xiMd/$DoCuMeNtN$FRANCAIS$m4) \
) then
(Gserveur $DoCuMeNtN$FRANCAIS $G_DiApOrAmA)
# Le 20030221135412, je suis passe de 'GserveurD' a 'Gserveur' afin de beneficier de la #
# gestion automatique des '$FULL_VISUAL'. Le passage par un "sous-shell" est necesaire #
# afin d'assurer la "recursivite" de 'Gserveur' (a cause des variables...). #
# #
# Le 20050518113051 a ete introduit l'indicateur '$G_DiApOrAmA' qui manquait... #
set A_EtE_GeNeRe=$EXIST
# La generation implicite des pages '$FRANCAIS' a ete introduite le 20030221100842. #
else
endif
if ( (-e $DoCuMeNtN$FRANCAIS.$m4) \
|| (-e $xiMd/$DoCuMeNtN$FRANCAIS.$m4) \
) then
# Le 20211111095117 fut introduit '$FRANCAIS.$m4' afin de faciliter la generation de #
# 'v $xiMd/MorePages$FRANCAIS.$m4'... #
(Gserveur $DoCuMeNtN$FRANCAIS. $G_DiApOrAmA)
set A_EtE_GeNeRe=$EXIST
else
endif
if ($DoCuMeNtN == $HomePage) then
# L'utilisation de '$RelaiUniversel' pour acceder a 'http://www.lactamme.polytechnique.fr' #
# ('v $xiMos/Gserveur.vB$Y$INUTILE RelaiUniversel') a ete supprime le 20010622090508 et #
# remplace par la duplication de '$xiMd/$HomePage$HTML' sur '$rFserveur'. En effet, #
# '$RelaiUniversel' contient la directive : #
# #
# <META HTTP-EQUIV="Refresh" CONTENT="0 ; URL=..."> #
# #
# via : #
# #
# TRANSFERT_AUTOMATIQUE_VERS_UN_SERVEUR_TEMPORISE #
# #
# qui apparemment perturbe certains robots de recherche, d'ou cette solution (de ne plus #
# l'utiliser...). #
# Les suppressions du 20220112134744 qui suivent viennent du fait que la definition des #
# differents "relais" sur le serveur 'WWW' ne sont pas aussi simple que je le croyais. #
# En effet, a la date du 20220112134526, on a : #
# #
# rFserveur = /share/blanche/lactamme/plaquette.html #
# rrFserveur = /share/blanche/lactamme/index.html #
# rFLserveur = /share/blanche/colonna/www/index.html #
# #
# ce qui n'est pas tres simple a mettre a jour dans '$xiMd' comme je croyais pouvoir le #
# faire le 20220111172227... #
if ($?rFserveur == $EXIST) then
if ($?No_rFserveur == $NEXIST) then
# Test introduit le 20220111172227.... #
$DELETE $rFserveur
$CA $xiMd/$HomePage$HTML \
| $SE -e "s+$Optimisation_URL3\(/\)+$Optimisation_URL1\1+g" \
> $rFserveur
chmod $MserveurF $rFserveur
# Mise a jour de l'acces via : #
# #
# http://www.lactamme.polytechnique.fr #
# #
# ATTENTION, le 20021128113509, je note que l'on ne peut pas faire tout simplement : #
# #
# $DELETE $rFserveur #
# $LINK -s $DMserveurD/$HomePage$HTML $rFserveur #
# #
# ce qui aurait l'avantage de ne pas introduire de liens absolus dans '$rFserveur' (ce qui #
# est genant, par exemple, si l'on fait une copie du site sur CD-Rom...). Malgre tout, je #
# conserve ce mecanisme (provisoirement ?) au cas ou. Mais en fait, je crois que cela ne #
# marche pas car, en effet, on est a l'origine mal localise dans l'arborescence (on est au #
# niveau '$DMserveurA' malgre le '$LINK', alors qu'il faudrait etre au niveau '$DMserveur'). #
else
#20220112134744____: set rFserveur_xiMd=$xiMd/`GetLeaf $rFserveur` #
#20220112134744____: $DELETE $rFserveur_xiMd #
#20220112134744____: $CA $xiMd/$HomePage$HTML \ #
#20220112134744____: | $SE -e "s+$Optimisation_URL3\(/\)+$Optimisation_URL1\1+g" \ #
#20220112134744____: > $rFserveur_xiMd #
#20220112134744____: ro $rFserveur_xiMd #
# Introduit le 20220111172227 et '$rFserveur_xiMd' deviendra '$rFserveur' plus tard grace #
# a 'v maj_WWW.Mserveur.01$vv$Y MserveurD'... #
#20220112134744____: unset rFserveur_xiMd #
endif
else
endif
if ($?rrFserveur == $EXIST) then
if ($?No_rrFserveur == $NEXIST) then
# Test introduit le 20220111172227.... #
$DELETE $rrFserveur
$CA $xiMd/$HomePage$HTML \
| $SE -e "s+$Optimisation_URL3\(/\)+$Optimisation_URL1\1+g" \
> $rrFserveur
chmod $MserveurF $rrFserveur
# Generation du relai "standard" de nom '$rrFserveur' (introduit le 20021121121557). #
# #
# ATTENTION, le 20021128113509, je note que l'on ne peut pas faire tout simplement : #
# #
# $DELETE $rrFserveur #
# $LINK -s $DMserveurD/$HomePage$HTML $rrFserveur #
# #
# ce qui aurait l'avantage de ne pas introduire de liens absolus dans '$rrFserveur' (ce qui #
# est genant, par exemple, si l'on fait une copie du site sur CD-Rom...). Malgre tout, je #
# conserve ce mecanisme (provisoirement ?) au cas ou. Mais en fait, je crois que cela ne #
# marche pas car, en effet, on est a l'origine mal localise dans l'arborescence (on est au #
# niveau '$DMserveurA' malgre le '$LINK', alors qu'il faudrait etre au niveau '$DMserveur'). #
else
#20220112134744____: set rrFserveur_xiMd=$xiMd/`GetLeaf $rrFserveur` #
#20220112134744____: $DELETE $rrFserveur_xiMd #
#20220112134744____: $CA $xiMd/$HomePage$HTML \ #
#20220112134744____: | $SE -e "s+$Optimisation_URL3\(/\)+$Optimisation_URL1\1+g" \ #
#20220112134744____: > $rrFserveur_xiMd #
#20220112134744____: ro $rrFserveur_xiMd #
# Introduit le 20220111172227 et '$rrFserveur_xiMd' deviendra '$rrFserveur' plus tard grace #
# a 'v maj_WWW.Mserveur.01$vv$Y MserveurD'... #
#20220112134744____: unset rrFserveur_xiMd #
endif
else
endif
#20090610135959____: if ($?rFLserveur == $EXIST) then #
#20090610135959____: $DELETE $rFLserveur #
#20090610135525____: $CA $xiMd/$HomePage$HTML \ #
#20090610135525____: | $SE -e "s+$Optimisation_URL3\(/\)+$Optimisation_URL1\1+g" \ #
#20090610135525____: > $rFLserveur #
#20090610135959____: chmod $MserveurF $rFLserveur #
# Mise a jour de l'acces via : #
# #
# http://www.cmap.polytechnique.fr/~colonna #
# #
#20090610135959____: else #
#20090610135959____: endif #
else
endif
if ($DoCuMeNtN == $DirectoryPage) then
# Test introduit le 20090610135959... #
if ($?rFLserveur == $EXIST) then
if ($?No_rFLserveur == $NEXIST) then
# Test introduit le 20220111172227.... #
$DELETE $rFLserveur
$CA $xiMd/$DirectoryPage$HTML \
| $SE -e "s+$Optimisation_URL3\(/\)+$Optimisation_URL1\1+g" \
> $rFLserveur
chmod $MserveurF $rFLserveur
# Mise a jour de l'acces via : #
# #
# http://www.cmap.polytechnique.fr/~colonna #
# #
else
#20220112134744____: set rFLserveur_xiMd=$xiMd/`GetLeaf $rFLserveur` #
#20220112134744____: $DELETE $rFLserveur_xiMd #
#20220112134744____: $CA $xiMd/$DirectoryPage$HTML \ #
#20220112134744____: | $SE -e "s+$Optimisation_URL3\(/\)+$Optimisation_URL1\1+g" \ #
#20220112134744____: > $rFLserveur_xiMd #
#20220112134744____: ro $rFLserveur_xiMd #
# Introduit le 20220111172227 et '$rFLserveur_xiMd' deviendra '$rFLserveur' plus tard grace #
# a 'v maj_WWW.Mserveur.01$vv$Y MserveurD'... #
#20220112134744____: unset rFLserveur_xiMd #
endif
else
endif
# Les suppressions du 20220112134744 qui precedent viennent du fait que la definition des #
# differents "relais" sur le serveur 'WWW' ne sont pas aussi simple que je le croyais. #
# En effet, a la date du 20220112134526, on a : #
# #
# rFserveur = /share/blanche/lactamme/plaquette.html #
# rrFserveur = /share/blanche/lactamme/index.html #
# rFLserveur = /share/blanche/colonna/www/index.html #
# #
# ce qui n'est pas tres simple a mettre a jour dans '$xiMd' comme je croyais pouvoir le #
# faire le 20220111172227... #
else
endif
Pushd $xiMd
if (-e $DoCuMeNtN$m4) then
#20110622092334____: set FuLlViSuAl=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Generer_la_version_FullVisual.)'` #
set FuLlViSuAl=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Generer_la_version_FullVisual..*)'`
if ("$FuLlViSuAl" != "$K_VIDE") then
set MaPImAg=`echo "$FuLlViSuAl" | $GRE "," | $SE -e "s/^.*,//" -e 's/)$//'`
if ("$MaPImAg" == "$K_VIDE") then
$xiMo/FULL_VISUAL$Z $DoCuMeNtN
else
$xiMo/FULL_VISUAL$Z $DoCuMeNtN "$K_VIDE" $MaPImAg
# La possibilite de specifier la procedure d'affichage '$MaPImAg' a ete introduite le #
# 20110622092334 (on utilisera en general 'maplcpIMAG(...)' qui affichera le timbre avec #
# sa legende suivie d'un point ou plus sobrement 'mapIMAG(...)' qui n'affichera que le #
# timbre). #
endif
unset MaPImAg
GserveurD $DoCuMeNtN$FullVisual
# Generation de la version '$FullVisual' lorsque cela est demande (via la variable #
# 'Generer_la_version_FullVisual' dans le source '$m4'). #
# #
# Le 20100618192004 je note que cela fait perdre certaines fonctionnalites et en particulier #
# 'v ''$xiMt/AVirtualSpaceTimeTravelMachine.01$vv.$m4.$I RaPpOrTi'... #
#20020831115211____: delete $DoCuMeNtN$FullVisual$m4 #
#20061021111942____: delete $DoCuMeNtN$FullVisual$m4 #
$DELETE $DoCuMeNtN$FullVisual$m4
# La destruction du '$m4' de type '$FullVisual' a ete introduite le 20020814105637 car, en #
# effet, ce fichier ne sert qu'a generer le '$HTML' correspondant. De plus, c'est 'delete' #
# qui est utilise (et non pas '$DELETE') afin de proceder au nettoyage des directories '$xwm' #
# et '$xwmp' (s'ils existent et ce, par exemple, sur '$LACT14') lors de la periode de #
# "transition". En fait, il a fallu supprimer ce 'delete' le 20020831115211 a cause de #
# 'v $xiMo/CONTENTS$Z Debut_listMN_CONTENTS_GALERIES_D_IMAGES_FullVisual_11' qui a besoin #
# de ces fichiers et qui doivent donc etre conserves. Finalement, j'ai pu le remettre en #
# place apres l'introduction de l'alias 'v $xiMo/CONTENTS$Z GetTL_FV' le 20020831182058... #
else
endif
unset FuLlViSuAl
set DiApOrAmA=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Generer_la_version_Diaporama.,'`
# On notera que 'Generer_la_version_Diaporama' est a priori contenu dans des pages '$m4' de #
# '$xiMd'. Il y a une exception a cela : #
# #
# 'v ''$xiMt/AVirtualSpaceTimeTravelMachine.01$vv.$m4.$I Generer_la_version_Diaporama' #
# #
# qui n'est pas destine a activer la generation de diaporamas pour les pages de '$xiMd' qui #
# incluent ce '$I', mais uniquement a permettre l'activation de liens vers les diaporamas #
# depuis ces pages... #
#20040407102656____: if ("$DiApOrAmA" != "$K_VIDE") then #
if (($G_DiApOrAmA == $EXIST) && ("$DiApOrAmA" != "$K_VIDE")) then
set DiApOrAmA=`echo "$DiApOrAmA" | $SE -e "s/^.*,.//" -e 's/.)$//'`
set DiApOrAmA=`eval echo "$DiApOrAmA"`
#20031006122647____: set FDiApOrAmA=`GetXTmp` #
#20031006133524____: set FDiApOrAmA=`GetXTmp "$K_VIDE" "diaporama"` #
FileTmpB FDiApOrAmA $K_QD$K_VIDE$K_QD "diaporama""$K_sepP$DoCuMeNtN"
# Le prefixe "diaporama" a ete introduit le 20031006122647 afin de rendre les sorties de #
# 'v $xiMo/Ediaporamas$Z Generation' ci-apres plus comprehensibles. Il a ete complete par #
# '$DoCuMeNtN' le 20031006133524... #
set TiTrE=`echo $DoCuMeNtN | $SE -e "s/^\([^.][^.]*\)\..*/\1/"`
set TiTrE=`echo "$TiTrE" | $SE -e "s/_//"g -e "s/\([$Alphabet_A_Z]\)/ \1/g" -e "s/^ *//"`
set TiTrE=`echo "$TiTrE" | $SE -f $xiMo/CONTENTS$D/CorrectionTitres.01$vv$sed`
# Ce dispositif de correction des titres a ete introduite le 20021129094404 en particulier a #
# cause de 'Galerie_GeneralitiesVisualization' qui ne donne pas un titre syntaxiquement #
# correct en anglais. Le changer en 'Galerie_GeneralitiesAboutVisualization' n'est pas une #
# bonne solution car elle impose de changer le nom d'une page ce qui est dangereux pour la #
# perennite d'une partie du site... #
# #
# Le cas de 'v $xiMd/NDimensionalDeterministicFractalSets.01' qui generait "N Dimensional..." #
# au lieu de "N Dimensional..." a ete traite le 20110510104226... #
#20021127163115____: set TiTrE=`echo "$TiTrE" | $SE -e 's/^\(Galerie\) *\(.*\)$/\2 \1/' #
set TiTrE=`echo "$TiTrE" | $SE -e "s/Galerie *//" -e "s/Gallery *//"`
# Le 20021127162630 j'ai fait l'hypothese (audacieuse) que le nom '$DoCuMeNtN' etait en fait #
# en "Anglais", sauf la partie "Galerie" que l'on met a priori a la fin. En fait, il y avait #
# plus simple : le 20021127163115 je supprime les eventuels {Gallery,Galerie}... #
#20110509134251____: set TiTrE=`echo "$TiTrE" | $R "$Alphabet_a_z" "$Alphabet_A_Z"` #
# Aux environs du 20110509134251, les titres ont pris une forme plus esthetique du type #
# "Titre" (alors qu'avant c'etait 'TITRE") et cela est lie a la presentation en tables des #
# contenus ('v $xiMo/CONTENS$Z 20110505101341')... #
set TiTrE=`echo "$TiTrE" | $SE -e "s/^Galerie /LaNgUe(Gallery,Galerie) /"`
set TiTrE=`echo "$TiTrE" | $SE -e "s/^Gallery /LaNgUe(Gallery,Galerie) /"`
set TiTrE=`echo "$TiTrE" | $SE -e "s/^GALERIE /LaNgUe(GALLERY,GALERIE) /"`
set TiTrE=`echo "$TiTrE" | $SE -e "s/^GALLERY /LaNgUe(GALLERY,GALERIE) /"`
set TiTrE=`echo "$TiTrE" | $SE -e "s/Galerie/Diaporama/"`
set TiTrE=`echo "$TiTrE" | $SE -e "s/GALERIE/DIAPORAMA/"`
set TiTrE=`echo "$TiTrE" | $SE -e "s/Gallery/Slide Show/"`
set TiTrE=`echo "$TiTrE" | $SE -e "s/GALLERY/SLIDE SHOW/"`
# Le 20030904161236, il a ete decide de titrer les diaporamas avec {Diaporama,Slide Show}, #
# ce qui est plus logique et qui permet de mieux faire la difference avec les galeries, en #
# particulier dans les listes generees par 'v $xiMo/CONTENTS$Z'... #
# #
# On notera qu'en fait a cette date (20030904161236), ce qui precede (c'est-a-dire la #
# gestion des {Gallery,GALLERY,Slide Show,SLIDE SHOW,Galerie,GALERIE,Diaporama,DIAPORAMA}) #
# ne sert a rien car, en effet le '$TiTrE' qui est communique a 'v $xiMo/Gdiaporamas$Z' #
# ci-apres ne les contient pas : la valeur de '$TiTrE' est par exemple "QUANTUM MECHANICS". #
# C'est 'v $xiMoC/GetTL_SS$vv$Y Titre' qui met en place "SLIDE SHOW :" (le 20030904163141 #
# et "GALLERY" auparavant) destine a 'v $xiMo/CONTENTS$Z GetTL_SS'. En ce qui concerne le #
# titre qui apparait sous chacune des diapositives d'un diaporama, il est genere dans #
# 'v $xiMo/diaporamas$Z milieu$vv.$m4.$I' en completant ainsi '$TiTrE'. Malgre tout, je #
# je conserve tout cela car on ne sait jamais... #
set TiTrE=`echo "$TiTrE" | $SE -e "s+ + +g"`
# Le titre a ete introduit le 20021123193426. Le 20021124162501, j'ai ete oblige de #
# remplacer les espaces par " " car, en effet, a compter du 20021124090806, #
# 'v $xiMo/Gdiaporamas$Z G_Gserveur$vv.Z' appelle 'v $xiMo/diaporamas$Z' via la commande #
# 'v $xiMo/G_Gserveur$vv$Z'. Il est donc imperatif que les arguments (tel '$TiTrE') soient #
# monolithiques (c'est-a-dire sans espaces) afin que l'on puisse les identifier sans aucune #
# ambiguite. La mise en majuscules de '$TiTrE' a ete introduite le 20021125093747. On notera #
# qu'en ce qui concerne les traductions de {Gallery,Galerie}, pour des raisons liees a de #
# possibles evolutions futures, il est mieux d'avoir a la fois la version avec les minuscules #
# {Gallery,Galerie} et la version avec les majuscules {GALLERY,GALERIE}... #
set NoN_SeLeCtIf=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Generer_un_Diaporama_NonSelectif.)'`
# Possibilite de choisir entre les 'rntIMAG(...)' seuls ou bien les 'rntIMAG(...)' ainsi #
# que les 'rntIMAG_optionnelle(...)' introduite le 20030227105758. #
if ("$NoN_SeLeCtIf" == "$K_VIDE") then
set SeLeCtIf=$EXIST
# Cas 'rntIMAG(...)' seuls. #
else
set SeLeCtIf=$NEXIST
# Cas 'rntIMAG(...)' et 'rntIMAG_optionnelle(...)'. #
endif
unset NoN_SeLeCtIf
set ToUs_FoRmAtS=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Diaporama_Accepter_Tous_Formats.)'`
# Introduit le 20170906102435 afin de permettre des diaporamas avec tous les formats #
# d'images... #
if ("$ToUs_FoRmAtS" == "$K_VIDE") then
set AlLF=$NEXIST
# Cas ou seules les images au format 'Pal' seront autorisees (cas le plus frequent...). #
else
set AlLF=$EXIST
# Cas ou toutes les images sont autorisees, quel qu'en soit le format... #
endif
unset ToUs_FoRmAtS
set NoN_EnVeRs=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Generer_un_Diaporama_ALEnvers.)'`
# Possibilite de choisir entre un diaporama a l'endroit et un diaporama a l'envers (introduit #
# le 20030409092356). #
if ("$NoN_EnVeRs" == "$K_VIDE") then
set EnVeRs=$NEXIST
# Diaporama a l'endroit (par defaut...). #
else
set EnVeRs=$EXIST
# Diaporama a l'envers. #
endif
unset NoN_EnVeRs
set NoMbRe_ImAgEs=`$CA $DoCuMeNtN$m4 | $GRE 'define(.NombreMaxImages_d_un_Diaporama.,.*)'`
# Choix du nombre maximal d'images du diaporama (introduit le 20030409092356). #
if ("$NoMbRe_ImAgEs" == "$K_VIDE") then
if ($?NOMBRE_D_IMAGES == $NEXIST) then
source $xiMoG/GENERE.01$Y
source $xiMoG/GENERE.02$Y
else
endif
set NoMbRe_ImAgEs=$NOMBRE_D_IMAGES
# Il est possible alors d'en prendre autant que l'on veut... #
else
set NoMbRe_ImAgEs=`echo "$NoMbRe_ImAgEs" | $SE -e "s/^.*,//" -e 's/).*$//'`
# Le nombre d'image est alors limite... #
set VNoMbRe_ImAgEs=`echo "$NoMbRe_ImAgEs" | $GRE -v "[$Alphabet_0_9]"`
# On va regarder ainsi si '$NoMbRe_ImAgEs' est un nombre ou bien le nom d'une variable... #
if ("$VNoMbRe_ImAgEs" != "$K_VIDE") then
# Cas ou '$NoMbRe_ImAgEs' est un nom de variable ; il faut l'interpreter : #
source $xiMoG/GENERE.01$Y
source $xiMoG/GENERE.02$Y
source $xiMoG/GENERE.03$Y
set NoMbRe_ImAgEs=`eval echo "$K_DOLLAR$NoMbRe_ImAgEs"`
# Introduit le 20081101185633 pour 'v $xiMd/Galerie_NewPictures$M4 NOMBRE_NEW_PICTURES'. #
else
endif
unset VNoMbRe_ImAgEs
endif
set PaS_ImAgEs=`$CA $DoCuMeNtN$m4 | $GRE 'define(.PasImages_d_un_Diaporama.,.*)'`
# Choix du pas des images du diaporama (introduit le 20031210104127). #
if ("$PaS_ImAgEs" == "$K_VIDE") then
set PaS_ImAgEs=1
# Afin d'assurer la compatibilite... #
else
set PaS_ImAgEs=`echo "$PaS_ImAgEs" | $SE -e "s/^.*,//" -e 's/).*$//'`
# Dans ce cas, on ne prendra qu'une image "valide" sur '$PaS_ImAgEs'... #
endif
#20170906102435____: $xiMo/Ediaporamas$Z $DiApOrAmA $FDiApOrAmA $SeLeCtIf $EnVeRs $NoMbRe_ImAgEs $PaS_ImAgEs #
$xiMo/Ediaporamas$Z $DiApOrAmA $FDiApOrAmA $SeLeCtIf $EnVeRs $NoMbRe_ImAgEs $PaS_ImAgEs $AlLF
# Extraction des images de format 'Pal' et n'etant pas des animations (images de type '$R16' #
# ou '$R64'...). #
unset PaS_ImAgEs
unset NoMbRe_ImAgEs
unset EnVeRs
unset AlLF
unset SeLeCtIf
SIZE $FDiApOrAmA
# Au cas ou le diaporama serait vide... #
if ($Fsize > 0) then
#20050922111730____: $xiMo/Gdiaporamas$Z $FDiApOrAmA $DoCuMeNtN$SlideShow "$TiTrE" #
#20050922120817____: set Boucle=$NEXIST #
#20050922132056____: set Boucle=$EXIST #
#20050922132152____: set Boucle=$NEXIST #
#20050923093232____: set Boucle=$EXIST #
set En_BoUcLe=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Generer_un_Diaporama_EnBoucle.)'`
# Afin de pouvoir choisir entre boucler ou pas le diaporama (introduit le 20050923093232)... #
if ("$En_BoUcLe" == "$K_VIDE") then
set Boucle=$NEXIST
# A priori, en l'absence de 'Generer_un_Diaporama_EnBoucle', le diaporame ne bouclera pas #
# automatiquement (introduit le 20050923093232)... #
else
set Boucle=$EXIST
# Cas ou le bouclage du diaporama est demande explicitement (introduit le 20050923093232)... #
endif
unset En_BoUcLe
set TeMpO_DiA=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Temporisation_Images_Diaporama.,.*)'`
# Afin de pouvoir choisir la temporisation inter-images (introduit le 20111205112628)... #
if ("$TeMpO_DiA" == "$K_VIDE") then
set TempoD="$K_VIDE"
else
set TempoD=`echo "$TeMpO_DiA" | $SE -e "s/^.*,//" -e 's/).*$//'`
endif
unset TeMpO_DiA
setenv FindExec_Parallele $P_DiApOrAmA
# Introduit le 20170414025423 afin de pouvoir, si besoin est, bloquer le parallelisme #
# des 'Gserveur's de generation des imags ('$SlideShow') du diaporama... #
set DiA_PaL=`$CA $DoCuMeNtN$m4 | $GRE 'define(.Generer_un_Diaporama_Pal..*)'`
# Introduit le 20170906120031... #
if ("$DiA_PaL" == "$K_VIDE") then
set FoRcErPal=$NEXIST
else
set FoRcErPal=$EXIST
endif
unset DiA_PaL
#20111205112628____: $xiMo/Gdiaporamas$Z $FDiApOrAmA $DoCuMeNtN$SlideShow "$TiTrE" $Boucle #
#20170906120031____: $xiMo/Gdiaporamas$Z $FDiApOrAmA $DoCuMeNtN$SlideShow "$TiTrE" $Boucle "$TempoD" #
$xiMo/Gdiaporamas$Z $FDiApOrAmA $DoCuMeNtN$SlideShow "$TiTrE" "$Boucle" "$TempoD" "$K_VIDE" "$FoRcErPal"
# Generation de la version '$SlideShow' lorsque cela est demande via la variable #
# 'Generer_la_version_Diaporama' dans le source '$m4' (introduit le 20021123124902). #
# #
# On rappelle le 20191221141024 que sont appeles dans l'ordre : #
# #
# $xiMo/Ediaporamas$Z ----- #
# | #
# | transfert via '$FDiApOrAmA' #
# | #
# $xiMo/Gdiaporamas$Z <---- #
# | #
# --> $xiMo/diaporamas$Z #
# | #
# --> Gserveur (via 'v $xiMo/G_Gserveur$vv$Z') #
# #
unsetenv FindExec_Parallele
unset FoRcErPal
unset TempoD
unset Boucle
else
endif
unset Fsize
unset TiTrE
FileTmpE FDiApOrAmA
else
endif
unset DiApOrAmA
else
endif
Popd
else
endif
if ((-e $DoCuMeNtN$D) || (-e $xiMi/$DoCuMeNtN$D)) then
GserveurI $DoCuMeNtN
set A_EtE_GeNeRe=$EXIST
# Cas d'un document de '$xiMi'... #
if ("$mHOTE" == "$mDev_WWW") then
if ($NEXIST) then
# Cette sequence a priori inutilisee a ete introduite le 20070419114226... #
set PoStScRiPt=$DMserveurX/$DoCuMeNt
$DELETE $PoStScRiPt$PostScript
psi $DoCuMeNtN $PoStScRiPt
chmod $MODE_444 $PoStScRiPt$PostScript
# Generation d'une version 'PostScript' de l'image '$DoCuMeNtN'. On notera que le nom du #
# fichier PostScript dans '$DMserveurX' est '$DoCuMeNtN' suivi de '$PostScript'... #
unset PoStScRiPt
else
endif
else
endif
else
endif
set PoStFiXe=`GetPost $DoCuMeNt`
if (("$PoStFiXe" == "$PDF") && (-e $DoCuMeNt)) then
GserveurP $DoCuMeNt
set A_EtE_GeNeRe=$EXIST
# Cas d'un document de type '$PDF' (introduit le 20180226111144...). #
else
endif
unset PoStFiXe
if ($A_EtE_GeNeRe == $NEXIST) then
EROR "['"'$xiMos/Gserveur$vv$Y'"'] Le document '$DoCuMeNt' n'existe pas."
# Ce test a ete introduit le 20021015164438 et a ete modifie le 20030221101630 par #
# introduction de la variable '$A_EtE_GeNeRe'. #
else
endif
unset A_EtE_GeNeRe
else
saut 3
# Ces 3 'saut's introduits le 20020918143133 sont destines a assurer une compatibilite de #
# mise en page avec les cas (plus nombreux...) ou le document '$DoCuMeNt' est genere... #
echo "ATTENTION : le document '$DoCuMeNt' est 'RestrictedAccess', il n'est donc pas genere."
endif
unset GeNeReR
unset DoCuMeNtN
unset DoCuMeNtD