###############################################################################
proc dump_env {} {
    global env args exitCode timers messages
	send_log "--------------------------\n"
	send_log "TTA_LOGFILE=$env(TTA_LOGFILE) \n"
#set args(DirCachePath) "/tmp/"
#set spos [string last "/" $env(TTA_LOGFILE)]
#set pos [expr $spos+1]
#set lon [string last ".log" $env(TTA_LOGFILE)]
#set nom $args(DirCachePath)[string range $env(TTA_LOGFILE) $pos $lon]exp 
	send_log "nom=$args(ExpFile) \n"
	send_log "TTA_ParentName=$env(TTA_ParentName) \n"
	send_log "TTA_HostName=$env(TTA_HostName) \n"
	send_log "TTA_UserName=$env(TTA_UserName) \n"
	send_log "TTA_ApplicationName=$env(TTA_ApplicationName) \n"
	send_log "TTA_HOSTNAME=$env(TTA_HOSTNAME)\n"
	send_log "TTA_USERNAME=$env(TTA_USERNAME)\n"
	send_log "username0=$args(username0)\n"
	send_log "pasword0=$args(password0)\n"
	send_log "username=$args(username)\n"
	send_log "pasword=$args(password)\n"
	send_log "pasword=$args(host)\n"
	send_log "--------------------------\n"
}
