home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lfncall.zip / UPDATE.CMD < prev    next >
OS/2 REXX Batch file  |  1997-09-26  |  3KB  |  89 lines
  1. /*
  2.  * LFNCall V 1.4
  3.  *
  4.  * Update-Programm von V 1.2 oder 1.3 auf V 1.4
  5.  * (c) 1997 Thomas Bohn, Vogelwiese 65, D-18435 Stralsund, Germany
  6.  *
  7.  */
  8.  
  9. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12. '@Echo off'
  13. 'cls'
  14. say''
  15. say'     ┌───────────────────────────────────────────────────────────────────┐'
  16. say'     │                             LFNCall V 1.4                         │'
  17. say'     │                        (c) Thomas Bohn 1997                       │'
  18. say'     │                    Update von V 1.2 / 1.3 auf V 1.4               │'
  19. say'     └───────────────────────────────────────────────────────────────────┘'
  20. say''
  21.  
  22. say 'Bitte wählen Sie die Sprache. / Please select your language.'
  23. say ''
  24. say '(D)eutsch'
  25. say '(E)nglish'
  26. say ''
  27. pull Spr
  28. say ''
  29. if Spr="D" then do
  30.  say 'Die notwendigen Dateien werden in das WIN-OS/2-Verzeichnis kopiert.'
  31.  say 'Mit dem Deinstallationsprogramm "DEINSTAL.CMD" können sie falls nötig'
  32.  say 'wieder entfernt werden.'
  33.  say ''
  34.  say 'Start mit <Eingabe>...Abbruch mit "E" und <Eingabe>...'
  35. end
  36. if Spr="E" then do
  37.  say 'The nessesary files will be copied to the WIN-OS/2-Directory.'
  38.  say 'With "DEINSTAL.CMD" all files can be removed.'
  39.  say ''
  40.  say 'Start with <Enter>...Cancel with "C" and <Enter>...'
  41. end
  42. pull taste
  43. if taste="E" then exit
  44. if taste="C" then exit
  45.  
  46. tmppfad=value('TMP',,'OS2ENVIRONMENT')
  47. windir = SysIni( 'USER', 'PM_INSTALL', 'WINOS2_LOCATION' )
  48. Ende=pos('00'x,windir)-1
  49. Pfad=substr(windir,1,Ende)
  50.  
  51. if Spr="D" then say 'Kopiere Dateien...'
  52. if Spr="E" then say 'Copying files...'
  53. 'copy LFN.EXE ' Pfad
  54. 'copy LFNR.EXE ' Pfad
  55. 'copy LFN.ICO ' Pfad
  56. 'copy LFNDMN.EXE ' Pfad
  57. 'copy LFND.CMD ' Pfad
  58. 'copy LFNCALL.CMD ' Pfad
  59. 'copy LFNCALL.INI ' Pfad
  60.  
  61. if Spr="D" then say 'Neue Symbole für LFN-Dämon und Reset-Programm...'
  62. if Spr="E" then say 'New symbols for LFN-Daemon and Reset-program...'
  63.  
  64. if Spr="D" then do
  65.  title = "LFN-Dämon"
  66. end
  67. if Spr="E" then do
  68.  title = "LFN-Daemon"
  69. end
  70. classname = 'WPProgram'
  71. location = '<LFN_Folder>'
  72. setup = 'OBJECTID=<LFN-Daemon>;EXENAME=LFNDMN.EXE;STARTUPDIR='Pfad
  73. call SysCreateObject classname,title,location,setup,r
  74.  
  75. title = "LFN-Reset"
  76. classname = 'WPProgram'
  77. location = '<WP_START>'
  78. setup = 'OBJECTID=<LFN-Reset>;EXENAME=LFNR.EXE;STARTUPDIR='Pfad';MINWIN=HIDE;MINIMIZED=YES;ICONFILE=LFN.ICO'
  79. call SysCreateObject classname,title,location,setup,r
  80.  
  81. say ''
  82. if Spr="D" then do
  83.  say 'Fertig.'
  84. end
  85. if Spr="E" then do
  86.  say 'Ready.'
  87. end
  88. say ''
  89.