1#!/usr/local/bin/tclsh 2 3set CTMname smp-cur 4set CTMref /home/smp 5set CTMdest $CTMSW/../CTM-priv/$CTMname 6set CTMdont {\.core$|^/CVSROOT/history.*$|/#cvs|/\.#} 7set CTMmail smp-cvs-cur 8