Bueno una empresa me pidió que le haga un sistema para recibir notificaciones si el servidor de correo cae. Lo que se le puede ocurrir a todo el mundo es usar un telnet y monitorear el servicio, pero cosa de descartar problema de DNS, espacio en disco y demás cosas hice un daemon un poco más complejo.
La idea es:
+ Enviar un correo y revisar si lo recibimos desde otro servidor al nuestro.
+ Luego al revés, o sea, enviar un correo desde nuestro servidor al servidor de control a ver si llega.
Si en ambos casos llegar, todo perfecto, si no envía notificaciones push a una lista de iphones. Más sencillo imposible, y más útil tampoco :P.
Posts Tagged ‘perl’
Mail alerts con pushOver
Wednesday, January 16th, 2013Perl script para calcular el page rank
Friday, January 29th, 2010Hola gente acá les dejo un script de perl muy bueno para evaluar el page rank de un sitio.
Cortesía de John Walker un abrazo para el.
Yo lo uso para probar el pagerank de todos los dominios hosteados en mi servidor plesk y así sugerir intercambio de links 😉
Les dejo mi línea de comandos.
for i in $(ls -1 /home/www/vhosts/); do echo $i; ./page_rank.pl “http://www.$i”; done;
Espero les sirva, saludos.
(more…)
Indexar pdfs y words a myqsl
Thursday, December 17th, 2009Esto está buenísimo, la idea de estos scripts es indexar el contenido de pdfs y docs en una base de datos mysql para su posterior búsqueda. Si bien es medio rebuscado está bueno en muchas situaciones y lo publico porque no creo que haya mucho de esto en internet.
php print_r en perl
Wednesday, December 9th, 2009A veces para depurar es muy util usar Data::Dumper para ver el estado de un objeto, su uso es muy sencillo y similar al print_r de PHP.