Poe :: Componente :: Telefonía :: CTPORT

Programación de telefonía no bloqueada en Perl
Descargar ahora

Poe :: Componente :: Telefonía :: CTPORT Clasificación y resumen

Anuncio publicitario

  • Rating:
  • Licencia:
  • Perl Artistic License
  • Precio:
  • FREE
  • Nombre del editor:
  • David Davis
  • Sitio web del editor:
  • http://search.cpan.org/~xantus/POE-Component-Proxy-MSN-0.02/lib/POE/Component/Proxy/MSN.pm

Poe :: Componente :: Telefonía :: CTPORT Etiquetas


Poe :: Componente :: Telefonía :: CTPORT Descripción

Programación de telefonía no bloqueada en Perl PoE :: Componente :: Telefonía :: CTPORT es una programación de telefonía que no bloquea en Perl.Synopsis Use Poe QW (Component :: Telefonía :: CTPORT); PoE :: Session-> Crear (inline_states => {_start => sub {My $ kernel = $ _ ; poe :: componente :: telefonía :: cTort-> Spawn ({alias => 'ctport', puerto => 1,}); $ kernel-> POST (CTPORT => 'Conectar');}, conectado => sub {My $ Kernel = $ _ ; Imprimir "conectado a CTSERVER en el puerto 1 ";}, entrada => sub {my ($ kernel, $ in) = @_ ; # Todos los eventos se envían aquí, este es un buen # spot para usar datos :: Dumper si ($ IN- > {rly} eq 'anillo') {$ kernel-> rendimiento (anillo => $ in);}}, anillo => sub {mis $ kernel = $ _ ; # recoger teléfono $ kernel-> publicar (CTPORT => 'OFF_HOOK'); # Play Beep $ Kernel-> Post (CTPort => Play => 'Step'); # registro $ kernel-> POST (CTPORT => registro => # # a este archivo '. wav ', # durante 15 segundos 15, # o hasta que golpean #' # ', # o 3 segundos de silencio 3,); # Reproduzcas a ellos $ kernel-> Post (CTPORT => PLAY =>' Preguntar. wav '); # Play 3 pitidos $ kernel-> Post (ctport => play =>' beep beep pitido '); # hangup $ kernel-> poste (ctport =>' on_hook '); # apagado $ kernel-> publicar (CTPORT => 'desconectar'); $ kernel-> POST (CTPORT => 'apagado');},}); Requisitos: · Perl


Poe :: Componente :: Telefonía :: CTPORT Software relacionado

Sobre nosotros