OSF DCE Administration Guide--Core Components

OSF DCE Administration Guide—Core Components
} else { error "No admin password specified." }
#
# principal and group operations both use the principal’s fullname
#
if { [info local fullname]>0}{
set princ_args [format "%s {%s {%s}}" $princ_args fullname \
$fullname]
set group_args [format "%s {%s {%s}}" $group_args fullname \
$fullname]
}
if { [info local uid]>0}{
set princ_args [format "%s {%s %s}" $princ_args uid $uid]
}
.
. [repetitive elements omitted]
.
if { [info local stdtgtauth]>0}{
set account_args [format "%s {%s %s}" $account_args stdtgtauth \
$stdtgtauth]
}
#
# set variables if entered as attributes in an attribute list
#
set account_name [lindex $account_name 0]
set group_created 0
set org_created 0
set group_arg ""
set org_arg ""
#
# do the work - create principal, do group and organization
# operations, create the account, and create directory in CDS
#
foreach element $account_name {
set clup_user "_dcp_cleanup_user_create $element -principal"
_dcp_create_principal_entry $element $princ_args
if { $force ==1}{
if {[ catch {_dcp_create_group $group group_created} \
msg] ! =0}{
_dcp_cleanup_user_create $element -principal
error $msg
}
if { $group_created ==1}{
set group_arg "-group group"
}
if {[ catch {_dcp_create_org $organization org_created} \
msg] ! =0}{
set clup_user [concat $clup_user $group_arg]
eval $clup_user
error $msg
}
if { $org_created ==1}{
3−8 Tandem Computers Incorporated 124243