home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / ADM144.lha / ADM / LogTel / LogTel.adm < prev    next >
Encoding:
Text File  |  1994-08-25  |  1.5 KB  |  58 lines
  1. /*      $VER: LogTel.adm 1.2 (25.8.94)
  2.  
  3.         Log Telphon Calls is by Clemens Resanka & Jan Geißler in 1994
  4.                 an Arexx-Script FOR use WITH ADM (AddressMaster) © Jan Geißler
  5.                 and Voice-Log © by Clemens Resanka in 1994
  6.  
  7.         1.0     Jul-94 [ClR] Initial release.
  8.  
  9.         1.1  09-Aug-94 [jan] Version String added.
  10.                              Removed ADDRESSing of ADM for use as
  11.                                ADM-Menu-Macro.
  12.                              Stored search path of voice log tool
  13.                                and of log file in var for easier
  14.                                adaption.
  15.                              Appending of string to log file
  16.                                 "optimized".
  17.                              Started dial tool before dialing number.
  18.  
  19.         1.2  25-Aug-94 [ClR] Optimized LogTel FOR use WITH Voice-Log 1.04
  20.  
  21.                 */
  22.  
  23.  
  24. OPTIONS RESULTS
  25.  
  26. ToolPath = "ADM:LogTel/Voice-Log"
  27. LogFile  = 'ADM:ADMLog94.INF'
  28. quote = '"'
  29.  
  30. GETADDRESS Stemmy
  31. Tel = Right(Stemmy.TELEPHONE,20,' ')
  32. Nam = Stemmy.FIRSTNAME || ' ' || Stemmy.LASTNAME
  33. IF Stemmy.SORT = 'COMPANY' THEN Nam = Stemmy.company
  34.  
  35. ADDRESS command 'run >NIL:' ToolPath quote || Nam || quote
  36.  
  37. DO WHILE ~Show(PORTS,'VoiceLog.1')
  38. END
  39.  
  40. DIAL
  41.  
  42. ADDRESS 'VoiceLog.1'
  43. 'START'
  44.  
  45. IF RESULT ~= 'RESULT' THEN DO
  46.    String = RESULT
  47.  
  48.    Nam = Left(Nam,25,' ')
  49.    String = String || ' 1 ' || Tel || ' ' || Nam || ' ' || '00000000s'
  50.  
  51. CALL Open Log,Logfile,a
  52. DO WHILE ~EOF(Log)
  53.     CALL ReadLn Log
  54. END
  55. CALL WriteLn Log,String
  56. CALL Close Log
  57. END
  58.