Poe :: Componente :: Telefonia :: ctport

Programmazione telefonica non bloccante in Perl
Scarica ora

Poe :: Componente :: Telefonia :: ctport Classifica e riepilogo

Annuncio pubblicitario

  • Rating:
  • Licenza:
  • Perl Artistic License
  • Prezzo:
  • FREE
  • Nome editore:
  • David Davis
  • Sito web dell'editore:
  • http://search.cpan.org/~xantus/POE-Component-Proxy-MSN-0.02/lib/POE/Component/Proxy/MSN.pm

Poe :: Componente :: Telefonia :: ctport Tag


Poe :: Componente :: Telefonia :: ctport Descrizione

Programmazione della telefonia non bloccante in Perl POE :: Componente :: Telefonia :: CTPORT è una programmazione di telefonia non bloccante in Perl.Synopsis utilizza POE QW QW (Compoent :: Telefonia :: ctport); Poe :: sessione-> Crea (inline_states => {_start => sub {my $ kernel = $ _ ; poe :: componente :: Telefonia :: ctport-> spawn ({alias => 'ctport', porto => 1,}); $ kernel-> post (ctport => 'connect');}, connesso => sub {my $ kernel = $ _ ; stampa "collegato a ctserver sulla porta 1 ";}, input => sub {my ($ kernel, $ in) = @_ ; # Tutti gli eventi vengono inviati qui, questo è un buon posto per utilizzare i dati :: dumper se ($ > {rly} eq 'ring') {$ kernel-> resa (anello => $ in);}}, anello => sub {my $ kernel = $ _ ; # pick up telefono $ kernel-> post (ctport => 'off_hook'); # PLAY BEEP $ Kernel-> Posta (CTport => Play => 'beep'); # record $ kernel-> post (ctport => record => # a questo file 'prompt. wav ', # per 15 secondi 15, # o finché non colpiscono # "#", # o 3 secondi di silenzio 3,); # riproducilo a loro $ kernel-> post (ctport => play =>' prompt. wav '); # Play 3 Beep $ kernel-> post (ctport => play =>' beep beep beep '); # hangup $ kernel-> post (cTport =>' on_hook '); # shutdown $ kernel-> post (ctport => 'disconnect'); $ kernel-> post (ctport => 'shutdown');},}); requisiti: · Perl.


Poe :: Componente :: Telefonia :: ctport Software correlato

Chi siamo