home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 1 / Mecomp-CD.iso / amiga / tools / boot / install / install-bootdock < prev    next >
Text File  |  1997-08-29  |  15KB  |  483 lines
  1. ; Script zum installieren von BootDock V2.0
  2.  
  3. (complete 0)
  4.  
  5. (set #Information
  6. (cat "\nDieses Script installiert die BootDock-Package auf Ihrer "
  7.      "Festplatte.\n\nBootDock ist Copyright © bei Jörg Hälker. "
  8.        "\nBei BootDock handelt es sich um SHAREWARE!! "
  9.        "\nBei regelmäßiger Benutzung sollten Sie DM 20 an den Autor "
  10.        "senden. Lesen Sie dazu in der Dokumentation das Kapitel \"Copyright\" "
  11.        "\n\nWenn Ihnen BootDock nicht gefällt, können Sie es mit Hilfe "
  12.        "dieses Scriptes auch wieder entfernen. "
  13. ))
  14.  
  15. (set #Install-Optionen
  16. (cat "\n\nWählen Sie \"BootDock installlieren\", um eine komplette "
  17.      "Installation durchzuführen, oder \"BootDock entfernen\", um "
  18.      "BootDock von Ihrer Festplatte zu löschen und den Standart-Zustand "
  19.      "wieder herzustellen."
  20. ))
  21.  
  22. (set #Install-Optionen-Hilfe
  23. (cat "\nSie müssen auswählen, ob BootDock installiert, oder von Ihrer"
  24.      "Festplatte entfernt werden soll.\n\n"
  25.      "Mit \"BootDock installieren\" wird eine komplette Installation "
  26.      "der BootDock-Software durchgeführt. Dies sollten "
  27.      "Sie wählen, um ein System von einer älteren Version ausgehend zu "
  28.      "aktualisieren oder BootDock frisch auf einer neuen Festplatte "
  29.      "zu installieren.\n\n"
  30.      "Wenn Ihnen BootDock nicht mehr gefallen sollte oder ähnliches, "
  31.      "dann können Sie es mit \"BootDock entfernen\" wieder deinstallieren "
  32. ))
  33.  
  34. (set #Install-Moeglichkeit-1
  35. (cat "BootDock installieren"
  36. ))
  37.  
  38. (set #Install-Moeglichkeit-2
  39. (cat "BootDock entfernen"
  40. ))
  41.  
  42. (set #Ziel-aussuchen
  43. (cat "Bitte das Verzeichnis auswählen, in dem BootDock installiert werden soll. "
  44.      "Es wird automatisch ein Verzeichnis \"BootDock\" erzeugt. "
  45. ))
  46.  
  47. (set #Ziel-aussuchen-Hilfe
  48. (cat "Sie müssen festlegen, wohin Sie BootDock installiert haben wollen "
  49. ))
  50.  
  51.  
  52. (set #Ziel-bestaetigen
  53. (cat "\n\nDieses Script installiert BootDock auf Ihrer Festplatte. "
  54.      "Wollen Sie BootDock im Verzeichnis \"%s\" installiert "
  55.      "bekommen?"
  56. ))
  57.  
  58. (set #Ziel-bestaetigen-Hilfe
  59. (cat "\nSie haben festgelegt, daß BootDock "
  60.      "in einem Verzeichnis namens \"%s\" installiert "
  61.      "werden soll. "
  62. ))
  63.  
  64. (set #Ziel-bestaetigen-1
  65. (cat "Ja, weitermachen"
  66. ))
  67.  
  68. (set #Ziel-bestaetigen-2
  69. (cat "Abbrechen"
  70. ))
  71.  
  72. (set #Kopiere-BD-Main
  73. (cat "Das BootDock-Hauptprogramm. "
  74.      "\n(Unbedingt im BootDock Verzeichnis ablegen!) "
  75. ))
  76.  
  77. (set #Kopiere-BD-Main-Hilfe
  78. (cat "\n\nDas Hauptprogramm  wird nach jedem Neustart automatisch "
  79.      "gestartet und gestattet es ihnen zwischen mehreren Bootdateien "
  80.      "auszuwählen. "
  81. ))
  82.  
  83. (set #Kopiere-BD-Prefs
  84. (cat "Das BootDock-Voreinsteller Programm. "
  85.      "\n(Unbedingt im BootDock Verzeichnis ablegen!) "
  86. ))
  87.  
  88. (set #Kopiere-BD-Prefs-Hilfe
  89. (cat "\n\nDieses Programm benötigen Sie wenn Sie die Einstellungen für "
  90.      "BoootDock treffen wollen. "
  91.      "\nSie sollten es unbedingt im BootDock-Verzeichnis ablegen, "
  92.      "weil es sonst seine Konfigurationsdatei \"BootDock.prefs\". "
  93.      "nicht (wieder)findet. "
  94. ))
  95.  
  96. (set #Kopiere-Prefs
  97. (cat "Die Standart BootDock-Einstellungen. "
  98.      "\n(Unbedingt im BootDock Verzeichnis ablegen!) "
  99. ))
  100.  
  101. (set #Kopiere-Prefs-Hilfe
  102. (cat "\n\nDiese Datei enthält lediglich die Information darüber, "
  103.      "daß Ihre Workbench-Bootdatei \"Workbench-Startup\" heißt. "
  104. ))
  105.  
  106. (set #Kopiere-BD-Dokumentation
  107. (cat "Die BootDock-Dokumentation. "
  108. ))
  109.  
  110. (set #Kopiere-BD-Dokumentation-Hilfe
  111. (cat "\n\nBei dieser Datei handelt es sich um die \"Gebrauchsanweisung\" "
  112.      "für BootDock. Sie sollten Sie unbedingt lesen. (Mit MultiView "
  113.      "oder AmigaGuide) "
  114. ))
  115.  
  116. (set #Kopiere-Bonbons
  117. (cat "Die BootDock-Begrüssungstexte. "
  118. ))
  119.  
  120. (set #Startup-Sequence-umbennenen
  121. (cat "\nBootDock geht davon aus, daß Ihre \"Orginal-Startup-Sequence\" "
  122.      "automatisch die Workbench startet und nennt die entsprechende "
  123.      "Bootdatei \"Workbench\". Ihre \"Startup-Sequence\" wird umbenannt "
  124.      "in \"Workbench-Startup\" und in das BootDock-Verzeichnis "
  125.      "\"Bootdateien\" verschoben. "
  126.       "\n\nBedenken Sie: BootDock ist nicht lauffähig wenn Sie diesen Teil "
  127.       "überspringen. "
  128.       "\n\nBetätigen Sie die \"HELP-Taste\" für genauere Informationen. "
  129. ))
  130.  
  131. (set #Startup-Sequence-umbennenen-H
  132. (cat "\n\nBootDock muß wissen, wo es Ihre \"alte\" Startup-Sequence findet, "
  133.      "um u.a. die Workbench starten zu können. (Die Datei \"Startup-Sequence\" "
  134.      "entscheidet, was nach dem Anschalten Ihres Amigas passieren soll). "
  135.      "Sie müssen hier lediglich bestätigen, daß sie damit einverstanden sind, "
  136.      "daß diese wichtige Datei umbenannt und durch eine neue ersetzt wird. "
  137.        "\n\nLesen Sie unbedingt die Dokumentation! "
  138. ))
  139.  
  140. (set #Neue-Sequence-erzeugen-1
  141. (cat "\nDas Installationsprogramm wird jetzt eine neue \"Startup-Sequence\" "
  142.      "erzeugen. Diese startet nach jedem Neustart automatisch BootDock. "
  143.       "\n\nAchtung:\nWenn Sie bestimmte Gerätetreiber benutzen z.B. für "
  144.       "Shadow-ROMs oder Software, die unbedingt vor BootDock gestartet "
  145.       "werden muß, dann denken Sie bitte daran die neue \"Startup-Sequence\" "
  146.       "am Ende der Installation entsprechend zu verändern! "
  147. ))
  148.  
  149. (set #Neue-Sequence-erzeugen-2
  150. (cat "\n\nDenken Sie auch daran, daß \"Bootdateien/Workbench-Startup\" "
  151.       "Ihre alte \"Startup-Sequence\" ist und ggf. vorhandene Einträge in "
  152.       "dieser Datei gelöscht werden müssen. "
  153. ))
  154.  
  155. (set #Waehle_Piktogrammart
  156. (cat "\nSie haben nun die Möglichkeit zu entscheiden welche Piktogramme "
  157.      "BootDock verwenden soll. Wenn sie MagicWB (© Martin Huttenloher) "
  158.      "benutzen (siehe \"Hilfe\") wählen sie bitte \"MagicWB\" aus. "
  159.      "Wenn Sie MagicWB nicht installiert haben, sollten Sie \"Standart\" "
  160.      "auswählen.\nWelche Piktogrammart wollen Sie verwenden? "
  161. ))
  162.  
  163. (set #Waehle_Piktogrammart-Hilfe
  164. (cat "\n\nDie farbigen Symbole, die Sie auf der Workbench verwenden, "
  165.      "bezeichnet man als Piktogramme. Das Disketten-Bildchen, daß "
  166.      "erscheint, wenn Sie eine Diskette einlegen ist demzufolge also "
  167.      "ein Disketten-Piktogramm (Englisch: Icon)\n"
  168.      "Sie können hier entscheiden ob Sie die Standart-Piktogramme "
  169.      "mit vier Farben verwenden möchten. Alternativ dazu können "
  170.      "Sie auch 8-Farbige wunderschöne Pastell-Farbene Piktogramme "
  171.      "verwenden. Dazu müssten Sie allerdings das MagicWB-Paket von "
  172.      "Martin Huttenloher installiert haben. Sollten Sie dieses Paket "
  173.      "nicht installiert haben, können Sie die MagicWB-Piktogramme "
  174.      "nicht verwenden (Sie währen furchtbar häßlich!). "
  175.      "Wenn Sie nicht Besitzer von MagicWB sind, kann ich Ihnen nur "
  176.      "raten dieses zu bestellen. "
  177. ))
  178.  
  179. (set #Piktogrammart-1 "MagicWB")
  180. (set #Piktogrammart-2 "Standart")
  181.  
  182. (set #Installation-fertig
  183. (cat "\n\nBevor Sie einen Neustart durchführen, sollten Sie den BootDock "
  184.      "Voreinsteller-Editor \"BootDock\" im BootDock-Verzeichnis aufrufen "
  185.      "und dort die Einstellungen Ihren Wünschen nach anpassen. "
  186. ))
  187.  
  188. (set #Wo-ist-BootDock
  189. (cat "Dieses Script ist (noch) nicht in der Lage selbst herauszufinden, "
  190.      "wo Sie BootDock installiert haben. Wählen Sie deshalb bitte das "
  191.      "Verzeichnis aus, in dem sich das BootDock-Verzeichnis befindet. "
  192. ))
  193.  
  194. (set #Wo-ist-BootDock-Hilfe
  195. (cat "Sie müssen das Verzeichnis auswählen, worin sich das Verzeichnis "
  196.      "\"BootDock\" befindet. "
  197. ))
  198.  
  199. (set #Kein-BootDock-Verzeichnis
  200. (cat "\nKonnte BootDock im Verzeichnis \"%s\" nicht finden. "
  201.      "Deinstallation wird Abgebrochen."
  202. ))
  203.  
  204. (set #Kein-BootDock-Anfaenger
  205. (cat "Wenn sich Ihr BootDock nicht im Verzeichnis \"%s\" befindet, sollten "
  206.      "Sie dieses Programm nocheinmal im Modus \"Geübter Benutzer\" starten."
  207. ))
  208.  
  209. (set #Startup-Sequence-rekonstruieren
  210. (cat "Das Installationsprogramm wird jetzt die \"Startup-Sequence\" "
  211.      "rekonstruieren, die Sie vor der BootDock-Installation benutzten. "
  212.      "Diese startet nach jedem Neustart automatisch Ihr System. "
  213.      "Das Installationsprogramm geht davon aus, daß Ihre Workbench-Bootdatei "
  214.      "\"Workbench-Startup\" heißt. "
  215.       "\n\nAchtung:\nWenn Sie bestimmte Gerätetreiber benutzen z.B. für "
  216.       "Shadow-ROMs oder Software die unbedingt zu einem bestimmten Zeitpunkt "
  217.       "gestartet werden muß, dann denken Sie bitte daran Ihre \"Startup-Sequence\" "
  218.       "am Ende der Deinstallation entsprechend zu verändern! "
  219. ))
  220.  
  221. (set #Bootdateien-nach-SYS
  222. (cat "\nDas Installationsprogramm wird jetzt sämtliche Bootdateien in "
  223.      "Ihre \"SYS:\"-Partition kopieren, wo Sie sie herausnehmen können, um diese "
  224.      "für andere Zwecke zu benutzen oder einfach nur aufzubewahren. "
  225.      "\n\nWenn Sie diese Dateien dort belassen und irgendwann einmal BootDock "
  226.      "neu installieren, werden die Dateien automatisch als Bootdateien "
  227.      "erkannt und verwendet. (Nur, wenn Sie auf \"-Startup\" enden)"
  228. ))
  229.  
  230. (set #Deinstallation-fertig
  231. (cat "BootDock wurde erfolgreich entfernt.\n\nSie können es nun neuinstallieren :) "
  232.      "\n\nDas Deinstallationsprotokoll finden Sie in der RAM-Disk "
  233. ))
  234.  
  235. (set #Falsche-ROM-Version
  236. (cat "Sorry, aber um BootDock benutzen zu können, benötigen Sie mindestens Kickstart "
  237.      "2.1. (Version 38)"
  238. ))
  239.  
  240. (set #Neue-Startup-Sequence
  241. (cat "FailAt 21\n\n"
  242.      "C:SetPatch QUIET\n\n"
  243.      "C:Assign ENV: ENVARC:\n\n"
  244.      "CD \"%s\"\n"
  245.      "BootDockMain\n\n"
  246.      "EndCLI >NIL:\n"
  247. ))
  248.  
  249. (if (< (/ (getversion) 65536) 38)
  250. (
  251.     (abort #Falsche-ROM-Version)
  252. ))
  253.  
  254. (user 2)
  255.  
  256. (message #Information)
  257.  
  258. (set @user-level 1)
  259.  
  260. (welcome)
  261.  
  262. (set Userqualifikation @user-level)
  263.  
  264. (user 2)
  265.  
  266. (if
  267.     (askbool
  268.         (prompt #Install-Optionen)
  269.         (help #Install-Optionen-Hilfe)
  270.         (choices #Install-Moeglichkeit-1 #Install-Moeglichkeit-2)
  271.     )
  272.     (
  273.         (user Userqualifikation)
  274.         
  275.         (set @default-dest
  276.             (askdir
  277.                 (prompt #Ziel-aussuchen)
  278.                 (help #Ziel-aussuchen-Hilfe)
  279.                 (default "SYS:Tools/")
  280.             )
  281.         )
  282.         
  283.         (set @default-dest (expandpath @default-dest))
  284.         (set Prev-Verzeichnis @default-dest)
  285.         (set @default-dest (tackon @default-dest "BootDock"))
  286.  
  287.         (if
  288.             (askbool
  289.                 (prompt (#Ziel-bestaetigen @default-dest))
  290.                 (help (#Ziel-bestaetigen-Hilfe @default-dest))
  291.                 (choices #Ziel-bestaetigen-1 #Ziel-bestaetigen-2)
  292.                 (default 1)
  293.             )
  294.             (
  295.                 (makedir @default-dest)
  296.                 (makedir (tackon @default-dest "Bootdateien"))
  297.                 (makedir (tackon @default-dest "Bonbons"))
  298.                 (if ( = @user-level 1) (user 0))
  299.                 (copyfiles
  300.                     (prompt #Kopiere-BD-Main)
  301.                     (help #Kopiere-BD-Main-Hilfe)
  302.                     (source "Programme/BootDockMain")
  303.                     (dest @default-dest)
  304.                     (optional force)
  305.                     (confirm)
  306.                 )
  307.                 (copyfiles
  308.                     (prompt #Kopiere-BD-Prefs)
  309.                     (help #Kopiere-BD-Prefs-Hilfe)
  310.                     (source "Programme/BootDock")
  311.                     (dest @default-dest)
  312.                     (confirm)
  313.                 )
  314.                 (copyfiles
  315.                     (prompt #Kopiere-Prefs)
  316.                     (help #Kopiere-Prefs-Hilfe)
  317.                     (source "Stuff/BootDock.prefs")
  318.                     (dest @default-dest)
  319.                     (nogauge)
  320.                     (confirm)
  321.                 )
  322.                 (copyfiles
  323.                     (prompt #Kopiere-BD-Dokumentation)
  324.                     (help #Kopiere-BD-Dokumentation-Hilfe)
  325.                     (source "BootDock.guide")
  326.                     (dest @default-dest)
  327.                     (confirm)
  328.                 )
  329.                 (copyfiles
  330.                     (prompt #Kopiere-Bonbons)
  331.                     (help "")
  332.                     (source "Stuff/Bonbons")
  333.                     (dest (tackon @default-dest "Bonbons"))
  334.                     (confirm)
  335.                 )
  336.                 (rename
  337.                     "S:Startup-Sequence"
  338.                     (tackon @default-dest "Bootdateien/Workbench-Startup")
  339.                     (prompt #Startup-Sequence-umbennenen)
  340.                     (help #Startup-Sequence-umbennenen-H)
  341.                     (confirm)
  342.                 )
  343.                 (message (#Neue-Sequence-erzeugen-1))
  344.                 (textfile
  345.                     (prompt #Neue-Sequence-erzeugen-2)
  346.                     (help "")
  347.                     (dest "S:Startup-Sequence")
  348.                     (append (#Neue-Startup-Sequence @default-dest))
  349.                     (confirm)
  350.                 )
  351.                 (user 2)
  352.                 (set Piktogrammart ".icon")
  353.                 (if
  354.                     (askbool
  355.                         (prompt #Waehle_Piktogrammart)
  356.                         (help #Waehle_Piktogrammart-Hilfe)
  357.                         (choices #Piktogrammart-1 #Piktogrammart-2)
  358.                         (default 0)
  359.                     )
  360.                     (
  361.                         (set Piktogrammart ".mwb")
  362.                     )
  363.                 )
  364.                 (user Userqualifikation)
  365.                 (if (exists (tackon @default-dest "Bonbons/Bonbons"))
  366.                     (copyfiles
  367.                         (prompt "")
  368.                         (help "")
  369.                         (source (cat "Piktogramme/Bonbon" Piktogrammart))
  370.                         (dest (tackon @default-dest "Bonbons"))
  371.                         (newname "Bonbons.info")
  372.                         (nogauge)
  373.                     )
  374.                 )
  375.                 (if (exists (tackon @default-dest "Bonbons"))
  376.                     (copyfiles
  377.                         (prompt "")
  378.                         (help "")
  379.                         (source (cat "Piktogramme/Bonbons" Piktogrammart))
  380.                         (dest @default-dest)
  381.                         (newname "Bonbons.info")
  382.                         (nogauge)
  383.                     )
  384.                 )
  385.                 (if (exists (tackon @default-dest "Bootdateien/Workbench-Startup"))
  386.                     (copyfiles
  387.                         (prompt "")
  388.                         (help "")
  389.                         (source (cat "Piktogramme/Bootdatei" Piktogrammart))
  390.                         (dest (tackon @default-dest "Bootdateien"))
  391.                         (newname "Workbench-Startup.info")
  392.                         (nogauge)
  393.                     )
  394.                 )
  395.                 (if (exists (tackon @default-dest "Bootdateien"))
  396.                     (copyfiles
  397.                         (prompt "")
  398.                         (help "")
  399.                         (source (cat "Piktogramme/Bootdateien" Piktogrammart))
  400.                         (dest @default-dest)
  401.                         (newname "Bootdateien.info")
  402.                         (nogauge)
  403.                     )
  404.                 )
  405.                 (if (exists (tackon @default-dest "BootDock.guide"))
  406.                     (copyfiles
  407.                         (prompt "")
  408.                         (help "")
  409.                         (source (cat "Piktogramme/Dokumentation" Piktogrammart))
  410.                         (dest @default-dest)
  411.                         (newname "BootDock.guide.info")
  412.                         (nogauge)
  413.                     )
  414.                 )
  415.                 (copyfiles
  416.                     (prompt "")
  417.                     (help "")
  418.                     (source (cat "Piktogramme/BootDockDir" Piktogrammart))
  419.                     (dest Prev-Verzeichnis)
  420.                     (newname "BootDock.info")
  421.                     (nogauge)
  422.                     (noposition)
  423.                 )
  424.                 (copyfiles
  425.                     (prompt "")
  426.                     (help "")
  427.                     (source (cat "Piktogramme/BootDockPrefs" Piktogrammart))
  428.                     (dest @default-dest)
  429.                     (newname "BootDock.info")
  430.                     (nogauge)
  431.                 )
  432.                 (exit #Installation-fertig)
  433.             )
  434.         )
  435.     )
  436.     (
  437.         (user Userqualifikation)
  438.         (set @default-dest
  439.             (askdir
  440.                 (prompt #Wo-ist-BootDock)
  441.                 (help #Wo-ist-BootDock-Hilfe)
  442.                 (default "SYS:Tools/")
  443.             )
  444.         )
  445.         (set Uebergeordnetes-Verzeichnis @default-dest)
  446.         (set @default-dest (tackon @default-dest "BootDock"))
  447.         (if
  448.             (NOT (exists @default-dest))
  449.             (
  450.                 (user 2)
  451.                 (message (#Kein-BootDock-Verzeichnis @default-dest))
  452.                 (if
  453.                     (= Userqualifikation 0)
  454.                     (
  455.                         (message (#Kein-BootDock-Anfaenger @default-dest))
  456.                     )
  457.                 )
  458.                 (exit (quiet))
  459.             )
  460.         )
  461.         (if (= @user-level 1)
  462.             (user 0)
  463.         )
  464.         (message #Startup-Sequence-rekonstruieren)
  465.         (user Userqualifikation)
  466.         (delete "S:Startup-Sequence" (infos))
  467.         (rename (tackon @default-dest "Bootdateien/Workbench-Startup") "S:Startup-Sequence")
  468.         (message #Bootdateien-nach-SYS)
  469.         (
  470.             foreach (tackon @default-dest "Bootdateien") "#?"
  471.             (
  472.                 rename (tackon (tackon @default-dest "Bootdateien") @each-name) (tackon "SYS:" @each-name)
  473.             )
  474.         )
  475.         (delete @default-dest (all))
  476.         (delete @default-dest)
  477.         (delete (tackon Uebergeordnetes-Verzeichnis "BootDock.info"))
  478.         (set @default-dest "RAM:")
  479.         (exit #Deinstallation-fertig (quiet))
  480.     )
  481. )
  482.  
  483.