用Informix-4GL实现FTP传送

作者：beyonder  出处：Unix爱好者家园unix-cd.com   

function ftptxt()
define ftpstr,filename,ipaddr char(500)
initialize ftpstr,filename,ipaddr --初始化字符串
options prompt line last-1

prompt "对方FTP服务打开后, 请录入对方IP地址:" for ipaddr
prompt "要传送的文件名: " for filename
let filename = filename clipped --截去尾部
let ipaddr = ipaddr clipped

let ftpstr="( echo \"","user anonymous ftp@ \";" --后两个参数是用户名及口令, 本示例为匿名登录
let ftpstr=ftpstr clipped," echo \" bin\";"," echo \"put ",filename clipped,"\";"
let ftpstr=ftpstr clipped," echo \" bye\";",")|ftp -n ",ipaddr clipped

error "正在传送....."
--call errorlog(ftpstr) --调试
run ftpstr
error "传送完成!"