Provided by: manpages-es-extra_0.8a-19_all 
NOMBRE
procmailex - ejemplos de ficheros de recursos
SINOPSIS
Ejemplos de $HOME/.procmailrc
DESCRIPCIÓN
Para un descripción del formato del fichero de recursos véase procmailrc(5).
La técnica de puntuación de peso se describe en detalle en la página de manual de procmailsc(5).
Esta página de manual muestra varios ejemplos de recetas. Por ejemplo ficheros de recursos completos que
puede comprobar en la sección NOTAS en procmail(1), o mirar a la parte de ejemplos de ficheros de
recursos de la distribución fuente de procmail (procmail*/examples/?procmailrc).
EJEMPLOS
Ordena todo el correo procedente de la lista de correo scuba-dive en la carpeta de correo ficheroscuba
(usa el fichero de bloqueo local scubafile.lock).
:0:
* ^TOscuba
ficheroscuba
Reenvía todo el correo de pedro sobre compiladores a guillermo (y mantiene una copia aquí en petcompil).
:0
* ^From.*pedro
* ^Subject:.*compiladores
{
:0 c
! guillermo@algunsitio.edu
:0
petcompil
}
Una solución equivalente que realiza lo mismo:
:0 c
* ^From.*pedro
* ^Subject:.*compiladores
! guillermo@algunsitio.edu
:0 A
petcompil
Una solución equivalente, pero ligeramente más lenta que realiza lo mismo:
:0 c
* ^From.*pedro
* ^Subject:.*compiladores
!guillermo@somewhere.edu
:0
* ^From.*pedro
* ^Subject:.*compiladores
petcompil
Si vd. es completamente nuevo en procmail y quiere experimentar un poquito, con frecuencia ayuda tener
una red segura de algún tipo. Inserte las dos siguientes recetas sobre todas las otras recetas para estar
seguro de que todo el correo que llega siempre conserva los últimos 32 mensajes. Para que funcione como
se prentende, tiene que crear un directorio llamado `backup' en $MAILDIR antes de insertar estas dos
recetas.
:0 c
backup
:0 ic
| cd backup && rm -f dummy `ls -t msg.* | sed -e 1,32d`
Si su sistema no genera o genera líneas `From' iniciales incorrectas en cada mensaje, puede corregir esto
llamando a procmail con la opción -f- . Para corregir el mismo problema por medios distintos, podría
haber insertado las dos siguientes recetas sobre todas las otras del fichero de recursos. Estas filtrarán
la cabecera de cualquier mensaje mediante formail que elimina cualquier `From' inicial y lo regenera
automáticamente a continuación.
:0 fhw
| formail -I "From " -a "From "
Añade las cabeceras de todos los mensajes que no vienen del postmaster a su colección de cabeceras
privadas (para uso estadístico o depuración de correo); y usa el fichero de bloqueo `headc.lock'. Para
estar seguro de que el fichero de bloqueo no se elimina hasta que la tubería ha finalizado, tendrá que
especificar la opción `w'; en otro caso el fichero de bloqueo sería eliminado tan pronto como la tubería
ha aceptado el correo.
:0 hwc:
* !^FROM_MAILER
| uncompress headc.Z; cat >>headc; compress headc
O, si usara gzip, más eficiente que compress:
:0 hwc:
* !^FROM_MAILER
| gzip >>headc.gz
Reenvía todos los mensajes de menos de 1000 bytes a mi dirección personal (no se necesita fichero de
bloqueo en esta receta).
:0
* < 1000
! myname@home
Divide las recopilaciones de la lista de correo surfing en mensajes individuales y los almacena en
surfing, usando como fichero de bloqueo local surfing.lock.
:0:
* ^Subject:.*surfing.*Digest
| formail +1 -ds >>surfing
Almacena todo lo que llega del postmaster o mailer-daemon (como correo rebotado) en el fichero postm,
usando como fichero de bloqueo local postm.lock.
:0:
* ^FROM_MAILER
postm
Una simple receta de respuesta automática. Se toma la seguridad que ni el correo de cualquier demonio
(como correo rebotado o correo de una lista), ni las respuestas automáticas procedentes de usted mismo
serán respondidas automáticamente. Si no se toma esta precaución, podrían suceder desastres (correo en
anillo). Para que esta receta responda a todo el correo entrante, desde luego, debería insertarla antes
que cualquier otra receta en su fichero de recursos. Sin embargo es aconsejable ponerla tras cualquier
receta que procese los correos de una lista de correo a la que estemos suscritos; generalmente no es
buena idea generar autorespuestas a las lista de correo(sí, la expresión regular !^FROM_DAEMON debería
coger esos, pero si la lista de correo no sigue las convenciones aceptadas, esto podría no ser
suficiente).
:0 h c
* !^FROM_DAEMON
* !^X-Loop: your@own.mail.address
| (formail -r -I"Precedence: junk" \
-A"X-Loop: su_propia@dirección.de.correo" ; \
echo "Mail recibido.") | $SENDMAIL -t
Una receta de autorespuesta más complicada que lleva a cabo funciones equivalentes al bien conocido
programa vacation(1) Esta receta está basada en los mismos principios que la última (previniendo el
correo en `anillo'). Además de eso, sin embargo, mantiene una base de datos vacation extrayendo el nombre
del remitente e insertandolo en el fichero vacation.cache si el nombre es nuevo (el fichero
vacation.cache lo mantiene formail que estará seguro que siempre contiene los nombres más recientes, el
tamaño del fichero está limitado a un máximo de aproximadamente 8192 bytes). Si el nombre es nuevo, se
envía una respuesta automática.
Como puede ver, la siguiente receta tiene comentarios entre las condiciones. Esto está permitido. Sin
embargo no ponga comentarios en la misma línea que una condición.
SHELL=/bin/sh # para otras shells, esto podría necesitar ajustes
:0 Whc: vacation.lock
# Realiza un chequeo rápido para ver si el correo va dirigido a nosotros
* $^To:.*\<$\LOGNAME\>
# No responde a demonios ni a listas de correo
* !^FROM_DAEMON
# Los bucles de correo son un desastre
* !^X-Loop: your@own.mail.address
| formail -rD 8192 vacation.cache
:0 ehc # si el nombre no está en el caché
| (formail -rI"Precedence: junk" \
-A"X-Loop: your@own.mail.address" ; \
echo "He recibido tu correo,"; \
echo "pero no regresaré hasta el lunes."; \
echo "-- "; cat $HOME/.signature \
) | $SENDMAIL -oi -t
Almacena todos los mensajes referentes a TeX en un fichero único separado, en un directorio llamado
texmail (este directorio tiene que existir); no hay necesidad de usar ficheros locales de bloqueo en
este caso, por tanto no lo haremos.
:0
* (^TO|^Subject:.*)TeX[^t]
texmail
Lo mismo que arriba, salvo que ahora almacenamos los mensajes en ficheros numerados (carpeta de correo
MH).
:0
* (^TO|^Subject:.*)TeX[^t]
texmail/.
O podría archivar el correo en varios carpetas directorios a la misma vez. La siguiente receta entregará
el correo a carpetas MH y una carpeta directorio. Actualmente es sólo un fichero con dos enlaces duros
extras.
:0
* (^TO|^Subject:.*)TeX[^t]
texmail/. wordprocessing dtp/.
Almacena todos los mensajes sobre encuentros en una carpeta que está en un directorio que cambia cada
mes. V. g. si fuera Enero de 1994, la carpeta tendría el nombre `94-01/encuentros' y le fichero de
bloqueo local sería `94-01/encuentros.lock'.
:0:
* meeting
`date +%y-%m`/encuentros
Lo mismo que arriba, pero si el directorio `94-01' no existiera, se crearía automáticamente
CARPETAMESUAL=`date +%y-%m`
:0 Wic
* ? test ! -d $CARPETAMESUAL
| mkdir $CARPETAMESUAL
:0:
* encuentro
${CARPETAMESUAL}/encuentro
Lo mismo que arriba, pero con medios ligeramente diferentes:
CARPETAMESUAL=`date +%y-%m`
DUMMY=`test -d $CARPETAMESUAL || mkdir $CARPETAMESUAL`
:0:
* encuentros
${CARPETAMESUAL}/meeting
Si está suscrito a varias listas de correo y la gente envía mesajes cruzados a varias de ellas,
normalmente recibe varios correos duplicados (uno de cada lista). La siguiente receta simple elimina
mensajes duplicados. Le dice a formail que mantenga un fichero cache de 8Kb en el cual se almacenan los
identificadores de mensaje de los correos más reciente que ha recibido. Como se garantiza que los
identificadores de mensaje son únicos para cada mensaje, son ideales para descartar los mensajes
duplicados. Simplemente ponga la siguiente receta al comienzo de su fichero de recursos y ningún mensaje
duplicado logratá pasarla.
:0 Wh: msgid.lock
| formail -D 8192 msgid.cache
Tenga cuidado si tiene problemas de entrega en las recetas debajo de esto y procmail intenta reencolar el
correo, entonces en la próxima ejecución de la cola, este mensaje se considerará duplicado y
seráeliminado. Para quienes quieren seguridad pueden usar la siguiente receta en su lugar. Esta pone los
duplicados en una carpeta separada en lugar de eliminarlos. Esto le obliga a vaciar periódicamente la
carpeta, por supuesto.
:0 Whc: msgid.lock
| formail -D 8192 msgid.cache
:0 a:
duplicates
Procmail puede entregar a carpetas MH directamente, pero no actualiza las secuencias no vistas que el MH
real gestiona. Si quiere que procmail actualice estas también , use una receta como la siguiente que
almacena todo lo que tenga la palabra spam en el cuerpo del mensaje en una carpeta MH llamada spamfold.
Observe que el fichero de bloqueo local, que es necesario porque los progamas MH no bloquean el ficher de
secuencias. Las llamadas asíncronas de los progamas MH que cambian el fichero de secuencias pueden
corromper el fichero o simplemente perder los cambios. Por desgracia, el fichero de bloqueo no resuelve
el problema completamente ya que rcvstore se podría llamar mientras `show' o `mark' u otro programa MH
está en ejecución. El problema se epera corregir en alguna versión futura de MH, pero hasta entonces
tendrá que valorar el riesgo de perder o corromper las secuencias contra lo beneficios de las secuencias
no vistas.
:0 :spamfold/$LOCKEXT
* B ?? spam
| rcvstore +spamfold
Cuando entregue a carpetas emacs (i.e. carpetas de correo gestionadas por cualquier paquete de correo de
emacs, v.g. RMAIL o VM) directamente, debería usar ficheros de bloqueo compatibles con emacs. Los
programas de correo de emacs son un poco descerebrados en ese respecto, se molestan mucho si alguien
entrega a carpetas de correo que ellos ya tienen en sus bufferes internos. La siguiente receta supone que
$HOME es igual a /home/john.
MAILDIR=Mail
:0:/usr/local/lib/emacs/lock/!home!john!Mail!mailbox
* ^Subject:.*loquesea
mailbox
De forma alternativa, puede hacer que procmail entrega en su propio conjunto de carpetas, las cuales se
pueden vaciar periódicamente yu copiarlas sobre sus porpios ficheros emacs usando movemail. Movemail usa
ficheros de bloqueo locales buzón.lock por buzón. Actualmente este es el modo de operación preferido en
conjunción con procmail.
Para extraer ciertas cabeceras de un correo y pponerlas en variables de entorno puede usar cualquiera de
las siguientes construcciones:
SUBJECT=`formail -xSubject:` # campo regular
FROM=`formail -rt -xTo:` # caso especial
:0 h # método alternativo
KEYWORDS=| formail -xKeywords:
Si usa ficheros temporales en un fichero procmailrc, y quieres estar seguro de que se eliminan antes de
que procmail termine, podría usar algo como las líneas de:
TEMPORARY=$HOME/tmp/pmail.$$
TRAP="/bin/rm -f $TEMPORARY"
TRAP se puede usar para modificar el código de salida de procmail. I.e. si quiere que procmail devuelva
un código de salida de `1' en lugar de sus códigos de salida regulares, podría usar:
EXITCODE=""
TRAP="exit 1;" # El punto y coma final es importante.
# ya que exit no es un programa standalone
O, si el código de salida no necesita depender de la ejecución de programas de TRAP, puede usar un
simple:
EXITCODE=1
La siguiente receta imprime cada correo de entrada que se parezca a un fichero postscript.
:0 Bb
* ^^%!
| lpr
La siguiente receta hace lo mismo, pero un poco más selectiva. Sólo imprime el fichero postscript si
viene del servidor de impresión. La primera condición concuerda sólo si se encuentra en la cabecera. La
segunda condición sólo concuerda al comienzo del cuerpo.
:0 b
* ^From[ :].*print-server
* B ?? ^^%!
| lpr
Lo mismo que arriba, pero por unos medios ligeramente diferentes:
:0
* ^From[ :].*print-server
{
:0 B b
* ^^%!
| lpr
}
Igualmente:
:0 HB b
* ^^(.+$)*From[ :].*print-server
* ^^(.+$)*^%!
| lpr
Supongamos que tiene dos cuentas y usa esas dos cuentas regularmente, pero están en lugares distintos
(i.e. sólo podría leer el correo que llega a una de las cuentas). Le gustaría reenviar el correo que
llega a la cuenta uno a la cuenta dos y al contrario. Lo primero que se viene a la mente es usar ficheros
.forward en ambos sitios; esto no funcionará, desde luego, ya que estará creando un bucle de correo. Este
bucle se puede evitar insertando la siguiente receta frente a todas las otras recetas en los
ficheros$HOME/.procmailrc de ambos sitios. Si está seguro que añade el mismo campo X-Loop: en ambos
sitios, el correo se puede reenviar de una cuenta a otra con garantías.
:0 c
* !^X-Loop: yourname@your.main.mail.address
| formail -A "X-Loop: yourname@your.main.mail.address" | \
$SENDMAIL -oi yourname@the.other.account
Si alguien le envía un correo con la palabra `retrieve' en el campo `subject', lo siguiente devolverá
automáticamente el contenido del fichero info_file al remitente. Como en todas las recetas donde enviamos
correo, tenemos que vigilar los bucles de correo.
:0
* !^From +YOUR_USERNAME
* !^Subject:.*Re:
* !^FROM_DAEMON
* ^Subject:.*retrieve
| (formail -r ; cat info_file) | $SENDMAIL -oi -t
A continuación un ejemplo para un simple servidor de ficheros accesible por correo. Para aplicaciones con
mayores exigencias, le sugiero que le eche un vistazo a SmartList (disponible en el mismo lugar que la
distribución de procmail). Como se indica, este servidor de ficheros devuelve sólamente un fichero por
petición, ignora el cuerpo del mensaje recibido, la línea Subject: tiene que parecerse a "Subject: envia
fichero el_fichero_que_quiere" (los espacios en blanco son significativos), no devuelve ficheros que
empiezan por punto ni permite recuperar ficheros que estén fuera del árbol de directorios del servidor de
ficheros (si decide usar este ejemplo, esté seguro de perder esta última restricción por descuido).
:0
* ^Subject: send file [0-9a-z]
* !^X-Loop: yourname@your.main.mail.address
* !^Subject:.*Re:
* !^FROM_DAEMON
* !^Subject: send file .*[/.]\.
{
MAILDIR=$HOME/fileserver # cambiar al directorio del servidor de ficheros
:0 fhw # invierte las cabeceras y extrae el nombre
* ^Subject: send file \/[^ ]*
| formail -rA "X-Loop: yourname@your.main.mail.address"
FILE="$MATCH" # el fichero soliciatado
:0 ah
| cat - ./$FILE 2>&1 | $SENDMAIL -oi -t
}
El siguiente ejemplo pre-convierte todos los correos que llegan en texto simple en cierto formato
codificado MIME en otro formato de 8 bits más compacto que se puede usar y mostrar con más facilidad por
la mayoría de los programas. El programa mimencode(1) es parte del paquete metamail de Nathaniel
Borenstein.
:0
* ^Content-Type: *text/plain
{
:0 fbw
* ^Content-Transfer-Encoding: *quoted-printable
| mimencode -u -q
:0 Afhw
| formail -I "Content-Transfer-Encoding: 8bit"
:0 fbw
* ^Content-Transfer-Encoding: *base64
| mimencode -u -b
:0 Afhw
| formail -I "Content-Transfer-Encoding: 8bit"
}
El siguiente es más bien exótico, pero sólo sirve para demostrar una característica. Suponga que tiene un
fichero en su directorio HOME llamado ".urgent", y la única persona incluida en ese fichero es el
remitente de un correo entrante, y le gustaría que el correo se almacenara en $MAILDIR/urgent en lugar de
cualesquiera de las otras carpetas de correo normales en las que lo habría puesto. Esto es lo que podría
hacer (tenga cuidado con la longitud del fichero de $HOME/.urgent que debería estar por debajo de
$LINEBUF, incremente LINEBUF si es necesario):
URGMATCH=`cat $HOME/.urgent`
:0:
* $^From.*${URGMATCH}
urgent
Una aplicación completamente diferente a procmail aplicaría condicionalmente filtros a ciertos textos o
mensajes (salientes). Un ejemplo típico sería un filtreo a través del cual encauza todo su correo
saliente, para estar seguro que se codificará con MIME sólo si se necesita.
cat newtext | procmail ./mimeconvert | mail chris@where.ever
El fichero de recursos mimeconvert podría contener algo como ( =0x80= y =0xff= se deberían sustituir por
caracteres reales de 8 bits):
DEFAULT=| # tubería a la salida estándar
# de entrega de correo como es normal
:0 Bfbw
* [=0x80=-=0xff=]
| mimencode -q
:0 Afhw
| formail -I 'MIME-Version: 1.0' \
-I 'Content-Type: text/plain; charset=ISO-8859-1' \
-I 'Content-Transfer-Encoding: quoted-printable'
VÉASE TAMBIÉN
procmail(1), procmailrc(5), procmailsc(5), sh(1), csh(1), mail(1), mailx(1), binmail(1), uucp(1),
aliases(5), sendmail(8), egrep(1), grep(1), biff(1), comsat(8), mimencode(1), lockfile(1), formail(1)
AUTOR
Stephen R. van den Berg
<srb@cuci.nl>
BuGless 1999/03/02 PROCMAILEX(5)