Here is the source code for the example above in case that might be of interest in determing what the problem is:
######################################################################
# Name: oth_fileset_delete
# Purpose: Modify the Fileset deletion list to user specification
# NOTE – the actual FILESET/FTP Delete list is described as
# a list in the documentation and is treated as such
# in this proc.
# In point of fact, at the time of this proc’s
# construction, Cloverleaf(R) only has one element in
# this list each time the UPoC is entered.
# Moreover, the current implementation (Cloverleaf(R)
# 5.2.2) allows files to be extracted from only one
# directory and does not chase subdirectories.
# This proc is written with that assumption. If the
# behavior of the Fileset/FTP protocol changes
# such that multiple directories could be represented
# AND the provided list is a list of multiple entries,
# this proc may need to be rewritten.
# EVENTS EXPOSED:
# INIT – to initialize the package
# MODIFY – to Modify the list
# 20070313jrk Begin — UPoC Type changed from Tps to Other – Package
# UPoC type: Other – Package
# 20070313jrk End
# 20070313jrk Begin — Args modified to describe exposed properties
# Args:
# User-supplied Properties:
# All of the arguments used by this proc are contained
# in one exposed property. That property is a keyed list
# called ARGS. Here are the keys for that keyed list:
#
# DEBUG
# MODTYPE
# MATCH
# DELETE_LIST
# 20070313jrk End
#
#
#
# Author: James R. Kosloskey
# Date-written: 01/08/2007
#
# Returns: Sets properties which can be interrogated by the invoking proc
# Here are the properties set by this proc:
# return_code This is a list of two elements. The first element is
# The Event name which set the return code. The second
# element is the actual numeric return code. A value of
# all zeros means successful completion. Any other value
# indicates an error.
# error_lit This property is empty unless an error has been
# detected (return_code list element 2 not zeros)in which
# case this property will contain an error message.
#
#*******************************************************************************
#* C O D E A U D I T *
#*_____________________________________________________________________________*
#*Date I-Catcher Description *
#*———- ———- ——————————————————-*
#*01/08/2007 Procedure conceived
#*03/13/2007 20070313jrk Procedure converted from a Tcl proc to a Tcl Package
#*03/24/2010 20100324jrk Changed lappend to append so that retrieved list from
# would not be a list element but rather a list. This
# impacted the incl whether exact or glob/regexp.
# Version changed to 1.2.
#
#*******************************************************************************
#
######################################################################
package provide oth_fileset_delete 1.2
#20100324jrk Version changed to 1.2 was 1.1
namespace eval oth_fileset_delete {
# Declare Properties
variable modtype “”
variable match_type “”
variable debug 0
variable delete_list “”
#
# Check the HCI globals to see if they exist
# They won’t exist if we are not invoked while within Cloverleaf
# So we need to null them so they do exist and we can have a proc
# which works within Cloverleaf and outside Cloverleaf
#
if {![info exists HciConnName]} {
variable HciConnName “not Cloverleaf”
}
if {![info exists HciSite]} {
variable HciSite “not Cloverleaf”
}
variable date_time [clock format [clock seconds] -format “%m/%d/%Y %T”]
variable module “$date_time $HciSite $HciConnName OTH_FILESET_DELETE V1.2:”
#20100324jrk Version changed to 1.2 was 1.1
variable fileset_delete_args_kl “”
variable return_code “”
# Declare globals
global oth_fileset_delete::module
global oth_fileset_delete::debug
global oth_fileset_delete::fileset_delete_args_kl
global HciConnName
global HciSiteDir
# Make the procedures visible to invoking procs (via namespace import)
namespace export MODIFY INIT
# MODIFY Event – Modifies the Fileset Deletion List
proc MODIFY {} {
# Declare globals
global oth_fileset_delete::module
global oth_fileset_delete::debug
global oth_fileset_delete::modtype
global oth_fileset_delete::fileset_delete_args_kl
# Declare Properties
variable return_code [list MODIFY 000]
# Set Local variables
set val_modtype_list [list incl excl]
set match_list “”
set val_match_type [list exact glob regexp]
set curr_match_element “”
set match_elem_cnt 1
set ret_cd “”
set val_debug [list y Y Yes YES n N No NO]
set fatal_err 0
set delete_list_element “”
set delete_list_path “”
set delete_list_cnt 1
set wrk_delete_list “”
set wrk_delete_list_cnt 0
set wrk_file_del_list_elem “”
set incl_exact_match “”
set interim_incl_list “”
set glob_regexp_match_list “”
set invoker “”
# Get DEBUG (debug is optional but if not present the default is No”
keylget fileset_delete_args_kl DEBUG debug
# Check to see if it is a valid value, if it is not set to NO
set ret_cd [lsearch -exact $val_debug $debug]
if {[string match “-1” $ret_cd]} {
set debug “N”
}
# If it is a valid value, set the debug switch appropriately so we
# don’t need to do a literal check
string map -nocase “y 1 Y 1 yes 1 YES 1 n 0 No 0 NO 0” $debug
# Indicate we have control and who invoked us.
if {$debug} {
set invoker [uplevel {namespace current}]
echo “$module MODIFY Event Invoked by namespace >$invoker[lindex [info level -1] 0]$fileset_delete_args_kl$modtype$modtype$val_modtype_list$fileset_delete_args_kl$match_elem_cnt$curr_match_element$match_type$curr_match_element$val_match_typeinvoker$debug$modtype$match_listfileset_delete_args_klfileset_delete_args_kl$delete_list$delete_list_path$delete_list_cnt$delete_list_element$delete_list_file_name$delete_list_file_name$wrk_delete_list$wrk_delete_list$match_elem_cnt$curr_match_element[lindex $curr_match_element 1][lindex $curr_match_element 1]$interim_incl_list$interim_incl_list$wrk_delete_list$interim_incl_list$match_elem_cnt$curr_match_element[lindex $curr_match_element 1]$glob_regexp_match_list$wrk_delete_list$glob_regexp_match_list$wrk_delete_list$wrk_delete_list$interim_incl_list[lindex [intersect3 $wrk_delete_list $interim_incl_list] 1]$wrk_delete_list_cnt$wrk_delete_list$delete_list_path$delete_list_path$wrk_delete_list_elem$invoker[lindex [info level -1] 0].”
}
return
}
# INIT event
proc INIT {} {
return
}
}
Russ Ross
RussRoss318@gmail.com
.
