POE :: Component :: الاتصال الهاتفي :: CTPORT برمجة الاتصال الهاتفي بدون حظر في بيرل
التحميل الان

POE :: Component :: الاتصال الهاتفي :: CTPORT الترتيب والملخص

POE :: Component :: الاتصال الهاتفي :: CTPORT العلامات

الوحدة النمطية بيرل بيرل الهاتف عدم الحظر غير مؤمن الهاتفية البرمجة الهاتفية

POE :: Component :: الاتصال الهاتفي :: CTPORT وصف

غير حظر البرمجة الهاتفية في بيرل POE :: Component :: Telephony :: CTPORT هي برمجة هاتفية غير حظر في Perl.synopsis استخدم PoE QW (Compoent :: Telephony :: CTPORT)؛ poe :: session-> إنشاء (inline_states => {_start => sub {my kernel = $ _ ؛ poe :: component :: الاتصال الهاتفي :: ctport-> spawn ({{{{alias => ctport '، port => 1،})؛ $ kernel-> المشاركة (ctport => 'connect')؛}، متصل => sub {kernel $ = $ _ _ ؛ طباعة "متصلة ب ctserver على المنفذ 1 "؛}، الإدخال => SUB {My (Kernel $ Cernel، $ في) =_ ؛ # يتم إرسال جميع الأحداث هنا، وهذا هو بقعة # جيدة لاستخدام البيانات :: domper إذا ($ > {rly} eq 'ring') {$ kernel-> ground (ring => $ in)؛}}، ring => sub {بلدي kernel $ = $ _ ؛ # التقاط الهاتف $ kernel-> المشاركة (ctport => 'off_hook')؛ # العب Beep $ kernel-> post (ctport => play => 'beep')؛ # سجل $ kernel-> post (ctport => سجل => # إلى هذا الملف " WAV '، # لمدة 15 ثانية 15، # أو حتى تصل إلى #' # أو # أو 3 ثوان من الصمت 3،)؛ # لعبها مرة أخرى إليهم $ kernel-> post (ctport => play => موجه = "موجه. WAV ')؛ # لعب 3 صفاريات $ kernel-> post (ctport => play =>' beep صوتها صوت الزمارة ")؛ # hangup $ kernel-> post (ctport => 'on_hook')؛ # اغلاق $ kernel-> المشاركة (ctport => 'disconnect')؛ $ kernel-> المشاركة (ctport => "إيقاف التشغيل")؛}،})؛ المتطلبات: perl.

POE :: Component :: الاتصال الهاتفي :: CTPORT برامج ذات صلة