ishideo
10/13/2016 - 2:59 AM

ftp-put.scm

#!/usr/bin/env gosh
(use rfc.ftp)

(define *username* "xxx")
(define *ftp-server* "ftp.xxx.xxx")
(define *client-path* "/xxx/xxx/xxx/xxx.txt")
(define *server-path* "/xxx/xxx/xxx.txt")

(define (main args)
  (print "input password:")
  (print
   (ftp-put
    (ftp-login *ftp-server* :passive #t :username *username* :password (read)) *client-path* *server-path*))
  0)