#!/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]