[macro-pincode-custom]
    exten => s,1,Read(pin,vm-password)
    exten => s,2,MySQL(Connect connid localhost root  asterisk)
    exten => s,3,MySQL(Query resultid ${connid} SELECT accountcode FROM accountcodes1 WHERE pin=${pin})
    exten => s,4,MySQL(Query resultid2 ${connid} SELECT SUBSTRING(REVERSE(barring),1),pin FROM accountcodes1 where pin=${pin})
    exten => s,5,MySQL(Query resultid3 ${connid} SELECT customer FROM accountcodes1 WHERE pin=${pin})
;exten => s,4,MySQL(Query resultid2 ${connid} SELECT barring from accountcodes where pin=${pin})
    exten => s,6,MySQL(Fetch fetchid ${resultid} accountcode)
    exten => s,7,MySQL(Fetch fetchid ${resultid2} BARRED)
    exten => s,8,MySQL(Fetch fetchid ${resultid3} CUSTOMER)
    exten => s,9,MySQL(Clear ${resultid})
    exten => s,10,MySQL(Clear ${resultid2})
    exten => s,11,MySQL(Clear ${resultid3})
    exten => s,12,MySQL(Disconnect ${connid})
    exten => s,13,Set(CDR(accountcode)=${accountcode})
    exten => s,14,NoOp(BARRED: ${BARRED})
    exten => s,15,GotoIf($[${BARRED}=1]?s-BARRED,1)
    exten => s,16,GotoIf($[${CUSTOMER}=AutoMagic]?s-AutoMagic,1)
    exten => s,17,ResetCDR
    exten => s,18,GotoIf($[${fetchid}=1]?s-OK,1)
    exten => s,19,NoCDR
    exten => s,20,Playback(vm-incorrect,noanswer)
    exten => s,21,Playback(please-try-again)
    exten => s,22,Goto(s,1)
    ;exten => s,23,Congestion(10)
    exten => s-OK,1,NoOp()


    exten => s-BARRED,1,NoCDR
    exten => s-BARRED,2,Wait(0.3)
    exten => s-BARRED,3,Playback(access-denied)
    exten => s-BARRED,4,Hangup



        exten => s-AutoMagic,1,Playback(auth-thankyou)
        exten => s-AutoMagic,2,Wait(0.5)
        exten => s-AutoMagic,3,Set(CONNECTEDLINE(number,i)=1234567)
        exten => s-AutoMagic,n,Set(UID=${STRFTIME(${EPOCH},GMT+2,%C%y%m%d%H%M%S)})
        exten => s-AutoMagic,n,NoOp(${UID})
        exten => s-AutoMagic,n,Set(CONNECTEDLINE(name,i)=${UID})
        exten => s-AutoMagic,n,Set(CDR(reference)=${UID}-${DIALED})
        exten => s-AutoMagic,n,Set(CONNECTEDLINE(pres)=allowed)
        exten => s-AutoMagic,n,MixMonitor(${UID}-${DIALED}.wav)
        exten => s-AutoMagic,n,Dial(SIP/Automagic/${DIALED},tT)
        exten => s-AutoMagic,n,StopMonitor()
        exten => s-AutoMagic,n,Playtones(busy)
        exten => s-AutoMagic,n,Busy(10)
        exten => s-AutoMagic,n,Hangup()