home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / dfue / misc / ttime-update38 / install < prev    next >
Encoding:
Text File  |  1998-03-28  |  13.8 KB  |  452 lines
  1.  
  2. ; ******************************************
  3. ; *                                        *
  4. ; *       TTime-Installationsskript        *
  5. ; *                                        *
  6. ; *  $VER: 1.3 (27.03.98) by J.Reinert     *
  7. ; *                                        *
  8. ; ******************************************
  9.  
  10.  
  11.  
  12.  
  13. ; *************************************************************************
  14. ; Neue Definition der globalen Konstanten
  15. ; *************************************************************************
  16.  
  17. (set #liesmichtext  "Lies_mich.TXT")      ; Schlusswort
  18. (set #tempdir       "RAM:TT_Temp")        ; Ziel zum entpacken
  19. (set #oldinstall 0)                       ; Alte Installation oder nicht
  20. (set #aiconname     "TTime-Start")        ; Name Autostart-Icon
  21. (set #aiconsource   "TTime-Start.noinfo") ; Quellname Autostart-Icon
  22. (set #aicondest     "SYS:WBStartup")      ; Ziel für Autostart-Icon
  23.  
  24. (set #doksource     "_anleitungen.lha")   ; Anleitungen
  25. (set #arexxsource   "_arexx.lha")         ; ARexx-Beispiele
  26. (set #datasource    "_daten.lha")         ; Daten
  27. (set #libssource    "_librarys.lha")      ; Librarys
  28. (set #progssource   "_programme.lha")     ; Programme
  29. (set #updatesource  "_update.lha")        ; Neue Dateien
  30. (set #regdatasource "regdatas")           ; Registrierdaten
  31.  
  32. ; *************************************************************************
  33. ; Version der Workbench bestimmen
  34. ; *************************************************************************
  35.  
  36. (set #os_version (/ (getversion "libs:version.library") 65536))
  37.  
  38. ; *************************************************************************
  39. ; Definition der deutschen Texte
  40. ; *************************************************************************
  41.  
  42. (set #bad-kick
  43.   (cat ""@app-name" benötigt Amiga-OS 2.04 oder höher!\n"
  44.        "Dies wäre jetzt der richtige Zeitpunkt, Ihren "
  45.        "Rechner aufzuwerten. "
  46.   )
  47. )
  48.  
  49. (set #askdirmsg
  50.   (cat "Wo befindet sich Ihre alte Schublade 'TTime-Deluxe' bzw. wo "
  51.        "soll TTime-Deluxe neu installiert werden?"
  52.   )
  53. )
  54.  
  55. (set #askdirhelp
  56.   (cat "Wenn Sie ein Verzeichnis auswählen, in welchem sich bereits "
  57.        "eine Schublade mit Namen 'TTime-Deluxe' befindet, wird diese "
  58.        "Schublade auch verwendet. Andernfalls wird eine neue Schublade "
  59.        "angelegt.\n\n"
  60.        "Bei Updates und vervollständigen von Daten (Dateien aus der "
  61.        "Registrierung), sollten Sie auf jeden Fall das Verzeichnis auswählen, "
  62.        "in dem sich die 'TTime-Deluxe'-Schublade befindet."
  63.   )
  64. )
  65.  
  66. (set #askinstallnew
  67.   (cat "Wenn Sie 'TTime-Deluxe' neu installieren möchten, können Sie "
  68.        "fortfahren. Programm- und Datenschublade werden dann angelegt.\n\n"
  69.        "Wenn Sie jedoch eine bestehende Installation updaten oder nur Ihre "
  70.        "Registrierdaten umkopieren möchten, sollten Sie jetzt Abbrechen "
  71.        "und das Installer-Skript neu starten. Wählen Sie dann das "
  72.        "Verzeichnis aus, in dem sich die Schublade 'TTime-Deluxe' befindet."
  73.   )
  74. )
  75.  
  76. (set #askdeleteolddata
  77.   (cat "Indexdateien, Keyfile und TTime-Daten wurden, soweit vorhanden, "
  78.        "soeben aus den Systemverzeichnissen 'S:' und 'Libs:' in die neu angelegte "
  79.        "Daten-Schublade kopiert. \n\n"
  80.        "Die betreffenden Dateien können jetzt aus dem Systemverzeichnis "
  81.        "entfernt werden. Beachten Sie, daß Ihre ältere TTime-Installation "
  82.        "dann nicht mehr richtig funktioniert."
  83.   )
  84. )
  85.  
  86. (set #wizardhelp
  87.   (cat "Die 'wizard.library' wird von einigen Programmen zum erzeugen "
  88.        "von Fenster benötigt."
  89.   )
  90. )
  91.  
  92. (set #helpwbstartup
  93.   (cat "Da Sie ein Autostart-Icon installiert haben, ist es nicht mehr "
  94.        "notwendig, daß Sie das Programm 'TTime-Deluxe' in der 'WBStartup' - Schublade "
  95.        "belassen. Entfernen Sie es bitte."
  96.   )
  97. )
  98.  
  99. (set #askwbstartup
  100.   (cat "Möchten Sie, daß 'TTime-Deluxe' bei jedem Rechner-Start "
  101.        "automatisch in den Arbeitsspeicher geladen wird ? \n\n"
  102.        "Wenn ja, wird im nächsten Schritt ein Projekt-Icon "
  103.        "in den 'WBStartup'-Ordner Ihrer Boot-Disk/-Partition abgelegt"
  104.   )
  105. )
  106.  
  107. (set #aiconfail1
  108.   (cat "Es existiert keine 'WBStartup'-Schublade auf Ihrer SYS- "
  109.        "Partition. Wenn Sie 'TTime-Deluxe' bei jedem Rechner-Start "
  110.        "automatisch in Ihren Rechner laden möchten, wird diese unbedingt "
  111.        "benötigt.\n\nSoll eine Schublade erzeugt werden?"
  112.   )
  113. )
  114.  
  115. (set #aiconfail2
  116.   (cat "Leider existiert keine 'WBStartup'-Schublade auf Ihrer SYS- "
  117.        "Partition. Automatischer Programmstart ist daher leider nicht möglich."
  118.   )
  119. )
  120.  
  121. (set #hinweis
  122.   (cat " ---- Bitte beachten ----\n"
  123.        "Wenn Sie TTime-Deluxe in ein neues Verzeichnis installiert "
  124.        "haben sollten und Projekteinstellungen und/oder Logdateien von einer "
  125.        "älteren Installation weiter verwenden möchten, so müssen Sie die "
  126.        "betreffenden Dateien noch umkopieren."
  127.   )
  128. )
  129.  
  130. ; *************************************************************************
  131. ; Archiv entpacken
  132. ; *************************************************************************
  133.  
  134. (Procedure unarc arcname nachricht
  135.   (if (exists arcname)
  136.     (
  137.       (if (askbool (prompt nachricht) (help "") (default 0) (choices "Ja" "Nein"))
  138.         (
  139.           (makedir #tempdir)
  140.           (working (cat "Entpacke Datei " arcname))
  141.           (run (cat "lhex -qfw=" #tempdir " x " arcname))
  142.         )
  143.       )
  144.     )
  145.   )
  146. )
  147.  
  148. ; *************************************************************************
  149. ; Temp-Dir leeren
  150. ; *************************************************************************
  151.  
  152. (Procedure deletetemp
  153.   (run (cat "Delete " #tempdir " all"))
  154. )
  155.  
  156. ; *************************************************************************
  157. ; Unterprogramm zum kopieren vorhandener Dateien
  158. ; *************************************************************************
  159.  
  160. (Procedure copyexists fnamesource fnamedest
  161.   (if (exists fnamesource)
  162.     (
  163.       (copyfiles (source fnamesource) (dest fnamedest) (infos))
  164.     )
  165.   )
  166. )
  167.  
  168. ; *************************************************************************
  169. ; Beginn der Installation
  170. ; *************************************************************************
  171.  
  172. (complete 0)
  173.  
  174. (deletetemp)
  175.  
  176. (if (< #os_version 37)
  177.   (
  178.     (abort #bad-kick)
  179.   )
  180. )
  181.  
  182. (welcome)
  183.  
  184. ; *************************************************************************
  185. ; Zielverzeichnis auswählen lassen
  186. ; *************************************************************************
  187.  
  188. (set name
  189.   (askdir
  190.     (prompt  #askdirmsg)
  191.     (help    #askdirhelp)
  192.     (default @default-dest)
  193.   )
  194. )
  195.  
  196. (set #destname (tackon name "TTime-Deluxe"))
  197. (set #iconname (tackon #destname "TTime-Deluxe"))
  198. (set #pdrwicon (cat #destname ".info"))
  199. (set #ttimename #iconname)
  200. (set #keysdest (tackon #destname "Daten"))
  201. (set #sdest    (tackon #destname "Daten"))
  202.  
  203. ; *************************************************************************
  204. ; Alte Installation prüfen
  205. ; *************************************************************************
  206.  
  207. (if (exists (tackon #destname "TTime-Deluxe") (noreq))
  208.   (set #oldinstall 1)
  209. )
  210.  
  211. (if (exists (tackon #destname "TT-Abrechnung") (noreq))
  212.   (set #oldinstall 1)
  213. )
  214.  
  215. (if (exists (tackon #destname "TT-Screenmanager") (noreq))
  216.   (set #oldinstall 1)
  217. )
  218.  
  219. (complete 5)
  220.  
  221. ; *************************************************************************
  222. ; Datenschubladen erzeugen
  223. ; *************************************************************************
  224.  
  225. (if (= #oldinstall 0)             ; Programmschublade erzeugen
  226.   (message #askinstallnew)
  227.   (makedir #destname (infos))
  228. )
  229.  
  230. (if (exists #sdest)               ; Prüfen auf Daten-Schublade
  231.   (
  232.     (set #copyolddata 0)          ; Schublade da, also Daten auch da
  233.   )
  234.   (
  235.     (makedir #sdest)              ; Es gab keine Schublade ...
  236.     (set #copyolddata 1)          ; also Daten umkopieren
  237.   )
  238. )
  239.  
  240. (complete 10)
  241.  
  242. ; *************************************************************************
  243. ; Kopieren der alten Daten und Configs
  244. ; *************************************************************************
  245.  
  246. (if #copyolddata
  247.   (
  248.     (copyexists ("S:T-Export.CFG") (#sdest))
  249.     (copyexists ("S:T-Net.IDX") (#sdest))
  250.     (copyexists ("S:T-Net_Special.IDX") (#sdest))
  251.     (copyexists ("S:T-Net_Welt.IDX") (#sdest))
  252.     (copyfiles (source "S:") (dest #sdest) (pattern "TTime#?"))
  253.     (copyfiles (source "S:") (dest #sdest) (pattern "#?.TTCFG"))
  254.     (copyfiles (source "S:") (dest #sdest) (pattern "TT2_#?.TAB"))
  255.     (copyfiles (source "Libs:") (dest #sdest) (pattern "TTime#?.KEY"))
  256.  
  257.     (if (askbool (prompt #askdeleteolddata) (choices "Daten entfernen" "Daten NICHT entfernen") (default 0) (help @askbool-help))
  258.       (
  259.         (delete "S:T-Export.CFG"      (optional "askuser"))
  260.         (delete "S:#?.TTCFG"          (optional "askuser"))
  261.         (delete "S:TTime#?"           (optional "askuser"))
  262.         (complete 83)
  263.         
  264.         (delete "S:T-Net.IDX"         (optional "askuser"))
  265.         (delete "S:T-Net_Special.IDX" (optional "askuser"))
  266.         (delete "S:T-Net_Welt.IDX"    (optional "askuser"))
  267.         (complete 86)
  268.  
  269.         (delete "S:TT2_#?.TAB"      (optional "askuser"))
  270.         (complete 88)
  271.         
  272.         (delete "Libs:TTime#?.KEY"  (optional "askuser"))
  273.       )
  274.     )
  275.   )
  276. )
  277.  
  278. (complete 15)
  279.  
  280. ; *************************************************************************
  281. ; Kopieren der Librarys
  282. ; *************************************************************************
  283.  
  284. (unarc #libssource "\nLibrarys kopieren?")
  285. (if (exists #tempdir)
  286.   (
  287.     (if (> #os_version 38)
  288.       (
  289.         (set tempname (tackon #tempdir "wizard.library_OS3"))
  290.       )
  291.       (
  292.         (set tempname (tackon #tempdir "wizard.library_OS2"))
  293.       )
  294.     )
  295.     (if (exists tempname)
  296.       (
  297.         (rename tempname (tackon #tempdir "wizard.library"))
  298.         (copylib (prompt "Kopieren der 'wizard.library'") (help #wizardhelp) (source (tackon #tempdir "wizard.library")) (dest "Libs:") (confirm "EXPERT"))
  299.       )
  300.     )
  301.     (deletetemp)
  302.   )
  303. )
  304. (complete 20)
  305.  
  306. ; *************************************************************************
  307. ; Kopieren der Programme
  308. ; *************************************************************************
  309.  
  310. (unarc #progssource "\nProgramme kopieren?")
  311. (if (exists #tempdir)
  312.   (
  313.     (copyfiles (source #tempdir) (dest #destname) (all))
  314.     (deletetemp)
  315.   )
  316. )
  317. (complete 30)
  318.  
  319. ; *************************************************************************
  320. ; Kopieren der Daten
  321. ; *************************************************************************
  322.  
  323. (unarc #datasource "\nDaten kopieren?")
  324. (if (exists #tempdir)
  325.   (
  326.     (copyfiles (source #tempdir) (dest #destname) (all))
  327.     (deletetemp)
  328.   )
  329. )
  330. (complete 40)
  331.  
  332. ; *************************************************************************
  333. ; Kopieren der ARexx-Beispiele
  334. ; *************************************************************************
  335.  
  336. (unarc #arexxsource "\nARexx-Beispiele kopieren?")
  337. (if (exists #tempdir)
  338.   (
  339.     (copyfiles (source #tempdir) (dest #destname) (all))
  340.     (deletetemp)
  341.   )
  342. )
  343. (complete 50)
  344.  
  345. ; *************************************************************************
  346. ; Kopieren der Anleitungen
  347. ; *************************************************************************
  348.  
  349. (unarc #doksource "\nAnleitungen kopieren?")
  350. (if (exists #tempdir)
  351.   (
  352.     (copyfiles (source #tempdir) (dest #destname) (all))
  353.     (deletetemp)
  354.   )
  355. )
  356. (complete 60)
  357.  
  358. ; *************************************************************************
  359. ; Kopieren von Update-Dateien in Zielordner
  360. ; *************************************************************************
  361.  
  362. (unarc #updatesource "\nUpdates kopieren?")
  363. (if (exists #tempdir)
  364.   (
  365.     (copyfiles (source #tempdir) (dest #destname) (all))
  366.     (deletetemp)
  367.   )
  368. )
  369. (complete 70)
  370.  
  371. ; *************************************************************************
  372. ; Kopieren von Keyfile und Tabellen
  373. ; *************************************************************************
  374.  
  375. (if (exists #regdatasource)
  376.   (
  377.     (if (askbool (prompt "\nRegistrierdaten und Tabellen kopieren?") (help "") (default 0) (choices "Ja" "Nein"))
  378.       (
  379.         (copyfiles (source #regdatasource) (dest #sdest) (all))
  380.       )
  381.     )
  382.   )
  383. )
  384. (complete 80)
  385.  
  386. ; *************************************************************************
  387. ; Kopieren des Autostart-Icons
  388. ; *************************************************************************
  389.  
  390. (if (not (exists #aicondest))
  391.   (if (askbool (prompt #aiconfail1) (help "") (default 0) (choices "Ja" "Nein"))
  392.     (makedir #aicondest (infos))
  393.   )
  394. )
  395.  
  396. (if (exists #aicondest)
  397.   (
  398.     (if (exists #ttimename)
  399.       (
  400.         (if ((askbool (prompt #askwbstartup) (help "") (default 0) (choices "Ja" "Nein")))
  401.           (
  402.             (copyfiles (prompt  "Icon kopieren") (source  #aiconsource) (dest    #aicondest) (newname (cat #aiconname ".info")))
  403.  
  404. ; *************************************************************************
  405. ; Default-Tool und Tooltypes (Zukunft) eintragen
  406. ; *************************************************************************
  407.  
  408.             (set #newaiconname (tackon #aicondest #aiconname))
  409.  
  410.             (if (exists (cat #newaiconname ".info"))
  411.               (
  412.                 (Tooltype (dest #newaiconname) (Setdefaulttool #ttimename))
  413.                 (if (exists "SYS:WBStartup/TTime-Deluxe")
  414.                   (message #helpwbstartup)
  415.                 )
  416.               )
  417.             )
  418.           )
  419.         )
  420.       )
  421.     )
  422.   )
  423.   (
  424.     (message #aiconfail2)
  425.   )
  426. )
  427.  
  428. (deletetemp)
  429. (run (cat "Delete " #sdest ".info"))
  430. (complete 100)
  431.  
  432. ; *************************************************************************
  433. ; Aktuelles Verzeichnis setzen
  434. ; *************************************************************************
  435.  
  436. (set @default-dest #destname)
  437.  
  438. (message #hinweis)
  439.  
  440. ; *************************************************************************
  441. ; Falls vorhanden, einen LiesMich-Text anzeigen
  442. ; *************************************************************************
  443.  
  444. (if (exists #liesmichtext)
  445.   (run (cat "run sys:utilities/more " #liesmichtext))
  446. )
  447.  
  448. ; *************************************************************************
  449. ; Ende der Installation
  450. ; *************************************************************************
  451.  
  452.