#!/usr/local/bin/tclsh
set CTMname src-cur
set CTMdest /u1/CTM
set CTMref /u4/ftp/pub/FreeBSD/SRC-current/src
set CTMprefix .
set CTMcopy $CTMdest/$CTMname
set CTMtmp $CTMdest/_tmp_$CTMname
set CTMdate [exec date -u +%Y%m%d%H%M%SZ]