पर्ल एजीआई के साथ एस्टरिस्क के लिए वॉयस ट्री

शुभ दोपहर, प्रिय पाठकों।

मैं पर्ल एजीआई का उपयोग करके तारांकन के लिए एक आवाज मेनू बनाने के अपने उदाहरण को साझा करना चाहता हूं।

अपने हाथों से एस्टरिस्क पर वॉयस ट्री लेख पढ़ने के बाद, मैंने इस लेख में प्रस्तावित वॉयस मेनू को लागू करने की विधि पर कुछ टिप्पणियां की थीं।
मेरी मुख्य शिकायत यह है कि कॉलर को मेनू को अंत तक सुनने के लिए मजबूर किया जाता है, और उसके बाद ही हम उसे प्रस्तावित कुंजियों में से एक को दबाने देंगे। अगर वह गलत कुंजी दबाकर गलती करता है, तो उसे फिर से मेनू सुनना होगा।
यह मुझे लगता है कि ग्राहक जल्दी से ऊब जाएगा।

इसके अलावा, जो लोग पहले से ही कर्मचारी की आंतरिक संख्या जानते हैं, वे अक्सर कंपनी को फोन करते हैं। वॉयस मेनू के अंत की प्रतीक्षा किए बिना उन्हें नंबर डायल करने का अवसर देना आवश्यक है।

इसके अलावा, सचिव को बुलाने के लिए शून्य कुंजी को दबा देना लगभग मानक है।
यदि ग्राहक मेनू नहीं सुनना चाहता है, लेकिन सचिव से तुरंत बात करना चाहता है - मुझे लगता है कि हम उसे अनुमति दे सकते हैं।

बाकी का वर्णन मैं उपरोक्त उदाहरण में करूंगा।


मेरा Asterisk FreeBSD पर चलता है। इसलिए, भविष्य में मैं जिन रास्तों को इंगित करूँगा, वे आपसे भिन्न हो सकते हैं।

मुझे लगता है कि आपके पास पहले से ही तारांकन चिह्न स्थापित है।
आपको पर्ल और एस्टेरिस्क मॉड्यूल स्थापित करने की भी आवश्यकता होगी: एजीआई

मैं लंबे समय से यहां स्थापना का वर्णन करना शुरू नहीं कर रहा हूं, मैं सिर्फ इतना जोड़ता हूं कि अगर पर्ल पहले से स्थापित है, तो तारांकन चिह्न: एजीआई एक कमांड के साथ स्थापित किया गया है:

cpan -i Asterisk:AGI 

फिर हम इसे अपनी स्क्रिप्ट में उपयोग कर सकते हैं।

तो, यहाँ तारांकन विन्यास फाइल के टुकड़े हैं:
extensions.conf

 [default] exten => 84951223344,1,Macro(call-in,${EXTEN}) ;      call-in exten => _X.,1,Hangup ; 

मैं कनेक्ट करने से पहले एक इनकमिंग कॉल को संसाधित करने के लिए मैक्रो का उपयोग करता हूं। आप इसके बिना कर सकते हैं।

 [macro-call-in] exten => s,1(agi),AGI(ivr.pl) ;       Perl-. 

/usr/local/share/asterisk/agi-bin/ivr.pl

 #!/usr/bin/perl use Asterisk::AGI; $AGI = new Asterisk::AGI; %input = $AGI->ReadParse(); $timeout = 1300; #    .   . #         . #    $AGI->answer(); #        #     $key1 = $AGI->stream_file(["ivr"], "0123456789"); #   ,     . #    ,  *  # (     ). $key2 = $AGI->wait_for_digit($timeout); $key3 = $AGI->wait_for_digit($timeout); $key4 = $AGI->wait_for_digit($timeout); #     (     ). $num = join ('', chr($key1), chr($key2), chr($key3), chr($key4)); #     ,    . #    ,   . $num = $num + 0; #      . if ( $key1 == 0 ) { $num = 0 } #      ,     ,    . #   . #     Asterisk (  ). $AGI->verbose("IVR number is $num"); #     -     . if (length($num) = 4) { $AGI->exec("Macro","call-local,Local/$num\@office"); #       office.   call-local .  $AGI->hangup(); } #     ,    . #       ,     . elsif (length($num) > 1) { $num = 0; } #      if ($num == 0) { $AGI->exec("Macro", "operator"); } if ($num == 1) { $AGI->exec("Macro", "sale"); } if ($num == 2) { $AGI->exec("Macro", "accounting"); } if ($num == 3) { $AGI->exec("Macro", "marketing"); } if ($num == 4) { $AGI->exec("Macro", "fax"); } 

इसके बाद, कॉल संबंधित मैक्रोज़ में रूट किए जाते हैं।

मैक्रो उदाहरण:

कॉल मार्केटिंग:
extensions.conf

 [macro-marketing] exten => s,1,Dial(SIP/1008,20,tTm) 

कॉल एक्सटेंशन:
extensions.conf

 [macro-call-local] exten => s,1,Dial(${ARG1},25,tTm) 

वह सब है।

हो सकता है कि प्रस्तावित पद्धति आपको अनावश्यक रूप से जटिल लगे।
हालाँकि, मैं सभी IVR लॉजिक को एक अलग फाइल में रखना पसंद करता हूँ।
इसके अलावा, मेनू को आसानी से पूरक किया जा सकता है, सबमेनस (अतिरिक्त स्क्रिप्ट बनाकर) जोड़ें।

इसके अलावा, मैं कुछ अतिरिक्त लिपियों (मिस्ड कॉल को संसाधित करने, मोबाइल को अग्रेषित करने आदि) के लिए एजीआई का उपयोग करता हूं, इसलिए मेरे लिए वॉयस मेनू के लिए इसका उपयोग करना सुविधाजनक था।

आपका ध्यान देने के लिए धन्यवाद।