home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 30 fixes_v
/
30-fixes_v.zip
/
fixmouse.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-04-28
|
3KB
|
118 lines
/* FIXMOUSE - Fix SVGA Mouse */
/* Part of the RemoteControl/2 1.2.02 CSD */
/* Copyright 1995 - Compuware Corporation */
/* Required files: PPM101A.NEW */
/* trace ?all */
ARG szParameters
'@echo off'
/* Save the calling environment */
nRC = setlocal()
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
say ''
say 'Locating target directory...'
szDBTKENV = VALUE('DBTKENV',,'OS2ENVIRONMENT')
PARSE UPPER VAR szDBTKENV szDBTKENV
nEnvironPos = POS('\ENVIRON',szDBTKENV)
if nEnvironPos \= 0 then
szDBTKENV = SUBSTR(szDBTKENV,1,nEnvironPos-1)
szDriveDir=szDBTKENV
say ''
say 'The target directory is '||szDriveDir
szSourceDrive = ''
szSourceDir = ''
curdir= ''
/*---------------------------------------------------------------------*/
say ''
say 'Locating source directory...'
parse source IsCmd IsOS2 MyCmdLine
szSourceDrive = substr(MyCmdLine, 1, 2)
szWork = filespec('PATH', MyCmdLine)
if szStrLength < 2 then
szSourceDir = ''
else
szSourceDir = substr(szWork, 1, length(szWork) - 1)
curDir= szSourceDrive || szSourceDir
say ''
say 'The source directory is '||curDir
/* Stop the PPM Process */
say ''
say 'Stopping the PPM101A process... please wait...'
'Killppr ppm101a'
call SysSleep 12
/* If stop of process was successful, copy the file from the current directory
to the source directory, complete and suggest reboot*/
If rc = 0 Then Do
say ''
say 'Successfully stopped PPM101A'
say ''
say 'Begin copy of new PPM101A.EXE...'
'copy '|| curdir ||'\ppm101a.new ' || szDriveDir|| '\ppm101a.exe'
If rc = 0 Then Do
'@echo on'
say ''
say ''
say ''
say ''
say ''
say ''
say ' File copied successfully.'
say ''
say ''
say ''
say ' RemoteControl/2 FIXMOUSE successfully installed'
say ' Please reboot this machine.'
say ''
say ''
say ''
say ''
say ''
say ''
say ''
say ''
say ''
say ''
end
else do
'@echo on'
say ''
say ' Unable to copy PPM101A.EXE.'
say ''
say ' RemoteControl/2 FIXMOUSE did NOT install successfully'
say ' Please contact Compuware Customer Support.'
say ''
say ''
say ''
end
end
else do
'@echo on'
say ''
say ' Unable to stop PPM101A.EXE.'
say ''
say ' RemoteControl/2 FIXMOUSE did NOT install successfully'
say ' Please contact Compuware Customer Support.'
say ''
say ''
say ''
end