Añadiendo una firma a los correos que envíe

August 18, 2006 at 20:05 · Filed under Output, Shell scripting

Una de las cosas que se pueden hacer por la tarde:

#!/bin/bash

ruta=/home/fulano/firmas-correo

firmar()
{

echo -n “” > $1;
#echo “–” >> $1; Esto ya lo pone el thunderbird él solo
#Sacar la frase aqui
cat $1.0 >> $1;

}

for fichero in $ruta/*@*[^0];

do firmar $fichero ;

done;

Mozilla Thunderbird, por cada correo que envía se puede configurar para incluya al final del mismo, él sólo, el contenido de un fichero, precediendo el contenido por dos guiones ‘–’ .

Al abrir el cuadro de escribir mensaje, ya directamente aparece en el widget para escribir el cuerpo del mensaje:

–

< contenido del fichero>

Bien, mi idea es que cada una de las direcciones de correo que uso tenga su propio fichero con su contenido, llamado $ruta/, p.ej.: /home/fulano/firmas-correo/perki_pat3@yahoo.es. Ese fichero será el que usará Thunderbird.

Lo que me interesa es que el contenido de ese fichero cambie. Para empezar el script de arriba lo que hace es, por cada fichero del directorio /home/fulano/firmas-correo/ cuyo nombre no acabe en 0, escribe en él el contenido de un fichero de igual nombre, pero acabado en .0, y contenido en el mismo directorio. La intención es que justo antes de incluir lo de este último fichero, se incluya una cita, o alguna frase ingeniosa o algo de ascii-art. Una posibilidad es tirar de fortunes. Para que el fichero que incluye Thunderbird cambie, o bien se ejecuta manualmente, o bien, con un cron: 07 * * * * ruta_al_script (en el minuto 07 de cada hora de cada día lo ejecuta, cambiando una vez a la hora).

Pero lo que me gustaría de verdad es montar (o encontrar) una base de datos, que vía web me supla de frases, de forma que un `wget < ...> -O -` arregle el asunto. Bash.org no me hace la faena, y wikiquotes tampoco. Así que tendré que hacer una base de datos que guarde las quotes clasificadas de alguna forma, y un CGI que las lea y las devuelva en distintos formatos (para esto me interesaría texto plano, pero en una aplicación web a lo mejor interesa XML). Y además que permita incluir nuevas quotes. Si sacara algo de tiempo para leer y practicar algo de desarrollo web pues… estaría bien.

Comments

Recopilando los Bruce Schneier Facts

August 18, 2006 at 14:00 · Filed under Output, Perl

Anoche, tras ver la noticia en meneame hice un script en perl, que con un poquito de bash scripting sirveron para recopilar los más de 100 facts sobre Bruce Schneier, que había en ese momento. Aquí va todo el material:

Orden para ejecutarlo:

pepito@grillo ~$ while [ 1 ]; do wget http://geekz.co.uk/schneierfacts/ -O – 2>/dev/null| ./doo.pl; sleep 10; done;

(se deja un rato, y Ctrl-C)

pepito@grillo ~$

Script en perl (¡guardadlo con permisos de ejecución!) y todas las frases.
Si abrís el archivo y os fijáis, todas acaban en #. De todas las peticiones que se hicieron, es el número de ellas en la que la frase ya estaba en la base de datos. Así, #12 indica que de todas las peticiones se recibieron 12 con esa frase, #1 que se recibió esa frase sólo una vez (creo que no hay ninguna de 1, de 2 hay una, de 3 hay tres, apañaos con grep \#$ frases.txt para saber cuántas líneas acaban en #) . Guardé ese dato para rayarme con el generador de números aleatorios que usa el servidor (la implementación de php). Si lo hago ya lo contaré. Se elimina con sed s/\#[0-9][0-9]//g bruce.db | sed s/\#[0-9]//g -, igualmente las entidades XML tal como ” se reemplazan por su versión texto con secuencias como sed s/\&quot\;/\”/g bruce.db
Por ahora nada más, cuando tenga algo más interesante que contar lo pondré por aquí

Comments