dspam.inc.";
}
/* ========================================================================== */
/* = A D M I N S T A T U S F U N C T I O N S = */
/* ========================================================================== */
function DisplayAdminPreferences(&$statusmsg) {
return DisplayPreferences("admin", $statusmsg);
}
function DisplayUserStatistics() {
global $CONFIG, $DATA;
$b = "rowEven";
$sl_total = 0;
$il_total = 0;
$sm_total = 0;
$fp_total = 0;
$sc_total = 0;
$ic_total = 0;
$mailbox_total = 0;
$pd = popen("{$CONFIG['DSPAM_STATS']} 2>&1", "r");
while (!feof($pd)) {
$line = chop( fgets($pd, 4096) );
if ($b == "qrowEven") {
$b = "qrowOdd";
} else {
$b = "qrowEven";
}
$line = preg_replace('/:/', ' ', $line);
list($username, , $sl, , $il, , $fp, , $sm, , $sc, , $ic)
= (preg_split('/\s+/', $line));
if ($username == "" && $sl == "") {
/* we do not want to display data that
* does not bleong to any user
*/
continue;
} else if ($sl == "") {
$line = fgets($pd, 4096);
$line = preg_replace('/:/', ' ', $line);
list(, , $sl, , $il, , $fp, , $sm, , $sc, , $ic)
= (preg_split('/\s+/', $line));
}
$PREFS =& GetPrefs($username, GetPath($username).".prefs");
if ($PREFS['enableBNR'] == "on") { $PREFS['enableBNR'] = "OFF"; }
if ($PREFS['enableWhitelist'] == "on") { $PREFS['enableWhitelist'] = "OFF"; }
$PREFS['spamAction'] = ucfirst($PREFS['spamAction']);
$PREFS['enableBNR'] = strtoupper($PREFS['enableBNR']);
$PREFS['enableWhitelist'] = strtoupper($PREFS['enableWhitelist']);
$mailbox = GetPath($username).".mbox";
if ( file_exists($mailbox) ) {
$mailbox_size = filesize($mailbox);
$mailbox_display = sprintf("%2.1f KB", ($mailbox_size / 1024));
$mailbox_total += $mailbox_size;
}
else {
$mailbox_display = "--";
}
$sl_total += $sl;
$il_total += $il;
$sm_total += $sm;
$fp_total += $fp;
$sc_total += $sc;
$ic_total += $ic;
$DATA['TABLE'] .= "ProcessFalsePositive.";
}
}
}
/* Couldn't find the message, so just retrain on signature */
if (!$found) {
system("$CONFIG{'DSPAM'} --source=error --class=innocent --signature=" . quotemeta($sigID) .
" --user " . quotemeta($CURRENT_USER));
}
if ($error) {
$log = array();
$fd = fopen("{$TMPFILE}", "r");
while (!feof($handle)) {
$log .= fgets($fd, 4096);
}
fclose($fd);
unlink("{$TMPFILE}");
return $input_errors[] = $log;
}
unlink("{$TMPFILE}");
$signatures[$sigID] = "on";
return QuarantineDeleteSpam("", $signatures, $sortBy, $currentPage, $qPerPage);
}
function &QuarantineManyNotSpam($signatures = array(), $sortBy = "Rating", $currentPage = 1, $qPerPage = 0){
global $MAILBOX, $USER;
$buffer = array();
$errors = array();
/* read the user's mailbox line by line into a buffer */
$fd = fopen("{$MAILBOX}", "r");
while (!feof($fd)) {
$line = chop(fgets($fd, 4096));
array_push($buffer, $line);
}
fclose ($fd);
if ($fd_FILE = @fopen("{$MAILBOX}", "w")) {
$fd_RETRAIN = fopen("{$USER}.retrain.log", "a");
/* iterate over the mailbox buffer */
reset($buffer);
$i = 0;
while ($i < count($buffer)) {
$temp = array();
$head = array();
$mode = 0;
$buff = "";
/* this while tries to iterate over one single mesage including
* the message header and the message body.
*/
while((preg_match('/^From /', $buff) == 0) && ($i < count($buffer))) {
$buff = $buffer[0];
/* switch mode if we are hitting DSPAMs
* pseudo From QUARANTINE line (without a
* colon after the From).
*/
if (preg_match('/^From /', $buff) > 0) {
if ($mode == 0) {
$mode = 1;
$buff = array_shift($buffer);
array_push($temp, $buff);
$buff = "";
continue;
} else {
continue;
}
}
$buff = array_shift($buffer);
array_push($temp, $buff);
continue;
}
/* populate the header array with header fields */
foreach($temp as $tempel) {
if ($tempel == "") { break; }
list($key, $val) = preg_split('/\: ?/', $tempel, 2);
$head[$key] = $val;
}
$delivered = 0;
if ($signatures["chkmsg-{$head['X-DSPAM-Signature']}"] <> "") {
$err = Deliver($temp);
if ($err == "") {
$delivered = 1;
} else {
array_push($errors, $err);
}
}
if (!$delivered) {
foreach($temp as $tempel) {
fwrite($fd_FILE, "{$tempel}\n");
}
} else {
fwrite($fd_RETRAIN, strval(time()) . "\t{$head['X-DSPAM-Signature']}\tinnocent\n");
}
$i++;
} // end while
fclose($fd_FILE);
fclose($fd_RETRAIN);
} else {
return $input_errors[] = "Unable to open mailbox file: {$MAILBOX}.";
}
if (count($errors) > 0) {
return $errors;
}
return DisplayQuarantine($sortBy, $currentPage, $qPerPage);
}
function Deliver($temp = array()) {
global $CONFIG;
if (! file_exists("/tmp/dspam-error-output.txt")) {
touch("/tmp/dspam-error-output.txt");
}
$descriptorspec = array(
0 => array("pipe", "r"), // stdin is a pipe that the child will read from
1 => array("pipe", "w"), // stdout is a pipe that the child will write to
2 => array("file", "/tmp/dspam-error-output.txt", "a") // stderr is a file to write to
);
list($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$sizeb,
$atime,$mtimeb,$ctime,$blksize,$blocks)
= stat("/tmp/dspam-error-output.txt");
clearstatcache();
$cwd = '/tmp';
$process = @proc_open("{$CONFIG['DSPAM']} {$CONFIG['DSPAM_ARGS']}",
$descriptorspec,
$pipes);
if (is_resource($process)) {
foreach($temp as $tempel) {
if (! @fwrite($pipes[0], "{$tempel}\n")) {
return "error while writting to pipe.";
}
}
fclose($pipes[0]);
fclose($pipes[1]);
$return_value = proc_close($process);
/* this isn't an elegant solution to determine whether
* DSPAM did report some errors, but it works for now
*/
list($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$sizea,
$atime,$mtimea,$ctime,$blksize,$blocks)
= stat("/tmp/dspam-error-output.txt");
if ($mtimeb <> $mtimea) { return "DSPAM did report some errors to /tmp/dspam-error-output.txt.\n" .
"Please check this particular file."; }
} else {
return "process is not a resource type.";
}
return "";
}
function getLayoutedMessage($msgbuffer = "", $sigID = "", $showpart = 0, $ctype = 0){
if ($msgbuffer == "") {
return 'An error occured while parsing the message (no message).';
}
if ($sigID == "") {
return 'An error occured while parsing the message (no signature).';
}
if( extension_loaded( 'mailparse' ) ) {
$msgdate = "N/A";
$msgfrom = "N/A";
$msgsub = "N/A";
$msgto = "N/A";
$mime = mailparse_msg_create();
mailparse_msg_parse($mime, $msgbuffer);
/* return an array of message parts - this contsists of the
* names of the parts only.
*/
$struct = mailparse_msg_get_structure($mime);
$htmlstr = <<" . $contents . "