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 >
Text File  |  1996-08-26  |  2KB  |  61 lines
  1. /*********************************************************************** 
  2.  
  3.    EINE BESCHREIBUNG ZUR VERWENDUNG DIESER DATEI STEHT IN ZOCEVENT.DOC
  4.  
  5. ***********************************************************************/
  6.  
  7.  
  8. /**********************************************************************/
  9. /* Das Entfernen der nachfolgENDen Zeile aktiviert ZOCEVENT.CMD       */
  10. /**********************************************************************/
  11.  
  12. EXIT  /* >>>>>>>  zum Aktivieren diese Zeile lîschen  <<<<<<<<<<<<<<< */
  13.  
  14.  
  15.  
  16. /**********************************************************************/
  17. /* Hier werden die KommanDOzeilen-Parameter geparsed                  */
  18. /**********************************************************************/
  19. PARSE ARG Event " '" DeviceName "'" "'" DeviceOpts "'"
  20.  
  21.  
  22.  
  23. /**********************************************************************/
  24. /* Testen, ob und wo FaxWorks installiert ist                         */
  25. /**********************************************************************/
  26. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  27. CALL SysLoadFuncs
  28. faxdir= SysIni("USER", "Fax", "ExeDir")
  29. faxdir= LEFT(faxdir,LENGTH(faxdir)-1)  /* Abschlu·null entfernen */
  30. faxrcv= faxdir||"fxrcv"
  31.  
  32.  
  33. /**********************************************************************/
  34. /* Hier folgen die jeweiligen Aktionen ...                            */
  35. /**********************************************************************/
  36. SELECT 
  37.     /* Beim Starten von ZOC *******************************************/
  38.     WHEN Event="OPEN" THEN DO
  39.         faxrcv "-off"
  40.     END /* WHEN */
  41.  
  42.     /* Beim ôffnen eines Device *++++**********************************/
  43.     WHEN Event="DEVOPEN" THEN DO
  44.         /* leer */
  45.     END /* WHEN */
  46.  
  47.     /* Beim Schlie·en eines Device ************************************/
  48.     WHEN Event="DEVCLOSE" THEN DO
  49.         /* leer */
  50.     END /* WHEN */
  51.  
  52.     /* Beim Beenden von ZOC *******************************************/
  53.     WHEN Event="CLOSE" THEN DO
  54.         faxrcv "-on"
  55.     END /* WHEN */
  56.  
  57. END /* SELECT */
  58.  
  59. EXIT
  60.  
  61.