home *** CD-ROM | disk | FTP | other *** search
/ ANews 1 / AnewsCD01.iso / Internet / FTP / AmFTP / Install_AmFTP < prev    next >
Text File  |  1999-08-11  |  20KB  |  466 lines

  1. ;******************************************************************************
  2. ;      ____           ______ ______ ______
  3. ;     / __ \         / ____//_  __// __  /
  4. ;    / /_/ /_   _   / /_     / /  / /_/ /
  5. ;   / __  // \_/ \ / __/    / /  / ____/
  6. ;  / / / // /__/ // /      / /  / /
  7. ; /_/ /_//_/  /_//_/      /_/  /_/
  8. ;
  9. ; $VER: 1.65c (Mai-17-1998) 
  10. ; AmFTP ©1995-1998 by Mathias Mischler
  11. ; AmFTP Installer ©1995,1996,1997 by Robert C. Reiswig 
  12. ;
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package. Changes, suggestions or problems:
  15. ; AmFTP@vgr.com or rcr@netcom.com
  16. ;******************************************************************************
  17. ;*** System Stuff ***
  18. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  19. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  20. (set osver (/ (getversion "LIBS:version.library") 65536))
  21. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  22. (set fastmem (- totmem graphmem))
  23.  
  24. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  25. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  26. (if (= osver 41) (set workbench "3.2"))
  27.  
  28. (set cpu (database "cpu"))
  29. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  30. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  31. (if (= cpu 68040) (set #cpu 4)) 
  32. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  33.  
  34. (set vernum1 (getversion "AmFTP")) (set ver1 (/ vernum1 65536)) 
  35. (set rev1 (- vernum1 (* ver1 65536) ) ) (set AmFTPver (cat ver1 "." rev1))
  36.  
  37. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  38. (set lan 0)
  39.  
  40. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  41. (if (= "svenska"    lanfound) (set lan 2))  (if (= "suomi"      lanfound) (set lan 3))
  42. (if (= "français"   lanfound) (set lan 4))  (if (= "norsk"      lanfound) (set lan 5))
  43. (if (= "español"    lanfound) (set lan 6))  (if (= "greek"      lanfound) (set lan 7)) 
  44. (if (= "nederlands" lanfound) (set lan 8))  (if (= "italiano"   lanfound) (set lan 9)) 
  45. (if (= "bosanski"   lanfound) (set lan 10)) (if (= "dansk"      lanfound) (set lan 11)) 
  46. (if (= "polski"     lanfound) (set lan 12)) (if (= "português"  lanfound) (set lan 13))
  47. (if (> lan 13) (set lan 0))
  48.  
  49. (set #English    "English")  (set #Deutsch    "Deutsch")
  50. (set #Français   "Français") (set #Español    "Español")
  51. (set #Svenska    "Svenska")  (set #Nederlands "Nederlands")
  52. (set #Norsk      "Norsk")    (set #Suomi "Suomi")
  53. (set #Greek      "Greek")    (set #Italiano "Italiano")
  54. (set #Bosanski   "Bosanski") (set #Dansk "Dansk")
  55. (set #Polski     "Polski")   (set #Português "Português")
  56.  
  57. (set mfound 0) (set newicon1 1) 
  58. (set keeper 1) (set firsttime 0)
  59.  
  60. ;********************************************************************
  61. ; English Strings
  62. ;********************************************************************
  63. (set #about (cat "\n\n\nWelcome to\n\nAmFTP " AmFTPver "\n\nCopyright © 1995-1998 by\n\nMathias Mischler\n") )
  64. (set #nomui (cat "\n\nAmFTP uses Magic User Interface (MUI).\n\nThe installer has not found MUI: to be assigned, "
  65.                  "therefore you AmFTP will not work correctly.  You will need to install "
  66.                  "MUI before running AmFTP."
  67.             )
  68. )
  69. (set #whereAmFTP "Where do you wish to install AmFTP. A directory called 'AmFTP' will be created if one is not there. If a copy of AmFTP is found it will be backed up.")
  70. (set muiver "No Version Installed")
  71. (set #newermui "\n\nAmFTP needs version 3.0 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\n It looks like you have: \n\n")
  72. (set #need-os "\n\nThe 68020 version of AmFTP needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  73. (set #000used "\n\nThe 68000 version will be installed.") 
  74. (set #filethere1 "\n\nThe installer has found AmFTP version ")
  75. (set #filethere2 " at ")
  76. (set #filethere3 "\n\nThe file will be renamed to ")
  77. (set #filethere4 " and it will then be moved to ")
  78. (set #oktodelete1 "\nIs it ok to delete the older AmFTP binary so that the AmFTP Directory can be made?\n")
  79. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ AmFTP binary so that the AmFTP Directory can be made?\n")
  80. (set #backuptoXXX "Back-UP to file named 'AmFTP")
  81. (set #copyover "Copy Over Old Version")
  82. (set #AmFTPfound "\nThe Installer has found a copy of AmFTP already installed. What do you want to do?\n")
  83. (set #askcpu "\nCPU Check: What CPU does the machine have that you are installing AmFTP on? The installer has found:\n")
  84. (set #no020found "\n\nThe 68020 Version of AmFTP , AmFTP020, was not found in this archive the 68000 version was installed.")
  85. (set #newicon "\nDo you wish to copy over one of the AmFTP Icons from the archive? If you have any ToolTypes already set you should select no.\n")
  86. (set #pickicon "\nAmFTP has a number of different icons you can choose from. Which one would you like to use?\n")
  87. (set #nomultiview (cat "The installer could not find multiview or you are running on a 2.0x Amiga. "
  88.                        "The AmFTP Installer will let you choose between a few different icon to use. "
  89.                        "You can use a picture viewer to look at the 'Icons/ftp_Icons.iff' to see the choices side-by-side, "
  90.                        "or you can just look in the Icon drawer from where you are installing AmFTP from."
  91.                   )
  92. )
  93. (set #nonewicon  "No  - ToolTypes already set.")
  94. (set #yesnewicon "Yes - Copy over Icon.")
  95. (set #whatcat "Select the AmFTP Language catalog you wish to install. (N/A = Not Available in this Archive.)")
  96. (set #wherecat "\nWhere do you wish to install the AmFTP Language Catalog? Default is ")
  97. (set #catnofind "Can not find this catalog in this AmFTP archive. You may need to get the complete archive from the support site.")
  98. (set #whatdocs "\nWhat AmFTP documentation would you like to install?\n")
  99. (set #wheredocs "Where would you like the AmFTP documentation you selected to be installed?")
  100. (set #byebye (cat "\nAmFTP Install Complete!\n\n" ))
  101. ;********************************************************************
  102. ; Hello
  103. ;********************************************************************
  104. (message #about)
  105. (welcome) 
  106.  
  107. ;********************************************************************
  108. ; MUI installed?
  109. ;********************************************************************
  110. (if (< (exists "mui:") 2)  (message #nomui) )
  111.  
  112. ;********************************************************************
  113. ; Check for AmFTP020 requs
  114. ;********************************************************************
  115. (set ver 0)
  116. (if (exists "mui:mui") 
  117.  (
  118.   (set vernum (getversion "mui:mui") )
  119.   (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  120.  
  121.   (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  122.   (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  123.   (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  124.   (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  125.  )
  126. )
  127.  
  128. (if (< ver 11)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  129. ;(if (< osver 39) ( (message (cat #need-os workbench #000used)) (set cpuPick 0) ))
  130.  
  131. ;********************************************************************
  132. ; Ask where to put AmFTP & Make dir if needed
  133. ;********************************************************************
  134. (set Package (getassign "AmiTCP"))
  135.   (if (= Package "") (set Package (getassign "Inet"))
  136. )
  137.  
  138. (set AmFTPdir  (askdir (prompt #whereAmFTP)
  139.                (help   #whereAmFTP)
  140.                     (default Package)
  141.                )  
  142. )
  143.  
  144. (set where AmFTPdir)
  145.  
  146. (if (= 1 (exists (tackon where "AmFTP") ) ) 
  147.   (
  148.     (set vernum1 (getversion (tackon where "AmFTP") ))
  149.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  150.     (set AmFTP_old (cat ver1 "." rev1))
  151.  
  152.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  153.                   (cat "AmFTP" AmFTP_old) #filethere4 (tackon AmFTPdir "AmFTP") )
  154.     )
  155.     
  156.  
  157.     (copyfiles (source (tackon where "AmFTP"))
  158.                (dest where) 
  159.                (infos)
  160.                (newname (cat "AmFTP" AmFTP_old))
  161.     )
  162.  
  163.     (delete (tackon AmFTPdir "AmFTP") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  164.  
  165.     (if (< (exists (tackon AmFTPdir "AmFTP")) 2) (makedir (tackon AmFTPdir "AmFTP") (infos)) )    
  166.  
  167.     (copyfiles (source (tackon where (cat "AmFTP" AmFTP_old) ))
  168.                        (dest (tackon AmFTPdir "AmFTP")) 
  169.                        (infos)
  170.                
  171.     )
  172.  
  173.     (delete (tackon where (cat "AmFTP" AmFTP_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  174.  
  175.     ;(set firsttime 1)
  176.  
  177.   )
  178. )
  179.  
  180. (if (< (exists (tackon AmFTPdir "AmFTP")) 2) (makedir (tackon AmFTPdir "AmFTP") (infos)) )
  181. (set where (tackon AmFTPdir "AmFTP"))
  182. (set @default-dest where)
  183.  
  184. ;********************************************************************
  185. ; Check for old & backup
  186. ;********************************************************************
  187. (if (exists (tackon where "AmFTP")) 
  188.   (
  189.       (set vernum1 (getversion (tackon where "AmFTP") ))
  190.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  191.       (set AmFTP_old (cat ver1 "." rev1))
  192.  
  193.       (set keeper  (askchoice (choices  (cat #backuptoXXX AmFTP_old "'")  #copyover)
  194.                      (prompt #AmFTPfound)
  195.                  (help   #AmFTPfound)
  196.                      (default 0)
  197.                )
  198.       )    
  199.  
  200.  
  201.       (if (= keeper 0)
  202.          (copyfiles (source (tackon where "AmFTP"))
  203.                      (dest where) 
  204.                      (infos)
  205.                      (newname (cat "AmFTP" AmFTP_old))
  206.          )
  207.       )          
  208.  
  209.       (set firsttime 1)
  210.     
  211.   )
  212. )
  213.  
  214. ;********************************************************************
  215. ; Double Check on the CPU
  216. ;********************************************************************
  217. (set cpuPick (askchoice (choices "68000" "68010" "68020" "68030"
  218.                          "68040" "68060"
  219.                 )
  220.              (prompt #askcpu)
  221.                      (help   #askcpu)
  222.                    (default #cpu)
  223.       )
  224. )
  225.  
  226. ;********************************************************************
  227. ; Copy over correct AmFTP and Icon if wanted
  228. ;********************************************************************
  229. (if (AND (> cpuPick 1) (exists ("AmFTP020")) )
  230.    (copyfiles (source "AmFTP020") (dest where) (optional "nofail") (newname "AmFTP") )
  231.  
  232.    (copyfiles (source "AmFTP") (dest where) (optional "nofail") )
  233. )
  234.  
  235. ;(if (AND (> cpuPick 1) (= (exists ("AmFTP020")) 0) )
  236. ; (message #no020found)
  237. ;)
  238.  
  239. ;(if (= firsttime 0)  (copyfiles (source "AmFTP.info") (dest where) (optional "nofail") ) )
  240.  
  241. (if (exists ("RegisterAmFTP"))
  242.  (copyfiles (source "RegisterAmFTP") (dest where)  (infos) (optional "nofail") )
  243. )
  244.  
  245. ;********************************************************************
  246. ; Reg stuff 
  247. ;********************************************************************
  248. (if (exists"Register-AmFTP") 
  249.  (
  250.   (if (< (exists (tackon where "Register-AmFTP")) 2) (makedir (tackon where "Register-AmFTP") (infos)) )    
  251.   (if (exists "Register-AmFTP.info")
  252.     (copyfiles (source "Register-AmFTP.info") (dest where) (optional "nofail") ) 
  253.   )
  254.   (set whereR (tackon where "Register-AmFTP"))
  255.  
  256.  
  257.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" "Svenska" "Italiano" "Polski")
  258.                            (prompt "What Registration Files (Language) would you like to install?")
  259.                        (help   "What Registration Files (Language) would you like to install?")
  260.                         (default 0)
  261.                 )  
  262.   )
  263.  
  264.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  265.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  266.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  267.   (if (= whatreg 3) ((set basereg "Svenska")  (set baseregTT "Svenska")  ) )
  268.   (if (= whatreg 4) ((set basereg "Italiano") (set baseregTT "Italiano")  ) )
  269.   (if (= whatreg 5) ((set basereg "Polski")   (set baseregTT "Polski")  ) )
  270.  
  271.   (if (exists "Register-AmFTP/RegistrationUtility") 
  272.     (copyfiles (source "Register-AmFTP/RegistrationUtility")
  273.                (dest whereR) 
  274.     )
  275.   )
  276.  
  277.   (if (exists (tackon "Register-AmFTP" (cat "Regtool-" basereg ".info")) )
  278.     (copyfiles (source (tackon "Register-AmFTP" (cat "Regtool-" basereg ".info")) )
  279.                (dest whereR) 
  280.                (newname "RegistrationUtility.info")
  281.     )
  282.   )
  283.  
  284.   (if (exists (tackon "Register-AmFTP" (cat "Reg_" basereg ".guide")) ) 
  285.     (copyfiles (source (tackon "Register-AmFTP" (cat "Reg_" basereg ".guide")))
  286.                (dest whereR) 
  287.                (infos)
  288.     )
  289.   )
  290.  
  291.   (if (exists (tackon "Register-AmFTP" (cat "Reg_" basereg ".doc")) )
  292.     (copyfiles (source (tackon "Register-AmFTP" (cat "Reg_" basereg ".doc")))
  293.                (dest whereR) 
  294.                (infos)
  295.     )
  296.   )
  297.  
  298.  
  299.  )
  300. )
  301.  
  302. (if (OR (= keeper 0) (= firsttime 0))
  303.   (
  304.   
  305.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  306.                            (prompt #newicon)
  307.                        (help   #newicon)
  308.                            (default 0)
  309.             )
  310.    )
  311.  
  312.    (if (= newicon 0) 
  313.      (
  314.        (if (> (exists ("c:multiview")) 0)  ((set #mpath "c:") (set mfound 1)) )
  315.        (if (> (exists ("sys:Utilities/multiview")) 0) ((set #mpath "sys:Utilities") (set mfound 1)) )
  316.        (if (= mfound 1) (run (cat "run " (tackon #mpath "multiview ") "Icons/ftp_Icons.iff")) )
  317.        (if (<> mfound 1) (message #nomultiview))
  318.  
  319.        (set pickicon (askchoice (choices "AmFTP:  World/Disk, 3 Arrows"
  320.                                          "AmFTP2: Amiga w/WorldMap & Sel_Arrow"
  321.                                          "AmFTP3: Amiga w/Earth"
  322.                                 )
  323.                                 (prompt #pickicon)
  324.                                 (help   #pickicon)
  325.                                 (default 0)
  326.             )
  327.        )
  328.  
  329.  
  330.      )
  331.    )
  332.  
  333.    (if (= pickicon 0) (copyfiles (source "Icons/AmFTP.info") (dest where) (newname "AmFTP.info") (optional "nofail") ))
  334.    (if (= pickicon 1) (copyfiles (source "Icons/AmFTP2.info") (dest where) (newname "AmFTP.info") (optional "nofail") ))
  335.    (if (= pickicon 2) (copyfiles (source "Icons/AmFTP3.info") (dest where) (newname "AmFTP.info") (optional "nofail") ))
  336.  
  337.   )
  338. )
  339.  
  340. ;********************************************************************
  341. ; Copy over AmFTPPrefs and Default Config if NOT there
  342. ;********************************************************************
  343. (if (> (exists ("amftpprefs")) 0) 
  344.  (copylib (source "amftpprefs") (dest where) (infos) (optional "nofail") )
  345. )
  346.  
  347. ;(if (= (exists ("env:mui/amftp.config")) 0) 
  348. ; (copyfiles (source "amftp.config") (dest "env:mui") (optional "nofail") )
  349. ;)
  350.  
  351. (if (= (exists ("envarc:mui/amftp.config")) 0) 
  352.  (copyfiles (source "amftp.config") (dest "envarc:mui") (optional "nofail") )
  353. )
  354.  
  355.  
  356. ;********************************************************************
  357. ; Select and copy over Catalog
  358. ;********************************************************************
  359. (procedure catthere
  360.    (set foundcat 0)
  361.    (if (> (exists (cat "Catalogs/" #testcat "/AmFTP.catalog")) 0)   
  362.      (set foundcat 1)
  363.    )
  364. (set #cna " (N/A)")
  365.  
  366. (set #testcat "Deutsch")    (catthere) (if (= foundcat 0) (set #Deutsch    (cat #Deutsch   #cna)) )  
  367. (set #testcat "Svenska")    (catthere) (if (= foundcat 0) (set #Svenska    (cat #Svenska   #cna)) ) 
  368. (set #testcat "Suomi")      (catthere) (if (= foundcat 0) (set #Suomi      (cat #Suomi     #cna)) ) 
  369. (set #testcat "Français")   (catthere) (if (= foundcat 0) (set #Français   (cat #Français  #cna)) ) 
  370. (set #testcat "Norsk")      (catthere) (if (= foundcat 0) (set #Norsk      (cat #Norsk     #cna)) )   
  371. (set #testcat "Español")    (catthere) (if (= foundcat 0) (set #Español    (cat #Español   #cna)) ) 
  372. (set #testcat "Greek")      (catthere) (if (= foundcat 0) (set #Greek      (cat #Greek     #cna)) ) 
  373. (set #testcat "Nederlands") (catthere) (if (= foundcat 0) (set #Nederlands (cat #Nederlands#cna)) )
  374. (set #testcat "Italiano")   (catthere) (if (= foundcat 0) (set #Italiano   (cat #Italiano  #cna)) ) 
  375. (set #testcat "Bosanski")   (catthere) (if (= foundcat 0) (set #Bosanski   (cat #Bosanski  #cna)) ) 
  376. (set #testcat "Dansk")      (catthere) (if (= foundcat 0) (set #Dansk      (cat #Dansk     #cna)) )     
  377. (set #testcat "Polski")     (catthere) (if (= foundcat 0) (set #Polski     (cat #Polski    #cna)) )     
  378. (set #testcat "Português")  (catthere) (if (= foundcat 0) (set #Português  (cat #Português #cna)) ) 
  379.  
  380. (set catalog (askchoice (choices #English #Deutsch #Svenska #Suomi #Français
  381.                                  #Norsk #Español #Greek #Nederlands #Italiano #Bosanski #Dansk #Polski #Português)
  382.                            (prompt #whatcat)
  383.                        (help   #whatcat)
  384.                            (default lan)
  385.              )
  386. )
  387.  
  388. (if (= catalog 0)  (set #lcat #English ))   (if (= catalog 1)  (set #lcat #Deutsch))
  389. (if (= catalog 2)  (set #lcat #Svenska))    (if (= catalog 3)  (set #lcat #Suomi))
  390. (if (= catalog 4)  (set #lcat #Français))   (if (= catalog 5)  (set #lcat #Norsk))    
  391. (if (= catalog 6)  (set #lcat #Español))    (if (= catalog 7)  (set #lcat #Greek))
  392. (if (= catalog 8)  (set #lcat #Nederlands)) (if (= catalog 9)  (set #lcat #Italiano))
  393. (if (= catalog 10) (set #lcat #Bosanski))   (if (= catalog 11) (set #lcat #Dansk))
  394. (if (= catalog 12) (set #lcat #Polski))     (if (= catalog 13) (set #lcat #Português)) 
  395.  
  396. (if (<> catalog 0)
  397.  (
  398.   (if (> (exists (cat "Catalogs/" #lcat "/AmFTP.catalog")) 0)
  399.     (
  400.         (set wherecat  (askchoice (choices (tackon where (cat "Catalogs/" #lcat)) (cat "Locale:Catalogs/" #lcat) )
  401.                                   (prompt (cat #wherecat (tackon where (cat "Catalogs/" #lcat)) "\n"))
  402.                             (help   #wherecat)
  403.                                (default 0)
  404.                        )  
  405.         )
  406.  
  407.       (if (= wherecat 1)
  408.         (
  409.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  410.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  411.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  412.          (copylib (source (cat "Catalogs/" #lcat "/AmFTP.catalog")) (dest (cat "sys:Locale/Catalogs/" #lcat)) )
  413.         )
  414.   
  415.         (
  416.          (if (< (exists (tackon where "Catalogs")) 2) (makedir (tackon where "Catalogs")) )
  417.          (if (< (exists (tackon where (cat "Catalogs/" #lcat)) ) 2) (makedir (tackon where (cat "Catalogs/" #lcat)) ) )
  418.          (copylib (source (cat "Catalogs/" #lcat "/AmFTP.catalog")) (dest (tackon where (cat "Catalogs/" #lcat)) ) (optional "nofail") )
  419.         )
  420.       )
  421.  
  422.     )
  423.  
  424.     (message (cat "\nCatalogs/" #lcat "/AmFTP.catalog\n\n" #catnofind))
  425.   )
  426.  
  427.  )
  428. )
  429.  
  430. ;********************************************************************
  431. ; Ask and and copy docs if wanted!
  432. ;********************************************************************
  433. (set docs (askoptions (choices "AmFTP.guide" "AmFTP.doc" "AmFTP.Changes")
  434.               (prompt #whatdocs)
  435.                       (help #whatdocs)
  436.                   (default 3)
  437.       )
  438. )
  439.  
  440. (if (<> docs 0)
  441.  (
  442.    (set docsdir (askdir (prompt #wheredocs)
  443.                (help   #wheredocs)
  444.                     (default where)
  445.                 )  
  446.    )
  447.  
  448.    (if (IN docs 0) (copyfiles (source "AmFTP.guide") (dest docsdir) (infos) (optional "nofail") ) )
  449.    (if (IN docs 1) (copyfiles (source "AmFTP.doc") (dest docsdir) (infos) (optional "nofail") ) )
  450.    (if (IN docs 2) (copyfiles (source "AmFTP.Changes") (dest docsdir) (infos) (optional "nofail") ) )
  451.  
  452.  )
  453. )
  454. ;********************************************************************
  455. ; copy keyfile if there 
  456. ;********************************************************************
  457. (if (> (exists "AmFTP.Key") 0)
  458.  (copyfiles (source "AmFTP.Key") (dest where) (infos) (optional "nofail") ) 
  459. )
  460.  
  461. ;********************************************************************
  462. ; End Bye 
  463. ;********************************************************************
  464. (exit #byebye)
  465.