home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #4 / amigaacscoverdisc1998-041998.iso / utilities / shareware / business / muivideo / muivideo.install < prev    next >
Encoding:
Text File  |  1997-02-11  |  8.6 KB  |  389 lines
  1. ; *****************************
  2. ; *                           *
  3. ; *   MUIVideo-Install 2.04   *
  4. ; *          11.02.97         *
  5. ; *       © 1996 by mice      *
  6. ; *        - AMCLUST -        *
  7. ; *                           *
  8. ; *****************************
  9.  
  10.  
  11. (complete 0)
  12.  
  13. ; Texte deutsch
  14.  
  15. (if (= @language "deutsch")
  16. (
  17. (set #falsekick
  18. (cat "\nMUIVideo und MUITapes benoetigen zwingend OS3.0 oder höher."
  19. ))
  20.  
  21. (set #info
  22. (cat "\nDieses Script installiert MUIVideo und alle "
  23.      "dazugehörigen Dateien auf Ihre Festplatte. "
  24.      "Bei der Installation wird ein Verzeichnis mit Namen "
  25.      "\"MUIVideo\" angelegt in das alle wichtigen "
  26.      "Programmteile kopiert werden."   
  27. ))
  28.  
  29. (set #info2
  30. (cat "\nIm folgenden wird ihnen eine Textdatei angezeigt, "
  31.      "die Sie über die gravierendsten Änderungen und "
  32.      "Neuerungen dieser Version von \"MUIVideo\" informiert. "
  33.      "Bitte lesen Sie den Text aufmerksam durch !\n\n"
  34.      "Weitere Informationen entnehmen Sie bitte dem Guidefile."
  35. ))
  36.  
  37. (set #changes "\nCHANGES MUIVideo 2.00\n\n")
  38.  
  39. (set #check
  40. (cat "\nEs wird nun geprüft, ob sich eine alte "
  41.      "MUIVideo-Installation auf dem Zielpfad befindet. "
  42.      "Diese wird nicht gelöscht sondern gegebenenfalls "
  43.      "in \"MUIVideo_old\" umbenannt."
  44. ))
  45.  
  46. (set #oldmv "\nEs wurde eine MUIVideo-Installation gefunden !\n\n")
  47.  
  48. (set #oldmvbak
  49. (cat "\nVon der alten Installation wird nun eine Sicherheitskopie "
  50.      "mit Namen \"MUIVideo_old\" angelegt."
  51. ))
  52.  
  53. (set #muivhelp
  54. (cat "\nMUIVideo ist eine Datenbank zur Filmverwaltung, deren "
  55.      "Oberfläche mit Hilfe von MUI erzeugt wurde."
  56. ))
  57.  
  58. (set #datamess
  59. (cat "\nIm folgenden werden alle von MUIVideo benötigten "
  60.      "Datenfiles kopiert."
  61. ))
  62.  
  63. (set #prefsmess "\nNun werden die Default-Prefs zu MUIVideo installiert.")
  64.  
  65. (set #arexxmess
  66. (cat "\nBitte wählen Sie nun aus, welche der bisher "
  67.      "verfügbaren ARexx-Scripte für MUIVideo installiert "
  68.      "werden sollen."
  69. ))
  70.  
  71. (set #readme "\nÄnderungen zur letzten Version...")
  72.  
  73. (set #mtmess
  74. (cat "\nSoll das Zusatzprogramm MUITapes installiert werden ?"
  75.      "\n\nMUITapes ist ein Zusatzmodul zu dem Programm MUIVideo. "
  76.      "MUITapes ergänzt MUIVideo nun um eine Cassettenverwaltung. Der "
  77.      "Datenaustausch erfolgt dabei über die ARexx-Ports der beiden "
  78.      "Programme."
  79. ))
  80.  
  81. (set #getdest
  82. (cat "Bitte nun den Zielpfad für MUIVideo wählen. "
  83.      "Ein Verzeichnis \"MUIVideo\" wird angelegt."
  84. ))
  85.  
  86. (set #localmess
  87. (cat "\nSollen die Local-Files zu MUIVideo kopiert werden ?"
  88.      "\n\nDie Local-Files können benutzt werden, um weitere "
  89.      "Sprachenkataloge für MUIVideo zu erzeugen."
  90. ))
  91.  
  92. (set #true "Ja")
  93. (set #false "Nein")
  94. (set #createdir "\nVerzeichnisse werden angelegt...")
  95. (set #copymain  "\nKopieren von MUIVideo...")
  96. (set #infotxt "Dokumentation/LIES_MICH!")
  97. (set #regtxt "Dokumentation/Registrierung")
  98. (set #guidename "Dokumentation/MUIVideo.guide")
  99. (set #askguide  "\nSoll das Guide zu MUIVideo installiert werden ?")
  100. (set #copyguide "Kopiere MUIVideo.guide")
  101. (set #copydata  "Kopiere MUIVideo-Daten")
  102. (set #copyprefs "Kopiere MUIVideo-Prefs")
  103. (set #copyrexx  "Kopiere MUIVideo-Arexx")
  104. (set #copytapes "Kopiere MUITapes")
  105. )
  106.  
  107. ; Text english
  108.  
  109. (
  110. (set #falsekick
  111. (cat "\nMUIVideo and MUITapes requires OS3.0 or higher."
  112. ))
  113.  
  114. (set #info
  115. (cat "\n\nThis script installs MUIVideo and all "
  116.      "needed files to your harddisk. "
  117.      "During the installation a directory called "
  118.      "\"MUIVideo\" will be created in which all "
  119.      "files are copied."
  120. ))
  121.  
  122. (set #info2
  123. (cat "\n\nNow a textfile will be shown, "
  124.      "in which the most important changes and "
  125.      "news of this version of \"MUIVideo\" are documented. "
  126.      "Please read this text properly ! "
  127.      "For more information please consult the guidefile."
  128. ))
  129.  
  130. (set #changes "\nCHANGES MUIVideo 2.00\n\n")
  131.  
  132. (set #check
  133. (cat "\nTesting old MUIVideo-installation "
  134.      "and copying of the mainprogram."
  135. ))
  136.  
  137. (set #oldmv   "\nAn old MUIVideo-installation has been found !\n\n")
  138.  
  139. (set #oldmvbak
  140. (cat "\n\nNow a backup of the old installation will be made"
  141.      "called \"MUIVideo_old\". "
  142. ))
  143.  
  144. (set #muivhelp
  145. (cat "\nMUIVideo is a film database, its user "
  146.      "interface was designed using MUI."
  147. ))
  148.  
  149. (set #datamess
  150. (cat "\nNow all datafiles used by MUIVideo "
  151.      "are copied."
  152. ))
  153.  
  154. (set #prefsmess "\nNow the default prefs of MUIVideo will be installed.")
  155.  
  156. (set #arexxmess
  157. (cat "\nAll available ARexx-scripts for "
  158.      "MUIVideo will be installed."
  159. ))
  160.  
  161. (set #readme "\nChanges to Version 1.5")
  162.  
  163. (set #mtmess
  164. (cat "\nShall the tool MUITapes be installed ?"
  165.      "\n\nMUITapes is an additional tool for MUIVideo. "
  166.      "MUITapes adds a tape database to MUIVideo. The "
  167.      "data exchange will be done via the ARexx-ports of both "
  168.      "programs."
  169. ))
  170.  
  171. (set #getdest
  172. (cat "Please select the destination directory for MUIVideo. "
  173.      "A new directory \"MUIVideo\" will be created."
  174. ))
  175.  
  176. (set #localmess "\nCopying the local-files of MUIVideo")
  177. (set #true "Yes")
  178. (set #false "No")
  179. (set #createdir "Creating directorys...")
  180. (set #copymain  "Copy MUIVideo...")
  181. (set #infotxt "Documentation/READ_ME!")
  182. (set #regtxt "Documentation/Registration")
  183. (set #guidename "Documentation/MUIVideo.guide")
  184. (set #askguide  "\nShall I install the MUIVideo.guide ?")
  185. (set #copyguide "Copy MUIVideo.guide...")
  186. (set #copydata  "Copy MUIVideo-data...")
  187. (set #copyprefs "Copy MUIVideo-prefs...")
  188. (set #copyrexx  "Copy MUIVideo-Arexx...")
  189. (set #copytapes "Copy MUITapes...")
  190. (set #copycats  "\nInstalling catalog-files...")
  191. )
  192. )
  193.  
  194. ; Test-Kick
  195.  
  196. (if (< (/ (getversion) 65536) 39)
  197.     (abort #falsekick)
  198. )
  199.  
  200. ; Infotexte anzeigen und Zielverzeichnis waehlen
  201.  
  202. (message #info)
  203.  
  204. (set mvdest
  205.     (askdir (prompt #getdest)
  206.         (help @askdir-help)
  207.         (default "Work:")
  208.     )
  209. )
  210.  
  211. (message #info2)
  212. (run "run >nil: SYS:Utilities/MultiView" #infotxt (prompt #readme))
  213. (set mvdest (tackon mvdest "MUIVideo"))
  214. (set @default-dest mvdest)
  215.  
  216. ; Auf bereits installiertes MUIVideo checken
  217.  
  218. (message #check)
  219.  
  220. (if (exists mvdest)
  221.     (
  222.         (set oldmv (cat mvdest "_old"))
  223.         (message #oldmv "'" @default-dest "'." #oldmvbak)
  224.         (rename mvdest oldmv)
  225.         (rename (cat mvdest ".info") (cat oldmv ".info"))
  226.     )
  227. )
  228.  
  229. ; Verzeichnisse anlegen
  230.  
  231. (makedir mvdest (infos) (prompt #createdir))
  232. (makedir (tackon mvdest "ARexx"))
  233. (makedir (tackon mvdest "Data"))
  234. (makedir (tackon mvdest "Prefs"))
  235. (makedir (tackon mvdest "Catalogs"))
  236. (complete 10)
  237.  
  238. ; Hauptprogramm, Regform und readme kopieren
  239.  
  240. (message #copymain)
  241.  
  242. (copyfiles
  243.     (prompt #copymain)
  244.     (source "MUIVideo")
  245.     (dest mvdest)
  246.     (infos)
  247. )
  248.  
  249. (copyfiles
  250.     (source #infotxt)
  251.     (dest mvdest)
  252.     (infos)
  253. )
  254.  
  255. (copyfiles
  256.     (source #regtxt)
  257.     (dest mvdest)
  258.     (infos)
  259. )
  260.  
  261. ; Locals kopieren
  262.  
  263. (if (= @language "deutsch")
  264.     (
  265.         (set vote
  266.             (askbool
  267.                 (prompt #localmess)
  268.                 (choices #true #false)
  269.                 (help #localhelp)
  270.             )
  271.         )
  272.         (if (= 1 vote)
  273.             (copyfiles
  274.                 (prompt #copycdfiles)
  275.                 (source "catalogs")
  276.                 (dest (tackon mvdest "catalogs"))
  277.                 (help @copyfiles-help)
  278.                 (pattern "#?.cd")
  279.                 (files)
  280.                 (confirm)
  281.             )
  282.         )
  283.     )
  284. )
  285.  
  286. (if (= @language "english")
  287.     (copyfiles
  288.         (prompt #copycats)
  289.         (source (tackon "catalogs" "english"))
  290.         (ALL)
  291.         (dest (tackon mvdest "catalogs/english"))
  292.         (infos)
  293.         (help @copyfiles-help)
  294.         (confirm)
  295.     )
  296. )
  297.  
  298. (complete 30)
  299.  
  300. ; Guidefile kopieren
  301.  
  302. (set vote
  303.     (askbool
  304.         (prompt #askguide)
  305.         (choices #true #false)
  306.         (help #guidehelp)
  307.     )
  308. )
  309. (if (= 1 vote)
  310.     (copyfiles
  311.         (prompt #copyguide)
  312.         (source #guidename)
  313.         (dest mvdest)
  314.         (all)
  315.         (infos)
  316.         (help @copyfiles-help)
  317.     )
  318. )
  319.  
  320. (complete 40)
  321.  
  322. ; Datenfiles installieren
  323.  
  324. (message #datamess)
  325.  
  326. (copyfiles
  327.     (prompt #copydata)
  328.     (source "Data")
  329.     (all)
  330.     (dest (tackon mvdest "Data"))
  331.     (help @copyfiles-help)
  332.     (infos)
  333. )
  334.  
  335. (complete 60)
  336.  
  337. (message #prefsmess)
  338.  
  339. (copyfiles
  340.     (prompt #copyprefs)
  341.     (source "Prefs")
  342.     (all)
  343.     (dest (tackon mvdest "Prefs"))
  344.     (help @copyfiles-help)
  345.     (infos)
  346. )
  347.  
  348. (complete 70)
  349.  
  350. (message #arexxmess)
  351.  
  352. (copyfiles
  353.     (prompt #copyrexx)
  354.     (source "ARexx")
  355.     (all)
  356.     (dest (tackon mvdest "ARexx"))
  357.     (help @copyfiles-help)
  358.     (infos)
  359.     (confirm)
  360. )
  361.  
  362. (complete 80)
  363.  
  364. ; MUITapes installieren ?
  365.  
  366. (set vote
  367.     (askbool
  368.         (prompt #mtmess)
  369.         (choices #true #false)
  370.         (help #guidehelp)
  371.     )
  372. )
  373. (if (= 1 vote)
  374.     (
  375.         (copyfiles
  376.             (prompt #copytapes)
  377.             (source "MUITapes")
  378.             (all)
  379.             (infos)
  380.             (confirm)
  381.             (dest (tackon mvdest "MUITapes"))
  382.             (help @copyfiles-help)
  383.         )
  384.     )
  385. )
  386.  
  387. (complete 100)
  388.  
  389.