File title.com

#!/bin/csh

set dirList = (‘getTabCol.tcl -in $meta -var DIR_NAME’)

set tList = (‘getTabCol.tcl -in $meta -var TITLE’)

@ i = 0

foreach d ($dirList)

@ i++

echo $d $tList[$i]

echo $tList[$i] > $d/title

end