Source for file index.php

<?php
/*
   +----------------------------------------------------------------------+
   | PEAR Web site version 1.0                                            |
   +----------------------------------------------------------------------+
   | Copyright (c) 2004-2005 The PEAR Group                               |
   +----------------------------------------------------------------------+
   | This source file is subject to version 2.02 of the PHP license,      |
   | that is bundled with this package in the file LICENSE, and is        |
   | available at through the world-wide-web at                           |
   | http://www.php.net/license/2_02.txt.                                 |
   | If you did not receive a copy of the PHP license and are unable to   |
   | obtain it through the world-wide-web, please send a note to          |
   | license@php.net so we can mail you a copy immediately.               |
   +----------------------------------------------------------------------+
   | Authors: Martin Jansen <mj@php.net>                                  |
   +----------------------------------------------------------------------+
   $Id$
*/
require_once 'Damblan/Karma.php';
 
response_header("Quality Assurance Initiative");
?>
 
<h1>The PEAR Quality Assurance Initiative</h1>
 
<p>The PEAR Quality Assurance Initiative is designed to promote quality within PEAR.
You can find out more about how the <abbr title="Quality Assurance">QA</abbr>
team works in the <a href="/pepr/pepr-proposal-show.php?id=60">appendant RFC</a>, and the <a href="http://wiki.php.net/pear/qa">wiki</a>.
</p>
 
<p>The current members of the
 <abbr title="Quality Assurance">QA</abbr> Team are:
</p>
 
<ul>
<?php
    $karma = new Damblan_Karma($dbh);
    foreach ($karma->getUsers('pear.qa') as $user) {
        echo ' <li>' . user_link(htmlspecialchars($user['user']), true) . "</li>\n";
    }
?>
</ul>
 
<p>If you are interested in helping out, or if you have questions
concerning the <abbr title="Quality Assurance">QA</abbr>
initiative, you can contact the team using the mailing list
<a href="mailto:<?php echo PEAR_QA_EMAIL; ?>"><?php echo PEAR_QA_EMAIL; ?></a>
 (<a href="/support/lists.php">subscription information</a>).</p>
 
<?php
if ($auth_user) {
    if (auth_check('pear.dev')) {
        $str = <<<EOD
<h2>Related Tools: </h2>
<ul>
 <li><a href="/qa/packages_closed_reports_no_release.php">List of packages that have closed reports but no release within certain amount of time</a></li>
 <li><a href="/qa/patches_on_open_reports.php">List of packages with patches attached to them</a></li>
 <li><a href="/qa/packages_orphan.php">List of orphan packages</a></li>
 <li><a href="/qa/packages_orphan_patches.php">Orphan packages with patches</a></li>
 
</ul>
EOD;
        echo $str;
    }
}
 
response_footer();