home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / adm30.lha / ADM / TerminTool / Entpacken-Install < prev    next >
Encoding:
Text File  |  1996-03-28  |  3.4 KB  |  111 lines
  1. /*
  2. $VER: Install V 2.2 (25.3.96) © Bernd Stange
  3. */
  4.  
  5. /*************************************************************************/
  6. Ver = 'Install V 2.2 (25.3.96) © Bernd Stange'
  7.  
  8.  
  9. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  10.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  11.       EXIT 10
  12. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  13.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  14.       EXIT 10
  15.    NL   = "0a"x
  16. Titel   = Ver
  17. ADDRESS COMMAND 'assign in: "" '
  18.  
  19. IF ~EXISTS('WBStartup/ADMGebStart') THEN DO
  20.    ADDRESS COMMAND "/c/lhx -qm x TerminTool.lha"
  21.    ADDRESS COMMAND "/c/drawicon Prefs"
  22.    ADDRESS COMMAND "/c/drawicon WBStartup"
  23.    ADDRESS COMMAND "/c/drawicon c"
  24.    ADDRESS COMMAND "/c/drawicon ADM"
  25. END
  26.  
  27. CALL Anleitung
  28. CALL Pfad1
  29. CALL Pfad2
  30. CALL Pfad3
  31. CALL InstallFrage
  32. CALL Kopier
  33.  
  34.  
  35. OK = rtezrequest('Installation fertig: Einstellungen bearbeiten ?', "Ja|Nein",ver)
  36. IF ok = 1 THEN ADDRESS COMMAND 'execute in:prefs/ADMscPrefs >NIL:'
  37. EXIT
  38. /***********************************************************************/
  39.  
  40. Anleitung:
  41. Info = rtezrequest('Installations-Verlauf:'|| NL ||,
  42.                     'Zuerst werden folgende Pfade ermittelt.'|| NL ||,
  43.                     'Verzeichnis für ADMGebStart.    (Default: Sys:WBStartup)'|| NL ||,
  44.                     'Verzeichnis für ADMscPrefs u. Termine.    (Default: Sys:Prefs)'|| NL ||,
  45.                     'Verzeichnis für ADMGebList.adm    (Bitte ADM/ARexx wählen)'|| NL ||,
  46.                     'Liegt AskReq in c:? Falls nicht, so wird es dorthin kopiert.'|| NL ||,
  47.                     'Check aller Pfade und das Kopieren der Scripts beginnt.'|| NL ||,
  48.                     'Ein Abbruch ist jederzeit möglich!.'|| NL ||,
  49.                     '       ', "Weiter|Abbruch",ver)
  50. IF Info = '0' THEN EXIT
  51. RETURN
  52.  
  53.  
  54.  
  55. Pfad1:
  56. PfadADMGebStart    = rtfilerequest("sys:wbstartup","","Verzeichnis für ADMGebStart auswählen !","OK, auswählen!",'rtfi_flags = freqf_nofiles')
  57. IF PfadADMGebStart = "" THEN EXIT
  58. RETURN
  59. Pfad2:
  60. PfadADMscPrefs     = rtfilerequest("sys:prefs","","Zielverzeichnis für ADMscPrefs u. Termine!","OK, auswählen!",'rtfi_flags = freqf_nofiles')
  61. IF PfadADMscPrefs  = "" THEN EXIT
  62. RETURN
  63. Pfad3:
  64. PfadADMGebList     = rtfilerequest("Bitte ADM/ARexx wählen","","ADMGebList.adm gehört in ADM/ARexx !","OK, auswählen!",'rtfi_flags = freqf_nofiles')
  65. IF PfadADMscPrefs  = "" THEN EXIT
  66. RETURN
  67.  
  68. INSTALLFrage:
  69. ok = rtezrequest('Installiere alle ADMScripts und Zusatzprogramme !'|| NL ||,
  70.                  'Bereits installierte Versionen werden Ü B E R S C H R I E B E N !' || NL ||,
  71.                  'Gewählte Pfade:' || NL ||,
  72.                  '[1]...kopiere ADMGebStart nach' PfadADMGebStart || NL ||,
  73.                  '[2]...kopiere ADMscPrefs u.Termine nach' PfadADMscPrefs || NL ||,
  74.                  '[3]...kopiere ADMGebList.adm nach' PfadADMGebList,'Installiere|[1]|[2]|[3]|Abbruch',ver)
  75. IF OK = '0' THEN EXIT
  76. IF OK = '2' THEN DO
  77. CALL Pfad1
  78. CALL INSTALLFrage
  79. END
  80. IF OK = '3' THEN DO
  81. CALL Pfad2
  82. CALL INSTALLFrage
  83. END
  84. IF OK = '4' THEN DO
  85. CALL Pfad3
  86. CALL INSTALLFrage
  87. END
  88. RETURN
  89.  
  90.  
  91. Ask:
  92. IF ~EXISTS('c:Askreq') THEN DO
  93. OK = rtezrequest('Soll ich Askreq ins c: kopieren ?', "Ja|Nein",ver)
  94. IF ok = 1 THEN DO
  95. ADDRESS COMMAND
  96. 'copy in:c/#? c:'
  97. END
  98. END
  99. RETURN
  100.  
  101. Kopier:
  102. ADDRESS COMMAND
  103. 'copy in:wbstartup/#? ' '"' || PfadADMGebStart || '"'
  104. 'copy in:prefs/ADMscPrefs#?'  '"' || PfadADMscPrefs || '"'
  105. 'copy in:prefs/Termine#?'  '"' || PfadADMscPrefs || '"'
  106. 'copy in:ADM/ADMGebList.adm#?'  '"' || PfadADMGebList || '"'
  107. SAY "Fertig...   have fun !"
  108. RETURN
  109.  
  110.  
  111.