home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR24
/
PMD21ED.ZIP
/
VIRSCAN.CMD
< prev
Wrap
OS/2 REXX Batch file
|
1993-10-29
|
2KB
|
75 lines
/* REXX-Prozedur für VIRUS-SCANNER-SETUP */
CALL RXFUNCADD 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
CALL SysLoadFuncs
IniFile = 'PMDSKCPY.INI'
IniApp = 'PM_DISKCOPY'
IniKey = 'SCAN_PGM'
SAY '
Virus Scanner Setup
for PM Diskcopy 2.1C or higher'
SAY ''
Rc = SYSFILETREE(IniFile,Dummy,'F')
Default = 0
IF (Rc = 0 & dummy.0 = 1) THEN DO
ScanFormatString = SYSINI(IniFile,IniApp,IniKey)
IF (ScanFormatString <> 'ERROR:') THEN
SAY 'Current Setting:
' ScanFormatString '
'
ELSE DO
SAY 'Current Setting:
<PM Diskcopy default>
'
Default = 1
END
END
ELSE DO
SAY 'INI-File' IniFile 'not found !'
SAY 'Be sure to start this command in the directory where'
SAY 'PM DISKCOPY was installed !'
SAY 'Press <ESC> to cancel or <ENTER> to go on...'
InKey = 0
DO WHILE (InKey <> 13 & InKey <> 27)
PARSE UPPER VALUE SYSGETKEY('NOECHO') WITH Key
InKey = c2d(key)
END
IF (InKey = 27) THEN DO
SAY 'Command canceled'
EXIT 1
END
END
IF (Default = 0) THEN DO
SAY 'Return to PM Diskcopy default setting (Y/N) ?'
InKey = 0
DO WHILE (InKey <> 'Y' & InKey <> 'N')
PARSE UPPER VALUE SYSGETKEY('NOECHO') WITH InKey
END
IF (Inkey = 'Y') THEN DO
Rc = SYSINI(IniFile,IniApp,IniKey,'DELETE:')
IF (Rc = 'ERROR:') THEN
SAY 'Update of INI-File' IniFile 'failed!'
ELSE
SAY 'Setting for virus scanner returned to default.'
EXIT 0
END
END
SAY 'Now enter the new setting and press <ENTER>'
SAY '(Only pressing <ENTER> will leave the setting unchanged)'
SAY '
e.g. D:\TOOLS\ANTIVIR.EXE /SCAN %D'
SAY ' or C:\OS2\APPS\OS2SCAN.EXE %D'
SAY 'note: %D is a placeholder for the selected drive of PM Diskcopy.'
SAY ' If your virus scanner supports the name of the drive to be'
SAY ' scanned on the command line, just use %D instead of the drive'
SAY ' name. PM Diskcopy will then replace %D with the real drive name'
SAY ' (e.g. A: or B:).'
PULL Answer
IF (answer <> '') THEN DO
Rc = SYSINI(IniFile,IniApp,IniKey,answer||D2C(0))
IF (Rc = 'ERROR:') THEN
SAY 'Update of INI-File' IniFile 'failed!'
ELSE
SAY 'New setting of virus scanner:' answer
END
ELSE
SAY 'Setting for virus scanner not changed.'
EXIT 0