/*      $VER: LogTel.adm 1.2 (25.8.94)

        Log Telphon Calls is by Clemens Resanka & Jan Geißler in 1994
                an Arexx-Script FOR use WITH ADM (AddressMaster) © Jan Geißler
                and Voice-Log © by Clemens Resanka in 1994

        1.0     Jul-94 [ClR] Initial release.

        1.1  09-Aug-94 [jan] Version String added.
                             Removed ADDRESSing of ADM for use as
                               ADM-Menu-Macro.
                             Stored search path of voice log tool
                               and of log file in var for easier
                               adaption.
                             Appending of string to log file
                                "optimized".
                             Started dial tool before dialing number.

        1.2  25-Aug-94 [ClR] Optimized LogTel FOR use WITH Voice-Log 1.04

                */


OPTIONS RESULTS

ToolPath = "ADM:LogTel/Voice-Log"
LogFile  = 'ADM:ADMLog94.INF'
quote = '"'

GETADDRESS Stemmy
Tel = Right(Stemmy.TELEPHONE,20,' ')
Nam = Stemmy.FIRSTNAME || ' ' || Stemmy.LASTNAME
IF Stemmy.SORT = 'COMPANY' THEN Nam = Stemmy.company

ADDRESS command 'run >NIL:' ToolPath quote || Nam || quote

DO WHILE ~Show(PORTS,'VoiceLog.1')
END

DIAL

ADDRESS 'VoiceLog.1'
'START'

IF RESULT ~= 'RESULT' THEN DO
   String = RESULT

   Nam = Left(Nam,25,' ')
   String = String || ' 1 ' || Tel || ' ' || Nam || ' ' || '00000000s'

CALL Open Log,Logfile,a
DO WHILE ~EOF(Log)
    CALL ReadLn Log
END
CALL WriteLn Log,String
CALL Close Log
END