Re: [Ayuda] [OT] consulta sobre sistema de mensajes.

[Gunnar Wolf <gwolf en gwolf cx>]

Ing. Salvador Fernández dijo [Tue, Jul 01, 2003 at 05:24:31PM -0500]:
> Hace unas semanas programe unos scripts
> para mandar un mensaje electronico desde
> mi servidor a un iusacell y un telcel;
> hoy me doy cuenta que telcel ha modificado
> su forma de enviar mensajes colocando una
> cookie+session previa haciendo dificil el
> generar un script que pueda emular eso.
> 
> Alguien conoce de un buen sistema de bipers
> que den buen servicio y que no pongan trabas
> a sus usuarios para su uso como sistemas de
> monitoreo?.

Pos... Ni idea, no conozco ninguno que ofrezca una interfaz limpia SOAP
o similar... Sin embargo, te propongo una solución: ¿Puedes programar tu
enviador en Perl? Si sí, usa el módulo LWP::UserAgent. Puedes indicarle
que use un 'cookie_jar' (que incluso puede ser el mismo de tu Mozilla). 

Si es un cookie de sesión tal vez tengas que hacer dos llamadas a la
BD... Te pongo un poco de código ejemplo, debe ser muy similar:

------------------------------------------
#!/usr/bin/perl -wT
use strict;
use LWP::UserAgent;
my ($texto, $tel, $ua, $ret);

$texto = 'Aca va la notificacion';
$tel = 12345678;

$ua = LWP::UserAgent->new(agent => 'SFB/1.0');

# Claro, usa un mejor mecanismo que el mío para designar a
# tu cookie jar
$ua->cookie_jar({file => '/tmp/SFB_Pager_Cookies'});

$ret = $ua->post('http://www.server.com/genera_sesion', {telef => $tel}); 

if (not $ret->is_sucess) {
    print join(' ','Error solicitando galleta en',$ret->request->uri,":\n",$ret->status_line);
    exit 0;
}

$ret = $ua->post('http://www.server.com/manda_mensaje', {mensaje => $texto});

if (not $ret->is_success) {
    print join(' ','Error enviando mensaje en',$ret->request->uri,":\n",$ret->status_line);
}

------------------------------------------

No garantizo nada ;-)

-- 
Gunnar Wolf - gwolf en gwolf cx - (+52-55)5630-9700 ext. 1366
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF
_______________________________________________
Ayuda mailing list
Ayuda en linux org mx
Para salir de la lista: http://mail.linux.org.mx/mailman/listinfo/ayuda/