Desde hace un par de días he tenido que instalar unas
5 veces el famoso FormMail.pl,
y de tanto instalarlo me puse a cavilar, sobre lo productivo que seria desarrollar
una alternativa propia, que en menos de 50 líneas suplantara por lo menos en
sus características básicas.

Ya se imaginaran el final de la historia… pues si, ahorita
son las 12PM y acabo de terminar de programar el script, al cual e denominado
axiMail.php
.

demo.html

<form method="post" 
action="axiMail.php">
<p> 
<input name="receptor" type="hidden" id="receptor" 
value="[email protected]">
<input name="remitente" type="hidden" id="remitente" 
value="[email protected]">
<input name="tema" type="hidden" id="tema" 
value="Información desde el sitio web">
<input name="redireccion" type="hidden" id="redireccion" 
value="http://www.hackingballz.com">
<br>
Nombre: 
<input name="nombre" type=text id="nombre">
<input type="submit" name="Submit" value="Submit">
<br>
</p>
</form>

Los espacios “hidden”, al igual que en el FormMail.pl,
definen la configuración del script, explicaría la función de cada uno, pero
resulta demasiado evidente.

Sobra decir, que el formulario
puede tener cuantos espacios quiera, la única observación es que para que funcionen
los espacios de selección múltiple (listas), es que los espacios al final lleven
[], por ejemplo, si se llama “aficiones”, deberá llamarse “aficiones[]”, esto
capacitara al script en PHP a interpretarlo como un array, y desde luego imprimir
su contenido.

axiMail.php

<?

while(list($nombre_campo, $valor_campo ) = each($HTTP_POST_VARS )) {
strtolower ($nombre_campo);

if(is_array($valor_campo)){
$msg .= ucfirst($nombre_campo).": \n";

while (list ($val) = each ($valor_campo)) {
$msg .= $val."\n";
}
$msg .= "\n";
}else{
if($nombre_campo != "submit" && $nombre_campo !="receptor" && $nombre_campo !="remitente" && $nombre_campo !="tema" && $nombre_campo !="redireccion"){
$msg .= ucfirst($nombre_campo).": ".$valor_campo."\n\n";}
}

}

$msg .= "----------------------------------------------\n";
$msg .= "USER AGENT: ".$HTTP_USER_AGENT."\n";
$msg .= "IP: ".$REMOTE_ADDR."\n";

mail($receptor,$tema,$msg,"From: $remitente");

header("Location: $redireccion");

?>

¿Pequeño verdad?