home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / clickme.first < prev    next >
Text File  |  1995-10-10  |  54KB  |  1,788 lines

  1. ; Dies ist das Install-Programm für die Meeting Pearls CD-ROMs.
  2. ; Es ist Copyright (C) 1994-1995 by Angela Schmidt, Neu-Ulm, Germany und
  3. ; darf AUSSCHLIESSLICH in Verbindung mit der Meeting Pearls CD-ROM oder
  4. ; privat benutzt werden. Weitergehende Nutzung, insbesondere Nutzung
  5. ; und Verbreitung auf anderen CD-ROMs, ist NICHT gestattet.
  6. ; Es ist NICHT gestattet, geänderte Versionen dieses Skripts in
  7. ; irgendeiner Art zu verbreiten.
  8. ; Für Sondergenehmigungen setzen Sie sich bitte mit
  9. ;    Angela Schmidt
  10. ;    Klosterweg 28/I501
  11. ;    D-76131 Karlsruhe
  12. ;    Germany
  13. ; in Verbindung.
  14.  
  15. (set osversion (/ (getversion) 65536))
  16. (set volname (expandpath (":")))
  17. (set findpearlsprefs "S:FindPearls.prefs")
  18. (set metaprefs "S:MetaTool.prefs")
  19.  
  20. (onerror
  21.     (run ":C/NessyCloseLib pattern.library")
  22. )
  23. (run "Run :C/NessyOpenLib pattern.library")
  24.  
  25. (set origuserlevel @user-level)
  26.  
  27. (if (AND (= 0 origuserlevel) (exists "ENV:Language"))
  28.     (
  29.         (set nop nop)    ; dummy
  30.     )
  31.     (
  32.         (user 2)
  33.         (set langnum
  34.             (askchoice
  35.                 (prompt "")
  36.                 (help "Please select your favourite language.\n\n" "Bitte wählen Sie ihre bevorzugte Sprache.")
  37.                 (choices
  38.                     "Deutsch"
  39.                     "English"
  40.                 )
  41.                 (default
  42.                     (if (exists "ENV:Language")
  43.                         (if (patmatch (getenv "language") "Deutsch")
  44.                             0
  45.                             (if (patmatch (getenv "language") "English")
  46.                                 1
  47.                                 1
  48.                             )
  49.                         )
  50.                         (if (patmatch @language "Deutsch")
  51.                             0
  52.                             (if (patmatch @language "English")
  53.                                 1
  54.                                 1
  55.                             )
  56.                         )
  57.                     )
  58.                 )
  59.             )
  60.         )
  61.         (user origuserlevel)
  62.     )
  63. )
  64.  
  65.  
  66.  
  67. (if (= langnum 0) (set langstring "Deutsch"))
  68. (if (= langnum 1) (set langstring "English"))
  69.  
  70. (if (not (exists "ENV:Language"))
  71.     (
  72.         (run ("%s%s" "setenv Language " langstring))
  73.     )
  74. )
  75.  
  76.  
  77. ; Hier folgen die Strings, die für die deutsche Übersetzung benötigt
  78. ; werden. Bei Übersetzungen in andere Sprachen einfach den folgenden
  79. ; Block komplett kopieren und die Texte ändern. Die Steuerzeichen
  80. ; sollten unverändert bleiben. Wer irgendwo eine Zeile hinzufügen oder
  81. ; löschen möchte, muß dir Anzahl der "%s" entsprechend anpassen - für
  82. ; jede Zeile steht ein "%s".
  83.  
  84. (if (patmatch langstring "Deutsch")
  85.     (
  86.         (set ja_antwort
  87.             "Ja"
  88.         )
  89.         (set nein_antwort
  90.             "Nein"
  91.         )
  92.         (set warning_old_os
  93.             (
  94.                 "%s%s%s"
  95.                 "Bitte bringen Sie Ihr Betriebssystem auf den neuesten Stand, denn ansonsten haben Sie mit Problemen zu rechnen! "
  96.                 "Diese CD läuft zwar prinzipiell auch unter Kickstart 1.2/1.3, aber mit dem Anzeigen von Bildern und einigen anderen Dingen "
  97.                 "werden Sie einige Probleme haben."
  98.             )
  99.         )
  100.         (set intro_msg
  101.             ("%s%s%s%s%s"
  102.                 "Willkommen zur Meeting Pearls CD-ROM!\n\n"
  103.                 "Sie sollten dieses Skript vor jeder Benutzung der Meeting Pearls CD-ROM "
  104.                 "starten - in erster Linie, um ein paar Assigns zu aktivieren. Starten Sie hierzu "
  105.                 "das Skript einfach im Novice-Modus. Es werden dann keine dauerhaften Änderungen an Ihrem System vorgenommen.\n\n"
  106.                 "Wenn Sie möchten, können Sie im Expert-Modus auch Ihre bevorzugten Anzeigeprogramme für einige Datentypen einstellen oder alle dauerhaften Änderungen wieder de-installieren."
  107.             )
  108.         )
  109.         (set warning_old_metaconfig
  110.             (
  111.                 "%s%s"
  112.                 "Sie haben noch eine alte MetaConfig installiert. Das kann Probleme verursachen. "
  113.                 "Soll die Umgebungsvariable METACONFIG aus ENV: gelöscht werden?"
  114.             )
  115.         )
  116.         (set warning_old_metaconfig_help
  117.             (
  118.                 "%s%s%s"
  119.                 "Falls Sie Poweruser sind, bevorzugen Sie vielleicht, Ihre METACONFIG von Hand "
  120.                 "anzupassen. Andernfalls sollten Sie ENV:METACONFIG löschen lassen, um allen "
  121.                 "eventuellen Problemen aus dem Weg zu gehen."
  122.             )
  123.         )
  124.         (set ask_install
  125.             "Bitte wählen Sie, ob Sie Dinge für die Meeting Pearls CD-ROM installieren oder de-installieren möchten."
  126.         )
  127.         (set ask_install_help
  128.             ("%s%s"
  129.                 "Beim Installieren werden nur dann dauerhafte Änderungen an Ihrem System vorgenommen, wenn Sie zugestimmt haben.\n\n"
  130.                 "Beim De-Installieren werden alle bisher vorgenommenen dauerhaften Änderungen wieder beseitigt."
  131.             )
  132.         )
  133.         (set msg_upper_fs
  134.             ("%s%s%s%s%s%s%s%s"
  135.                 "Ihr Dateisystem ignoriert offenbar die Rockridge-Erweiterungen. Daher bestehen "
  136.                 "alle Dateinamen nur aus Großbuchstaben. Wir empfehlen Ihnen dringend, ein "
  137.                 "Dateisystem zu installieren, das Rockridge-Erweiterungen benutzt, z. B.\n\n"
  138.                 "AmiCDROM - auf dieser CD-ROM enthalten\n"
  139.                 "CacheCDFS - Tel. +49 2631 83990\n"
  140.                 "BabelCDROMFS - Tel. +49 201 788778\n"
  141.                 "\nOder bitten Sie den Hersteller Ihres Filesystems, Rockridge-Support einzubauen. "
  142.                 "Andernfalls bekommen Sie möglicherweise Probleme beim Nachladen von System-Dateien."
  143.             )
  144.         )
  145.         (set install_it
  146.             "Installieren"
  147.         )
  148.         (set de_install_it
  149.             "Entfernen (De-Installieren)"
  150.         )
  151.         (set ask_babel
  152.             ("%s%s%s%s%s"
  153.                 "WARNUNG\n\n"
  154.                 "Ihr Dateisystem arbeitet gokal, unterscheidet also zwischen den Dateinamen "
  155.                 "\"Test\" und \"test\". Das wird unweigerlich zu Problemen führen. Falls Sie das "
  156.                 "BabelCDROMFS verwenden, kann nun automatisch auf ingokale Dateinamenbehandlung umgeschaltet "
  157.                 "werden. Bitte wählen Sie \"Ja\", falls Sie das BabelCDROMFS benutzen und sonst \"Nein\"."
  158.             )
  159.         )
  160.         (set ask_babel_help
  161.             ("%s%s%s%s%s%s"
  162.                 "Diese CD benutzt RockRidge-Erweiterungen, die bei manchen Dateisystemen "
  163.                 "gokal ausgewertet werden. Das heißt, wenn ein Programm die Datei \"test\" nachladen "
  164.                 "möchte, diese aber als \"Test\" auf der CD-ROM gespeichert wird, wird diese Datei "
  165.                 "nicht gefunden. Falls Sie das BabelCDROMFS verwenden, sollten Sie hier nun \"Ja\" "
  166.                 "wählen und somit die Umschaltung auf ingokale Dateinamenbehandlung erlauben.\n\n"
  167.                 "Als \"Bonus\" wird auch eine FSSM erzeugt, die Probleme mit manchen Programmen \"wegzaubert\"."
  168.             )
  169.         )
  170.         (set ask_accept_problems
  171.             ("%s%s%s%s%s%s"
  172.                 "Ihr Dateisystem arbeitet gokal. Das wird definitiv zu Problemen führen. "
  173.                 "Akzeptieren Sie diese Probleme? Dann wählen Sie \"Probleme akzeptieren\". Andernfalls schalten "
  174.                 "Sie Ihr CD-ROM-Dateisystem JETZT auf ingokale Dateinamen um und wählen Sie DANACH \"NICHT akzeptieren\". "
  175.                 "Dann wird dieser Vorgang wiederholt.\n\n"
  176.                 "Falls sich Ihr Dateisystem nicht umschalten läßt, sollten Sie sich ein anderes "
  177.                 "Dateisystem zulegen, zum Beispiel das auf dieser CD-ROM enthaltene \"AmiCDROM\"."
  178.             )
  179.         )
  180.         (set ask_accept_problems_help
  181.             ("%s%s%s%s"
  182.                 "Die zu erwartenden Probleme betreffen Dateien, die nicht gefunden werden. "
  183.                 "Es kann sein, daß Icons nicht anklickbar sind, AmigaGuide-Dokumente nicht mehr "
  184.                 "richtig funktionieren, Programme bestimmte Daten nicht mehr nachladen können usw. "
  185.                 "Machen Sie sich auf einiges gefaßt, wenn Sie die Probleme akzeptieren..."
  186.             )
  187.         )
  188.         (set i_accept_problems
  189.             "Probleme akzeptieren"
  190.         )
  191.         (set i_dont_accept_problems
  192.             "NICHT akzeptieren"
  193.         )
  194.         (set ask_install_cdwrite
  195.             ("%s"
  196.                 "Soll eine CD-Write-Demo installiert werden?"
  197.             )
  198.         )
  199.         (set ask_install_cdwrite_help
  200.             ("%s%s"
  201.                 "Ich rate Ihnen, es zu tun!\n\n"
  202.                 "Diese Demo macht Ihre Meeting Pearls III virtuell beschreibbar, funktioniert aber nicht mit anderen CD-ROMs."
  203.             )
  204.         )
  205.         (set ask_install_protflags
  206.             ("%s%s%s%s"
  207.                 "Sie benutzen CD-Write. Das bringt Ihnen einige Vorteile!\n\n"
  208.                 "Möchten Sie die Datei-Attribute und -Kommentare restaurieren lassen?\n\n"
  209.                 "WARNUNG: Das kostet VIEL Zeit, aber nur sehr wenig Platz auf Ihrer Festplatte. "
  210.                 "Wenn Sie eine längere Kaffeepause einlegen möchten, lautet die Empfehlung \"Ja\"."
  211.             )
  212.         )
  213.         (set ask_install_protflags_help
  214.             ("%s%s%s%s"
  215.                 "Wenn Sie \"Ja\" wählen, wird die CD-Write-Volume korrekte Datei-Attribute und "
  216.                 "-Kommentare bekommen. Das beschleunigt dann auch das Umkopieren von Verzeichnissen "
  217.                 "auf Ihre Festplatte, weil die Attribute dann nicht mehr nachträglich durch ein langsames "
  218.                 "Skript angepaßt werden müssen."
  219.             )
  220.         )
  221.         (set doesnt_exist
  222.             "existiert nicht oder ist keine Meeting Pearls CD-Write-Volume. Bitte korrigieren."
  223.         )
  224.         (set enter_cdwrite_root
  225.             ("%s%s"
  226.                 "Bitte geben Sie ein, welchen Device-Name Sie CD-Write gegeben haben. "
  227.                 "Vergessen Sie auf keinen Fall den abschließenden Doppelpunkt."
  228.             )
  229.         )
  230.         (set enter_cdwrite_root_help
  231.             ("%s"
  232.                 "Normalerweise ist das \"CDW0:\"."
  233.             )
  234.         )
  235.         (set restoring_flags
  236.             "Es werden die originalen Protectionflags und Kommentare, die auf der CD verlorengegangen sind, wieder hergestellt."
  237.         )
  238.         (set activate_assigns
  239.             ("%s%s%s%s%s"
  240.                 "Sollen Ihrem System ein paar Assigns hinzugefügt werden, damit einige "
  241.                 "auf der CD installierte Programme direkt startbar werden? (Diese Assigns "
  242.                 "werden nicht in S:user-startup eingefügt - nach dem Booten merken Sie also "
  243.                 "nichts mehr davon.)\n\n"
  244.                 "Empfehlung: Ja"
  245.             )
  246.         )
  247.         (set activate_assigns_help
  248.             ("%s%s"
  249.                 "Ich empfehle Ihnen \"Ja\" - es kann nichts kaputtgehen und spätestens "
  250.                 "nach einem Reset ist alles wieder beim Alten."
  251.             )
  252.         )
  253.         (set choose_viewer
  254.             ("%s%s%s%s%s%s%s%s%s"
  255.                 "Möchten Sie nun noch einstellen, welche Programme zum Ansehen von Texten, "
  256.                 "AmigaGuides, Bildern etc. verwendet werden sollen?\n\n"
  257.                 "Dadurch werden die Dateien \""
  258.                 findpearlsprefs
  259.                 "\" und \""
  260.                 metaprefs
  261.                 "\" erzeugt.\n\n"
  262.                 "Diese Einstellungen sind dann auch automatisch nach jedem Reset aktiv.\n\n"
  263.                 "Lesen Sie UNBEDINGT die Hilfe-Seite!"
  264.             )
  265.         )
  266.         (set choose_viewer_help1
  267.             ("%s%s%s%s"
  268.                 "Wir haben bereits geeignete Programme für Sie vorausgewählt. Es ist also "
  269.                 "nicht unbedingt nötig, diese selber zu konfigurieren. Falls Sie Power-User "
  270.                 "sind, werden Sie es sowieso bevorzugen, unser MetaTool von Hand an Ihre persönliche "
  271.                 "Umgebung anzupassen.\n\n"
  272.             )
  273.         )
  274.         (set choose_viewer_help2
  275.             ("%s%s%s%s"
  276.                 "Selbst wenn Sie alle Vorschläge dieses Installier-Programmes direkt übernehmen, "
  277.                 "werden an manchen Stellen danach andere Anzeigeprogramme verwendet als zuvor. "
  278.                 "Dies liegt daran, daß dieses Installier-Programm versucht, möglichst gute "
  279.                 "Vorschläge zu machen, die sowohl für unser MetaTool als auch für unser FindPearls passend sind. "
  280.             )
  281.         )
  282.         (set choose_viewer_help3
  283.             ("%s%s%s%s"
  284.                 "Da FindPearls jedoch UNBEDINGT Programme benötigt, die von der Workbench aus "
  285.                 "startbar sind, werden in diesem Skript - falls möglich - nur Programme vorgeschlagen, "
  286.                 "die auch von der Workbench aus startbar sind - selbst wenn sie etwas schlechter sind als "
  287.                 "entsprechende CLI-Programme. CLI-Programme werden in FindPearls nur als leere Zeichenkette dargestellt.\n\n"
  288.             )
  289.         )
  290.         (set choose_viewer_help4
  291.             ("%s%s%s%s%s%s"
  292.                 "Falls Sie nach der Installation irgendwelche Probleme beim Anklicken einiger Piktogramme "
  293.                 "haben, oder falls Ihnen die ursprüngliche Konfiguration besser gefallen hat, sollten Sie "
  294.                 "entweder \"S:MetaTool.prefs\" von Hand nachbearbeiten (als Vorlage hierfür schlage ich Ihnen \""
  295.                 (expandpath
  296.                     (if (<= osversion 36)
  297.                         (
  298.                             ":MetaTool/MetaTool33.config-HD"
  299.                         )
  300.                         (
  301.                             (if (< osversion 39)
  302.                                 (
  303.                                     ":MetaTool/MetaTool37.config-HD"
  304.                                 )
  305.                                 (
  306.                                     ":MetaTool/MetaTool39.config-HD"
  307.                                 )
  308.                             )
  309.                         )
  310.                     )
  311.                 )
  312.                 "\" vor) oder dieses Skript nochmals im Expert-Modus verwenden, dann allerdings "
  313.                 "\"de-installieren\" anwählen."
  314.             )
  315.         )
  316.         (set change_which_filetypes_help5
  317.             (
  318.                 "%s%s%s"
  319.                 "\n\nNOTIZ: Voreinstellungen, die mit dem Schlüsselwort CLI anfangen sind Programme, "
  320.                 "die in einer CLI-Umgebung gestartet werden. Sie sind für FindPearls nicht brauchbar "
  321.                 "und werden dort deshalb als leere Zeichenkette angezeigt."
  322.             )
  323.         )
  324.         (set change_which_filetypes
  325.             "Zu welchen Filetypen sollen die Anzeigeprogramme konfiguriert werden? Lesen Sie die Hilfe-Seite!"
  326.         )
  327.         (set change_which_filetypes_help1
  328.             (
  329.                 "%s%s%s%s%s%s"
  330.                 "Folgende Bedeutung haben die verschiedenen Filetypen:\n\n"
  331.                 "TEXT   - normale Texte\n"
  332.                 "GUIDE  - AmigaGuide-Dokumente\n"
  333.                 "HTML   - html-Seiten\n"
  334.                 "INST   - Installer-Skripte\n"
  335.                 "ICONX  - IconX-Skripte\n"
  336.             )
  337.         )
  338.         (set change_which_filetypes_help2
  339.             (
  340.                 "%s%s%s%s%s"
  341.                 "BIN    - binäre Daten\n"
  342.                 "REXX   - Rexx-Skripten\n"
  343.                 "PS     - Postscript-Dateien\n"
  344.                 "8SVX   - IFF-8SVX-Musikstücke\n"
  345.             )
  346.         )
  347.         (set change_which_filetypes_help3
  348.             (
  349.                 "%s%s%s%s%s"
  350.                 "JPEG   - jpeg-Bilder\n"
  351.                 "GIF    - gif-Bilder\n"
  352.                 "ILBM   - IFF-ILBM-Bilder\n"
  353.                 "MOVIE  - MoviePlayer-Animationen\n"
  354.             )
  355.         )
  356.         (set change_which_filetypes_help4
  357.             (
  358.                 "%s%s%s%s%s"
  359.                 "ANIM   - IFF-Animationen\n"
  360.                 "DVI    - DVI-Dokumente\n"
  361.                 "TEX    - TeX-Quellkode\n"
  362.                 "SOURCE - Quellkode\n"
  363.                 "\nVoreinstellungen:\n"
  364.             )
  365.         )
  366.         (set sel_text
  367.             "Bitte wählen Sie ein Programm zum Anzeigen von Textdateien."
  368.         )
  369.         (set sel_guide
  370.             "Bitte wählen Sie ein Programm zum Betrachten von AmigaGuide-Dateien."
  371.         )
  372.         (set sel_html
  373.             "Bitte wählen Sie ein Programm zum Betrachten von HTML-Dateien."
  374.         )
  375.         (set sel_inst
  376.             "Bitte wählen Sie ein Programm zum Starten von Installer-Skripten."
  377.         )
  378.         (set sel_iconx
  379.             "Bitte wählen Sie ein Programm zum Starten von IconX-Skripten."
  380.         )
  381.         (set sel_bin
  382.             "Bitte wählen Sie ein Programm zum Anzeigen von Binärdateien."
  383.         )
  384.         (set sel_rexx
  385.             "Bitte wählen Sie ein Programm zum Starten von Rexx-Skripten."
  386.         )
  387.         (set sel_ps
  388.             "Bitte wählen Sie ein Programm zum Betrachten von Postscript-Dateien."
  389.         )
  390.         (set sel_8svx
  391.             "Bitte wählen Sie ein Programm zum Abspielen von 8SVX-Dateien."
  392.         )
  393.         (set sel_jpeg
  394.             "Bitte wählen Sie ein Programm zum Anzeigen von JPEG-Bildern."
  395.         )
  396.         (set sel_gif
  397.             "Bitte wählen Sie ein Programm zum Anzeigen von GIF-Bildern."
  398.         )
  399.         (set sel_ilbm
  400.             "Bitte wählen Sie ein Programm zum Anzeigen von ILBM-Bildern."
  401.         )
  402.         (set sel_movie
  403.             "Bitte wählen Sie ein Programm zum Abspielen von Movie-Dateien."
  404.         )
  405.         (set sel_anim
  406.             "Bitte wählen Sie ein Programm zum Abspielen von Animationen."
  407.         )
  408.         (set sel_dvi
  409.             "Bitte wählen Sie ein Programm zum Anzeigen von DVI-Dateien."
  410.         )
  411.         (set sel_tex
  412.             "Bitte wählen Sie ein Programm für TeX-Dateien."
  413.         )
  414.         (set sel_source
  415.             "Bitte wählen Sie ein Programm zum Betrachten von Quellkodes."
  416.         )
  417.         (set start_from_wb1
  418.             "\n\nWählen Sie zunächst, ob das Programm von der Workbench oder vom CLI aus gestartet werden soll.\n\nEmpfehlung: "
  419.         )
  420.         (set start_from_wb2
  421.             "\nEmpfohlenes Programm: "
  422.         )
  423.         (set start_from_wb_help_1
  424.             ("%s%s%s%s%s%s"
  425.                 "Es gibt zwei Möglichkeiten, das Anzeigeprogramm zu starten:\n\n"
  426.                 "1. Von der Workbench aus. Das ist dann (fast) so, als hätten Sie das entsprechende "
  427.                 "Programm als DefaultTool in das Project-Icon eingetragen.\n\n"
  428.                 "2. Vom CLI aus. Das ist dann etwa so, als würden Sie im CLI einen Programmnamen, "
  429.                 "eventuell ein paar Parameter und auch irgendwo den Namen des anzuzeigenden bzw. "
  430.                 "abzuspielenden Objekts eingeben.\n\n"
  431.             )
  432.         )
  433.         (set start_from_wb_help_2
  434.             ("%s%s%s%s"
  435.                 "Wenn Sie das Programm von der Workbench aus starten wollen, können Sie Ihr "
  436.                 "Lieblings-Anzeige- oder -Abspiel-Programm mit Hilfe eines Dateiauswahlrequesters "
  437.                 "wählen. Wollen Sie das Programm vom CLI aus starten, müssen Sie die Kommandozeile "
  438.                 "von Hand eingeben.\n\n"
  439.             )
  440.         )
  441.         (set start_from_wb_help_3
  442.             ("%s%s%s%s"
  443.                 "Falls Sie die Kopieroption von FindPearls benutzen möchten und dabei das MetaTool "
  444.                 "bei Applikationen, die Sie auf Ihrer Festplatte installiert haben, nicht verwenden wollen, "
  445.                 "brauchen Sie Programme, die von der Workbench aus startbar "
  446.                 "sind, da dann die DefaultTools der Project-Icons automatisch angepasst werden."
  447.             )
  448.         )
  449.         (set choosewbprg_help
  450.             ("%s%s"
  451.                 "Das Programm, das Sie hier wählen, wird - (fast) als hätten Sie es direkt im DefaulTool "
  452.                 "der Project-Icons eingetragen - zum Anzeigen des entsprechenden Datentyps benutzt, wenn Sie auf ein entsprechendes Icon klicken."
  453.             )
  454.         )
  455.         (set enter_cmdline
  456.             "\n\nGeben Sie die gesamte Kommandozeile mit allen Optionen ein. Wählen Sie ggf. die Hilfe-Seite!"
  457.         )
  458.         (set enter_cmdline_help
  459.             ("%s%s%s"
  460.                 "Geben Sie den Befehl so ein, als würden Sie das Programm vom CLI aus starten. "
  461.                 "Markieren Sie die Stelle, an der der Dateiname eingefügt werden soll, mit \"[]\".\n\n"
  462.                 "Beispiel: \"ZeigeDatei NAME=[] OPTIONEN=meine_optionen\""
  463.             )
  464.         )
  465.         (set wanna_copy_to_envarc
  466.             ("%s%s%s"
  467.                 "Wollen Sie einige Umgebungsvariablen nach ENVARC: kopieren? "
  468.                 "Dieses Install-Skript macht Gebrauch von diesen Variablen, falls "
  469.                 "sie existieren und läuft dann deutlich komfortabler."
  470.             )
  471.         )
  472.         (set wanna_copy_to_envarc_help
  473.             ("%s%s%s%s%s"
  474.                 "Wenn Sie die Umgebungsvariablen nicht kopieren, wird dieses "
  475.                 "Install-Skript nach einem Reset Ihre bereits getroffenen "
  476.                 "Entscheidungen nicht mehr kennen und daher nicht mehr voreinstellen "
  477.                 "können. Andererseits verlängert das Kopieren die Bootzeit ein "
  478.                 "klitzekleinwenig..."
  479.             )
  480.         )
  481.         (set April
  482.             "\n\n\n\n\n    April, April!!! ;-Þ"
  483.         )
  484.         (set Heia_1
  485.             "\n\n\n\n\nEs ist nun "
  486.         )
  487.                                                     ;        ( <- Klammer für CEDs-Klammersuche
  488.         (set Heia_2
  489.             " Uhr. Ab in die Heia! :-)"
  490.         )
  491.     )
  492. )
  493. (if (patmatch langstring "English")
  494.     (
  495.         (set ja_antwort
  496.             "Yes"
  497.         )
  498.         (set nein_antwort
  499.             "No"
  500.         )
  501.         (set warning_old_os
  502.             (
  503.                 "%s%s%s"
  504.                 "Please update the operating system, because otherwise there will be some problems using this CD. "
  505.                 "In principle this CD is still usable under Kickstart 1.2/1.3, BUT you will find it difficult to view all "
  506.                 "pictures and several other things will not work either."
  507.             )
  508.         )
  509.         (set intro_msg
  510.             ("%s%s%s%s%s"
  511.                 "Welcome at the Meeting Pearls CD-ROM!\n\n"
  512.                 "You should start this script before you use the CD-ROM to "
  513.                 "add some assigns to your system. Therefore, simply run the script in novice mode. "
  514.                 "In this case, no lasting changes will be done to your system.\n\n"
  515.                 "If you want, you also can specify your preferred viewing programs for some data types using the expert mode. Additionally, you might want to de-install things."
  516.             )
  517.         )
  518.         (set warning_old_metaconfig
  519.             (
  520.                 "%s%s"
  521.                 "You have an old MetaConfig installed. This might cause trouble."
  522.                 "Do you want the environment variable METACONFIG to be deleted from ENV:?"
  523.             )
  524.         )
  525.         (set warning_old_metaconfig_help
  526.             (
  527.                 "%s%s%s"
  528.                 "If you are a power user, you probably prefer to fix your metaconfig "
  529.                 "manually. Otherwise you should allow to delete METACONFIG to avoid "
  530.                 "any problems."
  531.             )
  532.         )
  533.         (set ask_install
  534.             "Please choose, if you want to install or de-install things for Meeting Pearls CD-ROM."
  535.         )
  536.         (set ask_install_help
  537.             ("%s%s"
  538.                 "If you want to install things, we'll only do lasting changes to your system, if you agreed before.\n\n"
  539.                 "If you want to de-install things, we'll remove any lasting changes from your system."
  540.             )
  541.         )
  542.         (set msg_upper_fs
  543.             ("%s%s%s%s%s%s%s%s"
  544.                 "Obviously your filesystem ignores rockridge extensions. That's why you will "
  545.                 "only see upper case filenames. We strongly suggest to install a filesystem which "
  546.                 "supports rockridge extensions, for example\n\n"
  547.                 "AmiCDROM - available on this CD-ROM\n"
  548.                 "CacheCDFS - Tel. +49 2631 83990\n"
  549.                 "BabelCDROMFS - Tel. +49 201 788778\n"
  550.                 "\nOr ask the producer of your filesystem to add rockridge support. "
  551.                 "Otherwise you might run into trouble when a program has to load system files."
  552.             )
  553.         )
  554.         (set install_it
  555.             "install"
  556.         )
  557.         (set de_install_it
  558.             "de-install"
  559.         )
  560.         (set ask_babel
  561.             ("%s%s%s%s%s"
  562.                 "WARNING\n\n"
  563.                 "Your CD-ROM filesystem is casesensitiv, so there is a difference between the filenames "
  564.                 "\"Test\" and \"test\". This will cause trouble. If you are using BabelCDROMFS, this "
  565.                 "can be changed automatically so your filesystem will work caseinsensitiv afterwards. "
  566.                 "Please choose \"Yes\" if you are using BabelCDROMFS and \"No\" otherwise."
  567.             )
  568.         )
  569.         (set ask_babel_help
  570.             ("%s%s%s%s%s%s"
  571.                 "This CD-ROM uses RockRidge extentions which are dealed in a casesensitive "
  572.                 "way with some filesystems. This means, if any program tries to load the file "
  573.                 "\"test\", which however is saved as \"Test\" on this CD-ROM, this file won't "
  574.                 "be found. If you use BabelCDROMFS, you should select \"Yes\" here and so allow "
  575.                 "switching to caseinsensitive filename mode.\n\n"
  576.                 "As a little extra feature, you'll get a FSSM, which makes some problems with some programs disappear."
  577.             )
  578.         )
  579.         (set ask_accept_problems
  580.             ("%s%s%s%s%s%s"
  581.                 "Your filesystem works casesensitivly. This will cause trouble. Do you "
  582.                 "accept these problems? Then select \"Accept problems\". Otherwise switch your "
  583.                 "CD-ROM filesystem NOW to work caseinsensitiv and select \"DON'T accept\" AFTERWARDS. "
  584.                 "Then the last steps will be repeated.\n\n"
  585.                 "If you cannot switch your filesystem you should get a different filesystem, "
  586.                 "for example AmiCDROM, which is contained on this CD-ROM."
  587.             )
  588.         )
  589.         (set ask_accept_problems_help
  590.             ("%s%s%s%s"
  591.                 "The expected problems are concerning files which won't be found. "
  592.                 "Maybe when you click on some icons, nothing will happen. Maybe, some "
  593.                 "AmigaGuide files won't work as expected, maybe some programs cannot find "
  594.                 "the data they have to load into memory. So be prepared if you accept the problems..."
  595.             )
  596.         )
  597.         (set i_accept_problems
  598.             "Accept problems"
  599.         )
  600.         (set i_dont_accept_problems
  601.             "DON'T accept"
  602.         )
  603.         (set ask_install_cdwrite
  604.             ("%s"
  605.                 "Do you want a CD-Write-Demo being installed?"
  606.             )
  607.         )
  608.         (set ask_install_cdwrite_help
  609.             ("%s%s"
  610.                 "I suggest to do it\n\n"
  611.                 "This demo enables you to virtually write on your Meeting Pearls III, but won't work with other CD-ROMs."
  612.             )
  613.         )
  614.         (set ask_install_protflags
  615.             ("%s%s%s%s"
  616.                 "You are using CD-Write. So there are some advantages for you!\n\n"
  617.                 "Do you want to restore the protection bits and filenotes?\n\n"
  618.                 "WARNING: This will take a LOT of time, but only a bit harddisk space. "
  619.                 "If you want to have a long break for coffee, I suggest you to select \"Yes\"."
  620.             )
  621.         )
  622.         (set ask_install_protflags_help
  623.             ("%s%s%s%s"
  624.                 "If you select \"Yes\", the CD-Write volume will get correct protection flags and "
  625.                 "file comments. This will speed up copying drawers from CD-ROM to your harddisk "
  626.                 "because there is no longer any need to fix the attributes after copying by "
  627.                 "running a slow script."
  628.             )
  629.         )
  630.         (set doesnt_exist
  631.             "does not exist or is no Meeting Pearls CD-Write Volume. Correct it, please."
  632.         )
  633.         (set enter_cdwrite_root
  634.             ("%s%s"
  635.                 "Please enter the device name you choosed for CD-Write. "
  636.                 "Don't forget the colon at the end of the device name."
  637.             )
  638.         )
  639.         (set enter_cdwrite_root_help
  640.             ("%s"
  641.                 "Normally you will enter \"CDW0:\" here."
  642.             )
  643.         )
  644.         (set restoring_flags
  645.             "The original protectionflags and comments, that were lost on the CD, are restored at this very moment!"
  646.         )
  647.         (set activate_assigns
  648.             ("%s%s%s%s%s"
  649.                 "Shall some Assigns be activated, to make some of the programs "
  650.                 "on this CD ready for instant startup? (These Assigns will not be installed "
  651.                 "in the s:user-startup file - so after the next reset everything will be back "
  652.                 "as normal.)\n\n"
  653.                 "Suggestion: Yes"
  654.             )
  655.         )
  656.         (set activate_assigns_help
  657.             ("%s%s"
  658.                 "I suppose the selection of \"Yes\" - nothing will be broken in your system and "
  659.                 "everything returns to its original state after the next reset."
  660.             )
  661.         )
  662.         (set choose_viewer
  663.             ("%s%s%s%s%s%s%s%s%s"
  664.                 "Do you want to choose now your preferred programs to view texts, amigaguides, "
  665.                 "pictures etc.?\n\n"
  666.                 "This creates the files \""
  667.                 findpearlsprefs
  668.                 "\" and \""
  669.                 metaprefs
  670.                 "\".\n\n"
  671.                 "These settings then will be also automatically active after a reset.\n\n"
  672.                 "You REALLY should read the help page now!"
  673.             )
  674.         )
  675.         (set choose_viewer_help1
  676.             ("%s%s%s%s"
  677.                 "We already have choosen some viewing programs for you. So it is "
  678.                 "not necessary to configure them here. If you are poweruser, you "
  679.                 "probably will prefer to configure our MetaTool for your personal use "
  680.                 "using any text editor.\n\n"
  681.             )
  682.         )
  683.         (set choose_viewer_help2
  684.             ("%s%s%s%s"
  685.                 "Even if you confirm the suggestions of this installer program, afterwards, "
  686.                 "we will use other viewing programs in some cases. The reason for this "
  687.                 "behaviour is, that this installer program tries to find programs that are "
  688.                 "suitable for both, our MetaTool and our FindPearls. "
  689.             )
  690.         )
  691.         (set choose_viewer_help3
  692.             ("%s%s%s%s"
  693.                 "Since FindPearls ABSOLUTELY needs programs that run from Workbench, this script "
  694.                 "will suggest - if possible - programs that also run from Workbench - even if "
  695.                 "they are not as good as some other CLI programs. "
  696.                 "CLI programs will be displayed as an empty string in FindPearls.\n\n"
  697.             )
  698.         )
  699.         (set choose_viewer_help4
  700.             ("%s%s%s%s%s%s"
  701.                 "If you have any problems after this installation while double-clicking on some "
  702.                 "icons or if you prefer the original configuration, you either should edit \""
  703.                 "S:MetaTool.prefs\" using your editor (I suggest to use \""
  704.                 (expandpath
  705.                     (if (<= osversion 36)
  706.                         (
  707.                             ":MetaTool/MetaTool33.config-HD"
  708.                         )
  709.                         (
  710.                             (if (< osversion 39)
  711.                                 (
  712.                                     ":MetaTool/MetaTool37.config-HD"
  713.                                 )
  714.                                 (
  715.                                     ":MetaTool/MetaTool39.config-HD"
  716.                                 )
  717.                             )
  718.                         )
  719.                     )
  720.                 )
  721.                 "\" as model) or you should run this script once more using the expert mode, but "
  722.                 "then you should choose \"de-install\"."
  723.             )
  724.         )
  725.         (set change_which_filetypes
  726.             "Which viewing programs do you want to customize? Read the help-page!"
  727.         )
  728.         (set change_which_filetypes_help1
  729.             (
  730.                 "%s%s%s%s%s%s"
  731.                 "The following list describes the meaning of the filetypes:\n\n"
  732.                 "TEXT   - normal text documents\n"
  733.                 "GUIDE  - AmigaGuide documents\n"
  734.                 "HTML   - html pages\n"
  735.                 "INST   - Installer scripts\n"
  736.                 "ICONX  - IconX scripts\n"
  737.             )
  738.         )
  739.         (set change_which_filetypes_help2
  740.             (
  741.                 "%s%s%s%s%s"
  742.                 "BIN    - binary data\n"
  743.                 "REXX   - Rexx scripts\n"
  744.                 "PS     - PostScript files\n"
  745.                 "8SVX   - IFF-8SVX-samples\n"
  746.             )
  747.         )
  748.         (set change_which_filetypes_help3
  749.             (
  750.                 "%s%s%s%s%s"
  751.                 "JPEG   - jpeg pictures\n"
  752.                 "GIF    - gif pictures\n"
  753.                 "ILBM   - IFF-ILBM pictures\n"
  754.                 "MOVIE  - MoviePlayer animations\n"
  755.             )
  756.         )
  757.         (set change_which_filetypes_help4
  758.             (
  759.                 "%s%s%s%s%s"
  760.                 "ANIM   - IFF animations\n"
  761.                 "DVI    - DVI documents\n"
  762.                 "TEX    - TeX source codes\n"
  763.                 "SOURCE - source code\n"
  764.                 "\nDefaults:\n"
  765.             )
  766.         )
  767.         (set change_which_filetypes_help5
  768.             (
  769.                 "%s%s%s"
  770.                 "\n\nNOTE: Defaults that begin with the keyword CLI are programs that will be "
  771.                 "run from a CLI environment. They are NOT suitable for FindPearls and so will "
  772.                 "appear as empty string in the FindPearls configuration."
  773.             )
  774.         )
  775.         (set sel_text
  776.             "Please choose a program to show text files."
  777.         )
  778.         (set sel_guide
  779.             "Please choose a program to view AmigaGuide files."
  780.         )
  781.         (set sel_html
  782.             "Please choose a program to view HTML-files."
  783.         )
  784.         (set sel_inst
  785.             "Please choose a program to start for Installer scripts."
  786.         )
  787.         (set sel_iconx
  788.             "Please choose a program to start for IconX scripts."
  789.         )
  790.         (set sel_bin
  791.             "Please choose a program to show binary data."
  792.         )
  793.         (set sel_rexx
  794.             "Please choose a program to start rexx scripts."
  795.         )
  796.         (set sel_ps
  797.             "Please choose a program to view postscript files."
  798.         )
  799.         (set sel_8svx
  800.             "Please choose a program to play 8SVX files."
  801.         )
  802.         (set sel_jpeg
  803.             "Please choose a program to show JPEG pictures."
  804.         )
  805.         (set sel_gif
  806.             "Please choose a program to show GIF pictures."
  807.         )
  808.         (set sel_ilbm
  809.             "Please choose a program to show ILBM pictures."
  810.         )
  811.         (set sel_movie
  812.             "Please choose a program to play movie files."
  813.         )
  814.         (set sel_anim
  815.             "Please choose a program to play animations."
  816.         )
  817.         (set sel_dvi
  818.             "Please choose a program to show DVI files."
  819.         )
  820.         (set sel_tex
  821.             "Please choose a program for TeX files."
  822.         )
  823.         (set sel_source
  824.             "Please choose a program to view source files."
  825.         )
  826.         (set start_from_wb1
  827.             "\n\nPlease choose first, if the program should be started from Workbench or CLI.\n\n Suggestion: "
  828.         )
  829.         (set start_from_wb2
  830.             "\nSuggested program: "
  831.         )
  832.         (set start_from_wb_help_1
  833.             ("%s%s%s%s%s%s"
  834.                 "There are two possibilities to start the viewing program:\n\n"
  835.                 "1. Using the Workbench. This behaves (nearly) as to change the defaulttool "
  836.                 "of the project-icon.\n\n"
  837.                 "2. Using the CLI. This is about the same as to enter a program name "
  838.                 "and maybe some parameters and anywhere the name of the project you want to "
  839.                 "show in the CLI.\n\n"
  840.             )
  841.         )
  842.         (set start_from_wb_help_2
  843.             ("%s%s%s%s"
  844.                 "If you want to start the program using the Workbench, you can choose your "
  845.                 "favourite viewing program using a filerequester. "
  846.                 "If you want to start the program using the CLI, you have to enter the "
  847.                 "command line into a string gadget without filerequester support.\n\n"
  848.             )
  849.         )
  850.         (set start_from_wb_help_3
  851.             ("%s%s%s%s"
  852.                 "If you want to use the copy option of FindPearls and if you don't want to use "
  853.                 "MetaTool in applications you've installed to your harddisk, you need programs "
  854.                 "that run from Workbench, since then the defaulttools will be automatically "
  855.                 "exchanged while copying the application to your harddisk."
  856.             )
  857.         )
  858.         (set choosewbprg_help
  859.             ("%s%s"
  860.                 "The program you choose here will be executed if you click on a project icon "
  861.                 "that represents such a data type - just as if you changed the default tool."
  862.             )
  863.         )
  864.         (set enter_cmdline
  865.             "\n\nPlease enter the whole command line with all options. Choose the help page if you don't know how to do this!"
  866.         )
  867.         (set enter_cmdline_help
  868.             ("%s%s%s"
  869.                 "Enter the command as if you would start the program using the CLI. "
  870.                 "Put \"[]\" at the place where the filename you want to view should be added.\n\n"
  871.                 "Example: \"ShowStuff NAME=[] OPTIONS=myoptions\""
  872.             )
  873.         )
  874.         (set wanna_copy_to_envarc
  875.             ("%s%s%s"
  876.                 "Do you want to copy some environment variables to the ENVARC: drawer? "
  877.                 "This install script makes use of these variables and will work "
  878.                 "more comfortably when they exist."
  879.             )
  880.         )
  881.         (set wanna_copy_to_envarc_help
  882.             ("%s%s%s%s%s"
  883.                 "If you choose not to copy the environment variables then this install "
  884.                 "script will not remember your previous decisions after the next "
  885.                 "reset and will therefore not be able to declare these decisions as "
  886.                 "defaults. On the other hand the copying will slow down the startup "
  887.                 "process a teeny-weeny bit..."
  888.             )
  889.         )
  890.         (set April
  891.             "\n\n\n\n\n    I made an April fool of you! ;-Þ"
  892.         )
  893.         (set Heia_1
  894.             "\n\n\n\n\nIt is "
  895.         )
  896.                                                     ;        ( <- Klammer für CEDs-Klammersuche
  897.         (set Heia_2
  898.             " h now. Time to go to bed! :-)"
  899.         )
  900.     )
  901. )
  902.  
  903. (if (< osversion 37)
  904.     (
  905.         (user 2)
  906.         (message
  907.             warning_old_os
  908.         )
  909.         (user origuserlevel)
  910.     )
  911. )
  912.  
  913. (complete 5)
  914.  
  915. (message
  916.     intro_msg
  917. )
  918.  
  919. (complete 8)
  920.  
  921. (if (exists "ENV:METACONFIG" (noreq))
  922.     (
  923.         (run ":C/pgrep >ENV:METACONFIGTEST -x SOURCE#? $METACONFIG")
  924.         (if (OR (NOT (patmatch "SOURCE#?" (getenv "METACONFIGTEST"))) (NOT (exists (getenv "METACONFIG") (noreq))))
  925.             (
  926.                 (user 2)
  927.                 (set killmeta
  928.                     (askbool
  929.                         (prompt warning_old_metaconfig)
  930.                         (help warning_old_metaconfig_help)
  931.                         (choices ja_antwort nein_antwort)
  932.                         (default 1)
  933.                     )
  934.                 )
  935.                 (user origuserlevel)
  936.                 (if (= 1 killmeta)
  937.                     (
  938.                         (delete "ENV:METACONFIG")
  939.                     )
  940.                     (
  941.                         (if (exists "ENV:EDITOR" (noreq))
  942.                             (run ("\"%s\" \"%s\"" (getenv "EDITOR") (getenv "METACONFIG")))
  943.                         )
  944.                     )
  945.                 )
  946.             )
  947.         )
  948.         (delete "ENV:METACONFIGTEST")
  949.     )
  950. )
  951.  
  952. (complete 10)
  953.  
  954. (set installit
  955.     (askchoice
  956.         (prompt ask_install)
  957.         (choices install_it de_install_it)
  958.         (help ask_install_help)
  959.         (default 0)
  960.     )
  961. )
  962.  
  963. (complete 12)
  964.  
  965. (user 2)
  966. (run "List >RAM:MPCLKFIRSTUPPER :SYS/T LFORMAT %n")
  967. (if (= 5 (run ":C/pgrep Test RAM:MPCLKFIRSTUPPER"))
  968.     (message msg_upper_fs)
  969. )
  970. (delete "RAM:MPCLKFIRSTUPPER")
  971. (user origuserlevel)
  972.  
  973. (complete 15)
  974.  
  975. (if (= installit 0)
  976.     (                                ; install it
  977.         (if (not (exists ":sys/t/test"))
  978.             (
  979.                 (user 2)
  980.                 (set switchbabel
  981.                     (askbool
  982.                         (prompt ask_babel)
  983.                         (help ask_babel_help)
  984.                         (choices ja_antwort nein_antwort)
  985.                         (default 1)
  986.                     )
  987.                 )
  988.                 (user origuserlevel)
  989.  
  990.                 (if (= 1 switchbabel)
  991.                     (
  992.                         (run ("%s%s%s" ":Pearls/cdrom/FS+FS-Tools/BabelCDROMCtrl/BabelCDROMCtrl " volname " rrnocase fssm"))
  993.                     )
  994.                 )
  995.  
  996.                 (complete 17)
  997.  
  998.                 (set acceptproblems (exists ":sys/t/test"))
  999.                 (while (= 0 acceptproblems)
  1000.                     (if (exists ":sys/t/test")
  1001.                         (
  1002.                             (set acceptproblems 1)
  1003.                         )
  1004.                         (
  1005.                             (user 2)
  1006.                             (set acceptproblems
  1007.                                 (askbool
  1008.                                     (prompt ask_accept_problems)
  1009.                                     (help ask_accept_problems_help)
  1010.                                     (choices i_accept_problems i_dont_accept_problems)
  1011.                                     (default 0)
  1012.                                 )
  1013.                             )
  1014.                             (user origuserlevel)
  1015.                         )
  1016.                     )
  1017.                 )
  1018.             )
  1019.         )
  1020.  
  1021.         (complete 20)
  1022.  
  1023.         (set askprotflags 0)
  1024.         (if (= 0 (run ":Contrib/CD-Write-Demo/c/CheckCDWrite"))
  1025.             (
  1026.                 (set askprotflags 1)
  1027.             )
  1028.             (
  1029.                 (set installcdwrite
  1030.                     (askbool
  1031.                         (
  1032.                             (prompt ask_install_cdwrite)
  1033.                             (help ask_install_cdwrite_help)
  1034.                             (choices ja_antwort nein_antwort)
  1035.                             (default 0)
  1036.                         )
  1037.                     )
  1038.                 )
  1039.                 (if (= 1 installcdwrite)
  1040.                     (
  1041.                         (set oldexecutedir @execute-dir)
  1042.                         (set @execute-dir ":Contrib/CD-Write-Demo")
  1043.                         (run (":C/Installer Install APPNAME CD-Write-Demo LANGUAGE %s" langstring))
  1044.                         (if (= 0 (run ":Contrib/CD-Write-Demo/c/CheckCDWrite"))
  1045.                             (set askprotflags 1)
  1046.                             (if (NOT (exists ":sys/t/test"))
  1047.                                 (
  1048.                                     (run ("%s%s%s" ":Pearls/cdrom/FS+FS-Tools/BabelCDROMCtrl/BabelCDROMCtrl " volname " rrnocase fssm"))
  1049.                                 )
  1050.                             )
  1051.                         )
  1052.                         (set @execute-dir oldexecutedir)
  1053.                     )
  1054.                 )
  1055.             )
  1056.         )
  1057.  
  1058.         (complete 22)
  1059.  
  1060.         (if (= 1 askprotflags)
  1061.             (
  1062.                 (set installprotflags
  1063.                     (askbool
  1064.                         (
  1065.                             (prompt ask_install_protflags)
  1066.                             (help ask_install_protflags_help)
  1067.                             (choices ja_antwort nein_antwort)
  1068.                             (default 0)
  1069.                         )
  1070.                     )
  1071.                 )
  1072.                 (if (= 1 installprotflags)
  1073.                     (
  1074.                         (if (exists "CDW-Meeting_Pearls_III:clickme.first" (noreq))
  1075.                             (
  1076.                                 (set cdwriteroot ("%s:" (getdevice "CDW-Meeting_Pearls_III:")))
  1077.                             )
  1078.                             (
  1079.                                 (set cdwriteroot "CDW0:")
  1080.                             )
  1081.                         )
  1082.  
  1083. ; Testet Installer bei "until" _DOCH_ schon beim Schleifen-Eintritt???
  1084.                                         (set cdwriteroot
  1085.                                             (askstring
  1086.                                                 (prompt enter_cdwrite_root)
  1087.                                                 (help enter_cdwrite_root_help)
  1088.                                                 (default cdwriteroot)
  1089.                                             )
  1090.                                         )
  1091.  
  1092.                         (until (exists ("%sclickme.first" cdwriteroot) (noreq))
  1093.                             (
  1094.                                 (set cdwriteroot
  1095.                                     (askstring
  1096.                                         (prompt enter_cdwrite_root)
  1097.                                         (help enter_cdwrite_root_help)
  1098.                                         (default cdwriteroot)
  1099.                                     )
  1100.                                 )
  1101.                                 (if (NOT (exists ("%sclickme.first" cdwriteroot) (noreq)))
  1102.                                     (
  1103.                                         (message ("\"%s\" %s" cdwriteroot doesnt_exist))
  1104.                                     )
  1105.                                 )
  1106.                             )
  1107.                         )
  1108.                         (working restoring_flags)
  1109.                         (run "Resident :C/SetComment PURE ADD")
  1110.                         (run "Resident :C/SetProtection PURE ADD")
  1111.                         (run "Which >ENV:MPCLKFRSTASSIGN Assign")
  1112.                         (run "Which >ENV:MPCLKFRSTCD CD")
  1113.                         (run "Which >ENV:MPCLKFRSTEXECUTE Execute")
  1114.                         (if (patmatch "RESIDENT #?" (getenv "MPCLKFRSTASSIGN"))
  1115.                             (
  1116.                                 (run ("Resident %s\"%s\"" (getenv "MPCLKFRSTASSIGN")))
  1117.                                 (set resi_assign 1)
  1118.                             )
  1119.                             (set resi_assign 0)
  1120.                         )
  1121.                         (if (patmatch "RESIDENT #?" (getenv "MPCLKFRSTCD"))
  1122.                             (
  1123.                                 (run ("Resident %s\"%s\"" (getenv "MPCLKFRSTCD")))
  1124.                                 (set resi_cd 1)
  1125.                             )
  1126.                             (set resi_cd 0)
  1127.                         )
  1128.                         (if (patmatch "RESIDENT #?" (getenv "MPCLKFRSTEXECUTE"))
  1129.                             (
  1130.                                 (run ("Resident %s\"%s\"" (getenv "MPCLKFRSTEXECUTE")))
  1131.                                 (set resi_execute 1)
  1132.                             )
  1133.                             (set resi_execute 0)
  1134.                         )
  1135.                         ("delete ENV:MPCLKFRSTASSIGN")
  1136.                         ("delete ENV:MPCLKFRSTCD")
  1137.                         ("delete ENV:MPCLKFRSTEXECUTE")
  1138.                         (set oldexecutedir @execute-dir)
  1139.                         (set @execute-dir cdwriteroot)
  1140.                         (execute
  1141.                             ("\"%s\" \"%s\""
  1142.                                 (expandpath ":SetAttributesDir/SetAttributes")
  1143.                                 (expandpath ":SetAttributesDir")
  1144.                             )
  1145.                         )
  1146.                         (set @execute-dir oldexecutedir)
  1147.                         (run "Resident SetComment REMOVE")
  1148.                         (run "Resident SetProtection REMOVE")
  1149.                         (if (= 1 resi_assign)
  1150.                             (run "Resident Assign REMOVE")
  1151.                         )
  1152.                         (if (= 1 resi_cd)
  1153.                             (run "Resident CD REMOVE")
  1154.                         )
  1155.                         (if (= 1 resi_execute)
  1156.                             (run "Resident Execute REMOVE")
  1157.                         )
  1158.                     )
  1159.                 )
  1160.             )
  1161.         )
  1162.  
  1163.         (complete 30)
  1164.  
  1165.         (if (NOT (exists "MeetingPearls3:" (noreq)))
  1166.             (
  1167.                 (set startscript
  1168.                     (askbool
  1169.                         (prompt activate_assigns)
  1170.                         (help activate_assigns_help)
  1171.                         (choices ja_antwort nein_antwort)
  1172.                         (default 1)
  1173.                     )
  1174.                 )
  1175.             )
  1176.         )
  1177.  
  1178.         (if (= 1 startscript)
  1179.             (
  1180.                 (execute ":SYS/S/Meeting-Startup")
  1181.             )
  1182.         )
  1183.  
  1184.         (complete 35)
  1185.  
  1186.         (set configviewer
  1187.             (askbool
  1188.                 (prompt choose_viewer)
  1189.                 (help choose_viewer_help1 choose_viewer_help2 choose_viewer_help3 choose_viewer_help4)
  1190.                 (choices ja_antwort nein_antwort)
  1191.                 (default 0)
  1192.             )
  1193.         )
  1194.  
  1195.         (if (= 1 configviewer)
  1196.             (
  1197.                 (if (AND (= 2 (exists "ENV:" (noreq))) (= 0 (exists "ENV:MeetingPearls" (noreq))))
  1198.                     (
  1199.                         (makedir "ENV:MeetingPearls")
  1200.                     )
  1201.                 )
  1202.                 (if (AND (= 2 (exists "ENV:MeetingPearls" (noreq))) (= 0 (exists "ENV:MeetingPearls/MP3" (noreq))))
  1203.                     (
  1204.                         (makedir "ENV:MeetingPearls/MP3")
  1205.                     )
  1206.                 )
  1207.  
  1208.                 (set i 0)
  1209.                 (while
  1210.                     (set envvarname
  1211.                         (select i
  1212.                             "VIEW_TEXT"
  1213.                             "VIEW_GUIDE"
  1214.                             "VIEW_HTML"
  1215.                             "VIEW_INST"
  1216.                             "VIEW_ICONX"
  1217.                             "VIEW_BIN"
  1218.                             "VIEW_REXX"
  1219.                             "VIEW_PS"
  1220.                             "VIEW_8SVX"
  1221.                             "VIEW_JPEG"
  1222.                             "VIEW_GIF"
  1223.                             "VIEW_ILBM"
  1224.                             "VIEW_MOVIE"
  1225.                             "VIEW_ANIM"
  1226.                             "VIEW_DVI"
  1227.                             "VIEW_TEX"
  1228.                             "VIEW_SOURCE"
  1229.                             ""
  1230.                         )
  1231.                     )
  1232.  
  1233.                     (
  1234.                         (set wbprograms                            ; set default for KS 1.2/1.3
  1235.                             (select i
  1236.                                 "SYS:Utilities/More"                ; TEXT
  1237.                                 "SYS:Utilities/AmigaGuide"        ; GUIDE
  1238.                                 "SYS:Utilities/More"                ; HTML
  1239.                                 ":C/Installer"                        ; INST
  1240.                                 ":C/IconX.33"                        ; ICONX
  1241.                                 ""                                        ; BIN
  1242.                                 "SYS:Rexxc/RX"                        ; REXX
  1243.                                 "SYS:Utilities/More"                ; PS
  1244.                                 ""                                        ; 8SVX
  1245.                                 ""                                        ; JPEG
  1246.                                 ""                                        ; GIF
  1247.                                 ""                                        ; ILBM
  1248.                                 ":Pearls/anim/MoviePlayer"        ; MOVIE
  1249.                                 ""                                        ; ANIM
  1250.                                 "TeX:bin/ShowDVI"                    ; DVI
  1251.                                 "SYS:Utilities/More"                ; TEX
  1252.                                 "SYS:Utilities/More"                ; SOURCE
  1253.                             )
  1254.                         )
  1255.  
  1256.                         (set cliprograms                            ; set default for KS 1.2/1.3
  1257.                             (select i
  1258.                                 ""                                                        ; TEXT
  1259.                                 ""                                                        ; GUIDE
  1260.                                 ""                                                        ; HTML
  1261.                                 ""                                                        ; INST
  1262.                                 ""                                                        ; ICONX
  1263.                                 ":Pearls/disk/FileMon/NewZap/NewZap []"    ; BIN
  1264.                                 ""                                                        ; REXX
  1265.                                 ""                                                        ; PS
  1266.                                 ":Pearls/disk/FileMon/NewZap/NewZap []"    ; 8SVX
  1267.                                 ":Pearls/disk/FileMon/NewZap/NewZap []"    ; JPEG
  1268.                                 ":Pearls/disk/FileMon/NewZap/NewZap []"    ; GIF
  1269.                                 ":C/Mostra []"                                        ; ILBM
  1270.                                 ""                                                        ; MOVIE
  1271.                                 ":Pearls/disk/FileMon/NewZap/NewZap []"    ; ANIM
  1272.                                 ""                                                        ; DVI
  1273.                                 ""                                                        ; TEX
  1274.                                 ""                                                        ; SOURCE
  1275.                             )
  1276.                         )
  1277.  
  1278.                         (if (< osversion 39)
  1279.                             (                            ; overwrite for OS 2.04
  1280.                                 (set wbprograms
  1281.                                     (select i
  1282.                                         "SYS:Utilities/More"                                ; TEXT
  1283.                                         "SYS:Utilities/AmigaGuide"                        ; GUIDE
  1284.                                         ""                                                        ; HTML
  1285.                                         ":C/Installer"                                        ; INST
  1286.                                         "C:IconX"                                            ; ICONX
  1287.                                         ":Pearls/Disk/FileMon/Zaphod/Zaphod"        ; BIN
  1288.                                         "SYS:Rexxc/RX"                                        ; REXX
  1289.                                         "SYS:Utilities/More"                                ; PS
  1290.                                         ":Pearls/mus/DeliTracker_II/DeliTracker2"    ; 8SVX
  1291.                                         ":C/VT"                                                ; JPEG
  1292.                                         ":Pearls/gfx/JIV/JIV"                            ; GIF
  1293.                                         ":Pearls/gfx/JIV/JIV"                            ; ILBM
  1294.                                         ":Pearls/anim/MoviePlayer"                        ; MOVIE
  1295.                                         ":C/VT"                                                ; ANIM
  1296.                                         "TeX:bin/ShowDVI"                                    ; DVI
  1297.                                         "SYS:Utilities/More"                                ; TEX
  1298.                                         "SYS:Utilities/More"                                ; SOURCE
  1299.                                     )
  1300.                                 )
  1301.                                 (set cliprograms
  1302.                                     (select i
  1303.                                         ""                                                        ; TEXT
  1304.                                         ""                                                        ; GUIDE
  1305.                                         "Execute :Mosaic []"                                ; HTML
  1306.                                         ""                                                        ; INST
  1307.                                         ""                                                        ; ICONX
  1308.                                         ""                                                        ; BIN
  1309.                                         ""                                                        ; REXX
  1310.                                         ""                                                        ; PS
  1311.                                         ""                                                        ; 8SVX
  1312.                                         ""                                                        ; JPEG
  1313.                                         ""                                                        ; GIF
  1314.                                         ""                                                        ; ILBM
  1315.                                         ""                                                        ; MOVIE
  1316.                                         ""                                                        ; ANIM
  1317.                                         ""                                                        ; DVI
  1318.                                         ""                                                        ; TEX
  1319.                                         ""                                                        ; SOURCE
  1320.                                     )
  1321.                                 )
  1322.                             )
  1323.                             (                            ; overwrite for OS 3.0
  1324.                                 (set wbprograms
  1325.                                     (select i
  1326.                                         "SYS:Utilities/More"                                ; TEXT
  1327.                                         "SYS:Utilities/MultiView"                        ; GUIDE
  1328.                                         ""                                                        ; HTML
  1329.                                         ":C/Installer"                                        ; INST
  1330.                                         "C:IconX"                                            ; ICONX
  1331.                                         ":Pearls/Disk/FileMon/Zaphod/Zaphod"        ; BIN
  1332.                                         "SYS:Rexxc/RX"                                        ; REXX
  1333.                                         ""                                                        ; PS
  1334.                                         ":Pearls/mus/DeliTracker_II/DeliTracker2"    ; 8SVX
  1335.                                         ":C/VT"                                                ; JPEG
  1336.                                         ":Pearls/gfx/JIV/JIV"                            ; GIF
  1337.                                         ":Pearls/gfx/JIV/JIV"                            ; ILBM
  1338.                                         ":Pearls/anim/MoviePlayer"                        ; MOVIE
  1339.                                         ":C/VT"                                                ; ANIM
  1340.                                         "TeX:bin/ShowDVI"                                    ; DVI
  1341.                                         "SYS:Utilities/More"                                ; TEX
  1342.                                         "SYS:Utilities/More"                                ; SOURCE
  1343.                                     )
  1344.                                 )
  1345.                                 (set cliprograms
  1346.                                     (select i
  1347.                                         ""                                                        ; TEXT
  1348.                                         ""                                                        ; GUIDE
  1349.                                         "Execute :Mosaic []"                                ; HTML
  1350.                                         ""                                                        ; INST
  1351.                                         ""                                                        ; ICONX
  1352.                                         ""                                                        ; BIN
  1353.                                         ""                                                        ; REXX
  1354.                                         "SYS:Rexxc/RX :Pearls/gfx/ghostscript/ghostview.rexx []"        ; PS
  1355.                                         ""                                                        ; 8SVX
  1356.                                         ""                                                        ; JPEG
  1357.                                         ""                                                        ; GIF
  1358.                                         ""                                                        ; ILBM
  1359.                                         ""                                                        ; MOVIE
  1360.                                         ""                                                        ; ANIM
  1361.                                         ""                                                        ; DVI
  1362.                                         ""                                                        ; TEX
  1363.                                         ""                                                        ; SOURCE
  1364.                                     )
  1365.                                 )
  1366.                             )
  1367.                         )
  1368.  
  1369.                         (if (<> "" wbprograms)
  1370.                             (
  1371.                                 (set suggestion wbprograms)
  1372.                                 (set suggwb 1)
  1373.                                 (set suggcli 0)
  1374.                             )
  1375.                             (
  1376.                                 (if (<> "" cliprograms)
  1377.                                     (
  1378.                                         (set suggestion cliprograms)
  1379.                                         (set suggcli 1)
  1380.                                         (set suggwb 0)
  1381.                                     )
  1382.                                     (
  1383.                                         (set suggestion "")
  1384.                                         (set suggcli 0)
  1385.                                         (set suggwb 0)
  1386.                                     )
  1387.                                 )
  1388.                             )
  1389.                         )
  1390.  
  1391.  
  1392.                         (if (NOT (exists ("ENV:MeetingPearls/MP3/%s" envvarname) (noreq)))
  1393.                             (
  1394.                                 (run ("SetEnv MeetingPearls/MP3/%s \"%s\"" envvarname suggestion))        ; set default
  1395.                                 (if (= 1 suggcli)
  1396.                                     (run ("SetEnv MeetingPearls/MP3/%s \"CLI %s\"" envvarname suggestion))
  1397.                                 )
  1398.                             )
  1399.                         )
  1400.  
  1401.                         (set i (+ i 1))
  1402.                     )
  1403.                 )
  1404.  
  1405.                 (complete 40)
  1406.  
  1407.                 (onerror
  1408.                     (run "delete ENV:MeetingPearls/MP3/#?")
  1409.                     (run "delete RAM:MP_metatool_tmp")
  1410.                     (run "delete RAM:MP_findpearls_tmp")
  1411.                     (run ":C/NessyCloseLib pattern.library")
  1412.                 )
  1413.  
  1414.                 (textfile
  1415.                     (dest findpearlsprefs)
  1416.                     (append ";FindPearls.prefs")
  1417.                     (append "\n")
  1418.                 )
  1419.                 (textfile
  1420.                     (dest metaprefs)
  1421.                     (append ";MetaTool Configuration File")
  1422.                     (append "\n\n")
  1423.                 )
  1424.  
  1425.                 (set viewerbits
  1426.                     (askoptions
  1427.                         (prompt change_which_filetypes)
  1428.                         (help
  1429.                             change_which_filetypes_help1
  1430.                             change_which_filetypes_help2
  1431.                             change_which_filetypes_help3
  1432.                             change_which_filetypes_help4
  1433.                             "\nTEXT   - " (getenv "MeetingPearls/MP3/VIEW_TEXT")
  1434.                             "\nGUIDE  - " (getenv "MeetingPearls/MP3/VIEW_GUIDE")
  1435.                             "\nHTML   - " (getenv "MeetingPearls/MP3/VIEW_HTML")
  1436.                             "\nINST   - " (getenv "MeetingPearls/MP3/VIEW_INST")
  1437.                             "\nICONX  - " (getenv "MeetingPearls/MP3/VIEW_ICONX")
  1438.                             "\nBIN    - " (getenv "MeetingPearls/MP3/VIEW_BIN")
  1439.                             "\nREXX   - " (getenv "MeetingPearls/MP3/VIEW_REXX")
  1440.                             "\nPS     - " (getenv "MeetingPearls/MP3/VIEW_PS")
  1441.                             "\n8SVX   - " (getenv "MeetingPearls/MP3/VIEW_8SVX")
  1442.                             "\nJPEG   - " (getenv "MeetingPearls/MP3/VIEW_JPEG")
  1443.                             "\nGIF    - " (getenv "MeetingPearls/MP3/VIEW_GIF")
  1444.                             "\nILBM   - " (getenv "MeetingPearls/MP3/VIEW_ILBM")
  1445.                             "\nMOVIE  - " (getenv "MeetingPearls/MP3/VIEW_MOVIE")
  1446.                             "\nANIM   - " (getenv "MeetingPearls/MP3/VIEW_ANIM")
  1447.                             "\nDVI    - " (getenv "MeetingPearls/MP3/VIEW_DVI")
  1448.                             "\nTEX    - " (getenv "MeetingPearls/MP3/VIEW_TEX")
  1449.                             "\nSOURCE - " (getenv "MeetingPearls/MP3/VIEW_SOURCE")
  1450.                             change_which_filetypes_help5
  1451.                         )
  1452.                         (choices
  1453.                             "TEXT"
  1454.                             "GUIDE"
  1455.                             "HTML"
  1456.                             "INST"
  1457.                             "ICONX"
  1458.                             "BIN"
  1459.                             "REXX"
  1460.                             "PS"
  1461.                             "8SVX"
  1462.                             "JPEG"
  1463.                             "GIF"
  1464.                             "ILBM"
  1465.                             "MOVIE"
  1466.                             "ANIM"
  1467.                             "DVI"
  1468.                             "TEX"
  1469.                             "SOURCE"
  1470.                         )
  1471.                         (default 0)
  1472.                     )
  1473.                 )
  1474.  
  1475.                 (textfile
  1476.                     (dest "RAM:MP_metatool_tmp")
  1477.                     (append "; MetaTool Configuration File\n")
  1478.                 )
  1479.                 (textfile
  1480.                     (dest "RAM:MP_findpearls_tmp")
  1481.                     (append "; Prefs-File for FindPearls\n")
  1482.                 )
  1483.  
  1484.                 (set i 0)
  1485.                 (while
  1486.                     (set mytext
  1487.                         (select i
  1488.                             sel_text
  1489.                             sel_guide
  1490.                             sel_html
  1491.                             sel_inst
  1492.                             sel_iconx
  1493.                             sel_bin
  1494.                             sel_rexx
  1495.                             sel_ps
  1496.                             sel_8svx
  1497.                             sel_jpeg
  1498.                             sel_gif
  1499.                             sel_ilbm
  1500.                             sel_movie
  1501.                             sel_anim
  1502.                             sel_dvi
  1503.                             sel_tex
  1504.                             sel_source
  1505.                             ""
  1506.                         )
  1507.                     )
  1508.                     (
  1509.                         (set thisname
  1510.                             (select i
  1511.                                 "VIEW_TEXT"
  1512.                                 "VIEW_GUIDE"
  1513.                                 "VIEW_HTML"
  1514.                                 "VIEW_INST"
  1515.                                 "VIEW_ICONX"
  1516.                                 "VIEW_BIN"
  1517.                                 "VIEW_REXX"
  1518.                                 "VIEW_PS"
  1519.                                 "VIEW_8SVX"
  1520.                                 "VIEW_JPEG"
  1521.                                 "VIEW_GIF"
  1522.                                 "VIEW_ILBM"
  1523.                                 "VIEW_MOVIE"
  1524.                                 "VIEW_ANIM"
  1525.                                 "VIEW_DVI"
  1526.                                 "VIEW_TEX"
  1527.                                 "VIEW_SOURCE"
  1528.                             )
  1529.                         )
  1530.  
  1531.                         (set suggestion (getenv  ("MeetingPearls/MP3/%s" thisname)))
  1532.                         (if (= (substr suggestion 0 4) "CLI ")
  1533.                             (
  1534.                                 (set useenvironment 1)
  1535.                                 (set suggestion (substr suggestion 4))
  1536.                                 (set suggestiontype "CLI")
  1537.                             )
  1538.                             (
  1539.                                 (set useenvironment 0)
  1540.                                 (set suggestiontype "Workbench")
  1541.                             )
  1542.                         )
  1543.  
  1544.                         (if (IN viewerbits i)
  1545.                             (
  1546.                                 (complete (+ 50 (* 2 i)))
  1547.  
  1548.                                 (set useenvironmentsugg useenvironment)
  1549.  
  1550.                                 (set useenvironment
  1551.                                     (askchoice
  1552.                                         (prompt ("%s%s%s%s%s" mytext start_from_wb1 suggestiontype start_from_wb2 suggestion))
  1553.                                         (help start_from_wb_help_1 start_from_wb_help_2 start_from_wb_help_3)
  1554.                                         (choices "Workbench" "CLI")
  1555.                                         (default useenvironment)
  1556.                                     )
  1557.                                 )
  1558.  
  1559.                                 (if (<> useenvironmentsugg useenvironment)
  1560.                                     (
  1561.                                         (set suggestion "")
  1562.                                     )
  1563.                                 )
  1564.  
  1565.                                 (complete (+ 51 (* 2 i)))
  1566.  
  1567.                                 (if (= useenvironment 0)
  1568.                                     (                                                ; use Workbench
  1569.                                         (set varval
  1570.                                             (expandpath
  1571.                                                 (askfile
  1572.                                                     (prompt mytext)
  1573.                                                     (help choosewbprg_help)
  1574.                                                     (default (expandpath suggestion))
  1575.                                                 )
  1576.                                             )
  1577.                                         )
  1578.  
  1579.                                         (run ("SetEnv MeetingPearls/MP3/%s \"%s\"" thisname varval))
  1580.  
  1581.                                         (set vartype (substr thisname 5))
  1582.                                         (set fppline ("%s=%s" vartype varval))
  1583.                                         (set metaline ("%s\t%s" vartype varval))
  1584.                                     )
  1585.                                     (                                                ; use CLI
  1586.                                         (set varval
  1587.                                             (askstring
  1588.                                                 (prompt mytext enter_cmdline)
  1589.                                                 (help enter_cmdline_help)
  1590.                                                 (default suggestion)
  1591.                                             )
  1592.                                         )
  1593.  
  1594.                                         (run ("SetEnv MeetingPearls/MP3/%s \"CLI %s\"" thisname varval))
  1595.  
  1596.                                         (set vartype (substr thisname 5))
  1597.                                         (set fppline ("%s=" vartype))
  1598.                                         (set metaline ("%s\tCLI %s" vartype varval))
  1599.                                     )
  1600.                                 )
  1601.                             )
  1602.                             (
  1603.                                 (complete (+ 51 (* 2 i)))
  1604.                                 (set vartype (substr thisname 5))
  1605.                                 (if (= useenvironment 0)
  1606.                                     (                                                ; use Workbench
  1607.                                         (set fppline ("%s=%s" vartype (expandpath suggestion)))
  1608.                                         (set metaline ("%s\t%s" vartype (expandpath suggestion)))
  1609.                                     )
  1610.                                     (                                                ; use CLI
  1611.                                         (set fppline ("%s=" vartype))
  1612.                                         (set metaline ("%s\tCLI %s" vartype suggestion))
  1613.                                     )
  1614.                                 )
  1615.                             )
  1616.                         )
  1617.  
  1618.                         (textfile
  1619.                             (dest "RAM:MP_tmptextfile1")
  1620.                             (include "RAM:MP_findpearls_tmp")
  1621.                         )
  1622.                         (textfile
  1623.                             (dest "RAM:MP_tmptextfile2")
  1624.                             (append fppline)
  1625.                             (append "\n")
  1626.                         )
  1627.                         (run ("Join RAM:MP_tmptextfile1 RAM:MP_tmptextfile2 TO RAM:MP_findpearls_tmp"))
  1628.                         (delete "RAM:MP_tmptextfile1")
  1629.                         (delete "RAM:MP_tmptextfile2")
  1630.  
  1631.                         (textfile
  1632.                             (dest "RAM:MP_tmptextfile1")
  1633.                             (include "RAM:MP_metatool_tmp")
  1634.                         )
  1635.                         (textfile
  1636.                             (dest "RAM:MP_tmptextfile2")
  1637.                             (append metaline)
  1638.                             (append "\n")
  1639.                         )
  1640.                         (run ("Join RAM:MP_tmptextfile1 RAM:MP_tmptextfile2 TO RAM:MP_metatool_tmp"))
  1641.                         (delete "RAM:MP_tmptextfile1")
  1642.                         (delete "RAM:MP_tmptextfile2")
  1643.  
  1644.                         (set i (+ i 1))
  1645.                     )
  1646.                 )
  1647.                 (run ("SetEnv METACONFIG \"%s\"" metaprefs))
  1648.                 (run ("Copy RAM:MP_findpearls_tmp TO \"%s\"" findpearlsprefs))
  1649.                 (run ("Copy RAM:MP_metatool_tmp TO \"%s\"" metaprefs))
  1650.  
  1651.                 (onerror
  1652.                     (run ":C/NessyCloseLib pattern.library")
  1653.                 )
  1654.  
  1655.                 (complete 95)
  1656.  
  1657.                 (if (AND (exists "ENV:" (noreq)) (exists "ENVARC:" (noreq)))
  1658.                     (
  1659.                         (set copyenvarc
  1660.                             (askbool
  1661.                                 (prompt wanna_copy_to_envarc)
  1662.                                 (help wanna_copy_to_envarc_help)
  1663.                                 (choices ja_antwort nein_antwort)
  1664.                                 (default 0)
  1665.                             )
  1666.                         )
  1667.                         (if (= 1 copyenvarc)
  1668.                             (
  1669.                                 (copyfiles
  1670.                                     (source "ENV:MeetingPearls/MP3")
  1671.                                     (dest "ENVARC:MeetingPearls/MP3")
  1672.                                     (all)
  1673.                                     (delopts fail)
  1674.                                     (optional nofail force)
  1675.                                 )
  1676.                                 (copyfiles
  1677.                                     (source "ENV:")
  1678.                                     (dest "ENVARC:")
  1679.                                     (pattern "METACONFIG")
  1680.                                     (delopts fail)
  1681.                                     (optional nofail force)
  1682.                                 )
  1683.                             )
  1684.                         )
  1685.                     )
  1686.                 )
  1687.             )
  1688.         )
  1689.  
  1690.         (complete 97)
  1691.  
  1692.         (if (>= osversion 37)
  1693.             (
  1694.                 (run ":C/formatdate \"%d%m\" >ENV:MP_CLICKME_FIRST_TMP")
  1695.                 (if (patmatch "0104?" (getenv "MP_CLICKME_FIRST_TMP"))
  1696.                     (
  1697.                         (if (>= osversion 39)
  1698.                             (                            ; Kopiere 3.x-Prefs-Dateien
  1699.                                 (run "Rename ENV:sys/WBPattern.prefs ENV:sys/MP_old_WBPattern.prefs")
  1700.                                 (run "Rename ENV:sys/Pointer.prefs ENV:sys/MP_old_Pointer.prefs")
  1701.                                 (run "Rename ENV:sys/palette.prefs ENV:sys/MP_old_palette.prefs")
  1702.                                 (run "Rename ENV:sys/Font.prefs ENV:sys/MP_old_Font.prefs")
  1703.                                 (run "Copy :SYS/Env/sys/WBPattern.prefs ENV:sys")
  1704.                                 (run "Copy :SYS/Env/sys/Pointer.prefs ENV:sys")
  1705.                                 (run "Copy :SYS/Env/sys/palette.prefs ENV:sys")
  1706.                                 (run "Copy :SYS/Env/sys/Font.prefs ENV:sys")
  1707.                             )
  1708.                             (                            ; Kopiere 2.x-Prefs-Dateien
  1709.                                 (run "Rename ENV:sys/wb.pat ENV:sys/MP_old_wb.pat")
  1710.                                 (run "Rename ENV:sys/pointer.ilbm ENV:sys/MP_old_pointer.ilbm")
  1711.                                 (run "Rename ENV:sys/palette.ilbm ENV:sys/MP_old_palette.ilbm")
  1712.                                 (run "Rename ENV:sys/sysfont.prefs ENV:sys/MP_old_sysfont.prefs")
  1713.                                 (run "Copy :SYS/Env/sys/wb.pat ENV:sys")
  1714.                                 (run "Copy :SYS/Env/sys/pointer.ilbm ENV:sys")
  1715.                                 (run "Copy :SYS/Env/sys/palette.ilbm ENV:sys")
  1716.                                 (run "Copy :SYS/Env/sys/sysfont.prefs ENV:sys")
  1717.                             )
  1718.                         )
  1719.                         (set oldlevel @user-level)
  1720.                         (user 2)
  1721.                         (message April)
  1722.                         (user origuserlevel)
  1723.                     )
  1724.                 )
  1725.  
  1726.                 (run ":C/formatdate \"%H:%M\" >ENV:MP_CLICKME_FIRST_TMP")
  1727.                 (if (patmatch "0[1-6]:#?" (getenv "MP_CLICKME_FIRST_TMP"))
  1728.                     (
  1729.                         (set oldlevel @user-level)
  1730.                         (user 2)
  1731.                         (message Heia_1 (substr (getenv "MP_CLICKME_FIRST_TMP") 0 5) Heia_2)
  1732.                         (user origuserlevel)
  1733.                     )
  1734.                 )
  1735.                 (delete "ENV:MP_CLICKME_FIRST_TMP")
  1736.             )
  1737.         )
  1738.     )
  1739.  
  1740.     (                                ; de-install it
  1741.         (delete "ENV:METACONFIG")
  1742.         (delete "S:FindPearls.prefs")
  1743.         (delete "S:MetaTool.prefs")
  1744.         (run "delete ENV:MeetingPearls/MP3/#?")
  1745.         (run "delete ENVARC:MeetingPearls/MP3/#?")
  1746.  
  1747.         (complete 97)
  1748.  
  1749.         (if (>= osversion 37)
  1750.             (
  1751.                 (run ":C/formatdate \"%d%m\" >ENV:MP_CLICKME_FIRST_TMP")
  1752.                 (if (patmatch "0104?" (getenv "MP_CLICKME_FIRST_TMP"))
  1753.                     (
  1754.                         (if (>= osversion 39)
  1755.                             (                            ; Restauriere 3.x-Prefs-Dateien
  1756.                                 (run "Copy ENV:sys/MP_old_WBPattern.prefs ENV:sys/WBPattern.prefs")
  1757.                                 (run "Copy ENV:sys/MP_old_Pointer.prefs ENV:sys/Pointer.prefs")
  1758.                                 (run "Copy ENV:sys/MP_old_palette.prefs ENV:sys/palette.prefs")
  1759.                                 (run "Copy ENV:sys/MP_old_Font.prefs ENV:sys/Font.prefs")
  1760.                                 (delete "ENV:sys/MP_old_WBPattern.prefs")
  1761.                                 (delete "ENV:sys/MP_old_Pointer.prefs")
  1762.                                 (delete "ENV:sys/MP_old_palette.prefs")
  1763.                                 (delete "ENV:sys/MP_old_Font.prefs")
  1764.                             )
  1765.                             (                            ; Restauriere 2.x-Prefs-Dateien
  1766.                                 (run "Copy ENV:sys/MP_old_wb.pat ENV:sys/wb.pat")
  1767.                                 (run "Copy ENV:sys/MP_old_pointer.ilbm ENV:sys/pointer.ilbm")
  1768.                                 (run "Copy ENV:sys/MP_old_palette.ilbm ENV:sys/palette.ilbm")
  1769.                                 (run "Copy ENV:sys/MP_old_sysfont.prefs ENV:sys/sysfont.prefs")
  1770.                                 (delete "ENV:sys/MP_old_wb.pat")
  1771.                                 (delete "ENV:sys/MP_old_pointer.ilbm")
  1772.                                 (delete "ENV:sys/MP_old_palette.ilbm")
  1773.                                 (delete "ENV:sys/MP_old_sysfont.prefs")
  1774.                             )
  1775.                         )
  1776.                     )
  1777.                 )
  1778.                 (delete "ENV:MP_CLICKME_FIRST_TMP")
  1779.             )
  1780.         )
  1781.     )
  1782. )
  1783.  
  1784. (run ":C/NessyCloseLib pattern.library")
  1785. (complete 100)
  1786.  
  1787. (set @default-dest "")
  1788.