How to call asterisk function in perl AGI script?

Question

Is there any possibility to call the asterisk function in perl AGI script like CHANNEL function.

extension.conf

exten => _X.,1,NoOp(${CHANNEL(dahdi_channel)})

above NoOp will print the current call channel no. Same I need in perl AGI script.

Answer 1

If you use perl Asterisk::AGI or fastagi version, you can use

$AGI->get_full_variable('${CHANNEL(dahdi_channel)}');