Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/07/2009, 11:08
xdatta
 
Fecha de Ingreso: julio-2009
Mensajes: 1
Antigüedad: 15 años, 6 meses
Puntos: 0
preg_match extraer email del cuerpo del mensaje

Hola, buen día:

estoy redireccionando email a un script php para que lo procese y reenvié a una dirección de correo que extraiga del cuerpo del mensaje, la dirección de correo esta delimitada por la linea E-mail: nombre(at)dominio-com

Actualmente tengo un script que solo redirecciona los emails a una dirección predefinida.

Realmente no se sobe php y ya estoy en ello, pero he estado peleando con el código para extraer el email, crearlo como variable y aplicarlo como destinatario en mail()
El codigo actual es:
(en el regex sustituí el símbolo de arroba por la palabra "at" ya que el foro me lo tomaba como spam)
Código PHP:
#!/usr/bin/php -q
<?php
// read from stdin
$fd fopen("php://stdin""r");
$email "";
while (!
feof($fd)) {
$email .= fread($fd1024);
}
fclose($fd);

$lines explode("\n"$email);


$from "";
$subject "";
$headers "";
$message "";
$splittingheaders true;

for (
$i=0$i count($lines); $i++) {
if (
$splittingheaders) {
//  header
$headers .= $lines[$i]."\n";
if (
preg_match("/^Subject: (.*)/"$lines[$i], $matches)) {
$subject $matches[1];
}
if (
preg_match("/^From: (.*)/"$lines[$i], $matches)) {
$from $matches[1];
}
} else {


$message .= $lines[$i]."\n";
}
if (
trim($lines[$i])=="") {
// empty line, header section has ended
$splittingheaders false;
}
// buscar email no me esta extrayendo

 
if (preg_match("/^([^at]+)(at.*)$/"$lines[$i], $matches)) {
 
 
$matches[0];
}
}
mail("$emailextraido""$subject""From: $from  Message: $message""From: aa(a t)mail.com\n");

return 
NULL;

?>

Gracias