Come faccio a inoltrare la chiamata Asterisk attuale AGI utilizzando Perl?

Question

Ho un PBX basato su Asterisk, e sono stato in grado di eseguire con successo uno script AGI dal pannello di controllo web del PBX.

Perché io chiamo AGI da Perl (nessuno dei quali so, ancora) ...
comandi asterisco simile a questa:

    print "SET CALLERID $newcid \"\"\n";

Finora, non mi aspetto ad avere bisogno di fare qualsiasi ricerche nei database, ecc voglio semplicemente impostare l'identificativo del chiamante (che posso fare già) -. Poi inoltrare la chiamata a un numero particolare

Qualcuno mi può mostrare come inoltrare la chiamata corrente utilizzando lo stile AGI / perl di esecuzione di comandi asterisco mostrato sopra?

FYI: Ho visto alcuni esempi che utilizzano un formato simile:

    Exten => blah blah....

Ma, io non sono sicuro di come convertire che nel formato AGI / perl.

Answer 1

print "EXEC DIAL \"Zap/1/5551234567\"\n";

o, se si utilizza Asterisk::AGI ,

$AGI->exec("DIAL", "Zap/1/5551234567");