通過CGI向LDAP添加對象

Question

我有一個Web表單，它收集信息並將其提交給試圖將數據插入LDAP的cgi。問題是，我試圖使用:: ldap :: add的變量，它只是不工作。下面的代碼：

if {[string length env(QUERY_STRING)] != 0} { 
    set handle [::ldap::connect localhost] 
    set dn "cn=admin,dc=mycompany,dc=com" 
    set pw "myPassword" 

    ::ldap::bind $handle $dn $pw 

    set dn "cn=[ncgi::value givenName] [ncgi::value sn],ou=people,dc=mycompany,dc=com" 

    set formValues [ 
      puts "cn  {{[ncgi::value givenName] [ncgi::value sn]}}" 
      puts "displayName  [ncgi::value givenName] [ncgi::value sn]" 
      foreach {key value} [ncgi::nvlist] { 
        if {[string length $value] != 0} { 
          puts "$key  $value" 
        } 
      } 
      puts "objectClass  top" 
      puts "objectClass  person" 
      puts "objectClass  organizationalPerson" 
      puts "objectClass  inetOrgPerson" 
    ] 

    ::ldap::add $handle $dn { 
      $formValues 
    } 

    ldap::unbind $handle 

}

但是，如果我更換$與我想要插入到LDAP中的實際項formValues，他們得到補充就好了。

我是TCL新手，所以如果在這段代碼中有一些明顯的錯誤，我不會感到驚訝。

在此先感謝！

Answer 1

的大錯誤：

1. 方括號替代結果裏面的腳本，而不是它的輸出。
2. puts命令將字符串發送到標準輸出（或文件），並不保存它們以供日後處理。
3. 花括號完全消除了它們內部的所有替換。

修復程序是使用列表命令構建描述以與ldap::add一起使用。例如：

set formValues {} 
lappend formValues cn   "[ncgi::value givenName] [ncgi::value sn]" 
### Might need this instead; it depends on how you want to do the construction 
# lappend formValues cn  [list [ncgi::value givenName] [ncgi::value sn]] 
lappend formValues displayName "[ncgi::value givenName] [ncgi::value sn]" 
foreach {key value} [ncgi::nvlist] { 
    ### Could also use {$value ne ""} here 
    if {[string length $value] != 0} { 
     lappend formValues $key $value 
    } 
} 
lappend formValues objectClass top 
lappend formValues objectClass person 
lappend formValues objectClass organizationalPerson 
lappend formValues objectClass inetOrgPerson 

::ldap::add $handle $dn $formValues 

而且，如果這些鍵是從表單來的，你應該增加更多的驗證，以從意外增加等額外附加objectClass ES阻止惡意用戶。一盎司的預防值得治癒百分之一。