Ticket #1439: logcollect-server.php

<?php
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// Sugar Log Collector v1.0
// by Wade Brainerd <wadetb@gmail.com>
// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

$email_list = 'sugar-reports@lists.sugarlabs.org';
$download_url = 'http://logcollect.sugarlabs.org/logcollect';

function tableExists($db, $name)
{
    $result = $db->query("select count(*) from sqlite_master where name='$name'");
    return $result->fetchColumn() > 0;
}

$basepath = 'logcollect';
@mkdir($basepath);

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// Log the query.
/*
$logfile = fopen("$basepath/logcollect-server.log", "w+");
if (!$logfile) die;
flock($logfile, 2);
fwrite($logfile, var_export($_POST, true) . "\n");
fwrite($logfile, var_export($_FILES, true) . "\n");
fclose($logfile);
*/

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// Record the event in the database.
$logdb = new PDO("sqlite:$basepath/logcollect.db");

if (!tableExists($logdb, "logs")) {
    $logdb->query("create table logs(id integer primary key, timestamp text)");
}

$logdb->query("insert into logs(timestamp) values (datetime())");
$id = $logdb->lastInsertId();

print "ID=$id\n";

$logdb = null;

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// Copy the attached file into the logs directory using the id as the filename.
if ($_FILES['logs'])
{
    copy($_FILES['logs']['tmp_name'], "$basepath/sugar-report-$id.zip");
}

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// Extract logs and scan for exceptions and other errors to paste into the body of the email.
// TODO: Also extract general information such as Sugar version, distro, activity versions.
if ($_FILES['logs']) {
        $za = new ZipArchive();
        $za->open($_FILES['logs']['tmp_name']);

        $errors = '';

        for ($i=0; $i<$za->numFiles; $i++)
        {
                $name = $za->getNameIndex($i);
                $fp = $za->getStream($name);

                $banner = false;

                while (!feof($fp))
                {
                        $line = fgets($fp);
                        
                        // Python exceptions begin with Traceback and continue until the first
                        // line that doesn't begin with a space.
                        if (preg_match("/.*Traceback \(most recent call last\)\:.*/", $line))
                        {
                                if ($banner == false)
                                {
                                        $errors .= "[$name]\n\n";
                                        $banner = true;
                                }

                                $errors .= $line;
                                while (!feof($fp))
                                {
                                        $line = fgets($fp);
                                        $errors .= $line;

                                        if ($line[0] != ' ')
                                                break;
                                }
                                $errors .= "\n";
                        }

                        // Errors are single lines with a float timestamp, ERROR, then the text.
                        if (preg_match("/[0-9\.]* ERROR .*/", $line))
                        {
                                if ($banner == false)
                                {
                                        $errors .= "[$name]\n\n";
                                        $banner = true;
                                }

                                $errors .= $line;
                        }
                }
                
                fclose($fp);
        }

        $za = null;
}

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// Notify the email list.
$tmp_name = $_FILES['logs']['tmp_name'];
$type = $_FILES['logs']['type'];

$to = $email_list;
$subject = "[Sugar Report] ID $id";
$from = 'Sugar Report Collector <sugar-reports@lists.sugarlabs.org>';

$mime_boundary="==Multipart_Boundary_x".md5(mt_rand())."x";

$message = "A Sugar user submitted this problem using the 'Report a problem' control panel.\n";
$message .= "\nThe user's description of the problem is:\n";
$message .= "\n----\n" . $_POST['notes'] . "\n----\n";

if ($errors)
{
    $message .= "\nThe following errors were detected in the logs:\n\n";
    $message .= $errors;
}

$message .= "\nAn archive containing system information, Sugar logs and activity logs is available here:\n";
$message .= "$download_url/sugar-report-{$id}.zip";

if (file_exists($tmp_name) and is_uploaded_file($tmp_name))
{
    $file = fopen($tmp_name, 'rb');
    $data = fread($file, filesize($tmp_name));
    fclose($file);

    $data = chunk_split(base64_encode($data));
}

$headers = "From: $from\r\n" .
    "MIME-Version: 1.0\r\n" .
    "Content-Type: multipart/mixed;\r\n" .
    " boundary=\"{$mime_boundary}\"";

$message = "This is a multi-part message in MIME format.\n\n" .
    "--{$mime_boundary}\n" .
    "Content-Type: text/plain; charset=\"iso-8859-1\"\n" .
    "Content-Transfer-Encoding: 7bit\n\n" .
    $message . "\n\n";

/*
$message .= "--{$mime_boundary}\n" .
    "Content-Type: {$type};\n" .
    " name=\"sugar-report-{$id}.zip\"\n" .
    "Content-Transfer-Encoding: base64\n\n" .
    $data . "\n\n" .
    "--{$mime_boundary}--\n";
*/

mail($to, $subject, $message, $headers);

print "OK\n";
?>