13 lines
335 B
Tcl
13 lines
335 B
Tcl
#!/usr/local/bin/tclsh
|
|
|
|
set CTMname src-cur
|
|
set CTMref /u4/ftp/pub/FreeBSD/SRC-current/src
|
|
set CTMdest /u4/ftp/pub/CTM
|
|
set CTMprefix .
|
|
set CTMdont {/CVS$|/CVS/Entries$|/CVS/Repository$|^secure|^eBones}
|
|
set CTMmail ctm-src-cur
|
|
|
|
set CTMcopy /u1/CTM/$CTMname
|
|
set CTMtmp /u1/CTM/tmp/_tmp_$CTMname
|
|
set CTMdate [exec date -u +%Y%m%d%H%M%SZ]
|