#!/usr/bin/php
<?php
/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this file,
 * You can obtain one at http://mozilla.org/MPL/2.0/. */

// This script retrieves stats comparing flash versions in hangs and crashes.

// *** non-commandline handling ***

if (php_sapi_name() != 'cli') {
  // not commandline, assume apache and output own source
  header('Content-Type: text/plain; charset=utf8');
  print(file_get_contents($_SERVER['SCRIPT_FILENAME']));
  exit;
}

include_once('datautils.php');

// *** script settings ***

// turn on error reporting in the script output
ini_set('display_errors', 1);

// make sure new files are set to -rw-r--r-- permissions
umask(022);

// set default time zone - right now, always the one the server is in!
date_default_timezone_set('America/Los_Angeles');


// *** data gathering variables ***

// for how many days back to get the data
$backlog_days = 7;

// *** URLs ***

$on_moz_server = file_exists('/mnt/crashanalysis/rkaiser/');

// File storing the DB access data - including password!
$fdbsecret = '/home/rkaiser/.socorro-prod-dbsecret.json';

$url_siglinkbase = 'https://crash-stats.mozilla.com/report/list?signature=';
$url_nullsiglink = 'https://crash-stats.mozilla.com/report/list?missing_sig=EMPTY_STRING';
$url_replinkbase = 'https://crash-stats.mozilla.com/report/index/';
$url_buglinkbase = 'https://bugzilla.mozilla.org/show_bug.cgi?id=';


if ($on_moz_server) { chdir('/mnt/crashanalysis/rkaiser/'); }
else { chdir('/mnt/mozilla/projects/socorro/'); }

// *** code start ***

// get current day
$curtime = time();

if (file_exists($fdbsecret)) {
  $dbsecret = json_decode(file_get_contents($fdbsecret), true);
  if (!is_array($dbsecret) || !count($dbsecret)) {
    print('ERROR: No DB secrets found, aborting!'."\n");
    exit(1);
  }
  $db_conn = pg_pconnect('host='.$dbsecret['host']
                         .' port='.$dbsecret['port']
                         .' dbname=breakpad'
                         .' user='.$dbsecret['user']
                         .' password='.$dbsecret['password']);
  if (!$db_conn) {
    print('ERROR: DB connection failed, aborting!'."\n");
    exit(1);
  }
  // For info on what data can be accessed, see also
  // http://socorro.readthedocs.org/en/latest/databasetabledesc.html
  // For the DB schema, see
  // https://github.com/mozilla/socorro/blob/master/sql/schema.sql
}
else {
  // Won't work! (Set just for documenting what fields are in the file.)
  $dbsecret = array('host' => 'host.m.c', 'port' => '6432',
                    'user' => 'analyst', 'password' => 'foo');
  print('ERROR: No DB secrets found, aborting!'."\n");
  exit(1);
}

