OSF DCE Administration Guide--Core Components

Writing Scripts and dcecp Objects
set org_arg "-org organization"
}
}
set clup_user [concat $clup_user $group_arg $org_arg]
if {[catch {_dcp_add_group_entry $group $element} msg] != 0} {
eval $clup_user
error $msg
}
if {[catch {_dcp_add_org_entry $organization $element} msg] !=0}{
eval $clup_user
error $msg
}
if {[catch {_dcp_add_account_entry $element $account_args} \
msg] != 0} {
eval $clup_user
error $msg
}
if {[catch {_dcp_add_namespace_entry $element} msg] != 0} {
eval $clup_user
error $msg
}
}
set _n $account_name
return
}
#
# _dcp_cleanup_user_create - This function undoes changes after a
# failure in one of the user create functions as though the operation
# never occurred
#
proc _dcp_cleanup_user_create {account_name args} {
if { [lsearch $args -principal] != -1 } {
principal delete $account_name
}
if { [lsearch $args -group] != -1 } {
upvar 1 group clean_group
group delete $clean_group
}
if { [lsearch $args -org] != -1 } {
upvar 1 organization clean_org
organization delete $clean_org
}
}
#
# process_attribute_list - Takes an attribute_list and parses out the
# appropriate attributes contained in the
# pile_of_attributes variable
#
124243 Tandem Computers Incorporated 3−9