home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
c't freeware shareware 2001 January
/
CT_SW0101.ISO
/
mac
/
software
/
kommunik
/
misc
/
zoc400wg.exe
/
setup.fil
/
script
/
ZOCEVENT.ZRX
< prev
next >
Wrap
Text File
|
1996-08-26
|
2KB
|
61 lines
/***********************************************************************
EINE BESCHREIBUNG ZUR VERWENDUNG DIESER DATEI STEHT IN ZOCEVENT.DOC
***********************************************************************/
/**********************************************************************/
/* Das Entfernen der nachfolgENDen Zeile aktiviert ZOCEVENT.CMD */
/**********************************************************************/
EXIT /* >>>>>>> zum Aktivieren diese Zeile lîschen <<<<<<<<<<<<<<< */
/**********************************************************************/
/* Hier werden die KommanDOzeilen-Parameter geparsed */
/**********************************************************************/
PARSE ARG Event " '" DeviceName "'" "'" DeviceOpts "'"
/**********************************************************************/
/* Testen, ob und wo FaxWorks installiert ist */
/**********************************************************************/
CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
CALL SysLoadFuncs
faxdir= SysIni("USER", "Fax", "ExeDir")
faxdir= LEFT(faxdir,LENGTH(faxdir)-1) /* Abschlu·null entfernen */
faxrcv= faxdir||"fxrcv"
/**********************************************************************/
/* Hier folgen die jeweiligen Aktionen ... */
/**********************************************************************/
SELECT
/* Beim Starten von ZOC *******************************************/
WHEN Event="OPEN" THEN DO
faxrcv "-off"
END /* WHEN */
/* Beim ôffnen eines Device *++++**********************************/
WHEN Event="DEVOPEN" THEN DO
/* leer */
END /* WHEN */
/* Beim Schlie·en eines Device ************************************/
WHEN Event="DEVCLOSE" THEN DO
/* leer */
END /* WHEN */
/* Beim Beenden von ZOC *******************************************/
WHEN Event="CLOSE" THEN DO
faxrcv "-on"
END /* WHEN */
END /* SELECT */
EXIT