Hola, si disculpas por que a pesar de haberlo posteado bien, salio todo junto, e inentendible, les cuento, tengo un formulario en un script CGI de FormMail que recibo emails con el siguiente formato:
Mi sitio.com - Compra Contra Reembolso
Email enviado por salazar esteban ([email protected]) el dia Thursday, April 20, 2006
at 18:28:06
------------------------------------------------------------------------ Nombre: Direccion: Localidad: Provincia: CP: Telefono: Email: Como_nos_conociste: Productos: ------------------------------------------------------------------------
y estoy migrando de este cgi a php, por que me han hablamo muy bien, y ademas no es un script gratuito sino algo mas confiable y confirgurable. Debido a que por el momento no manejo muy bien php, los emails que recibo con el email en php me salen todos apilados, juntos y en cualquier orden, yo necesitaria modificar mi script para que reciba en el formato que utilizo en el CGI.
El scrip que utilizo php es:
<?php
if(isset($_POST["nombre"]) && isset($_POST["titulo"]) && isset($_POST["mail"]) && isset($_POST["mensaje"]) ){
$fecha = date("D-M-y H:i");
$mymail = "[email protected]";
$subject = "Desde el Sitio.. =)";
$contenido = $_POST["nombre"]." Escribio :\n";
$contenido .= $_POST["mensaje"]."\n\n";
$contenido .= "el mensaje se escribio el ".$fecha;
$header = "From:".$_POST["mail"]."\nReply-To:".$_POST["mail"]."\n";
$header .= "X-Mailer:PHP/".phpversion()."\n";
$header .= "Mime-Version: 1.0\n";
$header .= "Content-Type: text/plain";
mail($mymail, $subject, utf8_decode($contenido) ,$header);
echo "&estatus=ok&";
}
?>
como tiene que estar para que sea igual al CGI
Adjunto el CGI tambien por la dudas (la parte donde creo que obtiene el formato)
sub send_mail {
# Localize variables used in this subroutine. #
local($print_config,$key,$sort_order,$sorted_field ,$env_report);
# Open The Mail Program
open(MAIL,"|$mailprog");
print MAIL "To: $Config{'recipient'}\n";
print MAIL "From: $Config{'email'} ($Config{'realname'})\n";
# Check for Message Subject
if ($Config{'subject'}) { print MAIL "Subject: $Config{'subject'}\n\n" }
else { print MAIL "Subject: WWW Form Submission\n\n" }
print MAIL "Below is the result of your feedback form. It was submitted by\n";
print MAIL "$Config{'realname'} ($Config{'email'}) on $date\n";
print MAIL "-" x 75 . "\n\n";
if (@Print_Config) {
foreach $print_config (@Print_Config) {
if ($Config{$print_config}) {
print MAIL "$print_config: $Config{$print_config}\n\n";
}
}
}
Mi pedido es debido a que aun no manejo este lenguaje, lo estoy aprendiendo de a poco, y lamentablemente este es un formulario de compra de mi trabajo que tengo que terminar lo antes posible. Desde ya muy agradecido
