home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / ISDN-Master / bscisdn-release2-206.lha / Install-ISDN-Master < prev    next >
Encoding:
Text File  |  1995-05-26  |  12.5 KB  |  502 lines
  1. ;
  2. ; $VER: Install-ISDN-Master 1.4 (30.01.94)
  3. ; $Id: Install-ISDN-Master,v 1.4 1994/01/30 00:12:35 chris Exp $
  4. ;
  5. ; ISDN-Master Installation Program for use with Installer
  6. ;
  7. ; Copyright ⌐ 1992-1994 Relog AG, Zⁿrich. All Rights Reserved.
  8. ;
  9.  
  10. (complete 0)
  11.  
  12. ;=============================================================================
  13. ; English strings
  14.  
  15. (set @special-msg
  16.     (cat
  17.         "If you have troubles installing \"ISDN-Master\", please consult "
  18.         "your dealer. If everything else fails, read the manual."
  19.     )
  20. )
  21.  
  22. (set #ask-BSCISDNDevice-dir
  23.     "In which drawer should the \"bscisdn.device\" be installed?"
  24. )
  25.  
  26. (set #ask-BSCISDNDevice-dir-help
  27.     (cat
  28.         "The \"bscisdn.device\" is required for talking to your ISDN-Master"
  29.         "board. This device driver should be copied into your \"DEVS:\" "
  30.         "directory, so it can be found by the operating system.\n\n"
  31.     )
  32. )
  33.  
  34. (set #prompt-BSCISDNDevice
  35.     "Installing \"bscisdn.device\"."
  36. )
  37.  
  38. (set #bool-Overwrite_Config
  39.     (cat
  40.         "A version of the ISDN-Master software is already installed. "
  41.         "Would you like to keep the preference settings from this "
  42.         "previously installed version?"
  43.     )
  44. )
  45.  
  46. (set #bool-Overwrite_Config-help
  47.     (cat
  48.         "If you select \"Yes\", all settings you saved with the "
  49.         "ISDN-Master preferences editor and your telecommunications "
  50.         "program (\"AT\"-settings) are preserved.\n\n"
  51.         "If you select \"No\", your settings will be overwritten "
  52.         "with the new default values.\n\n"
  53.     )
  54. )
  55.  
  56. (set #message-Protocol
  57.     (cat
  58.         "Please select the protocol of your ISDN network using the "
  59.         "ISDN-Master preferences program. If the wrong protocol is "
  60.         "selected, the software will not be operational."
  61.     )
  62. )
  63.  
  64. (set #ask-ISDN-Master-dir
  65.     (cat
  66.         "A drawer \"ISDN-Master\" will be created, which will contain "
  67.         "all program files. On which disk, or in which drawer should "
  68.         "this drawer be created?"
  69.     )
  70. )
  71.  
  72. (set #ask-ISDN-Master-dir-help
  73.     (cat
  74.         "Here you specify where you want to install the ISDN-Master "
  75.         "software. A drawer \"ISDN-Master\" will be created, so you "
  76.         "would select \"WORK:\" to install ISDN-Master in a drawer "
  77.         "\"WORK:ISDN-Master\".\n\n"
  78.     )
  79. )
  80.  
  81. (set #bool-Overwrite_Tel
  82.     (cat
  83.         "A version of the telephone software is already installed. "
  84.         "Would you like to keep the settings and phonebook from this "
  85.         "previously installed version?"
  86.     )
  87. )
  88.  
  89. (set #bool-Overwrite_Tel-help
  90.     (cat
  91.         "If you select \"Yes\", all settings you saved with the "
  92.         "telephone software, including your phone book, are preserved.\n\n"
  93.         "If you select \"No\", your settings will be overwritten "
  94.         "with the new default values, and your phonebook will be "
  95.         "deleted.\n\n"
  96.     )
  97. )
  98.  
  99. (set #prompt-ISDN-Master
  100.     (cat
  101.         "A drawer called \"ISDN-Master\" will be created, and "
  102.         "the following files and drawers will be copied to it:"
  103.     )
  104. )
  105.  
  106. (set #prompt-ISDN-Master-help
  107.     (cat
  108.         "The following files/drawers will be copied:\n\n"
  109.         "ISDN-Master  - The ISDN-Master preferences editor.\n"
  110.         "DChannelMon  - A handy tool for ISDN experts only.\n"
  111.         "Doc          - Documentation files.\n"
  112.         "StateMon     - Tool to show the ISDN line state.\n"
  113.         "WilhelmTel   - Telephone software package.\n\n"
  114.     )
  115. )
  116.  
  117. (set #bool-Install_WBStartup
  118.     (cat
  119.         "Would you like the telephone software automatically started "
  120.         "after a reboot?"
  121.     )
  122. )
  123.  
  124. (set #bool-Install_WBStartup-help
  125.     (cat
  126.         "This will copy an icon called \"Tel-Startup\" to your WBStartup "
  127.         "drawer. After a reboot, this icon will start the telephone "
  128.         "software automatically. This is handy if you wish to use the "
  129.         "built-in answering machine.\n\n"
  130.         "Note: You should set the tooltype \"CX_POPUP\" to \"No\", if "
  131.         "you don't want the telephone software to open its window "
  132.         "upon startup. Consult your ISDN-Master manual for details "
  133.         "about setting tooltypes."
  134.     )
  135. )
  136.  
  137.  
  138. ;=============================================================================
  139. ; German strings
  140.  
  141. (if (= @language "Deutsch")
  142. (
  143.  
  144. (set @special-msg
  145.     (cat
  146.         "Wenn Sie Probleme haben mit der Installation von \"ISDN-Master\", "
  147.         "wenden Sie sich bitte an Ihren HΣndler. Wenn alle Stricke "
  148.         "rei▀en, ziehen Sie das Handbuch zu Rate."
  149.     )
  150. )
  151.  
  152. (set #ask-BSCISDNDevice-dir
  153.     "In welche Schublade soll das \"bscisdn.device\" installiert werden?"
  154. )
  155.  
  156. (set #ask-BSCISDNDevice-dir-help
  157.     (cat
  158.         "Das \"bscisdn.device\" wird ben÷tigt, um Ihre ISDN-Master-Karte "
  159.         "anzusprechen. Dieser Treiber sollte in Ihre \"DEVS:\"-Schublade "
  160.         "kopiert werden, damit das Betriebsystem ihn finden kann.\n\n"
  161.     )
  162. )
  163.  
  164. (set #prompt-BSCISDNDevice
  165.     "Installation des \"bscisdn.device\"."
  166. )
  167.  
  168. (set #bool-Overwrite_Config
  169.     (cat
  170.         "Sie haben schon eine Version von ISDN-Master installiert. "
  171.         "M÷chten Sie die Voreinstellungen dieser alten Version "
  172.         "ⁿbernehmen?"
  173.     )
  174. )
  175.  
  176. (set #bool-Overwrite_Config-help
  177.     (cat
  178.         "Wenn Sie \"Ja\" anwΣhlen, werden alle Einstellungen, welche "
  179.         "Sie mit dem ISDN-Master Voreinsteller oder mit Ihrer "
  180.         "Telekommunikationssoftwarvorgenommen habene (\"AT\"-Befehle) "
  181.         "beibehalten.\n\n"
  182.         "Wenn Sie \"Nein\" anwΣhlen, werden die neuen ISDN-Master "
  183.         "Standard-Einstellungen installiert.\n\n"
  184.     )
  185. )
  186.  
  187. (set #message-Protocol
  188.     (cat
  189.         "Bitte starten Sie nach der Installation den "
  190.         "ISDN-Master-Voreinsteller, und wΣhlen Sie das richtige "
  191.         "D-Kanal-Protokoll aus. Wenn Sie ein falsches Protokoll "
  192.         "auswΣhlen, funktioniert Ihr ISDN-Master nicht."
  193.     )
  194. )
  195.  
  196. (set #ask-ISDN-Master-dir
  197.     (cat
  198.         "Es wird eine neue Schublade \"ISDN-Master\" erstellt, in die "
  199.         "alle Programmdateien installiert werden. Auf welchem GerΣt, "
  200.         "bzw. in welcher Schublade soll diese Schublade erstellt werden?"
  201.     )
  202. )
  203.  
  204. (set #ask-ISDN-Master-dir-help
  205.     (cat
  206.         "Hier geben Sie den Ort an, wo Sie die \"ISDN-Master\"-Software "
  207.         "installiert werden. Eine Schublade \"ISDN-Master\" wird "
  208.         "eingerichtet, Sie brauchen also z.B. nur \"WORK:\" anzugeben, "
  209.         "um ISDN-Master in einer Schublade \"WORK:ISDN-Master\" zu "
  210.         "installieren.\n\n"
  211.     )
  212. )
  213.  
  214. (set #bool-Overwrite_Tel
  215.     (cat
  216.         "Es wurde eine alte Installation der Telefonsoftware gefunden. "
  217.         "M÷chten Sie die Einstellungen und das Telefonbuch von dieser "
  218.         "alten Version ⁿbernehmen?"
  219.     )
  220. )
  221.  
  222. (set #bool-Overwrite_Tel-help
  223.     (cat
  224.         "Wenn Sie \"Ja\" anwΣhlen, werden alle Einstellungen der "
  225.         "Telefonsoftware, einschliesslich Ihres Telefonbuches, "
  226.         "in die neue Version ⁿbernommen.\n\n"
  227.         "Wenn Sie \"Nein\" anwΣhlen, werden die neuen Standardeinstellungen "
  228.         "benutzt, und Ihr altes Telefonbuch wird gel÷scht.\n\n"
  229.     )
  230. )
  231.  
  232. (set #prompt-ISDN-Master
  233.     (cat
  234.         "Eine Schublade \"ISDN-Master\" wird eingerichtet, und "
  235.         "folgende Dateien werden in diese Schublade kopiert:"
  236.     )
  237. )
  238.  
  239. (set #prompt-ISDN-Master-help
  240.     (cat
  241.         "Folgende Dateien/Schubladen werden kopiert:\n\n"
  242.         "ISDN-Master  - Der ISDN-Master-Voreinsteller.\n"
  243.         "DChannelMon  - Ein Programm fⁿr ISDN-Experten.\n"
  244.         "Doc          - Dokumentationsdateien.\n"
  245.         "StateMon     - ISDN-Statusanzeigeprogramm.\n"
  246.         "WilhelmTEL   - Telefonprogrammpaket.\n\n"
  247.     )
  248. )
  249.  
  250. (set #bool-Install_WBStartup
  251.     (cat
  252.         "Wⁿnschen Sie, dass die Telefonsoftware nach jedem Neustart "
  253.         "des Rechners automatisch gestartet wird?"
  254.     )
  255. )
  256.  
  257. (set #bool-Install_WBStartup-help
  258.     (cat
  259.         "Diese Funktion erzeugt in Ihrer WBStartup-Schublade ein "
  260.         "Piktogramm mit dem Namen \"Tel-Startup\", welches bei jedem "
  261.         "Neustart Ihres Amiga die Telefonsoftware startet. Dies ist "
  262.         "besonders nⁿtzlich, wenn Sie den eingebauten Anrufbeantworter "
  263.         "benⁿtzen wollen.\n\n"
  264.         "Achtung: Sie sollten das Merkmal \"CX_POPUP\" auf \"No\" "
  265.         "setzen, wenn die Telefonsoftware beim Start kein Fenster "
  266.         "÷ffnen Soll. Beachten Sie dazu bitte auch das Handbuch."
  267.     )
  268. )
  269.  
  270. ))
  271.  
  272.  
  273. ;=============================================================================
  274. ; Main Installation Process
  275. ;=============================================================================
  276.  
  277. ;============================================================================
  278. ; Install bscisdn.device in the appropriate DEVS drawer.
  279.  
  280. (set Dev_destdir "SYS:Devs-User")        ; Default drawer for user devices
  281.  
  282. (if (<> (exists Dev_destdir) 2)            ; Does this drawer exist ?
  283.     (set Dev_destdir "DEVS:")            ; No -> Normal DEVS:
  284. )
  285.  
  286.  
  287. ; Let the user make the final decision about where to put the
  288. ; device driver.
  289.  
  290. (set Dev_destdir
  291.     (askdir
  292.         (prompt #ask-BSCISDNDevice-dir)
  293.         (help
  294.             #ask-BSCISDNDevice-dir-help
  295.             @askdir-help
  296.         )
  297.         (default Dev_destdir)
  298.     )
  299. )
  300.  
  301.  
  302. ; Now copy bscisdn.device, if it's newer than an installed one
  303.  
  304. (copylib
  305.     (prompt #prompt-BSCISDNDevice)
  306.     (source "Devs/bscisdn.device")
  307.     (dest Dev_destdir)
  308.     (confirm)
  309.     (help
  310.         #ask-BSCISDNDevice-dir-help
  311.         @copylib-help
  312.     )
  313. )
  314.  
  315. (complete 10)
  316.  
  317.  
  318. ;============================================================================
  319. ; Check if the user has saved configuration files for the ISDN data
  320. ; units. If the ISDN-Master directory in ENVARC:bsc exists, we assume
  321. ; such files are present, and ask the user if he would like to keep them.
  322. ; If he doesn't, we simply delete the contents of that entire directory.
  323.  
  324. (if (= (exists "ENVARC:bsc/ISDN-Master") 2)
  325.     (if (= (askbool
  326.             (prompt #bool-Overwrite_Config)
  327.             (help #bool-Overwrite_Config-help)
  328.         ) 0)
  329.         (
  330.             (delete
  331.                 ("ENVARC:bsc/ISDN-Master/#?")
  332.             )
  333.             (set New_Config 1)
  334.         )
  335.     )
  336.     (set New_Config 1)
  337. )
  338.  
  339. ; If New_Config is not 0, we create the ENVARC:bsc and
  340. ; ENVARC:bsc/ISDN-Master directories.
  341.  
  342. (if (<> New_Config 0)
  343.     ((makedir "ENVARC:bsc")
  344.     (makedir "ENVARC:bsc/ISDN-Master")
  345. ))
  346.  
  347. (complete 20)
  348.  
  349.  
  350. ;============================================================================
  351. ; Ask for destination drawer or partition for ISDN-Master
  352.  
  353. (set ISDN-Master_dest
  354.     (tackon
  355.         (askdir
  356.             (prompt #ask-ISDN-Master-dir)
  357.             (help
  358.                 #ask-ISDN-Master-dir-help
  359.                 @askdir-help
  360.             )
  361.             (default @default-dest)
  362.         )
  363.         "ISDN-Master"
  364.     )
  365. )
  366.  
  367. ; at this point we have a valid destination, so we tell installer where
  368. ; the application will end up so the exit page will be correct -- also,
  369. ; the installation log file (if any) will be copied to the destination
  370. (set @default-dest ISDN-Master_dest)
  371.  
  372.  
  373. ;============================================================================
  374. ; Now we test if the WilhelmTEL telephone program is already installed.
  375. ; If it is, we ask the user if she would like to keep the old configuration
  376. ; files, phonebooks, etc.
  377.  
  378. (if (= (exists (tackon ISDN-Master_dest "WilhelmTEL/Tel.info")) 1)
  379.     (if (set Keep_WilhelmTEL_Config
  380.         (askbool
  381.             (prompt #bool-Overwrite_Tel)
  382.             (help #bool-Overwrite_Tel-help)
  383.         ))
  384.         (
  385.             (rename
  386.                 (tackon ISDN-Master_dest "WilhelmTEL/Tel.info")
  387.                 (tackon ISDN-Master_dest "WilhelmTEL/Tel.info.tmp")
  388.             )
  389.             (rename
  390.                 (tackon ISDN-Master_dest "DChannelMon.info")
  391.                 (tackon ISDN-Master_dest "DChannelMon.info.tmp")
  392.             )
  393.             (rename
  394.                 (tackon ISDN-Master_dest "StateMon.info")
  395.                 (tackon ISDN-Master_dest "StateMon.info.tmp")
  396.             )
  397.             (rename
  398.                 (tackon ISDN-Master_dest "WilhelmTEL/Config")
  399.                 (tackon ISDN-Master_dest "WilhelmTEL/Config.tmp")
  400.             )
  401.         )
  402.     )
  403. )
  404.  
  405.  
  406. ; Now we install the whole ISDN-Master directory and its files.
  407.  
  408. (copyfiles
  409.     (prompt #prompt-ISDN-Master)
  410.     (source "ISDN-Master")
  411.     (dest ISDN-Master_dest)
  412.     (all)
  413.     (infos)
  414.     (confirm "average")
  415.     (help
  416.         #prompt-ISDN-Master-help
  417.         @copyfiles-help
  418.     )
  419. )
  420.  
  421.  
  422. ; If we saved the old icon and config directory, rename them back now
  423.  
  424. (if (<> Keep_WilhelmTEL_Config 0)
  425. (
  426.     (delete
  427.         (tackon ISDN-Master_dest "WilhelmTEL/Tel.info")
  428.     )
  429.     (rename
  430.         (tackon ISDN-Master_dest "WilhelmTel/Tel.info.tmp")
  431.         (tackon ISDN-Master_dest "WilhelmTel/Tel.info")
  432.     )
  433.  
  434.     (delete
  435.         (tackon ISDN-Master_dest "DChannelMon.info")
  436.     )
  437.     (rename
  438.         (tackon ISDN-Master_dest "DChannelMon.info.tmp")
  439.         (tackon ISDN-Master_dest "DChannelMon.info")
  440.     )
  441.  
  442.     (delete
  443.         (tackon ISDN-Master_dest "StateMon.info")
  444.     )
  445.     (rename
  446.         (tackon ISDN-Master_dest "StateMon.info.tmp")
  447.         (tackon ISDN-Master_dest "StateMon.info")
  448.     )
  449.  
  450.     (rename
  451.         (tackon ISDN-Master_dest "WilhelmTel/Config")
  452.         (tackon ISDN-Master_dest "WilhelmTel/Config.del")
  453.     )
  454.     (rename
  455.         (tackon ISDN-Master_dest "WilhelmTel/Config.tmp")
  456.         (tackon ISDN-Master_dest "WilhelmTel/Config")
  457.     )
  458.     (delete
  459.         (tackon ISDN-Master_dest "WilhelmTEL/Config.del")
  460.     )
  461. ))
  462.  
  463. (complete 80)
  464.  
  465.  
  466. ;============================================================================
  467. ; Ask the user if he wants to install Tel-Startup.info in his WBStartup
  468. ; drawer, and install it if he wants it.
  469.  
  470. (if (askbool
  471.         (prompt #bool-Install_WBStartup)
  472.         (help #bool-Install_WBStartup-help)
  473.     )
  474.     (
  475.         (copyfiles
  476.             (prompt #prompt-Startup)
  477.             (source "WBStartup/Tel-Startup.info")
  478.             (dest "SYS:WBStartup")
  479.             (infos)
  480.         )
  481.  
  482.         ; Fix default tool to WilhelmTEL's path
  483.         (tooltype
  484.             (dest "SYS:WBStartup/Tel-Startup")
  485.             (noposition)
  486.             (setdefaulttool (tackon ISDN-Master_dest "WilhelmTEL/Tel"))
  487.         )
  488.     )
  489. )
  490.  
  491. (complete 99)
  492.  
  493. (message #message-Protocol)
  494.  
  495. (complete 100)
  496.  
  497.  
  498. ;============================================================================
  499. ; All done. Thank you for installing ISDN-Master :-)
  500.  
  501. (exit)
  502.