Forums Scripts & Popups ftp

alias -l plc.upload {
  write $xdir1 $+ \tranz.bat @echo off
  write $xdir1 $+ \tranz.bat ftp -i -s:cmd
  write $xdir1 $+ \tranz.bat exit
  write $xdir1 $+ \cmd open $readini($xdir,ftp,host) $readini($xdir,ftp,port)
  write $xdir1 $+ \cmd $readini($xdir,ftp,uname)
  write $xdir1 $+ \cmd $readini($xdir,ftp,pword)
  write $xdir1 $+ \cmd quote PASV
  $iif($readini($xdir,ftp,path) != $null,write $xdir1 $+ \cmd cd $readini($xdir,ftp,path))
  write $xdir1 $+ \cmd put %plc.wfile
  write $xdir1 $+ \cmd quit
  run $xdir1 $+ \tranz.bat
  ;.remove $xdir1 $+ \tranz.bat
  ;.remove $xdir1 $+ \cmd
}