Comment puis-je obtenir l'extension saisie par l'utilisateur dans un script Perl AGI?

Question

Je suis nouveau à la programmation Asterisk AGI. Im essayant de créer un IVR simple, en utilisant asterisk-perl, où un utilisateur peut saisir toute extension de 1 à 4. Voici mon code à ce jour:

use Asterisk::AGI; 

$AGI = new Asterisk::AGI; 

for($i = 0 ; $i < 2 ; $i++) 
{ 
    $AGI->exec('Playback','welcome'); 

    $AGI->exec('WaitExten','5|m'); 


} 

Maintenant, je veux savoir l'extension entré par l'utilisateur et de prendre une action en conséquence. Comment obtenir l'extension entrée par l'utilisateur?

Merci.

Answer 1

Bien que la commande WaitExten change l'utilisateur à une nouvelle extension, je suppose que vous pouvez lire la variable spéciale ${EXTEN} après avoir appelé WaitExten. Je ne suis pas familier avec Asterisk :: Perl, j'ai seulement utilisé FastAGI depuis Java, donc je ne connais pas la commande exacte, mais il doit y avoir une commande pour lire la valeur d'une variable.

Answer 2

Je crois que vous voulez utiliser get_data, vous permettant de jouer un fichier, puis attendez un moment donné pour un nombre donné de chiffres, par exemple:

AGI- $> get_data («demo-bienvenue, 15000, 5);

Voir here