Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/07/2009, 11:08
xdatta
 
Fecha de Ingreso: julio-2009
Mensajes: 1
Antigüedad: 17 años, 2 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($fd, 1024);
}
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