#!/usr/bin/expect

switch -- [llength $argv] {
    0 { set date "now" ; set dir . }
    1 { set date "now" ; set dir [lindex $argv 0] }
    default { set date [lindex $argv 1] ; set dir [lindex $argv 0] }
}

cd $dir

set cvsroot ":pserver:anonymous@tclvfs.cvs.sourceforge.net:/cvsroot/tclvfs"
spawn cvs -q -d$cvsroot login
expect -re "assword: "
send "\r"
system "cvs -q -d$cvsroot -z9 co -D \"$date\" tclvfs"
system "cvs -q -d$cvsroot logout"

