كيف يمكنني توجيه مكالمة النجمة الحالية في AGI باستخدام Perl؟

Question

لدي PBX المستند إلى النجمة ، وقد تمكنت من تشغيل برنامج نصي AGI بنجاح من لوحة التحكم في الويب في PBX.

لأنني أتصل بـ Agi من Perl (لا أعرف أي منهما ، حتى الآن) ...
تبدو أوامر النجمة هكذا:

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

حتى الآن ، لا أتوقع أن أحتاج إلى إجراء أي بحث عن قاعدة بيانات ، وما إلى ذلك. أريد ببساطة تعيين معرف المتصل (الذي يمكنني القيام به بالفعل) - ثم إعادة توجيه المكالمة إلى رقم معين.

هل يمكن لأي شخص أن يوضح لي كيفية إعادة توجيه المكالمة الحالية باستخدام نمط AGI/Perl لتنفيذ أوامر النجمة الموضحة أعلاه؟

لمعلوماتك: لقد رأيت بعض الأمثلة باستخدام تنسيق مثل:

    Exten => blah blah....

لكنني لست متأكدًا من كيفية تحويل ذلك إلى تنسيق AGI/Perl.

Answer 1

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

أو ، إذا كنت تستخدم Asterisk::AGI,

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