startrecord=true label=aaretrievemessages nodetype=8 line1=procedure line2=parse arg mailbox, isOutgoing, whichMailbox line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=logs = showdir(logFile(mailbox, '')) line2=numlogs = words(logs) line3=currentlog = 1 line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label=retrievemessagesnext nodetype=8 line1=if currentlog > numlogs then signal retrievemessagesdone line2=currentHandle = word(logs, currentLog) line3=call loadLogEntry(mailbox, currentHandle) line4= line5=if (isOutgoing & ( log.returnRetry = '' | log.returnRetry = 0 | (upper(log.origMailbox) ~= upper(whichMailbox) & upper(log.origMailbox) ~= 'ANONYMOUS'))) then do line6= currentLog = currentLog + 1 line7= line8= signal retrieveMessagesNext line9= line10=end nextactiontype=3 nextactionaction= endrecord=true startrecord=true label=retrievemessagesagain nodetype=8 line1=logtype = upper(log.type) line2=if logtype = 'FAX' then signal isfax line3=else if logtype = 'VOICE' then signal isvoice line4=else signal isunknown line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label=isfax nodetype=1 filename='avm:voices/FaxMessage' comment=This is a fax entry. keyactiontype=3 keyactionaction= faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=0 nextactionaction=aftertype endrecord=true startrecord=true label=isvoice nodetype=2 frequency1=3000 frequency2=0 duration=4 keyactiontype=3 keyactionaction= faxactiontype=3 faxactionaction= dataactiontype=3 dataactionaction= busyactiontype=3 busyactionaction= abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=1 filename=voiceFile(mailbox, log.filename) comment= keyactiontype=3 keyactionaction= faxactiontype=3 faxactionaction= dataactiontype=3 dataactionaction= busyactiontype=3 busyactionaction= abortactiontype=0 abortactionaction=stdabort erroractiontype=3 erroractionaction= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=12 nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=2 frequency1=3000 frequency2=0 duration=4 keyactiontype=3 keyactionaction= faxactiontype=3 faxactionaction= dataactiontype=3 dataactionaction= busyactiontype=3 busyactionaction= abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=0 nextactionaction=aftertype endrecord=true startrecord=true label=isunknown nodetype=1 filename='avm:voices/UnknownMessage' comment=This is an unknown message. keyactiontype=3 keyactionaction= faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=0 nextactionaction=aftertype endrecord=true startrecord=true label=aftertype nodetype=3 filename='avm:voices/RetrieveMessages' comment=Enter 1 to play the message again, 2 to play the time, 3 to play the telephone numbers, 4 to listen to the next message, 5 to delete this message, 6 to archive this message, 7 to forward this message, 8 to reply to it [0=repeat menu, *=hangup, #=previous menu] retries=3 zeroactiontype=0 zeroactionaction=aftertype oneactiontype=0 oneactionaction=retrievemessagesagain twoactiontype=2 twoactionaction=call playtimedate() threeactiontype=2 threeactionaction=call playtelcidnumber() fouractiontype=0 fouractionaction=processNextMessage fiveactiontype=2 fiveactionaction=address rexx 'delete' mailbox currentHandle; signal processNextMessage sixactiontype=2 sixactionaction=if isOutgoing = 0 then address rexx 'archive' mailbox currentHandle; else address rexx 'archiveoutgoing' mailbox currentHandle; signal processNextMessage sevenactiontype=2 sevenactionaction=call forwardmessage(mailbox, currentHandle) eightactiontype=2 eightactionaction=call replymessage(mailbox, currentHandle) nineactiontype=3 nineactionaction= poundactiontype=2 poundactionaction=return staractiontype=0 staractionaction=answervoiceDone faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy timedoutactiontype=0 timedoutactionaction=answerVoiceDone abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=0 nextactionaction=aftertype endrecord=true startrecord=true label=processNextMessage nodetype=8 line1=currentLog = currentLog + 1 line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=0 nextactionaction=retrievemessagesnext endrecord=true startrecord=true label=playtimedate nodetype=8 line1=actualTime = convertToTime(log.time) line2=actualDate = convertToDate(log.time) line3=call playTime(actualTime) line4=actualDate = date('s', actualDate) /* convert to sorted */ line5=call playDate(actualDate) line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=12 nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1= line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=playtelcidnumber nodetype=1 filename='avm:voices/cidnumber' comment=The CID number is... keyactiontype=3 keyactionaction= faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=if symbol('log.cidnumber') = 'VAR' then line2= call playNumber(log.cidnumber) line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=12 nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=1 filename='avm:voices/returnnumber' comment=The return number is... keyactiontype=3 keyactionaction= faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1=if symbol('log.returnnumber') = 'VAR' then line2= call playNumber(log.returnnumber) line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=12 nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=retrievemessagesdone nodetype=1 filename='avm:voices/NoMoreMessages' comment=That's all folks!/There are no more messages. keyactiontype=3 keyactionaction= faxactiontype=0 faxactionaction=stdfax dataactiontype=0 dataactionaction=stddata busyactiontype=0 busyactionaction=stdbusy abortactiontype=0 abortactionaction=stdabort erroractiontype=0 erroractionaction=stderror nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=replyMessage nodetype=8 line1=procedure line2=parse arg mailbox, magicCookie line3=call loadLogEntry(mailbox, magicCookie) line4= line5=number = log.returnNumber line6=if number = '' then number = log.cidNumber line7=handle = makeUniqueFile() line8=sent = sendMessageTo('Outgoing', mailbox, number, handle, 'Voice', voiceFile(mailbox, 'Introduction'), log.cidNumber, log.cidName) line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1= line2= line3= line4= line5= line6= line7= line8= line9= line10= nextactiontype=2 nextactionaction=return endrecord=true startrecord=true label=forwardMessage nodetype=8 line1=procedure line2=parse arg mailbox, magicCookie line3= line4=call loadLogEntry(mailbox, magicCookie) line5= line6= line7= line8= line9= line10= nextactiontype=3 nextactionaction= endrecord=true startrecord=true label= nodetype=8 line1= line2= line3= line4= line5= line6= line7=if verify(log.fileName, '/:', 'M') = 0 then line8= address command 'copy >nil: