Facilidade de cadeado para Asterisk versões 1.4, 1.6 e 1.8 escrita em AEL.

extensions_cadeado.ael

context cadeado {
    *55 => {
        Answer();
        Wait(1);
        Set(Pass=${DB(Senha/${CALLERID(num)})});
        Authenticate(${Pass},d);
        Set(DB(Cadeado/${CALLERID(num)})=1);
        Playback(cadeado-ativo);
    }
    *56 => {
        Answer();
        Wait(1);
        Set(Pass=${DB(Senha/${CALLERID(num)})});
        Authenticate(${Pass},d);
        Set(DB(Cadeado/${CALLERID(num)})=0);
        Playback(cadeado-desativo);
    }
    *57 => {
        Answer();
        Wait(1);
        Set(Pass=${DB(Senha/${CALLERID(num)})});
        Authenticate(${Pass},d);
        Playback(digite-nova-senha);
        Read(NovaSenha,,4,,,);
        Set(DB(Senha/${CALLERID(num)})=${NovaSenha});
        Playback(senha-modificada);
    }
    h => {
        Hangup();
    }
}

context saida-de-ligacoes {
    _X. => {
        if( "${DB(Cadeado/${CALLERID(num)})}" = "0" ) {
            Dial(......);
        } else {
            Playback(cadeado-ativo);
        }
    }
    h => {
        Hangup();
    }
}