home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / mFTP / Install / Install_mftp < prev    next >
Encoding:
Text File  |  1998-10-06  |  6.4 KB  |  211 lines
  1. ;mftp INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 MICHAEL NEUWEILER
  3.  
  4. (complete 0)
  5.  
  6. ;===========================================================================
  7. ; English strings
  8.  
  9. (if (= @language "english")
  10. (
  11. (set locale 0)
  12. (set #bad-MUI             (cat "You need at least MUI2.3 to use mftp." ))
  13. (set #no-AmiTCP        (cat "\"AmiTCP:\" assign not found.\nmftp needs at least AmiTCP 2.3 to run.\nMake shure AmiTCP is installed properly."))
  14. (set #dir-choice         (cat "Select the directory where mftp has to be installed." ))
  15. (set #cpu1                (cat "Your Amiga is equipped with a "))
  16. (set #cpu2                (cat " CPU.\nWhich version of mftp would you like to install ?"))
  17. (set #copy                 (cat "Copying mftp"))
  18. (set #doc-choice        (cat "Where do you want to install the documentation?\nIf you want the HELP key to work you should use the given path."))
  19. (set #doc-copy         (cat "Copying Documentation"))
  20. (set #cat-copy         (cat "Copying Catalog"))
  21. (set #doc-file            (cat "mftp_English.guide"))
  22. ))
  23.  
  24. ;===========================================================================
  25. ; French strings
  26.  
  27. (if (= @language "français")
  28. (
  29. (set locale 1)
  30.  
  31. (set #bad-MUI         (cat "Vous avez besoin d'au moins MUI3.1 pour utiliser mftp." ))
  32. (set #no-AmiTCP    (cat "\"AmiTCP:\" assign non trouvé.\nmftp a besoin d'au moins AmiTCP 2.3 pour fonctionner.\nAssurez vous qu'AmiTCP est correctement installé."))
  33. (set #dir-choice     (cat "Sélectionnez le répertoire dans lequel vous voulez installer mftp." ))
  34. (set #cpu1            (cat "Votre Amiga est équipé d'un "))
  35. (set #cpu2            (cat " CPU.\nQuelle version de mftp désirez-vous installer ?"))
  36. (set #copy             (cat "Copie de mftp"))
  37. (set #doc-choice    (cat "Où voulez-vous installer la documentation?\nSi vous voulez que la touche HELP fonctionne vous devez donner le chemin d'accès\n au fichier guide."))
  38. (set #doc-copy        (cat "Copie de la Documentation"))
  39. (set #cat-copy        (cat "Copie du Catalogue"))
  40. (set #doc-file        (cat "mftp_English.guide"))
  41. ))
  42.  
  43. ;===========================================================================
  44. ; German strings
  45.  
  46. (if (= @language "deutsch")
  47. (
  48. (set locale 2)
  49.  
  50. (set #bad-MUI         (cat "Sie benötigen mindestens MUI2.3, um mftp zu nutzen."))
  51. (set #no-AmiTCP    (cat "\"AmiTCP:\" Zuweisung nicht gefunden.\nmftp benötigt mindestens AmiTCP 2.3.\nStellen Sie sicher, dass AmiTCP ordnungsgemäss installiert ist"))
  52. (set #dir-choice     (cat "Wählen Sie das Verzeichnis aus, in welches mftp installiert werden soll."))
  53. (set #cpu1            (cat "Ihr Amiga ist mit einer "))
  54. (set #cpu2            (cat " CPU ausgestattet.\nWelche Version von mftp möchten Sie installieren ?"))
  55. (set #copy             (cat "Kopiere mftp"))
  56. (set #doc-choice    (cat "Wohin möchten Sie die Dokumentation kopieren ?\nWenn Sie möchten, dass die HELP-Taste funktioniert, sollten Sie das vorgeschlagene Verzeichnis benutzen."))
  57. (set #doc-copy     (cat "Kopiere Dokumentation"))
  58. (set #cat-copy        (cat "Kopiere Katalog"))
  59. (set #doc-file        (cat "mftp_Deutsch.guide"))
  60. ))
  61.  
  62. ; =========================================================================
  63. ; Italian strings
  64.  
  65. (if (= @language "italiano")
  66. (
  67. (set locale 3)
  68. (set #bad-MUI        (cat "Per usare mftp è necessaria MUI2.3 o superiore." ))
  69. (set #no-AmiTCP    (cat Assign "\"AmiTCP:\" non trovato.\nmftp necessita almeno di AmiTCP 2.3 per funzionare.\nAccertati che AmiTCP sia correttamente installato."))
  70. (set #dir-choice    (cat "Seleziona la directory in cui installare mftp." ))
  71. (set #cpu1            (cat "Il tuo Amiga è dotato di "))
  72. (set #cpu2            (cat " CPU.\nQuale versione di mftp vuoi installare ?"))
  73. (set #copy            (cat "Copio mftp"))
  74. (set #doc-choice    (cat "Dove vuoi che sia installata la documentazione?\nPerchè il tasto HELP funzioni correttamente devi scegliere il path preimpostato."))
  75. (set #doc-copy        (cat "Copio la documentazione"))
  76. (set #cat-copy        (cat "Copio i Catalog"))
  77. (set #doc-file        (cat "mftp_English.guide"))
  78. ))
  79.  
  80. ;===========================================================================
  81. ; Nederlands strings
  82.  
  83. (if (= @language "nederlands")
  84. (
  85. (set locale 4)
  86. (set #bad-MUI        (cat "Uw heeft op zijn minst MUI MUI2.3 nodig om mftp te draaien." ))
  87. (set #no-AmiTCP    (cat "\"AmiTCP:\" assign niet gevonden.\nmftp heeft op zijn minst AmiTCP 2.3 nodig.\nWees er zeker van dat AmiTCP is goed geïnstalleerd."))
  88. (set #dir-choice    (cat "Selekteer de lade waar mftp in moet worden geïnstalleerd." ))
  89. (set #cpu1            (cat "Uw Amiga is voorzien van een"))
  90. (set #cpu2            (cat " CPU.\nWelke versie van mftp zou U willen installeren ?"))
  91. (set #copy            (cat "Kopiëren mftp"))
  92. (set #doc-choice    (cat "Waar wilt u de documenten installeren ?\nAls u wilt dat de HELP toets werkt moet u de gegeven lade kiezen."))
  93. (set #doc-copy        (cat "Kopiëren Documentatie"))
  94. (set #cat-copy        (cat "Kopiëren Catalog"))
  95. (set #doc-file        (cat "mftp_Nederlands.guide"))
  96. ))
  97.  
  98.  
  99.  
  100. ;========================================================================
  101. ;
  102. ; Scanning MUI version
  103. ;
  104.  
  105. (if (NOT(exists "LIBS:muimaster.library"))
  106.     (abort (cat #bad-MUI))
  107. )
  108.  
  109.  
  110. ;========================================================================
  111. ;
  112. ; Install the program
  113. ;
  114.  
  115. (set mftp-dir "AmiTCP:")
  116.  
  117. (if (NOT(exists "AmiTCP:" (noreq)))
  118.     (
  119.         (message #no-AmiTCP)
  120.         (if (= @user-level 0)
  121.             (abort "Couldn't find AmiTCP:")
  122.         )
  123.     )
  124. )
  125.  
  126. (set mftp-dir
  127.     (askdir
  128.         (prompt #dir-choice)
  129.         (default mftp-dir)
  130.         (help @askdir-help)
  131.     )
  132. )
  133. (set @default-dest mftp-dir)
  134.  
  135. ;
  136. ; what cpu have we got
  137. ;
  138. (set cpu (+ (database "cpu")))    ; (+ ...) makes it an integer value.
  139. (if (> cpu 68020)
  140.     (set turbo 1)
  141.     (set turbo 0)
  142. )
  143. (set turbo
  144.     (askchoice
  145.         (prompt (cat #cpu1 cpu #cpu2))
  146.         (choices "68'000 version" "68'030 version")
  147.         (default turbo)
  148.         (help @askchoice-help)
  149.     )
  150. )
  151.  
  152. (complete 10)
  153.  
  154. ;
  155. ; copy the according version
  156. ;
  157. (copyfiles
  158.     (prompt #copy)
  159.     (source (if turbo "/mftp.030" "/mftp"))
  160.     (newname "mftp")
  161.     (help @copyfiles-help)
  162.     (infos)
  163.     (optional force)
  164.     (dest mftp-dir)
  165. )
  166.  
  167. ;========================================================================
  168. ;
  169. ; Install the documentation
  170. ;
  171.  
  172. (complete 20)
  173. (set doc-dir @default-dest)
  174. (set doc-dir
  175.     (askdir
  176.         (default @default-dest)
  177.         (prompt #doc-choice)
  178.         (help @askdir-help)
  179.     )
  180. )
  181.  
  182. ;
  183. ; copy the docs
  184. ;
  185. (copyfiles
  186.     (prompt #doc-copy)
  187.     (source (cat "/Docs/" #doc-file))
  188.     (newname "mftp.guide")
  189.     (help @copyfiles-help)
  190.     (infos)
  191.     (optional force)
  192.     (dest doc-dir)
  193. )
  194.  
  195. ;========================================================================
  196. ;
  197. ; Install catalog files
  198. ;
  199. (if locale                                ; is it necessary to install a catalog ?
  200.     (
  201.         (copyfiles
  202.             (prompt #cat-copy)
  203.             (source (cat "/Catalogs/" @language "/mftp.catalog"))
  204.             (newname "mftp.catalog")
  205.             (help @copyfiles-help)
  206.             (optional force)
  207.             (dest (cat "LOCALE:Catalogs/" @language))
  208.         )
  209.     )
  210. )
  211.