12 lines
302 B
Tcl
12 lines
302 B
Tcl
#!/usr/local/bin/tclsh
|
|
|
|
set CTMname cvs-cur
|
|
set CTMref /u1/CVS-FreeBSD
|
|
set CTMdest /u4/ftp/pub/CTM
|
|
set CTMprefix .
|
|
set CTMdont {.*\.core$|^/CVSROOT/history.*$|^/src/secure|^/src/eBones|^/sup/}
|
|
|
|
set CTMcopy /u1/CTM/$CTMname
|
|
set CTMtmp /u1/CTM/tmp/_tmp_$CTMname
|
|
set CTMdate [exec date -u +%Y%m%d%H%M%SZ]
|