<?php

Header('text/html; charset=UTF-8');

Include_Once('Console/Getopt.php');
Include_Once('Smarty/Smarty.class.php');
Include_Once('pulse-classes.php');

$stderr = fopen('php://stderr', 'a');

ob_start();

function safelise($list) {
    $list = preg_replace('/@/', '&#x2009;&#x40;&#x2009;', $list);
    return $list;
}

function fragmentalise($list) {
    $list = preg_replace('/@/', '_at_', $list);
    return $list;
}

function chartit($o_db, $list, $width, $height) {
    $image = ImageCreate($width, $height);
    $margin = 40;
    $left = $margin;
    $right = $width - $margin;
    $width -= $margin;
    /*
     * Messages
     */
    $red = ImageColorAllocate($image, 255, 0, 0);
    $blue = ImageColorAllocate($image, 0, 0, 255);
    $green = ImageColorAllocate($image, 0, 255, 0);
    $grey = ImageColorAllocate($image, 127, 127, 127);
    $white = ImageColorAllocate($image, 255, 255, 255);
    $black = ImageColorAllocate($image, 0, 0, 0);

    $colour_posts = $red;
    $colour_subscribers = $blue;
    /*
     * Make the whole thing transparent (background)
     */
    ImageColorTransparent($image, $black);
    ImageFill($image, 0, 0, $white);
    /*
     * Draw the border in grey
     */
    ImageLine($image, $left, 0, $left, $height - 1, $grey);
    ImageLine($image, $left, $height - 1, $right - 1, $height - 1, $grey);
    ImageLine($image, $right - 1, $height - 1, $right - 1, 0, $grey);
    ImageLine($image, $right - 1, 0, $left, 0, $grey);

    $o_points = $o_db->select(array('list' => $list,
                                    'posts' => array(0, '>=')),
                              'asof ASC');
    $a_points = $o_points->mlists();
    if (! $a_points) {
        $a_points = array();
    }
    $points = count($a_points);
    if ($points) {
        $x_int = ($width - $margin) / $points;
    }
    else {
        $x_int = 0;
    }

    $highest = 0;
    foreach ($a_points as $o_point) {
        $highest = max($highest, $o_point->get('posts'));
    }
    if ($highest) {
        $y_int = ($height * 0.90) / $highest;
    }
    else {
        $y_int = 0;
    }
    $height_posts = $height - ($highest * $y_int);
    $max_posts = $highest;

    $last_x = $left;
    if ($points) {
        $last_y = $height - ($a_points[0]->get('posts') * $y_int);
    }
    else {
        $last_y = 0;
    }
    for ($i = 0; $i < $points; $i++) {
        $o_point = $a_points[$i];
        $this_y = $o_point->get('posts') * $y_int;
        $this_y = $height - $this_y;
        ImageLine($image, $last_x, $last_y,
                  min($last_x + $x_int, $right - 1), $this_y,
                  $colour_posts);
        $last_x += $x_int;
        $last_y = $this_y;
    }

    /*
     * Now do the subscribers
     */
    $highest = 0;
    foreach ($a_points as $o_point) {
        $highest = max($highest, $o_point->get('count'));
    }
    if ($highest) {
        $y_int = ($height * 0.90) / $highest;
    }
    else {
        $y_int = 0;
    }
    $height_subscribers = $height - ($highest * $y_int);
    $max_subscribers = $highest;

    $last_x = $left;
    if ($points) {
        $last_y = $height - ($a_points[0]->get('count') * $y_int);
    }
    else {
        $last_y = 0;
    }
    for ($i = 0; $i < $points; $i++) {
        $o_point = $a_points[$i];
        $this_y = $height - ($o_point->get('count') * $y_int);
        ImageLine($image, $last_x, $last_y,
                  min($last_x + $x_int, $right - 1), $this_y,
                  $colour_subscribers);
        $last_x += $x_int;
        $last_y = $this_y;
    }
    $height_subscribers = $height - ($highest * $y_int);

    /*
     * Draw the max-subscriber line across the graph
     */
    ImageLine($image, $left, $height_subscribers,
              $right - 1, $height_subscribers, $grey);
    ImageLine($image, 0, $height_subscribers,
              $left, $height_subscribers, $colour_subscribers);
    $string = (string)$max_subscribers;
    $px = $left - 2 - (strlen($string) * ImageFontWidth(0));
    ImageString($image, 0, $px, $height_subscribers + 3, $string,
                $colour_subscribers);

    ImageLine($image, $left, $height_posts,
              $right - 1, $height_posts, $grey);
    ImageLine($image, $right, $height_posts,
              $right + $margin, $height_posts, $colour_posts);
    $string = (string)$max_posts;
    ImageString($image, 0, $right + 2, $height_posts + 3, $string,
                $colour_posts);
    return $image;
}
?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
 <head>
  <title>The Apache Software Foundation Mailing Lists</title>
  <link rel="StyleSheet" href="global.css" type="text/css" media="all"/>
 </head>
 <body>
  <h1>The Apache Software Foundation Mailing Lists</h1>
