groogs

#!/usr/bin/php<?php// uniqie message id to use for this message$messageid = uniqid("php");// log file to write to (should use $messageid)$logfile = "/tmp/maillog/".$messageid;// path to sendmail$sendmail = "/usr/sbin/sendmail -t -i";// additional headers$add_headers["X-Report-Abuse"] = "Email abuse@YOURDOMAIN with subject \"".$messageid."\" if you believe this is spam";if (preg_match("|/home/apache/([a-zA-Z0-9\._-]*)(/.*)?|", $_ENV["PWD"], $matches)) {        $add_headers["X-Generating-Domain"] = $matches[1];}/***************************************************************************** *****************************************************************************/// read STDIN (mail message)while (!feof(STDIN)) {        $data .= fread(STDIN, 1024);}// split out headerslist ($headers, $message) = explode("\n\n", $data, 2);// add additional headersif ($add_headers) {        foreach ($add_headers as $field=>$contents) {                $headers .= "\n".$field.": ".$contents;        }}// reassemble the message$data = $headers."\n\n".$message;// write to our log file$fd = fopen($logfile,"w");fwrite($fd, "Date: ".date("r")."\n");fwrite($fd, "PWD: ".$_ENV['PWD']."\n");fwrite($fd, "Msg ID: ".$messageid."\n");fwrite($fd, "\n");fwrite($fd, "Message:\n");fwrite($fd, "----------\n");fwrite($fd, $data);fclose($fd);// write to the real sendmail$h = popen($sendmail, "w");fwrite($h, $data);pclose($h);?>