# -*- tcl -*- \ exec /usr/local/md/sbin/edmsh "$0" ${1+"$@"} # This script sequentially: # o Bind to the server # o Move to right DN # o Create new cross references # Para saber mas de los parametros mirar # /usr/local/md/lib/edmlib/DMI_create.tcl set user "cn=DSA Manager, cn=trogon, o=of, c=ES" set password "miclave" set template "/templates/" set prefix "<dc=of, dc=es>" # Bind to Server if {[catch {dmi open \ -call trogon \ -user "$user" \ -password "$password" \ -simple } err]} { puts "cannot bind to server: $err" return "$err" } else { puts "bind to server" } # Move to right DN if {[catch {dmi base "$prefix" } err]} { puts "cannot move to <$prefix>: $err" return "$err" } else { puts "now in <$prefix>" } # Create new cross references if {[catch {dmi add \ -xr \ -template "$template/cc \ -noedit } err]} { puts "cross reference not created: $err" return "$err" } else { puts "cross reference domain cc.of.es created" }