Re: [Sop.Tec.LinuxPPP] Del Puerto Serial a Base de Datos.

["Edgar" <jevb en excite com>]

Te mando un script en perl, segun yo es la mejor solucion.

Checalo a ver si te sirve.

Saludos !!!






 --- On Thu 01/30, =?iso-8859-1?q?Carlos=20Miranda?= < c9025741 en yahoo com > wrote:
From: =?iso-8859-1?q?Carlos=20Miranda?= [mailto: c9025741 en yahoo com]
To: linux en linuxppp net
Date: Thu, 30 Jan 2003 15:48:19 -0600 (CST)
Subject: Re: [Sop.Tec.LinuxPPP] Del Puerto Serial a Base de Datos.

Hola, yo me encuentro en la misma situación que Edgar,
estoy a punto de iniciar la captura de los datos que
suelta el PBX pero estoy tratando de que sea algo que
pueda ser confiable y que pueda en adelante consultar
o desmenuzar con algún programita, qué mas
recomiendan?

Saludos,
Juan Carlos M.

 --- Sergio Vergara Ganado
<svergara en telereunion com mx> escribió: > Primero
checa con minicom la comunicacion entre el
> puerto serial de PBX
> con el puerto serial de la PC (o lo que tengas).
> Cuando veas que envia
> informacion puedes hacer un programa en C para que
> este cachando todo lo
> que pasa por el puerto serial del PC. Otra forma de
> cachar lo que se
> encuentra en el puerto serial del PC es ejecutar
> algo como esto:
> cat /dev/ttyS1 > /home/info/pbx.txt
> Este metodo no es de lo mas recomendable, yo diria
> que es un Bill Gates
> (al ahi se va) pero te funciona de entrada en lo que
> tienes el programa
> en C o en perl.
> Ya teniendo toda la informacion en el archivo la
> analizas para checar
> sus campos y de ahi unicamente formateas y suber la
> informacion a la DB.
> Realmente no necesitas PHP para manejar la
> informacion.
> 
> Espero esto te ayude. Recuerdo que tenia por ahi el
> programa en C para
> estar escuchando el puerto, pero no recuerdo donde
> lo deje. Si lo
> encuentro te lo envio a tu cuenta personal.
> 
> Estamos en contacto.
> 
> 
> El lun, 27-01-2003 a las 18:15, Edgar escribió:
> > 
> > Que tal a todos!!
> > 
> > Tengo la siguiente situacion:
> > 
> > Una equipo PBX envia informacion valiosa por el
> puerto serial a la computadora que tiene linux.
> Necesito tomar la informacion que llega al puerto
> serial y guardarla en la base de datos. Segun debo
> poner un proceso que lea el puerto serial y guarde a
> un archivo texto/ascii y con php leerlo y guardarlo
> en mysql.  Pero no tengo idea de como hacer ese
> proceso ? Que me aconsejan hacer ? Tienen otra forma
> de hacerlo ? 
> > 
> > Gracias.
> > 
> > Saludos !!
> > 
> > 
> > 
> > _______________________________________________
> > <font size=2 face=geneva><b>Join Excite! - <a
> href=http://www.excite.com
> target=_blank>http://www.excite.com</a></b>
> > The most personalized portal on the Web!</font>
> > -- 
> > Lista de soporte de LinuxPPP
> > Dirección email: Linux en linuxppp net
> > Dirección web:
> http://mail.linuxppp.net/mailman/listinfo/linux
> > Reglas de la lista:
> http://linuxppp.net/reglas.html
> -- 
> Sergio Vergara Ganado
> Coordinador Network Support System
> Telereunion Mexico, Moras #430 Col del Valle
> Tel: 91718737
> ICQ: 75874968
> --------------------------------------------
> "La felicidad no se produce por grandes golpes de
> fortuna, que ocurren
> raras veces, sino por pequeñas ventajas que ocurren
> todos los días."
> -Benjamin Franklin
> 
> -- 
> Lista de soporte de LinuxPPP
> Dirección email: Linux en linuxppp net
> Dirección web:
> http://mail.linuxppp.net/mailman/listinfo/linux
> Reglas de la lista: http://linuxppp.net/reglas.html 

_________________________________________________________
Do You Yahoo!?
Información de Estados Unidos y América Latina, en Yahoo! Noticias.
Visítanos en http://noticias.espanol.yahoo.com
-- 
Lista de soporte de LinuxPPP
Dirección email: Linux en linuxppp net
Dirección web: http://mail.linuxppp.net/mailman/listinfo/linux
Reglas de la lista: http://linuxppp.net/reglas.html


_______________________________________________
<font size=2 face=geneva><b>Join Excite! - <a href=http://www.excite.com target=_blank>http://www.excite.com</a></b>
The most personalized portal on the Web!</font>

#!/usr/bin/perl
#
#
# Author: Bruce S. Garlock
# Date:   2002-09-11
# Requirements: Device::SerialPort 0.12 (from cpan)
#
# Version: 0.1
#
#
# Description:  This perl script is for logging of data from a serial
# port, to a specified logfile.  The logfile can then be parsed with
# other programs for reporting purposes.
# 
# This program was written for specifically logging Multitech's
# MTASR2-203 T1 Router.  The router outputs text to the command
# port with 57.6k, 8-1-N, and No flow control.
#
#
$getdate="/bin/date";


use Device::SerialPort 0.12;

$LOGDIR    = ".";              # path to data file
$LOGFILE   = "router.log";            # file name to output to
$PORT      = "/dev/ttyS0";          # port to watch

#
#
# Serial Settings
#
#

$ob = Device::SerialPort->new ($PORT) || die "Can't Open $PORT: $!";
$ob->baudrate(1200)   || die "failed setting baudrate";
$ob->parity("none")    || die "failed setting parity";
$ob->databits(8)       || die "failed setting databits";
$ob->handshake("none") || die "failed setting handshake";
$ob->write_settings    || die "no settings";

#
# Send a string to the port
#
#

$pass=$ob->write("AT");
sleep 1;

#
# open the logfile, and Port
#

open(LOG,">>${LOGDIR}/${LOGFILE}")
    ||die "can't open smdr file $LOGDIR/$LOGFILE for append: $SUB $!\n";

open(DEV, "<$PORT") 
    || die "Cannot open $PORT: $_";

select(LOG), $| = 1;      # set nonbufferd mode

#
# Loop forver, logging data to the log file
#
while($_ = <DEV>)
{
	#print LOG $_;

	print $_;
}


undef $ob;