如何将变量从bash脚本传递给TCL？

Question

我以前从未使用过TCL，但我需要使用它来在我们使用的工具中编写命令脚本。我有一个正在运行的bash脚本，它从AD获得一些信息，然后它将传递给TCL脚本使用。这是我的bash脚本，运行时没有任何问题。

echo "Enter username for LDAP Search"

read USERNAME
export USERNAME

echo "Enter password"

read -s PASSWORD
export PASSWORD

echo "What user do you want to add to Centrify?"
read CENTRIFY_USER
export CENTRIFY_USER


OBJECTSID=`ldapsearch -H ldap://my.domain.com:389 -D "$USERNAME@MY.REALM.COM" -w $PASSWORD -x -b "DC=my,DC=domain,DC=com" "(&(objectCategory=user)(sAMAccountName=$CENTRIFY_USER))" | grep objectSid | cut -d " " -f2`
SID=`/home/mydirectory/convert_objectSid_to_sid.sh $OBJECTSID`

export SID

echo "Adding user to Centrify..."
/home/mydirectory/add_users_to_centrify.sh

"add_users_to_centrify.sh“是随后被调用的tcl脚本，但我在tcl脚本中得到了错误error during execution: can't read "USERNAME": no such variable。

以下是这方面的内容：

#!/bin/sh
# \
exec adedit "$0" ${1+"$@"}
package require ade_lib

puts $env(USERNAME)
puts $env(PASSWORD)
puts $env(SID)
puts $env(CENTRIFY_USER)

bind my.domain.com $USERNAME {$PASSWORD}

另一个问题是，当调用tcl脚本时，我传递的所有参数都会被打印出来，包括密码。我认为导出是最安全的方法，因为它只应该为这个子should设置环境变量，而不是打印它们。这里发生了什么事？

Answer 1

由于要显式打印密码(puts $env(PASSWORD))，所以正在打印密码。

错误似乎很明显:在名为USERNAME的tcl脚本中没有变量。您可以这样设置一个(类似于PASSWORD)：

set USERNAME $env(USERNAME)

或者您可以直接使用环境变量：

bind my.domain.com $env(USERNAME) {$env(PASSWORD)}