home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / diary21a.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1999-06-16  |  2KB  |  91 lines
  1. /* Installationsskript zum Elektronischen Tagebuch für OS/2 */
  2. SIGNAL ON ERROR NAME Fehler
  3.  
  4. SAY " "
  5.  
  6. /* REXXUTIL laden */
  7. CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  8. CALL sysloadfuncs
  9.  
  10. /* Abfrage, in welchem Pfad wir sind */
  11. CALL SysFileTree 'DIARY2.*', datei, 'FO'
  12. IF datei.0 < 2 THEN
  13. DO
  14.    SAY "Anscheinend haben sie das Archiv DIARY*.* noch nicht entpackt."
  15.    SAY "Bitte erledigen Sie dies und beginnen Sie dann nochmal."
  16.    EXIT
  17. END
  18.  
  19. /* Den Pfad und die Platte extrahieren */
  20. pfad = FILESPEC("path",datei.1)
  21. disk = FILESPEC("drive",datei.1)
  22. path = OVERLAY(pfad,disk,3)
  23.  
  24. SAY "Installationsscript zum Elektronischen Tagbuch für OS/2"
  25. SAY "======================================================="
  26. SAY " "
  27.  
  28. /* Ansonsten Daten erfragen */
  29. Abfrage:
  30. SAY "In welchem Pfad soll das Elektronische Tagebuch installiert werden ?"
  31. SAY "(z.B. C:\DIARY)  "
  32. PARSE PULL pfad
  33. IF pfad = "" THEN pfad="C:\DIARY"
  34. SAY " "
  35. SAY "Das Elektronische Tagebuch wird im Pfad " pfad " installiert."
  36. SAY " "
  37. SAY "Geben sie <return> für weiter ein, <K> für Korrektur oder <A> für Abbruch!"
  38. PULL antwort
  39.  
  40. /* Auswerten */
  41. IF antwort = "A" THEN SIGNAL Abbruch
  42. IF antwort = "K" THEN SIGNAL Abfrage
  43.  
  44. SAY "Danke...."
  45.  
  46. weiter:
  47. /* Jetzt ggf. das Verzeichnis erzeugen */
  48. rc = SysMkDir(pfad)
  49.  
  50. /* und die dort nötigen Dateien hinverschieben */
  51. INTERPRET "'COPY DIARY2.EXE 'pfad'\*.*'"
  52. INTERPRET "'COPY DIARY2.HLP  'pfad'\*.*'"
  53. INTERPRET "'COPY DIARY.DOC 'pfad'\*.*'"
  54. INTERPRET "'COPY DIARY.EXP 'pfad'\*.*'"
  55. INTERPRET "'COPY DIARY2.ICO 'pfad'\*.*'"
  56.  
  57. /* Anlegen des Ordners auf der WPS */
  58. SAY " "
  59. SAY "Soll ein Programmobjekt für das Elektronische Tagebuch erstellt werden?"
  60. SAY "Geben sie <J> oder <N> ein!"
  61. PULL antwort
  62.  
  63. /* Auswerten */
  64. IF antwort = "N" THEN SIGNAL Ende
  65. SAY " "
  66. SAY "WPS-Objekte werden erzeugt..."
  67.  
  68. /* Das Programmobjekt anlegen */
  69. klasse='WPProgram'
  70. titel='Das Elektronische Tagebuch'
  71. ort='<WP_DESKTOP>'
  72. param='EXENAME='pfad'\DIARY2.EXE;ICONFILE='pfad'\DIARY2.ICO;STARTUPDIR='pfad';'
  73. mode='fail'
  74. rc = SysCreateObject(klasse,titel,ort,param,mode)
  75.  
  76. /* Ende-Meldung */
  77. Ende:
  78. SAY "Das Elektronische Tagebuch ist jetzt installiert!"
  79. EXIT
  80.  
  81. /* Standard-Fehlerhandler */
  82. Fehler:
  83. SAY "Es ist ein Fehler aufgetreten. Bitte versuchen Sie's nochmal!"
  84. EXIT
  85.  
  86. /* Abbruch des scripts */
  87. Abbruch:
  88. SAY "Schade, daß Sie das Installationsprogramm abgebrochen haben!"
  89. EXIT
  90.  
  91.