Commit 058fa63f authored by Leigh Stoller's avatar Leigh Stoller

Add X-netbed: header to all email from the web interface (as was done

previously to perl generated email).
parent 7646d33f
......@@ -80,13 +80,19 @@ include("dbdefs.php3");
function TBMAIL($to, $subject, $message, $headers = 0)
{
global $THISHOMEBASE;
global $SCRIPT_NAME;
$subject = strtoupper($THISHOMEBASE) . ": $subject";
if ($headers)
return mail($to, $subject, $message, $headers);
else
return mail($to, $subject, $message);
$tag = "X-NetBed: " . basename($SCRIPT_NAME);
if ($headers) {
$headers = "$headers\n" . $tag;
}
else {
$headers = $tag;
}
return mail($to, $subject, $message, $headers);
}
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment