home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 8 Other
/
08-Other.zip
/
lfncall.zip
/
UPDATE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-09-26
|
3KB
|
89 lines
/*
* LFNCall V 1.4
*
* Update-Programm von V 1.2 oder 1.3 auf V 1.4
* (c) 1997 Thomas Bohn, Vogelwiese 65, D-18435 Stralsund, Germany
*
*/
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
'@Echo off'
'cls'
say''
say' ┌───────────────────────────────────────────────────────────────────┐'
say' │ LFNCall V 1.4 │'
say' │ (c) Thomas Bohn 1997 │'
say' │ Update von V 1.2 / 1.3 auf V 1.4 │'
say' └───────────────────────────────────────────────────────────────────┘'
say''
say 'Bitte wählen Sie die Sprache. / Please select your language.'
say ''
say '(D)eutsch'
say '(E)nglish'
say ''
pull Spr
say ''
if Spr="D" then do
say 'Die notwendigen Dateien werden in das WIN-OS/2-Verzeichnis kopiert.'
say 'Mit dem Deinstallationsprogramm "DEINSTAL.CMD" können sie falls nötig'
say 'wieder entfernt werden.'
say ''
say 'Start mit <Eingabe>...Abbruch mit "E" und <Eingabe>...'
end
if Spr="E" then do
say 'The nessesary files will be copied to the WIN-OS/2-Directory.'
say 'With "DEINSTAL.CMD" all files can be removed.'
say ''
say 'Start with <Enter>...Cancel with "C" and <Enter>...'
end
pull taste
if taste="E" then exit
if taste="C" then exit
tmppfad=value('TMP',,'OS2ENVIRONMENT')
windir = SysIni( 'USER', 'PM_INSTALL', 'WINOS2_LOCATION' )
Ende=pos('00'x,windir)-1
Pfad=substr(windir,1,Ende)
if Spr="D" then say 'Kopiere Dateien...'
if Spr="E" then say 'Copying files...'
'copy LFN.EXE ' Pfad
'copy LFNR.EXE ' Pfad
'copy LFN.ICO ' Pfad
'copy LFNDMN.EXE ' Pfad
'copy LFND.CMD ' Pfad
'copy LFNCALL.CMD ' Pfad
'copy LFNCALL.INI ' Pfad
if Spr="D" then say 'Neue Symbole für LFN-Dämon und Reset-Programm...'
if Spr="E" then say 'New symbols for LFN-Daemon and Reset-program...'
if Spr="D" then do
title = "LFN-Dämon"
end
if Spr="E" then do
title = "LFN-Daemon"
end
classname = 'WPProgram'
location = '<LFN_Folder>'
setup = 'OBJECTID=<LFN-Daemon>;EXENAME=LFNDMN.EXE;STARTUPDIR='Pfad
call SysCreateObject classname,title,location,setup,r
title = "LFN-Reset"
classname = 'WPProgram'
location = '<WP_START>'
setup = 'OBJECTID=<LFN-Reset>;EXENAME=LFNR.EXE;STARTUPDIR='Pfad';MINWIN=HIDE;MINIMIZED=YES;ICONFILE=LFN.ICO'
call SysCreateObject classname,title,location,setup,r
say ''
if Spr="D" then do
say 'Fertig.'
end
if Spr="E" then do
say 'Ready.'
end
say ''