contrib/asterisk-xip/files/macros/lastcall.conf

   1 ; Last-Called number storage and calling.
   2 ; Author: Michael Geddes aka FrogOnWheels
   3
   4 [macro-lastcallstore] ; (Number , EntryType, BufferSize)
   5 exten => s,1,set(lcsName=lastcall)
   6 exten => s,n,set(lcsCount=10)
   7 exten => s,n,GotoIf($["${ARG2}" = ""]?blankarg)
   8 exten => s,n,GotoIf($["${ARG2}" = "lastcall"]?blankarg)
   9 exten => s,n,Set(lcsName=lastcall_${ARG2})
  10 exten => s,n(blankarg),GotoIf($["${ARG3}" = ""]?nocount)
  11 exten => s,n,Set(lcsCount=${ARG3})
  12 exten => s,n(nocount),Noop(${lcsName}:${DB(${lcsName}/number1)}:${ARG1})
  13 exten => s,n,GotoIf($["${DB(${lcsName}/number1)}" = "${ARG1}"]?setdate)
  14 exten => s,n,set(CallerPointer=1)
  15
  16 exten => s,n(again),GotoIf($["${DB(${lcsName}/ddate${CallerPointer})}" = ""]?copynext)
  17 exten => s,n,GotoIf($["${DB(${lcsName}/number${CallerPointer})}" = "${ARG1}"]?copynext)
  18 exten => s,n,Set(CallerPointer=$[${CallerPointer}+1])
  19 exten => s,n,GotoIf($[${CallerPointer} <= ${lcsCount}]?again)
  20
  21 exten => s,n(copynext),set(DB(${lcsName}/ddate$[${CallerPointer}])=${DB(${lcsName}/ddate$[${CallerPointer}-1])})
  22 exten => s,n,set(DB(${lcsName}/number$[${CallerPointer}])=${DB(${lcsName}/number$[${CallerPointer}-1])})
  23 exten => s,n,set(CallerPointer=$[${CallerPointer}-1])
  24 exten => s,n,GotoIf($[${CallerPointer} > 0]?copynext)
  25 exten => s,n,set(DB(${lcsName}/number1)=${ARG1})
  26 exten => s,n(setdate),set(DB(${lcsName}/ddate1)=${EPOCH})
  27
  28 [macro-lastcallapp] ; (Entrytype, Count, RingContext, Tag)
  29 exten => s,1,set(lcsName=lastcall)
  30 exten => s,n,set(lcsCount=10)
  31 exten => s,n,GotoIf($["${ARG1}" = ""]?blankName)
  32 exten => s,n,Set(lcsName=lastcall_${ARG1})
  33 exten => s,n(blankName),GotoIf($["${ARG2}" = ""]?nocount)
  34 exten => s,n,Set(lcsCount=${ARG2})
  35 exten => s,n(nocount),set(lcsCallContext=internal)
  36 exten => s,n,GotoIf($["${ARG3}" = ""]?blankContext)
  37 exten => s,n,Set(lcsCallContext=${ARG3})
  38 exten => s,n(blankContext),set(lcsTag=${ARG4})
  39 exten => s,n,GotoIf($["${lcsTag}" != ""]?hasTag)
  40 exten => s,n,Set(lcsTag=lastcall/previous-numbers)
  41 exten => s,n(hasTag),Set(lcsPointer=1)
  42 exten => s,n,GotoIf($["${DB(${lcsName}/ddate1)}" != ""]?macrobody_lastcallapp|s|1)
  43 exten => s,n,playback(${lcsTag}&lastcall/none-available)
  44 [macrobody_lastcallapp]
  45 exten => s,1(repeat),background(${lcsTag})
  46 exten => s,n(again),wait(1)
  47 exten => s,n,Set(lcsLastnum=${DB(${lcsName}/number${lcsPointer})})
  48 exten => s,n,Set(ddate=${DB(${lcsName}/ddate${lcsPointer})})
  49 exten => s,n,GotoIf($["${lcsLastnum}" != "anonymous"]?checkblank)
  50 exten => s,n,Set(lcsLastnum="")
  51 exten => s,n(checkblank),GotoIf($["${lcsLastnum}" = ""]?noinfo)
  52 exten => s,n,saydigits(${lcsLastnum})
  53 exten => s,n(saycalltime),wait(.5)
  54 exten => s,n,sayunixtime(${ddate},${LASTCALLZONE},QIMp)
  55 exten => s,n(saymenu),background(silence/1)
  56 exten => s,n,Set(lcsLastDate=${DB(${lcsName}/ddate$[ ${lcsPointer} + 1])})
  57 exten => s,n,GotoIf($[$[${lcsPointer} = ${lcsCount}] | $["${lcsLastDate}" = ""]]?noprev)
  58 exten => s,n,background(lastcall/next)
  59 exten => s,n(noprev),GotoIf($["${lcsLastnum}" = ""]?nocall)
  60 exten => s,n,background(lastcall/call-number)
  61 exten => s,n(nocall),GotoIf($[${lcsPointer} = 1]?nonext)
  62 exten => s,n,background(lastcall/previous)
  63 exten => s,n(nonext),background(silence/10)
  64 exten => s,n,Goto(repeat)
  65 exten => s,n(noinfo),background(lastcall/no-number-info)
  66 exten => s,n,goto(saycalltime)
  67 exten => 5,1,GotoIf($["${lcsLastnum}" = ""]?noinfo])
  68 exten => 5,n,Ringing()
  69 exten => 5,n,Goto(${lcsCallContext},${lcsLastnum},1)
  70 exten => 6,1,GotoIf($[$[${lcsPointer} = ${lcsCount}] | $["${lcsLastDate}" = ""]]?sayn)
  71 exten => 6,n,Set(lcsPointer=$[${lcsPointer} + 1])
  72 exten => 4,1,GotoIf($[${lcsPointer}=1]?sayn)
  73 exten => 4,n,Set(lcsPointer=$[${lcsPointer} - 1])
  74 exten => _[46],n(sayn),saynumber(${lcsPointer})
  75 exten => _[46],n,goto(s|again)
  76 exten => i,1,Goto(s|again)
  77 exten => t,1,playback(goodbye)
  78 exten => t,n,Hangup