home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / software / on-line / amitradecenter / utilities / amftp2atc.rexx next >
Encoding:
OS/2 REXX Batch file  |  2000-02-04  |  1.1 KB  |  65 lines
  1. /* AmFTP-Profiles 2 ATC-Profiles */
  2.  
  3. /* 06.08.1999 (Gelb) - Check auf anonymous eingebaut */
  4.  
  5. OPTIONS RESULTS
  6.  
  7.  IF show('P','AMFTP.1') THEN
  8.   DO
  9.     ADDRESS 'AMFTP.1'
  10.     GETHOSTS host
  11.   END
  12.  ELSE DO
  13.   Say "AmFTP.1 not found!"
  14.   Exit 10
  15.  END
  16.  
  17.  DO I=1 TO 500
  18.   IF POS('HOST.',host.i)~=0 THEN LEAVE
  19.  END
  20.  
  21.  IF ~Open(NEW,'ram:ATC.Profiles',W) THEN
  22.   DO
  23.    Say 'Failed to open file!'
  24.    Exit 10
  25.   END
  26.  
  27.  DO X=0 TO I-1
  28.   GETPROFILE X OLD
  29.  
  30.   IF OLD.ANON=1 THEN /* 06.08.1999 */
  31.     MODE=1
  32.   ELSE IF OLD.ADT=1 THEN
  33.     MODE=2
  34.   ELSE
  35.     MODE=0
  36.  
  37.   WriteLN(NEW,'SERVER '||OLD.HOST','OLD.USERNAME','OLD.PASSWORD','OLD.PORT','OLD.LABEL','MODE',3,200,'OLD.LOCALDIR',1,'OLD.DEFDIR',1,,0,0,0,0,0,1,0,0')
  38.  END
  39.  
  40. Close(NEW)
  41.  
  42. /*
  43. 0 host
  44. 1 login
  45. 2 password
  46. 3 port
  47. 4 comment
  48. 5 mode        0=l/p 1=anon 2=adt
  49. 6 tries
  50. 7 cpslimit    auf 200 setzen (full speed)
  51. 8 localdir
  52. 9 savelocal   0=aus 1=an
  53. 10 remotedir
  54. 11 saveremote 0=aus 1=an
  55. 12 firstlogin sekunden seit 01.01.1978
  56. 13 lastlogin  sekunden seit 01.01.1978
  57. 14 connects
  58. 15 logins
  59. 16 received
  60. 17 sent
  61. 18 delay
  62. 19 adtdate   sekunden seit 01.01.1978
  63. 20 keepalive 0=aus 1=an
  64. */
  65.