<?php
/*
 * Okey, here we go..
 *
 * Options:
 *
 * -1              Only report on the single date specified.
 *                 Defaults to most recent; overrides -d; implies -G.
 * -d days         Only include preceding n days in calculations.
 *                 Default is all (-1).
 * -D yy-mm        As-of date.  Default is most recent in database.
 * -g              do graphs (default).
 * -h              Display octothorpes for lists processed.
 * -G              *don't* do graphs.
 * -n              do-nothing.
 * -o directory    Output directory for files.  Default is '.'.
 * -O filename     Name of master file for output (default 'index.html').
 * -s              Separate into one page per domain.
 * -S              One big HTML file.
 */
$tDirectory = '.';
$tDoc = 'index.html';
$dryRun = false;
$graphs = true;
$nDays = -1;
$asof = null;
$hash = false;
$onepage = true;

$cg = new Console_Getopt();
$a_argv = $cg->readPHPArgv();
$cgstat = $cg->getopt($a_argv, '1D:d:gGhHO:no:sS');
if (PEAR::isError($cgstat)) {
    die('Error in command line: ' . $cgstat->getMessage() . "\n");
}
foreach ($cgstat[0] as $a_opt) {
    if ($a_opt[0] == '1') {
        /*
         * How many days to inclue in the report.
         */
        $nDays = 1;
    }
    else if (($a_opt[0] == 'd') && ($nDays != 1)) {
        $nDays = $a_opt[1];
    }
    else if ($a_opt[0] == 'D') {
        $asof = $a_opt[1];
    }
    else if ($a_opt[0] == 'g') {
        /*
         * Produce and include the graphs.
         */
        $graphs = true;
    }
    else if ($a_opt[0] == 'G') {
        /*
         * Omit the charts.
         */
        $graphs = false;
    }
    else if ($a_opt[0] == 'h') {
        /*
         * Include an octothorpe on stderr for each list processed.
         */
        $hash = true;
    }
    else if ($a_opt[0] == 'H') {
        /*
         * Omit the octothorpes.
         */
        $hash = false;
    }
    else if ($a_opt[0] == 'n') {
        /*
         * Don't actually produce any output.
         */
        $dryRun = true;
    }
    else if ($a_opt[0] == 'o') {
        /*
         * Where to put the files?
         */
        $tDirectory = $a_opt[1];
    }
    else if ($a_opt[0] == 's') {
        /*
         * Separate the information into different pages by domain.
         */
        $onepage = false;
    }
    else if ($a_opt[0] == 'S') {
        /*
         * Put everything on a single Web page.
         */
        $onepage = true;
    }
    else {
        /*
         * Beats me; what option *is* this?
         */
        die('Unrecognised option: ' . array_shift($a_opt)
            . "\n"
            . print_r($a_opt, true));
    }
}

if ($nDays == 1) {
    $graphs = false;
}


$o_db = new lsDB($_SERVER['PULSE_DB_HOST'],
                 $_SERVER['PULSE_DB_USER'],
                 $_SERVER['PULSE_DB_PASSWORD']);

if (! isset($asof)) {
    $asof = $o_db->latest();
}

$o_smt = new Smarty();
$o_smt->template_dir = '/usr/local/labs/pulse/smarty/templates';
$o_smt->compile_dir = '/usr/local/labs/pulse/smarty/templates_c';
$o_smt->config_dir = '/usr/local/labs/pulse/smarty/configs';

$o_sel_current = $o_db->select(array('asof' => $asof,
                                     'status' => 'public'));
$a_mlists = $o_sel_current->mlists();
$a_domains = $o_sel_current->domains();
$total_domains = count($a_domains);
$total_lists = count($a_mlists);
print "  <p>\n"
      . "  This information is collected and analysed on a daily basis.\n"
      . '  This report was generated at ' . strftime('%c', time()) . " and\n"
      . "  covers a total of $total_lists mailing list"
      . ($total_lists == 1 ? ' ' : 's ')
      . "across $total_domains domain"
      . ($total_domains == 1 ? '' : 's')
      . ".\n"
      . "  </p>\n"
      . "  <p>\n"
      . "  The graph alongside each list shows the gross activity over the\n"
      . "  last 90 days.  The blue line\n"
      . "  represents the number of subscribers to the list, and the red\n"
      . "  line charts the number of posts <i>per</i> day.  They are not\n"
      . "  to the same scale.  <b>This graph is indicative only, showing\n"
      . "  trends, not exact counts.</b>\n"
      . "  </p>\n"
      . "  <menu>\n"
      . "   <li><a href=\"#statistics\">Statistical summaries</a></li>\n"
      . "  </menu>\n";

if ($total_domains != 0) {
    $per_cell = ceil($total_domains / 3);
    print "  <p>\n"
          . "  Jump to the lists for a domain:\n"
          . "  </p>\n"
          . "  <table class=\"TOC\">\n"
          . "   <tr valign=\"top\">\n";
    for ($i = 1; $i <= $total_domains; $i++) {
        if ((($i - 1) % $per_cell) == 0) {
            if ($i > 1) {
                print "        </menu>\n"
                      . "    </td>\n";
            }
            print "    <td><menu>\n";
        }
        print '         <li><a href="#'
              . fragmentalise($a_domains[$i - 1])
              . '">' . $a_domains[$i - 1] . "</a></li>\n";
    }
    print "        </menu>\n"
          . "    </td>\n"
          . "   </tr>\n"
          . "  </table>\n";
}

$domain = null;
$a_posts = array();
$a_meanposts = array();
$a_subs = array();

foreach ($a_mlists as $o_mlist) {
    $cdomain = $o_mlist->get('domain');
    if ($cdomain != $domain) {
        if ($domain & $hash) {
            fputs($stderr, "\n");
        }
        $domain = $cdomain;
        print "  <hr/>\n"
              . '  <h2 id="' . fragmentalise($domain) . '">Domain '
              . "<tt>$domain</tt></h2>\n";
        $o_sel_indomain = $o_db->select(array('asof' => $asof,
                                              'status' => 'public',
                                              'domain' => $domain));
        $a_scratch = $o_sel_indomain->xids();
        $n = count($a_scratch);
        print "  <p>\n"
              . "  A total of $n list"
              . ($n == 1 ? '' : 's')
              . ".\n"
              . "  </p>\n";
    }
    $mlist = $o_mlist->get('list');
    if ($hash) {
        fputs($stderr, '#');
    }
    $image = chartit($o_db, $mlist, 468, 200);
    $iname = preg_replace('/[.@]/', '_', $mlist) . '.png';
    $fname = $tDirectory
        . DIRECTORY_SEPARATOR
        . $iname;
    if (! $dryRun) {
        ImagePNG($image, $fname);
    }
    $o_sel_mlist = $o_db->select(array('list' => $o_mlist->get('list')));
    $subs = $o_mlist->subscriber_count();
    $digesters = $o_mlist->digester_count();
    $a_subs[$mlist] = $subs + (isset($digesters) ? $digesters : 0);
    $posts = $o_sel_mlist->total_posts();
    $meanposts = sprintf('%.2f', $o_sel_mlist->mean_posts());
    $a_meanposts[$mlist] = $meanposts;
    $days = $o_sel_mlist->post_days();
    $days .= ' day' . ($days == 1 ? '' : 's');
    $info = $o_mlist->info(true);
    if ($info) {
        $list = $o_mlist->get('list');
        $domani = $o_mlist->get('domain');
        $list = str_replace("@$domain", '', $list);
        $info = str_replace('<#l#>', $list, $info);
        $info = str_replace('&lt;#l#&gt;', $list, $info);
        $info = str_replace('<#h#>', $domain, $info);
        $info = str_replace('&lt;#h#&gt;', $domain, $info);
        /*
         * Try to turn all URLs into links.
         */
        $re_uri = ('\b[-_A-Za-z0-9]+://[-.A-Za-z0-9]+(?::[0-9]+)?'
                   . '(?:/[^\s()^]*)?');
        $info = preg_replace('§' . "($re_uri)" . '§',
                             '<a href="$1">$1</a>',
                             $info);
    }
    $a_posts[$mlist] = $o_mlist->get('posts');
    print "  <hr class=\"list\"/>\n"
          . '  <h3 id="' . fragmentalise($mlist) . '">Mailing list '
          . '<tt>' . safelise($mlist) . "</tt></h3>\n";
    print "  <img src=\"$iname\"\n"
          . "   width=\"468\" height=\"200\" style=\"float: right;\"\n"
          . "   alt=\"[Activity graph]\" />\n"
          . "  <p>\n"
          . "  Traffic statistics cover a total of $days.\n"
          . "  </p>\n"
          . "  <table>\n"
          . "   <tr>\n"
          . "    <td>Current subscribers:</td>\n"
          . '    <td>' . $o_mlist->subscriber_count() . "</td>\n"
          . "   </tr>\n"
          . "   <tr>\n"
          . "    <td>Current digest subscribers:</td>\n"
          . '    <td>'
          . (isset($digesters)
             ? $o_mlist->digester_count()
             : '<i>No digest available</i>')
          . "</td>\n"
          . "   </tr>\n"
          . "   <tr>\n"
          . "    <td>Total posts ($days):</td>\n"
          . "    <td>$posts</td>\n"
          . "   </tr>\n"
          . "   <tr>\n"
          . "    <td>Mean posts <i>per</i> day:</td>\n"
          . "    <td>$meanposts</td>\n"
          . "   </tr>\n"
          . "  </table>\n";
    if (isset($info)) {
        print "  <dl>\n"
              . '   <dt><b>Description provided by the list '
              . "moderators:</b></dt>\n"
              . "   <dd>\n"
              . "    <table class=\"description\">\n"
              . "     <tr>\n"
              . "      <td><pre>$info</pre></td>\n"
              . "     </tr>\n"
              . "    </table></dd>\n"
              . "  </dl>\n";
    }
    print "  <br clear=\"all\"/>\n";
}
if ($hash) {
    fputs($stderr, "\n");
}

?>
  <hr class="list"/>
  <h2 id="statistics">Statistical Summaries</h2>
  <ol class="statistics">
   <li>Top-10 busiest lists in the last collection period:
    <table>
     <tr>
      <th>List</th>
      <th>Total posts</th>
     </tr>
<?php
arsort($a_posts);
$n = 1;
foreach ($a_posts as $mlist => $posts) {
    $mlist = '<a href="#' . fragmentalise($mlist) . '"><tt>'
        . safelise($mlist) . "</tt></a";
    print "     <tr>\n"
          . "      <td>$mlist</td>\n"
          . "      <td>$posts</td>\n"
          . "     </tr>\n";
    if ($n++ > 10) {
        break;
    }
}
?>
    </table></li>
   <li>Top-10 historically busiest lists:
    <table>
     <tr>
      <th>List</th>
      <th>Posts/day</th>
     </tr>
<?php
arsort($a_meanposts);
$n = 1;
foreach ($a_meanposts as $mlist => $posts) {
    $mlist = '<a href="#' . fragmentalise($mlist) . '"><tt>'
        . safelise($mlist) . "</tt></a";
    print "     <tr>\n"
          . "      <td>$mlist</td>\n"
          . "      <td>$posts</td>\n"
          . "     </tr>\n";
    if ($n++ > 10) {
        break;
    }
}
?>
    </table></li>
   <li>Top-10 most popular lists (most subscribers) as of the last
    collection period:
    <table>
     <tr>
      <th>List</th>
      <th>Subscribers</th>
     </tr>
<?php
arsort($a_subs);
$n = 1;
foreach ($a_subs as $mlist => $subs) {
    $mlist = '<a href="#' . fragmentalise($mlist) . '"><tt>'
        . safelise($mlist) . "</tt></a";
    print "     <tr>\n"
          . "      <td>$mlist</td>\n"
          . "      <td>$subs</td>\n"
          . "     </tr>\n";
    if ($n++ > 10) {
        break;
    }
}
?>
   </table></li>
  </ol>
  <hr />
  <p>
  <i>Data collected, analysed, and presented using Perl, MySQL, PHP,
  and XML.</i>
  </p>
 </body>
</html>
<?php
$output = ob_get_contents();
ob_end_clean();
if (! $dryRun) {
    $oFilename = $tDirectory . DIRECTORY_SEPARATOR . $tDoc;
    $oFile = fopen($oFilename, 'w');
    fputs($oFile, $output);
    fclose($oFile);
}

/*
 * Local Variables:
 * mode: C
 * c-file-style: "bsd"
 * tab-width: 4
 * indent-tabs-mode: nil
 * End:
 */
?>