home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Anwendungen / Kurztests / MicroDot / Install-MicroDot next >
Text File  |  1994-12-25  |  15KB  |  649 lines
  1. ;
  2. ; Installer-Script for MicroDot
  3. ;
  4. ; $VER: MicroDot-Install 1.8 (26.10.94)
  5. ;
  6.  
  7. (set #install-where-msg
  8. (cat    "Möchten Sie MicroDot auf Diskette "
  9.         "oder auf Festplatte installieren?"
  10. ))
  11.  
  12. (set #install-where-help
  13. (cat    "\nHier entscheiden Sie, ob MicroDot auf Disketten "
  14.         "oder, falls vorhanden, auf Ihre Festplatte installiert "
  15.         "werden soll.\n\n"
  16.         "Wenn Ihr Amiga-System mit einer Festplatte ausgerüstet "
  17.         "ist, sollten Sie MicroDot auf jeden Fall dort "
  18.         "installieren."
  19. ))
  20.  
  21. (set #install-hd-msg
  22. (cat    "Wohin soll das MicroDot-Verzeichnis "
  23.         "installiert werden?"
  24. ))
  25.  
  26. (set #install-hd-help
  27. (cat    "\nHier müßen Sie angeben, wo auf Ihrer "
  28.         "Festplatte das MicroDot-Verzeichnis installiert werden "
  29.         "soll.\n\n"
  30.         "Das Installationsprogramm erzeugt dann in dem von Ihnen "
  31.         "angegebenen Verzeichnis eine neue Schublade mit dem "
  32.         "Namen \"MicroDot\".\n\n"
  33.         "Sie sollten MicroDot nach Möglichkeit NICHT auf einer Partition "
  34.         "installieren, die mit dem DirCache-FileSystem formatiert ist."
  35. ))
  36.  
  37. (set #floppy-askformat-msg
  38. (cat    "Für eine Disketteninstallation benötigen Sie "
  39.         "zwei formatierte Disketten mit den Namen "
  40.         "\"MD-MAIN\" und \"MD-DATA\". Sie können die "
  41.         "Disketten jetzt formatieren lassen oder "
  42.         "selbst formatierte Disketten verwenden."
  43. ))
  44.  
  45. (set #floppy-askformat-help
  46. (cat    "\nHier entscheiden Sie, ob jetzt die "
  47.         "für die MicroDot-Installation "
  48.         "benötigten Disketten formatiert "
  49.         "werden sollen.\n\n"
  50.         "Sie können problemlos auch selbst formatierte "
  51.         "Disketten verwenden, wenn Sie ein besonderes "
  52.         "Format oder Disketten verschiedener Größe "
  53.         "verwenden wollen."
  54. ))
  55.  
  56. (set #format1-msg
  57. (cat    "Bitte legen Sie die erste zu formatierende "
  58.         "Diskette in das Laufwerk DF0:\n\n"
  59.         "Diese Diskette ist später Ihre MicroDot-Datendiskette "
  60.         "und trägt dann den Namen \"MD-DATA:\"."
  61. ))
  62.  
  63. (set #format2-msg
  64. (cat    "Bitte legen Sie die zweite zu formatierende "
  65.         "Diskette in das Laufwerk DF0:\n\n"
  66.         "Diese wird danach ihre MicroDot-Hauptdiskette "
  67.         "mit dem Namen \"MD-MAIN\". Auf dieser Diskette "
  68.         "wird das Hauptprogramm installiert."
  69. ))
  70.  
  71. (set #format1-cmd "sys:system/format <ram:..MDINST.. drive df0: name MD-DATA noicons")
  72. (set #format2-cmd "sys:system/format <ram:..MDINST.. drive df0: name MD-MAIN noicons")
  73. (set #format-tmp "ram:..MDINST..")
  74. (set #format-err-msg "Fehler Nr. %ld beim Formatieren der Diskette!")
  75. (set #format1-busy "Formatiere erste Diskette...")
  76. (set #format2-busy "Formatiere zweite Diskette...")
  77.  
  78. (set #copying-reqtools "Kopiere reqtools.library nach Libs:")
  79. (set #copying-aguide "Kopiere amigaguide.library nach Libs:")
  80. (set #copying-setpatch "Für den ordnungsgemäßen Betrieb von MicroDot wird SetPatch 40.16 benötigt.")
  81.  
  82. (set #want20
  83. (cat    "Möchten Sie die spezielle MicroDotAGA-Version für Rechner mit OS 3.x "
  84.         "und einer 68020/030/040-CPU installiert haben? "
  85.  
  86. ))
  87. (set #want20-help
  88. (cat    "Sie haben ein Amiga-System mit OS 3.0 oder größer "
  89.         "und einem %s Prozessor.\n\n"
  90.         "Möchten Sie die spezielle MicroDotAGA-Version für solche "
  91.         "Konfigurationen installiert haben?"
  92. ))
  93.  
  94. (set #insert1-msg
  95. (cat    "Bitte legen Sie die Diskette mit dem Namen "
  96.         "\"MD-MAIN\" ein."
  97. ))
  98.  
  99. (set #insert1-help
  100. (cat    "Für die weitere Installation wird jetzt die zweite "
  101.         "vorhin formatierte Diskette mit dem Namen \"MD-MAIN\" "
  102.         "benötigt.\n\n"
  103.         "Falls Sie vorhin keine Disketten formatiert haben und "
  104.         "keine selbst formatierten Disketten mit den richtigen "
  105.         "Namen haben, brechen Sie die Installation jetzt ab "
  106.         "und starten Sie sie danach neu."
  107. ))
  108.  
  109. (set #cfgexist-msg
  110. (cat    "Es existiert bereits eine Prekonfigurationsdatei für "
  111.         "ihr System, die beim ersten Start von MicroDot automatisch "
  112.         "gelesen wird."
  113. ))
  114.  
  115. (set #cfgexist-help
  116. (cat    "Es wurde eine Datei \"microdot.cfg\" gefunden, die "
  117.         "die Parameter für Ihr Pointsystem, wie den Usernamen "
  118.         "oder die Telefonnummer der Box enthält. Eine weitere "
  119.         "Konfiguration des Points ist daher nicht unbedingt notwendig.\n\n"
  120.         "Trotzdem sollten Sie auf jeden Fall die Einstellunge überprüfen."
  121. ))
  122.  
  123. (set #taconv-msg
  124. (cat    "Möchten Sie die Parameter Ihrer TheAnswerII-Konfiguration "
  125.         "übernehmen? "
  126. ))
  127.  
  128. (set #taconv-help
  129. (cat    "Es wurde eine Datei \"S:AnswerII.cfg\" gefunden, die eine "
  130.         "Konfiguration für das Pointprogramm The Answer enthält.\n\n"
  131.         "Es ist möglich, die dort eingestellten Parameter in "
  132.         "MicroDot zu übernehmen.\n\n"
  133. ))
  134.  
  135. (set #ta3conv-msg
  136. (cat    "Möchten Sie die Parameter Ihrer \"The Answer 3.00\"-Konfiguration "
  137.         "übernehmen? "
  138. ))
  139.  
  140. (set #ta3conv-help
  141. (cat    "Wenn Sie eine \"The Answer 3.00\"-Installation besitzen, können Sie "
  142.         "hiermit die Parameter und die Nachrichtendatenbank übernehmen.\n"
  143.         "Dazu müssen sich die Konfigurationsdateien im Verzeichnis "
  144.         "ENV:ANSWER/ befinden."
  145. ))
  146.  
  147. (set #converter-msg    "Möchten Sie eine bestehende Point-Konfiguration übernehmen? " )
  148.  
  149. (set #converter-help
  150. (cat    "Falls Sie bereits \"The Answer 2.03\", \"Zodiac's Point 3.3\" oder \"The Answer 3.00\" (im JANUS-Modus) "
  151.         "auf Ihrem System installiert haben, können Sie die Pointparameter "
  152.         "und die Nachrichten der alten Installation für MicroDot "
  153.         "übernehmen.\n\n"
  154. ))
  155.  
  156. (set #taconvfile-msg "Bitte geben Sie den Namen Ihrer \"The Answer\"-Konfigurationsdatei an.")
  157.  
  158. (set #taconvfile-help
  159. (cat    "Sie haben sich entschieden, Ihre \"The Answer\"-Konfiguration "
  160.         "für MicroDot zu übernehmen. Dafür wird der Pfad und Dateiname "
  161.         "Ihrer \"The Answer\"-Konfigurationsdatei benötigt. Diese Datei "
  162.         "befindet sich normalerweise in \"S:AnswerII.cfg\"."
  163. ))
  164.  
  165. (set #zpconvfile-msg "Bitte geben Sie den Namen Ihrer \"Zodiac's Point\"-Konfigurationsdatei an.")
  166.  
  167. (set #zpconvfile-help
  168. (cat    "Sie haben sich entschieden, Ihre \"Zodiac's Point\"-Konfiguration "
  169.         "für MicroDot zu übernehmen. Dafür wird der Pfad und Dateiname "
  170.         "Ihrer \"Zodiac's Point\"-Konfigurationsdatei benötigt. Diese Datei "
  171.         "befindet sich normalerweise in der Point-Schublade unter dem "
  172.         "Namen \"config.zp\"."
  173. ))
  174.  
  175. (set #update-msg
  176. (cat     "Möchten Sie Ihre bestehende MicroDot-Installation updaten "
  177.         "oder komplett neu installieren? Auch bei einer Neuinstallation "
  178.         "bleiben Ihre Daten vollständig erhalten."
  179. ))
  180.  
  181. (set #update-help
  182. (cat    "Sie haben in dem ausgewählten Verzeichnis bereits MicroDot "
  183.         "installiert. Hier können Sie nun entscheiden, ob diese "
  184.         "Installation geupdatet werden soll (nur die Dateien "
  185.         "MicroDot, MicroDot.guide und LiesMich.txt werden ersetzt) "
  186.         "oder ob komplett neu installiert werden soll.\n"
  187.         "In beiden Fällen bleiben Ihre Datenbestände unangetastet."
  188. ))
  189.  
  190.  
  191. ;
  192. ; Procedures
  193. ;
  194.  
  195. (procedure checkv20
  196.     (set v20-flag 0)
  197.     (if (> (/ (getversion) 65536) 38)
  198.         (if (exists "MDInstall/MicroDotAGA.pch" )
  199.             (if (>= (database "cpu") 68020 )
  200.                 (set v20-flag
  201.                     (askbool
  202.                         (prompt #want20)
  203.                         (help (#want20-help (database "cpu" ) ) ) 
  204.                         (default 1)
  205.                     )
  206.                 )
  207.             )
  208.         )
  209.     )
  210. )
  211.  
  212. (procedure do_ta3
  213.     (set doconvta-flag
  214.         (askbool
  215.             (prompt #ta3conv-msg)
  216.             (help #ta3conv-help)
  217.             (default 1)
  218.         )
  219.     )
  220.     (if doconvta-flag
  221.         (
  222.             (working "Konvertiere \"The Answer 3.00\"-Konfiguration...")
  223.             (run ( "MDInstall/TA3Conv %s" @default-dest ) )
  224.         )
  225.     )
  226. )
  227.  
  228. (procedure do_ta_conv
  229.     (set conffilename
  230.         (askfile
  231.             (prompt #taconvfile-msg)
  232.             (help #taconvfile-help)
  233.             (default "S:AnswerII.cfg")
  234.         )
  235.     )
  236.     (if conffilename
  237.         (
  238.             (working "Konvertiere \"The Answer\"-Konfiguration...")
  239.             (run ( "MDInstall/TAConv %s %s" conffilename @default-dest ) )
  240.         )
  241.     )
  242. )
  243.  
  244. (procedure do_zp_conv
  245.     (set conffilename
  246.         (askfile
  247.             (prompt #zpconvfile-msg)
  248.             (help #zpconvfile-help)
  249.             (default "convert.zp")
  250.         )
  251.     )
  252.     (if (<> conffilename "")
  253.         (
  254.             (working "Konvertiere \"Zodiac's Point\"-Konfiguration...")
  255.             (run ( "MDInstall/ZPConv %s %s" conffilename @default-dest ) )
  256.         )
  257.     )
  258. )
  259.  
  260. (procedure do_copy
  261.     (complete 15)
  262.     (copyfiles
  263.         (source "MicroDot.guide")
  264.         (newname "MicroDot.guide")
  265.         (prompt "Kopiere MicroDot.guide...")
  266.         (help @copyfiles-help)
  267.         (confirm)
  268.         (infos)
  269.         (dest @default-dest)
  270.     )
  271.     (complete 25)
  272.     (if (<> 0 floppy-install)
  273.     (
  274.         (working "Erstelle MicroDot.DOK...")
  275.         (run ("MDInstall/ag2txt MicroDot.guide \"%s\"" (tackon @default-dest "MicroDot.DOK" ) ) )
  276.         (complete 37)
  277.         (copyfiles
  278.             (source "MDInstall/")
  279.             (dest @default-dest)
  280.             (choices "MicroDot.info" "MicroDot-Netcall.info" "MicroDot-Terminal.info" "MicroDot.DOK.info")
  281.             (prompt "Kopiere Piktogramme...")
  282.             (help @copyfiles-help)
  283.             (confirm)
  284.         )
  285.     )
  286.     (
  287.         (copyfiles
  288.             (source "MDInstall/")
  289.             (dest @default-dest)
  290.             (prompt "Kopiere Piktogramme...")
  291.             (choices "MicroDot.info" "MicroDot-Netcall.info" "MicroDot-Terminal.info")
  292.             (help @copyfiles-help)
  293.             (confirm)
  294.         )
  295.     ))
  296.     (complete 42)
  297.     (if (exists "LiesMich.txt" )
  298.         (copyfiles
  299.             (source "LiesMich.txt" )
  300.             (dest @default-dest)
  301.             (optional nofail)
  302.             (prompt "Kopiere LiesMich.txt..." )
  303.             (help @copyfiles-help)
  304.             (confirm)
  305.             (infos)
  306.         )
  307.     )
  308.     (complete 43)
  309.     (copyfiles
  310.         (source "MDInstall/Rexx/")
  311.         (dest (tackon @default-dest "Rexx/"))
  312.         (pattern "#?.md#?rexx")
  313.         (optional nofail)
  314.         (prompt "Kopiere Rexx-Makros..." )
  315.         (help @copyfiles-help)
  316.         (confirm)
  317.         (infos)
  318.     )
  319.     (if (= 0 update_mode )
  320.     (
  321.         (complete 46)
  322.         (if (exists "MicroDot.cfg" )
  323.             (copyfiles
  324.                 (source "MicroDot.cfg")
  325.                 (dest @default-dest)
  326.                 (optional nofail)
  327.                 (prompt "Kopiere MicroDot.cfg...")
  328.                 (help @copyfiles-help)
  329.                 (confirm)
  330.             )
  331.         )
  332.         (complete 47)
  333.         (copyfiles
  334.             (source "MDInstall/")
  335.             (dest @default-dest)
  336.             (pattern "md_#?.(pub#?|priv#?)")
  337.             (optional nofail)
  338.             (prompt "Kopiere Beispiel-Texte...")
  339.             (help @copyfiles-help)
  340.             (confirm)
  341.         )
  342.     ))
  343.  
  344.     (complete 49)
  345.     (if (exists "Point.txt" )
  346.         (copyfiles
  347.             (source "Point.txt" )
  348.             (dest @default-dest)
  349.             (optional nofail)
  350.             (prompt "Kopiere Point.txt..." )
  351.             (help @copyfiles-help)
  352.             (confirm)
  353.             (infos)
  354.         )
  355.     )
  356.  
  357.     (complete 50)
  358.     (checkv20)
  359.     (complete 51)
  360.     (if (<> v20-flag 0 )
  361.     (
  362.         (working "Erstelle MicroDotAGA-Hauptprogramm...")
  363.         (run ("MDInstall/SPatch \"-o%s\" -pMDInstall/MicroDotAGA.pch MDInstall/MicroDot" (tackon @default-dest "MicroDot") ) )
  364.     )
  365.     (
  366.         (copyfiles
  367.             (source "MDInstall/MicroDot")
  368.             (dest @default-dest)
  369.             (prompt "Kopiere MicroDot-Hauptprogramm...")
  370.             (help @copyfiles-help)
  371.             (confirm)
  372.         )
  373.     ))
  374.     (complete 75)
  375. )
  376.  
  377. (procedure do_askconvert
  378.     (set olduserlevel (user 1) )
  379.     (set convert-mode
  380.         (askchoice
  381.             (prompt #converter-msg)
  382.             (help #converter-help)
  383.             (choices "Keine Installation" "The Answer 2.03" "The Answer 3.00" "Zodiac's Point 3.3")
  384.         )
  385.     )
  386.     (user olduserlevel)
  387.     (select convert-mode
  388.         (working)
  389.         (do_ta_conv)
  390.         (do_ta3)
  391.         (do_zp_conv)
  392.     )
  393. )
  394.  
  395. (procedure do_hd 
  396.     (set default-dest
  397.         (askdir
  398.             (prompt #install-hd-msg)
  399.             (help #install-hd-help)
  400.             (default @default-dest)
  401.         )
  402.     )
  403.     (set @default-dest
  404.         (tackon default-dest "MicroDot")
  405.     )
  406.     (if (exists (tackon @default-dest "MicroDot.prefs" ) )
  407.         (if (askbool
  408.                 (prompt #update-msg)
  409.                 (help #update-help)
  410.                 (default 1)
  411.                 (choices "Update" "Neuinstallation" )
  412.             )
  413.             (set update_mode 1)
  414.         )
  415.     )
  416.  
  417.     (makedir @default-dest
  418.         (infos)
  419.     )
  420.     (makedir (tackon @default-dest "Rexx" ) )
  421.     (do_copy)
  422.  
  423.     (if (> (/ (getversion) 65536) 36)
  424.     (
  425.         (do_askconvert)
  426.     ))
  427. )
  428.  
  429. (procedure do_format
  430.     (set olduserlevel (user 1) )
  431.     (textfile 
  432.         (dest #format-tmp)
  433.         (append "\n")
  434.     )
  435.     (message #format1-msg)
  436.     (working #format1-busy)
  437.     (set retval
  438.         (run #format1-cmd
  439.         )
  440.     )
  441.     (if (<> retval 0 )
  442.         (abort (#format-err-msg retval))
  443.     )
  444.     (complete 15)
  445.     (message #format2-msg)
  446.     (working #format2-busy)
  447.     (set retval
  448.         (run #format2-cmd
  449.         )
  450.     )
  451.     (if (<> retval 0 )
  452.         (abort (#format-err-msg retval))
  453.     )
  454.     (complete 30)
  455.     (delete #format-tmp)
  456.     (user olduserlevel)
  457. )
  458.  
  459. (procedure do_floppy
  460.     (set format-flag
  461.         (askbool
  462.             (prompt #floppy-askformat-msg)
  463.             (help #floppy-askformat-help)
  464.             (default 1)
  465.             (choices "Formatieren" "Weiter")
  466.         )
  467.     )
  468.  
  469.     (if (= format-flag 1)
  470.         (do_format)
  471.     )
  472.  
  473.     (askdisk 
  474.         (dest "MD-MAIN")
  475.         (prompt #insert1-msg)
  476.         (help #insert1-help)
  477.     )
  478.  
  479.     (set @default-dest "MD-MAIN:")
  480.     (makedir (tackon @default-dest "Rexx" ) )
  481.     (do_copy)
  482.     (makedir "MD-MAIN:Transfer")
  483. )
  484.  
  485. (procedure copy-reqtools13
  486.     (complete 93)
  487.     (if (exists "MDInstall/libs/reqtools.library13" )
  488.         (copylib
  489.             (prompt #copying-reqtools)
  490.             (help @copylib-help)
  491.             (source "MDInstall/libs/reqtools.library13")
  492.             (dest "Libs:")
  493.             (newname "reqtools.library")
  494.             (confirm)
  495.         )
  496.     )
  497. )
  498.  
  499. (procedure copy-reqtools20
  500.     (complete 93)
  501.     (if (exists "MDInstall/libs/reqtools.library" )
  502.         (copylib
  503.             (prompt #copying-reqtools)
  504.             (help @copylib-help)
  505.             (source "MDInstall/libs/reqtools.library")
  506.             (dest "Libs:")
  507.             (confirm)
  508.         )
  509.     )
  510. )
  511.  
  512. (procedure copy-reqtools
  513.     (if (> (/ (getversion) 65536) 35)
  514.         (copy-reqtools20)
  515.         (copy-reqtools13)
  516.     )
  517. )
  518.  
  519. (procedure copy-setpatch
  520.     (complete 95)
  521.     (copylib
  522.         (prompt #copying-setpatch)
  523.         (help @copylib-help)
  524.         (source "MDInstall/SetPatch")
  525.         (dest "C:")
  526.         (confirm)
  527.     )
  528. )
  529.  
  530. (procedure copy-aguide
  531.     (complete 97)
  532.     (if (exists "MDInstall/libs/amigaguide.library" )
  533.         (copylib
  534.             (prompt #copying-aguide)
  535.             (help @copylib-help)
  536.             (source "MDInstall/libs/amigaguide.library")
  537.             (dest "Libs:")
  538.             (confirm)
  539.         )
  540.     )
  541.     (complete 99)
  542.     (if (exists "SYS:Utilities/MultiView" ) 
  543.         (
  544.             (tooltype (
  545.                 (dest (tackon @default-dest "MicroDot.guide") )
  546.                 (setdefaulttool "SYS:Utilities/MultiView" )
  547.             ))
  548.         )
  549.  
  550.         (if (exists "MDInstall/AmigaGuide" )
  551.             (
  552.                 (tooltype (
  553.                     (dest (tackon @default-dest "MicroDot.guide") )
  554.                     (setdefaulttool "AmigaGuide" )
  555.                 ))
  556.                 (copyfiles
  557.                     (source "MDInstall/AmigaGuide")
  558.                     (dest @default-dest)
  559.                 )
  560.             )
  561.         )
  562.     )
  563. )
  564.  
  565. (procedure do_config
  566.     (complete 80)
  567.     (set configname (tackon @default-dest "microdot.cfg" ) )
  568.     (if (exists configname)
  569.         (
  570.             (set #cfgexist-realmsg #cfgexist-msg)
  571.             (if (exists (tackon @default-dest "microdot.autosortin" ) )
  572.                 (set #cfgexist-realmsg
  573.                     (cat #cfgexist-msg  "\n\nEs existiert ein konvertierter Netcallpuffer "
  574.                                            ( "mit %ld Bytes Länge, der beim ersten Start von MicroDot " (getsize (tackon @default-dest "microdot.autosortin" ) ) )
  575.                                            "automatisch einsortiert wird."
  576.                     )
  577.                 )
  578.             )
  579.             (message #cfgexist-realmsg)
  580.         )
  581.     )
  582.     (complete 81)
  583.     (working)    
  584.     (if (= floppy-install 0)
  585.         (
  586.             (set tmpargs ( "echo >>\"%s\" \"datadir = MD-DATA:*ntransferdir = MD-MAIN:transfer/\"" configname ) )
  587.             (run tmpargs)
  588.         )
  589.     )
  590.     (working)
  591.     (complete 90)
  592.     (tooltype (
  593.         (dest (tackon @default-dest "MicroDot") )
  594.         (noposition)
  595.         (setstack 4000)
  596.         (swapcolors)
  597.     ))
  598.     (tooltype (
  599.         (dest (tackon @default-dest "MicroDot-Netcall") )
  600.         (noposition)
  601.         (setstack 4000)
  602.         (swapcolors)
  603.     ))
  604.     (tooltype (
  605.         (dest (tackon @default-dest "MicroDot-Terminal") )
  606.         (noposition)
  607.         (setstack 4000)
  608.         (swapcolors)
  609.     ))
  610.     (tooltype (
  611.         (dest (tackon @default-dest "MicroDot.guide") )
  612.         (noposition)
  613.         (setstack 10000)
  614.         (swapcolors)
  615.     ))
  616. )
  617.  
  618.  
  619. ;
  620. ;
  621. ; GO!
  622. ;
  623. ;
  624.  
  625. (complete 0)
  626. (set olduserlevel (user 1) )
  627. (set floppy-install
  628.     (askbool
  629.         (prompt #install-where-msg)
  630.         (help #install-where-help)
  631.         (choices "Festplatte" "Diskette" )
  632.     )
  633. )
  634. (user olduserlevel)
  635. (complete 1)
  636. (if (= floppy-install 0)
  637.     (do_floppy)
  638.     (do_hd)
  639. )
  640.  
  641. (do_config)
  642.  
  643. ; Reqtools installieren
  644.  
  645. (copy-reqtools)
  646. (copy-setpatch)
  647. (copy-aguide)
  648. (complete 100)
  649.