home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / comm / misc / ScriptFTP.lha / ScripFTP / Install < prev    next >
Encoding:
Text File  |  1996-12-10  |  4.3 KB  |  170 lines
  1. ; install ScriptFTP v1.2
  2.  
  3. (SET @default-dest "Work:")
  4. (SET default_lang 0)
  5.  
  6. ; ***** english texts *****
  7.  
  8. (SET #needKick (CAT "\nScriptFTP need Kickstart Version 39 at least." ) )
  9.  
  10. (SET #startMsg (CAT "\nScriptFTP 1.2\n\n"
  11.                     "(c)1995/1996 Mathias 'HCL' Delantes\n\n"
  12.                      "ScriptFTP uses MUI, version 3.1 a least.\n\n"
  13.                      "If you were using a previous version of\n"
  14.                      "ScriptFTP then Read the documentation\n"
  15.                      "in order to update your data or you will lost them"))
  16.  
  17. (SET #destPrompt ( CAT "Please choose the destination directory for ScriptFTP.\n"
  18.                        "No extra directory will be created." ) )
  19.  
  20. (SET #copyPFiles "Copying program files")
  21.  
  22. (SET #langPrompt "Select the languages you wish to use with ScriptFTP.")
  23.  
  24. (SET #DocPrompt "Select the directory for the documentation file.")
  25.  
  26. (SET #copyScriptFTP "Copying ScriptFTP...")
  27.  
  28. (SET #langPromptGuide "Select the language you wish for the documentation.")
  29.  
  30. ; ***** francais texts *****
  31.  
  32. (IF (= @language "français")
  33. (
  34. (SET default_lang 1)
  35.  
  36. (SET #needKick ( CAT "\nScriptFTP a besoin du Kickstart version 39 au moins." ) )
  37.  
  38. (SET #startMsg (CAT "\nScriptFTP 1.2\n\n"
  39.                     "(c)1995/1996 Mathias 'HCL' Delantes\n\n"
  40.                     "ScriptFTP utilise MUI, version 3.1 au moins.\n\n"
  41.                     "Si vous utilisez une version anterieur\n"
  42.                     "de ScriptFTP alors Lisez la documentation\n"
  43.                     "afin de mettre a jour vos fichiers ou vous\n"
  44.                     "risquez de les perdre!\n\n"))
  45.  
  46. (SET #destPrompt (CAT "Choissisez un repertoire pour ScriptFTP.\n"
  47.                       "Aucun repertoire ne sera creer pour lui.") )
  48.  
  49. (SET #copyPFiles "Copie des fichiers du programme")
  50.  
  51. (SET #langPrompt "Selectionnez le langage que vous desirez.")
  52.  
  53. (SET #DocPrompt "Selectionnez un repertoire pour la documentation.")
  54.  
  55. (SET #copyScriptFTP "Copie de ScriptFTP...")
  56.  
  57. (Set #langPromptGuide "Selectionnez la langue pour la la documentation.")
  58.  
  59. )
  60. )
  61.  
  62. ; ***** start installation *****
  63.  
  64. (if (< (/ (GETVERSION) 65536) 39)
  65.     (ABORT #needKick)
  66. )
  67.  
  68. (MESSAGE #startMsg)
  69.  
  70. ; ***** get dest dir for ScriptFTP *****
  71.  
  72. (SET @default-dest
  73.     (ASKDIR (PROMPT  #destPrompt)
  74.             (HELP    askdir-help)
  75.             (DEFAULT @default-dest)
  76.             (NEWPATH)
  77.     )
  78. )
  79.  
  80.     (set prozess (database "cpu"))
  81.         (if (< "68010" prozess)
  82.             (set ScriptFTP-source "ScriptFTP020")
  83.             (set ScriptFTP-source "ScriptFTP")
  84.         )
  85.     (set prozess (database "cpu"))
  86.         (if (< "68010" prozess)
  87.             (set ScriptFTPinfo-source "ScriptFTP020.info")
  88.             (set ScriptFTPinfo-source "ScriptFTP.info")
  89.         )
  90.         (copyfiles
  91.             (prompt #copy-ScriptFTP)
  92.             (source ScriptFTP-source)
  93.             (newname "ScriptFTP")
  94.             (dest @default-dest)
  95.             (files)
  96.         )
  97.         (copyfiles
  98.             (prompt #copy-ScriptFTP)
  99.             (source ScriptFTPinfo-source)
  100.             (newname "ScriptFTP.info")
  101.             (dest @default-dest)
  102.             (files)
  103.         )
  104.  
  105. ; ***** install some languages *****
  106.  
  107. (SET sprachen (ASKOPTIONS (PROMPT #langPrompt)
  108.                           (HELP   askoptions-help)
  109.                           (CHOICES "english"
  110.                                    "français"
  111.                           )
  112.                           (DEFAULT (+ default_lang 1) )
  113.               )
  114. )
  115.  
  116. (if (IN sprachen 1)
  117.     (COPYFILES (SOURCE "Locale/français/ScriptFTP.catalog")
  118.                (DEST "Locale:Catalogs/français") )
  119. )
  120.  
  121.  
  122. ; ***** get dest for doc files *****
  123.  
  124. (SET @DocDir
  125.     (ASKDIR (PROMPT  #DocPrompt)
  126.             (HELP    askdir-help)
  127.             (DEFAULT @default-dest)
  128.             (NEWPATH)
  129.     )
  130. )
  131.  
  132. ; ***** install doc files *****
  133.  
  134. (SET sprachen (ASKOPTIONS (PROMPT #langPromptGuide)
  135.                           (HELP   askoptions-help)
  136.                           (CHOICES "english"
  137.                                    "français"
  138.                           )
  139.                           (DEFAULT (+ default_lang 1) )
  140.               )
  141. )
  142.  
  143. (if (IN sprachen 0)
  144.     (COPYFILES (SOURCE "Docs/english/ScriptFTP.guide")
  145.                (DEST @DocDir ))
  146. )
  147.  
  148. (if (IN sprachen 1)
  149.     (COPYFILES (SOURCE "Docs/français/ScriptFTP.guide")
  150.                (DEST @DocDir ))
  151. )
  152.  
  153.  
  154.  
  155.  
  156. (if (IN sprachen 0)
  157.     (COPYFILES (SOURCE "Docs/english/ScriptFTP.guide.info")
  158.                (DEST @DocDir ))
  159. )
  160.  
  161. (if (IN sprachen 1)
  162.     (COPYFILES (SOURCE "Docs/français/ScriptFTP.guide.info")
  163.                (DEST @DocDir ))
  164. )
  165.  
  166.  
  167. (EXIT #exitMsg )
  168.  
  169.  
  170.