Poe :: Composant :: Téléphonie :: CTPORT Programmation de téléphonie non bloquante à Perl
Télécharger maintenant

Poe :: Composant :: Téléphonie :: CTPORT Classement & Résumé

Poe :: Composant :: Téléphonie :: CTPORT Mots clés

Module Perl perl téléphonie non bloquant Téléphonie non bloquante programmation téléphonie

Poe :: Composant :: Téléphonie :: CTPORT La description

Programmation de téléphonie non bloquante à Perl Poe :: Composant :: Téléphonie :: CTPort est une programmation de téléphonie non bloquante à Perl.Synopsis Utilisez PoE QW (Compoent :: Téléphonie :: CTPORT); Poe :: session-> créer (inline_states => {_start => sous {my $ kernel = $ _ ; poe :: composant :: Téléphonie :: ctport-> spawn ({alias => 'ctport', port => 1,}); $ kernel-> post (ctport => 'Connect');}, connecté => Sub {My $ My $ Kernel = $ _ ; Imprimer "connecté à ctserver sur le port 1 ";}, entrée => sous {mon ($ my ($ kernel, $ in) = @_ ; Tous les événements sont envoyés ici, c'est une bonne vue # pour utiliser des données :: Dumper si ($ in- > {RLY} EQ 'Bague') {$ Kernel-> Rendement (Ring => $ in);}}, Ring => Sub {My $ My $ Kernel = $ _ ; # Pick up Téléphone $ Kernel-> Post (CTPPORT => 'OFF_HOOK'); # JOUER BEEP $ KERNEL-> POST (CTPORT => PLAY => 'BEEP'); # Enregistrement $ Kernel-> Publier (record => # dans ce fichier 'Invite. WAV ', # pendant 15 secondes 15, # ou jusqu'à ce qu'ils touchent #' # '#', # ou 3 secondes de silence 3,); # Joue-le vers eux jusqu'à ce que Kernel-> Publier (CTPORT => PLAY => 'PLAY =>' WAV '); # jouer 3 bips $ Kernel-> Post (CTPORT => Play => Bip Beep Beep'); # Hangup $ Kernel-> Post (CTPORD => Arrêt de Kernel - Post (CTPORT => 'Deconnect'); $ Kernel-> Post (CTPORT => 'Shutdown');},}); exigences: · Perl

Poe :: Composant :: Téléphonie :: CTPORT Logiciels associés