#!/usr/local/bin/expect -f
#
#

set HOST [ lindex $argv 0 ]
set PATH [ lindex $argv 1 ]
set FILENAME [ lindex $argv 2 ]
puts "Downloding $FILENAME from $HOST"


# Get a unique filename

########################################################################

proc loginftp {} {
		expect "Name (*:*):" { send "anonymous\r"
			         }

}

########################################################################
proc givepass {} {                expect "Password:" {
                          	    send "NSserver@cs.utk.edu\r"
                      	           } 
}

########################################################################
proc endftp {} {                expect "ftp>" {
                          	    send "bye\r"
                      	           } 
}


########################################################################


#
# Transfer file
#
  spawn ftp $HOST
  loginftp
  givepass
  expect "ftp>" {
    send "cd $PATH\r"
   }  
  expect "ftp>" {
    send "get $FILENAME\r"
  }
  endftp