for ($daysback = $backlog_days + 1; $daysback > 0; $daysback--) {
  $anatime = strtotime(date('Y-m-d', $curtime).' -'.$daysback.' day');
  $anadir = date('Y-m-d', $anatime);

  print('B2G: Looking at on-device crash data for '.$anadir."\n");
  if (!file_exists($anadir)) { mkdir($anadir); }

  $fbcdata = 'b2g-crashdata.json';
  $fbtc = 'b2g-topcrashes.json';
  $fpages = 'pages.json';
  $fweb = $anadir.'.b2g.crashes.html';
  $fwebweek = $anadir.'.b2g.topcrashes.weekly.html';

  $anafbcdata = $anadir.'/'.$fbcdata;
  if (!file_exists($anafbcdata)) {
    $rep_query =
      'SELECT version,build,release_channel,'
      .'process_type,signature,date_processed,uuid '
      .'FROM reports '
      ."WHERE product='B2G' AND os_name='Android' AND utc_day_is(date_processed, '".$anadir."') "
      .'ORDER BY version DESC, build DESC, date_processed DESC;';

    $rep_result = pg_query($db_conn, $rep_query);
    if (!$rep_result) {
      print('--- ERROR: Main report query failed!'."\n");
    }

    $bcd = array('list' => array(), 'total' => 0);
    while ($rep_row = pg_fetch_array($rep_result)) {
      // Need to fetch whole JSON object becasue of bug 898072.
      // Look into history to find nicer code to use when that is fixed.
      $raw_query =
        "SELECT raw_crash "
        .'FROM raw_crashes '
        ."WHERE uuid='".$rep_row['uuid']."'"
        ." AND utc_day_is(date_processed, '".$anadir."');";

      $raw_result = pg_query($db_conn, $raw_query);
      if (!$raw_result) {
        print('--- ERROR: Raw crash query failed for bp-'.$rep_row['uuid'].'!'."\n");
      }
      $raw_row = pg_fetch_array($raw_result);
      $raw_crash_data = json_decode($raw_row['raw_crash'], true);
      $rep_row['manufacturer'] = array_key_exists('Android_Manufacturer', $raw_crash_data)
                                 ? $raw_crash_data['Android_Manufacturer'] : '';
      $rep_row['model'] = array_key_exists('Android_Model', $raw_crash_data)
                          ? $raw_crash_data['Android_Model'] : 'unknown';
      $rep_row['b2g_ver'] = array_key_exists('B2G_OS_Version', $raw_crash_data)
                            ? $raw_crash_data['B2G_OS_Version'] : 'unknown';
      $rep_row['device'] = trim($rep_row['manufacturer'].' '.$rep_row['model']);

      $bugs = array();
      $bug_query =
        'SELECT bug_id, status, resolution, short_desc '
        .'FROM bug_associations LEFT JOIN bugs'
        .' ON (bug_associations.bug_id=bugs.id) '
        ."WHERE signature = '".pg_escape_string($rep_row['signature'])."';";

      $bug_result = pg_query($db_conn, $bug_query);
      if (!$bug_result) {
        print('--- ERROR: Bug associations query failed for "'.$rep_row['signature'].'"!'."\n");
      }
      while ($bug_row = pg_fetch_array($bug_result)) {
        $bugs[$bug_row['bug_id']] = array('status' => $bug_row['status'],
                                          'resolution' => $bug_row['resolution'],
                                          'short_desc' => $bug_row['short_desc']);
      }
      $rep_row['bugs'] = $bugs;

      $bcd['list'][] = $rep_row;
      $bcd['total']++;
    }

    uasort($bcd['list'], 'b2glist_compare'); // sort by B2G version, build ID, and crash time

    file_put_contents($anafbcdata, json_encode($bcd));
  }
  else {
    $bcd = json_decode(file_get_contents($anafbcdata), true);
  }

  $anafbtc = $anadir.'/'.$fbtc;
  if (!file_exists($anafbtc)) {
    $btc = array();
    foreach ($bcd['list'] as $crash) {
      $b2g_ver = strlen(@$crash['b2g_ver'])?$crash['b2g_ver']:'unknown';
      $report = $b2g_ver;
      $device = strlen($crash['device'])?$crash['device']:'unknown';
      $buildday = substr($crash['build'], 0, 8);
      $ptype = strlen($crash['process_type'])?$crash['process_type']:'gecko';
      addCount($btc, $report);
      if ($btc[$report]['.count'] == 1) {
        $btc[$report]['b2g_ver'] = $b2g_ver;
        $btc[$report]['.sigs'] = array();
      }
      addCount($btc[$report]['.sigs'], $crash['signature']);
      if ($btc[$report]['.sigs'][$crash['signature']]['.count'] == 1) {
        $btc[$report]['.sigs'][$crash['signature']]['bugs'] = $crash['bugs'];
      }
      if (array_key_exists('devices', $btc[$report]['.sigs'][$crash['signature']])) {
        if (!in_array($device, $btc[$report]['.sigs'][$crash['signature']]['devices'])) {
          $btc[$report]['.sigs'][$crash['signature']]['devices'][] = $device;
        }
      }
      else {
        $btc[$report]['.sigs'][$crash['signature']]['devices'] = array($device);
      }
      if (array_key_exists('bdates', $btc[$report]['.sigs'][$crash['signature']])) {
        if (!in_array($buildday, $btc[$report]['.sigs'][$crash['signature']]['bdates'])) {
          $btc[$report]['.sigs'][$crash['signature']]['bdates'][] = $buildday;
        }
      }
      else {
        $btc[$report]['.sigs'][$crash['signature']]['bdates'] = array($buildday);
      }
      if (array_key_exists('proctypes', $btc[$report]['.sigs'][$crash['signature']])) {
        if (!in_array($ptype, $btc[$report]['.sigs'][$crash['signature']]['proctypes'])) {
          $btc[$report]['.sigs'][$crash['signature']]['proctypes'][] = $ptype;
        }
      }
      else {
        $btc[$report]['.sigs'][$crash['signature']]['proctypes'] = array($ptype);
      }
    }

    krsort($btc); // sort by key (b2g_ver) in reverse order
    foreach ($btc as $report=>$rdata) {
      if (array_key_exists('.sigs', $rdata)) {
        uasort($btc[$report]['.sigs'], 'count_compare'); // sort by count, highest-first
        foreach ($rdata['.sigs'] as $sig=>$sdata) {
          sort($btc[$report]['.sigs'][$sig]['devices']);
          rsort($btc[$report]['.sigs'][$sig]['bdates']);
          sort($btc[$report]['.sigs'][$sig]['proctypes']);
        }
      }
    }

    file_put_contents($anafbtc, json_encode($btc));
  }
  else {
    $btc = json_decode(file_get_contents($anafbtc), true);
  }

  $webreports = array('day' => $fweb, 'week' => $fwebweek);

  foreach ($webreports as $type=>$fwebcur) {
    $anafweb = $anadir.'/'.$fwebcur;
    if ($type == 'week') {
      if (!file_exists($anafweb)) {
        // assemble 7-day "weekly" overview
        print('Calculating weekly data'."\n");
        $curbtc = $btc;

        for ($pastday = 1; $pastday < 7; $pastday++) {
          $pasttime = strtotime($anadir.' -'.$pastday.' day');
          $pastdir = date('Y-m-d', $pasttime);
          print('Adding '.$pastdir);
          $pastfbtc = $pastdir.'/'.$fbtc;
          if (file_exists($pastfbtc)) {
            // Load that data and merge it into $curcd.
            $pastbtc = json_decode(file_get_contents($pastfbtc), true);
            foreach ($pastbtc as $report=>$rdata) {
              print(':');
              if (array_key_exists($report, $curbtc)) {
                $curbtc[$report]['.count'] += $rdata['.count'];
                foreach ($rdata['.sigs'] as $sig=>$sdata) {
                  print('.');
                  if (array_key_exists($sig, $curbtc[$report]['.sigs'])) {
                    $curbtc[$report]['.sigs'][$sig]['.count'] += $sdata['.count'];
                    $curbtc[$report]['.sigs'][$sig]['devices'] =
                        array_unique(array_merge($curbtc[$report]['.sigs'][$sig]['devices'], $sdata['devices']));
                    $curbtc[$report]['.sigs'][$sig]['bdates'] =
                        array_unique(array_merge($curbtc[$report]['.sigs'][$sig]['bdates'], $sdata['bdates']));
                    $curbtc[$report]['.sigs'][$sig]['proctypes'] =
                        array_unique(array_merge($curbtc[$report]['.sigs'][$sig]['proctypes'], $sdata['proctypes']));
                  }
                  else {
                    $curbtc[$report]['.sigs'][$sig] = $sdata;
                  }
                }
              }
              else {
                print('.');
                $curbtc[$report] = $rdata;
              }
            }
            print("\n");
          }
          else { print(' - '.$pastfbtc.' not found.'."\n"); }
        }
        if (count($curbtc)) {
          krsort($curbtc); // sort by key (b2g_ver) in reverse order
          foreach ($curbtc as $report=>$rdata) {
            if (array_key_exists('.sigs', $rdata)) {
              uasort($curbtc[$report]['.sigs'], 'count_compare'); // sort by count, highest-first
              foreach ($rdata['.sigs'] as $sig=>$sdata) {
                sort($curbtc[$report]['.sigs'][$sig]['devices']);
                rsort($curbtc[$report]['.sigs'][$sig]['bdates']);
                sort($curbtc[$report]['.sigs'][$sig]['proctypes']);
              }
            }
          }
        }
      }
    }
    else {
      // single-day data
      $curbtc = $btc;
    }

    if (!file_exists($anafweb) && count($curbtc)) {
      // create out an HTML page
      print('Writing HTML output'."\n");
      $doc = new DOMDocument('1.0', 'utf-8');
      $doc->formatOutput = true; // we want a nice output

      $root = $doc->appendChild($doc->createElement('html'));
      $head = $root->appendChild($doc->createElement('head'));
      $title = $head->appendChild($doc->createElement('title',
          $anadir.($type == 'week'?' Weekly':'').' B2G Crashes Report'));

      $style = $head->appendChild($doc->createElement('style'));
      $style->setAttribute('type', 'text/css');
      $style->appendChild($doc->createCDATASection(''
          .'body {'."\n"
          .'  color: #000000;'."\n"
          .'  background-color: #FFFFFF;'."\n"
          .'}'."\n"
          .'.sig, .time {'."\n"
          .'  font-size: small;'."\n"
          .'}'."\n"
          .'.buildid > .timepart {'."\n"
          .'  color: #808080;'."\n"
          .'}'."\n"
          .'.device {'."\n"
          .'  color: #808080;'."\n"
          .'}'."\n"
          .'/* Shipped (or publicly presented) devices */'."\n"
          .'.device.huawei_huawei_y300_f1,'."\n"
          .'.device.lge_lg_d300f,'."\n"
          .'.device.unknown_alcatel_onetouch_pop_fire_c,'."\n"
          .'.device.unknown_alcatel_one_touch_fire,'."\n"
          .'.device.unknown_alcatel_onetouch_fire_c,'."\n"
          .'.device.unknown_alcatel_onetouch_fire_e,'."\n"
          .'.device.zte_p752d04,'."\n"
          .'.device.zte_roamer2,'."\n"
          .'.device.zte_open_c,'."\n"
          .'.device.zte_zte_openc,'."\n"
          .'.device.zte_zte_open_c {'."\n"
          .'  color: #000000;'."\n"
          .'  font-weight: bold;'."\n"
          .'}'."\n"
          .'/* Internal testing devices */'."\n"
          .'.device.alcatel_ot_995,'."\n"
          .'.device.hamachi_hamachi,'."\n"
          .'.device.lge_lg_d300,'."\n"
          .'.device.lge_lg_d300g,'."\n"
          .'.device.qcom_leo,'."\n"
          .'.device.spreadtrum_sp6821a,'."\n"
          .'.device.spreadtrum_sp7710,'."\n"
          .'.device.spreadtrum_sp7715a,'."\n"
          .'.device.toro_unagi1,'."\n"
          .'.device.toro_otoro1,'."\n"
          .'.device.toro_inari1 {'."\n"
          .'  color: #000000;'."\n"
          .'  font-style: italic;'."\n"
          .'}'."\n"
          .'/* Developer devices */'."\n"
          .'.device.geeksphone_gp_peak,'."\n"
          .'.device.geeksphone_gp_keon,'."\n"
          .'.device.geeksphone_gp_twist,'."\n"
          .'.device.t2m_flame,'."\n"
          .'.device.unknown_b2g_on_flatfish,'."\n"
          .'.device.unknown_flame {'."\n"
          .'  color: #000000;'."\n"
          .'}'."\n"
          .'.ptype.gecko {'."\n"
          .'}'."\n"
          .'.ptype.content {'."\n"
          .'  color: #808080;'."\n"
          .'}'."\n"
          .'.bug {'."\n"
          .'  font-size: small;'."\n"
          .'  empty-cells: show;'."\n"
          .'}'."\n"
          .'.resolved {'."\n"
          .'  text-decoration: line-through;'."\n"
          .'}'."\n"
          .'.num, .pct {'."\n"
          .'  text-align: right;'."\n"
          .'}'."\n"
      ));

      $body = $root->appendChild($doc->createElement('body'));
      $h1 = $body->appendChild($doc->createElement('h1',
          $anadir.($type == 'week'?' Weekly':'').' B2G Crashes Report'));

      $list = $body->appendChild($doc->createElement('ul'));
      $item = $list->appendChild($doc->createElement('li'));
      $link = $item->appendChild($doc->createElement('a',
          'Top Crashes By Signature'));
      $link->setAttribute('href', '#tcbs');
      $tlist = $item->appendChild($doc->createElement('ul'));
      foreach ($curbtc as $report=>$rdata) {
        $titem = $tlist->appendChild($doc->createElement('li'));
        $tlink = $titem->appendChild($doc->createElement('a',
            $rdata['b2g_ver']));
        $tlink->setAttribute('href', '#b2g-'.$rdata['b2g_ver']);
      }
      if ($type != 'week') {
        $item = $list->appendChild($doc->createElement('li'));
        $link = $item->appendChild($doc->createElement('a',
            'Raw Crash List'));
        $link->setAttribute('href', '#crashlist');
      }

      $h2 = $body->appendChild($doc->createElement('h2',
          'Top Crashes By Signature'));
      $link->setAttribute('id', 'tcbs');

      foreach ($curbtc as $report=>$rdata) {
        $h3 = $body->appendChild($doc->createElement('h3',
            $rdata['b2g_ver']));
        $link->setAttribute('id', 'b2g-'.$rdata['b2g_ver']);

        $table = $body->appendChild($doc->createElement('table'));
        $table->setAttribute('border', '1');

        // table head
        $tr = $table->appendChild($doc->createElement('tr'));
        $th = $tr->appendChild($doc->createElement('th', 'Signature'));
        $th = $tr->appendChild($doc->createElement('th', 'Devices'));
        $th = $tr->appendChild($doc->createElement('th', 'Build Dates'));
        $th = $tr->appendChild($doc->createElement('th', 'Process Types'));
        $th = $tr->appendChild($doc->createElement('th', 'Count'));
        $th = $tr->appendChild($doc->createElement('th', 'Pct'));
        $th = $tr->appendChild($doc->createElement('th', 'Bugs'));

        foreach ($rdata['.sigs'] as $sig=>$sdata) {
          $pct = $rdata['.count'] ?
                $sdata['.count'] / $rdata['.count'] : 0;

          $tr = $table->appendChild($doc->createElement('tr'));
          $td = $tr->appendChild($doc->createElement('td'));
          $td->setAttribute('class', 'sig');
          if (!strlen($sig)) {
            $link = $td->appendChild($doc->createElement('a', '(empty signature)'));
            $link->setAttribute('href', $url_nullsiglink);
          }
          elseif ($sig == '\N') {
            $td->appendChild($doc->createTextNode('(processing failure - "'.$sig.'")'));
          }
          else {
            // common case, useful signature
            $sigdisplay = preg_replace('/_+\.*$/', '', $sig);
            $link = $td->appendChild($doc->createElement('a',
                htmlentities($sigdisplay, ENT_COMPAT, 'UTF-8')));
            $link->setAttribute('href', $url_siglinkbase.rawurlencode($sig));
          }
          $td = $tr->appendChild($doc->createElement('td'));
          foreach ($sdata['devices'] as $device) {
            if (strlen($td->textContent)) {
              $td->appendChild($doc->createTextNode(', '));
            }
            $span = $td->appendChild($doc->createElement('span', $device));
            $span->setAttribute('class', 'device '.deviceClass($device));
          }
          $td = $tr->appendChild($doc->createElement('td', implode(', ', $sdata['bdates'])));
          $td = $tr->appendChild($doc->createElement('td'));
          foreach ($sdata['proctypes'] as $ptype) {
            if (strlen($td->textContent)) {
              $td->appendChild($doc->createTextNode(', '));
            }
            $span = $td->appendChild($doc->createElement('span', $ptype));
            $span->setAttribute('class', 'ptype '.$ptype);
          }
          $td = $tr->appendChild($doc->createElement('td', $sdata['.count']));
          $td->setAttribute('class', 'num');
          $td = $tr->appendChild($doc->createElement('td',
              sprintf('%.1f', 100 * $pct).'%'));
          $td->setAttribute('class', 'pct');
          $td = $tr->appendChild($doc->createElement('td'));
          if (array_key_exists('bugs', $sdata) && count($sdata['bugs'])) {
            foreach ($sdata['bugs'] as $bug => $bugdata) {
              if (strlen($td->textContent)) {
                $td->appendChild($doc->createTextNode(', '));
              }
              $link = $td->appendChild($doc->createElement('a', $bug));
              $link->setAttribute('href', $url_buglinkbase.$bug);
              $link->setAttribute('title',
                  $bugdata['status'].' '.$bugdata['resolution'].' - '
                  .htmlentities($bugdata['short_desc'], ENT_COMPAT, 'UTF-8'));
              if ($bugdata['status'] == 'RESOLVED' || $bugdata['status'] == 'VERIFIED') {
                $link->setAttribute('class', 'bug resolved');
              }
              else {
                $link->setAttribute('class', 'bug');
              }
            }
          }
          else {
            $td->appendChild($doc->createTextNode('-'));
          }
        }
      }

      if ($type != 'week') {
        $h2 = $body->appendChild($doc->createElement('h2',
            'Raw Crash List'));
        $link->setAttribute('id', 'crashlist');

        // description
        $para = $body->appendChild($doc->createElement('p',
            'List of all '.$bcd['total'].' crashes for B2G on actual devices.'
            .' (Times in the "Crash" column are UTC and link to the detailed crash'
            .' reports on Socorro.)'));

        $table = $body->appendChild($doc->createElement('table'));
        $table->setAttribute('border', '1');

        // table head
        $tr = $table->appendChild($doc->createElement('tr'));
        $th = $tr->appendChild($doc->createElement('th', 'B2G-Ver'));
        $th = $tr->appendChild($doc->createElement('th', 'Build ID'));
        $th = $tr->appendChild($doc->createElement('th', 'Ver'));
        $th = $tr->appendChild($doc->createElement('th', 'Channel'));
        $th = $tr->appendChild($doc->createElement('th', 'Crash'));
        $th = $tr->appendChild($doc->createElement('th', 'Device'));
        $th = $tr->appendChild($doc->createElement('th', 'Process'));
        $th = $tr->appendChild($doc->createElement('th', 'Signature'));
        $th = $tr->appendChild($doc->createElement('th', 'Bugs'));

        foreach ($bcd['list'] as $crash) {
          $tr = $table->appendChild($doc->createElement('tr'));
          $td = $tr->appendChild($doc->createElement('td', $crash['b2g_ver']));
          $td->setAttribute('class', 'version');
          $td = $tr->appendChild($doc->createElement('td'));
          $td->setAttribute('class', 'buildid');
          $span = $td->appendChild($doc->createElement('span', substr($crash['build'], 0, 8)));
          $span->setAttribute('class', 'datepart');
          $span = $td->appendChild($doc->createElement('span', substr($crash['build'], 8)));
          $span->setAttribute('class', 'timepart');
          $td = $tr->appendChild($doc->createElement('td', $crash['version']));
          $td->setAttribute('class', 'version');
          $td = $tr->appendChild($doc->createElement('td', $crash['release_channel']));
          $td->setAttribute('class', 'channel');
          $td = $tr->appendChild($doc->createElement('td'));
          $td->setAttribute('class', 'time');
          $link = $td->appendChild($doc->createElement('a',
              gmdate('H:i:s', strtotime($crash['date_processed']))));
          $link->setAttribute('href', $url_replinkbase.$crash['uuid']);
          $device = strlen($crash['device'])?$crash['device']:'unknown';
          $td = $tr->appendChild($doc->createElement('td', $device));
          $td->setAttribute('class', 'device '.deviceClass($device));
          $ptype = strlen($crash['process_type'])?$crash['process_type']:'gecko';
          $td = $tr->appendChild($doc->createElement('td', $ptype));
          $td->setAttribute('class', 'ptype '.$ptype);
          $td = $tr->appendChild($doc->createElement('td'));
          $td->setAttribute('class', 'sig');
          if (!strlen($crash['signature'])) {
            $link = $td->appendChild($doc->createElement('a', '(empty signature)'));
            $link->setAttribute('href', $url_nullsiglink);
          }
          elseif ($crash['signature'] == '\N') {
            $td->appendChild($doc->createTextNode('(processing failure - "'.$crash['signature'].'")'));
          }
          else {
            // common case, useful signature
            $sigdisplay = preg_replace('/_+\.*$/', '', $crash['signature']);
            $link = $td->appendChild($doc->createElement('a',
                htmlentities($sigdisplay, ENT_COMPAT, 'UTF-8')));
            $link->setAttribute('href', $url_siglinkbase.rawurlencode($crash['signature']));
          }
          $td = $tr->appendChild($doc->createElement('td'));
          if (array_key_exists('bugs', $crash) && count($crash['bugs'])) {
            foreach ($crash['bugs'] as $bug => $bugdata) {
              if (strlen($td->textContent)) {
                $td->appendChild($doc->createTextNode(', '));
              }
              $link = $td->appendChild($doc->createElement('a', $bug));
              $link->setAttribute('href', $url_buglinkbase.$bug);
              $link->setAttribute('title',
                  $bugdata['status'].' '.$bugdata['resolution'].' - '
                  .htmlentities($bugdata['short_desc'], ENT_COMPAT, 'UTF-8'));
              if ($bugdata['status'] == 'RESOLVED' || $bugdata['status'] == 'VERIFIED') {
                $link->setAttribute('class', 'bug resolved');
              }
              else {
                $link->setAttribute('class', 'bug');
              }
            }
          }
          else {
            $td->appendChild($doc->createTextNode('-'));
          }
        }
      }

      $doc->saveHTMLFile($anafweb);

      // add the page to the pages index
      $anafpages = $anadir.'/'.$fpages;
      if (file_exists($anafpages)) {
        $pages = json_decode(file_get_contents($anafpages), true);
      }
      else {
        $pages = array();
      }
      $pages[$fwebcur] =
        array('product' => 'B2G',
              'channel' => null,
              'version' => null,
              'report' => 'b2gcrash',
              'report_sub' => $type,
              'display_ver' => 'B2G',
              'display_rep' => ($type == 'week'?'Weekly Topcrash':'Crashes')
                               .' Report');
      file_put_contents($anafpages, json_encode($pages));
    }
  }
}
print("\n");

// *** helper functions ***

// Comparison function using .count member (reverse sort!)
function count_compare($a, $b) {
  if ($a['.count'] == $b['.count']) { return 0; }
  return ($a['.count'] > $b['.count']) ? -1 : 1;
}

// Comparison function on B2G version, build ID and time (reverse sort!)
function b2glist_compare($a, $b) {
  if ($a['b2g_ver'] == $b['b2g_ver']) {
    if ($a['build'] == $b['build']) {
      if ($a['date_processed'] == $b['date_processed']) { return 0; }
      return ($a['date_processed'] > $b['date_processed']) ? -1 : 1;
    }
    return ($a['build'] > $b['build']) ? -1 : 1;
  }
  return ($a['b2g_ver'] > $b['b2g_ver']) ? -1 : 1;
}

// Bump the counter of an element or initialize it.
function addCount(&$basevar, $sub, $addnum = 1) {
  if (array_key_exists($sub, $basevar)) {
    $basevar[$sub]['.count'] += $addnum;
  }
  else {
    $basevar[$sub]['.count'] = $addnum;
  }
}

// Convert a device name to a CSS class
function deviceClass($devicename) {
  $classraw = strtr($devicename, array(chr(128)=>'EUR',chr(164)=>'EUR',"'"=>'','"'=>''));
  $classraw = strtolower(iconv('UTF-8', 'ASCII//TRANSLIT', $classraw));
  $devclass = ''; $i = 0;
  while ($i < strlen($classraw)) {
    if (((ord($classraw{$i}) >= 48) && (ord($classraw{$i}) <= 57)) ||
        ((ord($classraw{$i}) >= 97) && (ord($classraw{$i}) <= 122))) {
      $devclass .= $classraw{$i};
    }
    elseif (strlen($devclass) && ($devclass{strlen($devclass)-1} != '_')) {
      $devclass .= '_';
    }
    $i++;
  }
  $devclass = trim($devclass, '_');
  return $devclass;
}

?>