set trapedHandle [readAttrFile "d:/example.attr"]
set rootId [$trapedHandle getRootId]

set trapedHandle [readAttrFile "d:/example.attr"]
set rootId [$trapedHandle getRootId]
# this should print "Project"
puts [$trapedHandle getType $rootId]

set trapedHandle [readAttrFile "d:/example.attr"]
# no ID provided => rootId "/pr/44" is used
# this should print templateId: "/ci/8f"
puts [$trapedHandle getIdList Template]

set trapedHandle [readAttrFile "d:/example.attr"]
# no ID provided => rootId "/pr/44" is used
# this should print the following templateId-list: "/ci/8f /ci/1631 /ci/162e /ci/9a"
puts [$trapedHandle getIdListRecursive Template]

set trapedHandle [readAttrFile "d:/example.attr"]
# no ID provided => rootId "/pr/44" is used
foreach id [$trapedHandle getIdListRecursive Template] {
  puts "$id State: [$trapedHandle getAttributeValue $id State]"
  puts "$id cache: [$trapedHandle getAttributeValue $id cache]"
}

This should print the following:

/ci/8f State: Working 
/ci/8f cache: n
/ci/1631 State: Working
/ci/1631 cache: y
/ci/162e State: Working
/ci/162e cache: n
/ci/9a State: Ready To Launch
/ci/9a cache: y

You can set the following attribute (but use this with care):
TemplateType (JSP, TSP or ASP)
CreateTime
LastModTime
ParentProject.

# Set all template to "not-cached"
set trapedHandle [readAttrFile "d:/example.attr"]
# no ID provided => rootId "/pr/44" is used
foreach id [$trapedHandle getIdListRecursive Template] {
  $trapedHandle setAttributeValue $id cache y
}
$trapedHandle writeToFile "d:/example.attr"

if you would run the example code for getAttributeValue again all caching should now be set to 'y'

Be aware the timestamps are returned in seconds since 1970 and not in the native Vignette-format.

set tH [readAttrFile "d:/example.attr"]
$tH getAttributes [$trapedHandle getRootId]

This would return: e.g.

CreatedBy TrapEd CreateTime 1047401249 LastModifier TrapEd LastModTime 1055321442 \
Name Example ParentProject {} Authz {} Producers admin

This could be used in conjunction with setAttributes, e.g.: eval $tH setAttributes $id2 [$th getAttributes $id1]

If you want to have convenient access to all attributes via a Tcl-array:

array set aAttr [$tH getAttributes $id]
puts "Name: $aAttr(Name)"

set tH [readAttrFile "d:/example.attr"]
$tH setAttributes /ci/8f Name "New Name" cache n

You can simply give key-value pairs to the command. For all given keys the values will be updated, all other keys won't be touched.
If you set the attribute ParentProject a move will be executed.

Furthermore give it a unique name (no checks are done for this!). If you don't provide an id a new unique one is automatically generated and returned. If you provide an id this one is used for the new item. No checks for uniqueness or correctness of the id will be done. So use with care.

set tH [readAttrFile "d:/example.attr"]
set newId [$tH create Template [$tH getRootId] "My new Template"]
puts "Created: $newId"

set trapedHandle [readAttrFile "d:/example.attr"]
$trapedHandle delete /ci/8f

to_project_id is the project to which the item is copied. If the item is a project only the project with from_id is copied. All item below that project are ignored but you can simply do that yourself (have a look at the examples). If you want to given the item a new name, e.g. if you copy a project to the same level you have to provide to_name. Be careful though, that no checks are done for unique names and more important for unique ids!

example.attr (the name of the template is not changed (parameter to_name == "").

set tH1 [readAttrFile "d:/example.attr"]
set tH2 [readAttrFile "d:/example2.attr"]
$tH2 copy /ci/8f [$tH1 getRootId] "" $tH1

To copy a complete tree:

# $pT is the target project-id ($tT is the target-handle)
# $pS is the source project-id which should be copied ($tS is the source-handle)
# this assumes that the first copied project has a parentproject-id which
# is also existing in $tT
foreach id [$tS getIdListRecursive Project] {
  $tS copy $id [$tS getAttributeValue $id ParentProject] "" $tH
  foreach {Template Record File} {
    foreach cid [$tS getIdList $type $id] {
      $tS copy $cid $id "" $tH
    }
  }
}

You cannot move an item to another attr-file. But you can simply work around that by doing a copy (see the recursive-copy-example above) and afterwards a delete on the source-project.

set tH [readAttrFile "d:/example.attr"]
$tH move /pr/118 /pr/e86