Reply To: fileset ftp protocol

[Rentian Huang]

William, you can try this, I use it to filter files. Put it in the Directory Parse.

sam 🙂

===================================

proc tpsFilesetFilter { args } {

keylget args MODE mode

keylget args CONTEXT context

if {![keylget args ARGS.DEBUG debug]} { set debug “0” }

if {![keylget args ARGS.FILTER filter]} { error “No filter argument provided” }

set dispList {}

switch -exact — $mode {

start {}

run {

keylget args MSGID mh

set data [msgget $mh ]

set return_files {}

foreach file $data {

if [string match $filter $file] {

lappend return_files $file

}

}

msgset $mh $return_files

lappend dispList “CONTINUE $mh”

}

shutdown {}

time {}

default {

error “Unknown mode ‘$mode’ in tps_fileset_dir_parse”

}

}

return $dispList

}