PDF

# Variables et procédures dépendantes de la platformes sur laquelle s'execute
# le serveur d'exploitation. Fichier chargé dans un namespace
# Doit déclarer
# - GlobalSetEnv
# - SetEnv
#
# Version pour Tresor01 (AIX 4.3.2)
# Eric BURGHARD 27/12/2001

# racine aster
variable aster "/aster2.1"

proc GlobalSetEnv {  } {
	variable env
	# Procédure pour initialiser l'environnement d'exploitation aster
	# sur tresor01
	
	variable aster
	
	# pour les appels a GetVal
	set env(FIC_CONFIG) [file join $aster applis Srv cfg emplacement.cfg]
	set env(BAT_USR) "exppiaf"
	set env(NLS_DATE_FORMAT) "DD/MM/RRRR"
	set env(NLS_LANG) "french_france.we8iso8859p1"
	set env(NLSPATH) "/usr/lib/nls/msg/%L/%N:/usr/lib/nls/msg/%L/%N.cat"
	set env(NLS_TIME_FORMAT) "HH24:MI:SS"
	set env(ORACLE_HOME) [GetVal ORACLE UX]
	set env(LD_LIBRARY_PATH) "$env(ORACLE_HOME)/lib:$env(ORACLE_HOME)/precomp/lib:/
	usr/lib:/lib:/usr/ccs/lib:$env(ORACLE_HOME)/network/lib"
	set env(TNS_ADMIN) "$env(ORACLE_HOME)/network/admin"
	
}
proc SetEnv base_sid {
	# Procédure pour se placer dans un environnement dépendant d'une
	# base base_sid donnée
	# -> base_sid
	# <- environnement plac 
	#
	
	variable env
	 
	# charge toutes les variables liées a la base $base_sid
	foreach {var_i val_i} [GetEnv $base_sid] {
	 set env($var_i) $val_i
	}
	set env(BATCH_DIR) $env(BATCH)
	set env(BAT_BIN) $env(BATCH)/bin
	set env(BAT_CFG) $env(BATCH)/cfg
	set env(BAT_MOD) $env(BATCH)/modele
	set env(BAT_SQL) $env(BATCH)/sql
	set env(BAT_LOG) $env(BATCH_LOG)
	set env(BAT_TMP) $env(BATCH_TMP)
	set env(ORACLE_SID) $env(BASE)
	set env(TWO_TASK) $env(INSTANCE)
	set env(PATH) "$env(BATCH)/exe:$env(BATCH)/exploit:$env(BATCH)/lib:$env(BATCH)/outils:/bin:/etc:/home/exppiaf/bin:/lib:$env(ORACLE_HOME)/bin:$env(ORACLE_HOME)/lib:$env(ORACLE_HOME)/network/lib:$env(ORACLE_HOME)/precomp/lib:/sbin:/usr/bin:/usr/bin/X11:/usr/ccs/bin:/usr/ccs/lib:/usr/ibmcxx/bin:/usr/lbin:/usr/lib:/usr/local/bin:/usr/sbin:/usr/ucb:/usr/vac/bin"
	
}