#!/usr/bin/perl -w

#########################################################################
#     This script can be copied, distributed and modified under the GNU #
# General Public License 2. The author gives no warranty and assumes no #
# responsibility for its use.                                           #
#                                                                       #
#     Author: Salvador Blasco Llopis (C) 2004                           #
#########################################################################

# Para usarlo con procmail:
# :0 fw
# *^From.*(hotmail|msn)\.com
# | formail -I "" | forhotmail.pl

$/ =  0777;
$galleta = `fortune`;
$texto =<<END;
+-------------------------------+------------------------------------+
| Tú me mandaste publicidad de  | You send me an awful hotmail       |
| jotmeil. En respuesta yo te   | advertisement. In reply i send you |
| mando una frase del "fortune" | a quote from "fortune"             |
+-------------------------------+------------------------------------+
$galleta
+--------------------------------------------------------------------+
END

$_ = <STDIN>;
s/_{65} ?\n.*MSN.*\n.*/$texto/mgo;
print "$_";
