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

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