El Viernes, 08 de Julio de 2005 14:43, Abejo escribió:
> Hola que tal, quería saber si hay algún CallerID para linux, la idea
> seria que funcione como servicio, para tener un log de las llamadas
> entrantes, y que cuando estoy logueado con algún usuario me muestre el
> numero de llamada entrante

Yo tengo un script en perl (hecho por mí...), sirve para Linux/Windows/etc. 
que:

- Abre el puerto serial
- Envía los comandos necesarios (ATxxx) para habilitar el modo Caller ID.
- Espera que alguien llame indefinidamente (hasta que alguien le dé Ctrl+C o 
reciba un kill).
- Si alguien llama, parsea el string que recibe buscando el NMBR  (aunque 
descarta la fecha y hora, que también viene, por ejemplo).
- Posteriormente lo imprime en la pantalla.

Falta en el programa verificar si el modem instalado soporta Caller ID (asume 
de que sí, pero me parece que no da error si no hay). Te das cuenta que un 
modem no soporta CID porque devuelve ERROR al tirarle el comando AT#CID=1. Si 
lo soporta, devuelve OK.

Todo esto lo podés probar primero con minicom (o hyperterminal en windows).

Me imagino que si lo corrés con & funca como servicio de una, pero vas a 
necesitar modificarlo para que haga algo que te venga bien con el número 
obtenido en vez de imprimir a la consola.

Necesitás bajarte de la CPAN el módulo Device::Modem. Este depende solamente 
de Device::SerialPort, pero en windows es tanto como hacer un ppm install  ya 
que en CPAN está como dependencia y en debian es un apt-get install 
libdevice-serialport-perl, y despues bajarte el .pm de Device::Modem y 
ponerlo en /usr/lib/perl/version_perl/

Cualquier cosa, si te sirve y tenés dudas, preguntá. :-D
Es un programita que nunca salió del testeo primario, pero funciona en 
cualquier modem que soporte CID (por lo gral los externos y algunos 
internos).

Saludos!
Marcelo
-- 
Marcelo F. Fernández
Buenos Aires, Argentina
Analista de Sistemas - CCNA

E-Mail: [EMAIL PROTECTED]
Jabber ID: [EMAIL PROTECTED]
Public Key ID: 5C990A6C 111C3661

Attachment: CallerID.pl
Description: Perl program

Attachment: pgpPNob76WLvq.pgp
Description: PGP signature

-- 
Para desuscribirte tenés que visitar la página
https://listas.linux.org.ar/mailman/listinfo/lugar-gral/

/* Publica y encontra trabajo relacionado con softlibre en 
http://www.usla.org.ar/modules/jobs/ */

Si tenés algún inconveniente o consulta escribí a mailto:[EMAIL PROTECTED]

Responder a