| Poe :: Componente :: Telefonia :: CTPT Programação de telefonia sem bloqueio em Perl |
Baixe Agora |
Poe :: Componente :: Telefonia :: CTPT Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- David Davis
- Site do editor:
- http://search.cpan.org/~xantus/POE-Component-Proxy-MSN-0.02/lib/POE/Component/Proxy/MSN.pm
Poe :: Componente :: Telefonia :: CTPT Tag
Poe :: Componente :: Telefonia :: CTPT Descrição
Programação de telefonia sem bloqueio em perl Poe :: Componente :: Telefonia :: CTPT é uma programação de telefonia sem bloqueio em Perl.synopsis Use PoE QW (Compoent :: Telefonia :: CTPT); Poe :: Session-> Criar (Inline_States => {{_start => sub {my $ kernel = $ _ ; poe :: componente :: telefonia :: ctport-> spawn ({alias => 'ctport', porto => 1,}); $ kernel-> post (ctport => 'conectar');}, conectado => sub {my $ kernel = $ _ ; Imprimir "conectado ao CTServer na porta 1 ";}, entrada => sub {my ($ kernel, $ in) = @_ ; # Todos os eventos são enviados aqui, este é um bom # local para usar dados :: dumper se ($ in- > {rly} eq 'anel') {$ kernel-> rendimento (ring => $ in);}}, anel => sub {my $ kernel = $ _ ; # pegar telefone $ kernel-> post (ctport => 'off_hook'); # Play beep $ kernel-> post (ctport => play => 'beep'); # gravar $ kernel-> post (ctport => gravação => # para o prompt deste arquivo '. wav ', # por 15 segundos 15, # ou até que eles atinjam #' # ', # ou 3 segundos de silêncio 3,); # reproduzi-lo de volta para eles $ kernel-> post (ctport => play => play => wav '); # Jogar 3 bips $ kernel-> post (ctport => play =>' beep beep beep '); # Hangup $ kernel-> post (ctport =>' on_hook '); # shutdown $ kernel-> post (ctport => 'desconexão'); $ kernel-> post (ctport => 'desligamento');},}); requisitos: · Perl.
Poe :: Componente :: Telefonia :: CTPT Software Relacionado