if (!$send) { ?>
Compose Email
} else {
if (!$from) die("From harus diisi.");
if (!$to) die("To harus diisi.");
if (!$subject) $subject = "(no subject)";
if (!$body) $body = "\n";
if (preg_match_all('/(^\S.*(?:\n\s+.*)*)/m', $header, $m)) {
$header_fields = $m[1];
} else {
# tidak ada header tambahan
$header_fields = array();
}
# cek sintaks field header
foreach ($header_fields as $f) {
if (!preg_match('/(\S+):\s*(.*)/s', $f))
die("Field `$f' salah");
}
$header_fields[] = "From: $from";
# kirim
$result = mail($to, $subject, $body, join("\n",$header_fields)."\n");
if ($result)
echo "Mail telah dikirim.";
else
die("Mail gagal dikirim.");
} ?>