trunk/wml/developer.wml

#use wml::templ::template title="Debian Developer's Packages Overview" author="Igor Genibel"

# +-------------------------------------------------------------------------+
# | Copyright (C) 2002 Igor Genibel                                         |
# |                                                                         |
# | This program is free software; you can redistribute it and/or           |
# | modify it under the terms of the GNU General Public License             |
# | as published by the Free Software Foundation; either version 2          |
# | of the License, or (at your option) any later version.                  |
# |                                                                         |
# | This program is distributed in the hope that it will be useful,         |
# | but WITHOUT ANY WARRANTY; without even the implied warranty of          |
# | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the           |
# | GNU General Public License for more details.                            |
# +-------------------------------------------------------------------------+
# | This code is currently maintained and debugged by Igor Genibel, any     |
# | questions or comments regarding this code should be directed to:        |
# | - igor@genibel.org                                                      |
# +-------------------------------------------------------------------------+
# | - Igor Genibel - http://genibel.org/                                    |
# | $Id$
# +-------------------------------------------------------------------------+

<style type="text/css">
a.dash:link,a.dash:visited,a.dash:active {
    text-decoration: none;
}
</style>

<?

$branch = array ("main", 
               "contrib", 
               "non-free", 
               "non-US/main", 
               "non-US/contrib", 
               "non-US/non-free" );

setlocale(LC_ALL, 'fr_FR');

$prefix="/org/qa.debian.org/data/ddpo/results";
#$prefix="/home/igenibel/qa.debian.org/data/ddpo/results";

function bug_display($bug_number)
{
        preg_match("/(\d+)\((\d+)\)/", $bug_number, $result);
        if (strcmp($result[1], $result[2]) == 0) 
        {
                return $result[1];
        }else{
                return $bug_number;
        }
}

function printBackLink() {
?>
<p><a href="developer.php">Back to main page</a></p>
<?
}

function print_header_entries_top($keys, $name)
{
    ?>
<h1 align="center">Packages overview for <?print $name?></h1>

<p><strong>General information:</strong></p>
<?
  if ($keys == "NOID") {
?>
<p><font size="+1" color="red">GPG key id not found!</font>
<font size="-2">(key id was not found neither in the Debian keyring
nor on a public keyserver)</font></p>
<?
}else{
   foreach (explode(",", $keys) as $key) {
?>
<small>GPG key id: <a href="developer.php?gpg_key=<?print $key?>"><?print $key?></a></small><br>
<?
   }
}
}

function print_header_entries_body($login, $key, $name)
{
  global $prefix;
  $lintian = preg_replace("/[\s-\"�'�]/", "_", $name);
  $fp = fopen("$prefix/../../ftp/Maintainers", "r");
  $ok = 0;
  while(!feof($fp)) {
    $line = fgets($fp, "10240");
    if (preg_match("/$login/", $line)) {
      $ok = 1;
      if (preg_match("/$login \(/", $line)) {
          $buildd=urlencode("$login ($name) ");
      }else{
          $buildd=urlencode("$name <$login> ");
      }
    }
    if ($ok == 1 ) {
       break;
    }
  }
  fclose($fp); 
?>
<small>
<a href="http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=maint&amp;data=<? print $login ?>&amp;archive=no&amp;raw=yes&amp;bug-rev=yes&amp;pend-exc=fixed&amp;pend-exc=done">Non-fixed bugs, most recent first</a><br>
<a href="http://bugs.debian.org/cgi-bin/pkgreport.cgi?maint=<?print $login?>">All bugs related to &lt;<?print $login?>&gt;</a><br>
<a href="http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=maint&amp;data=<?print rawurlencode($login)?>&amp;archive=no&amp;pend-exc=done&amp;sev-inc=critical&amp;sev-inc=grave&amp;sev-inc=serious">RC Bugs related to &lt;<?print $login?>&gt;</a><br>
<a href="http://bugs.debian.org/cgi-bin/pkgreport.cgi?submitter=<?print $login?>">All bugs submitted by &lt;<?print $login?>&gt;</a><br>
<a href="http://lintian.debian.org/reports/m<?print $lintian?>.html">Lintian report</a><br>
<a href="http://buildd.debian.org/bymaint.php?maint=<?print "$buildd"?>">Buildd report</a><br>
<a href="http://www.debian.gr.jp/~kitame/maint.cgi?num=srcs&amp;limit=0&amp;showpkgs=on&amp;maint=<?print "$login"?>">Bug statistics</a><br>
</small>

<hr>
<small>
<b>Packages in <font color="blue">blue</font> are packages that are co-maintained by developer (reference to Uploaders: field)</b><br>
<b>Packages version in <font color="red">red</font> are NMUed</b><br>
<b>Packages where testing version in <font color="#ff00ff">magenta</font> are those where the unstable version differs from the version in testing</b><br><br>
<b><u>The real number of bugs is displayed in each bugs column. Within parenthesis the total (including merged bugs) is displayed only if there is merged bugs</u></b>
</small>
<?
}

#
# print info for not found developer
#

function print_notfound($login)
{
  print "<h2>No information available for $login</h2>";
}


#
# print the form because no login provided
#

function print_form()
{
?>

<h1>Debian Developer's Packages Overview</h1>

<p>Use the following search forms to determine the Debian developer whose
packages overview you wish to see:</p>

<p>Search based on the <tt>Maintainer</tt> field in packages:
<form method="GET" action="developer.php">
<input size="30" maxsize="40" type="text" limit="16" name="login" value="">
<input type="submit" value="Find">
</form>
<small>
If a single username is provided, @debian.org is automatically appended.
<br>
If you start with an uppercase letter or type two words, it is assumed that
you want to do a (partial) match on the maintainer name.
</small>

<p>Search based on a GPG key ID:
<form method="GET" action="developer.php">
<input size="8" maxsize="8" type="text" limit="8" name="gpg_key" value="">
<input type="submit" value="Find">
</form>

<p>Search based on a source package name:
<form method="GET" action="developer.php">
<input size="20" maxsize="30" type="text" limit="20" name="package" value="">
<input type="submit" value="Go">
</form>

<?
}


function print_query_all()
{
?>

<p>Do you want to see the complete, sorted list of developers?
<strong>(>200kb!)</strong>
<form method="POST" action="developer.php">
 <input type="hidden" name="all" value="1">
 <input type="submit" value="Show the list">
</form>

<?
}

function print_all()
{
  global $prefix;
  $fp = fopen("$prefix/extract", "r");
?>

<hr>

<h2>Sorted developer list</h2>

<table width="100%" border="1">
  <tr align="center">
  <td width="60%">
  <b>Name and email</b>
  </td>
  <td>
  <b>main</b>
  </td>
  <td>
  <b>non-US</b>
  </td>
  <td>
  <b>Other <font size="-3" color="blue"><br>all contrib &amp;<br>non-free<br>packages</font></b>
  </td>
  <td>
  <b>Total</b>
  </td>
  </tr>

<?
  while(!feof($fp)) {
    $line = fgets($fp, "10240");
    if($line != "") {
      $count = 0;
      $line = preg_replace("/, /", ",", $line);
      preg_match("/;(.+?);(.+?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*)$/", $line, $info_array);
      print '<tr align="center">';
      print '<td width="15%">';
      print "<b><a href=\"$index_page?login=$info_array[1]\">$info_array[3] &lt;$info_array[1]&gt;</a></b>";
      print '</td>';
      $main = 0;
      $nonUS = 0;
      $other = 0;
      if($info_array[4] != "") {
        $main += count(explode(" ", $info_array[4]));
        $count += count(explode(" ", $info_array[4]));
      }
      if($info_array[5] != "") {
        $other += count(explode(" ", $info_array[5]));
        $count += count(explode(" ", $info_array[5]));
      }
      if($info_array[6] != "") {
        $nonUS += count(explode(" ", $info_array[6]));
        $count += count(explode(" ", $info_array[6]));
      }
      if($info_array[7] != "") {
        $other += count(explode(" ", $info_array[7]));
        $count += count(explode(" ", $info_array[7]));
      }
      if($info_array[8] != "") {
        $other += count(explode(" ", $info_array[8]));
        $count += count(explode(" ", $info_array[8]));
      }
      if($info_array[9] != "") {
        $other += count(explode(" ", $info_array[9]));
        $count += count(explode(" ", $info_array[9]));
      }

?>
<td><? print $main?></td>
<td><? print $nonUS?></td>
<td><? print $other?></td>
<td><b><? print $count?></b></td>
</tr> 
<?
    }
  }
  print '</table>';
}

function get_rep($package_name)
{
  if(preg_match("/^lib/", $package_name)) {
    return substr($package_name, 0, 4);
  }else{
    return substr($package_name, 0, 1);
  }
}

# Check whether there is a debcheck entry for that package
function debcheckavailable($branch, $package_name) {
  $package = ereg_replace ("\.", "_", $package_name);
  if (ereg ("[^a-zA-Z0-9+_-]", $package) ||
    ($branch != "oldstable" && $branch != "stable" && $branch != "testing" && $branch != "unstable")) {
    return 0;
  }
  $BASEDIR='/org/qa.debian.org/data/debcheck/result/';
  return file_exists($BASEDIR.'/'.$branch.'/packages/'.$package);
}

#
# This function print a package table information for specific branch 
# given in argument
#
function print_package_entries($branch, $packages)
{

  $packages = preg_replace ("/, /", ",", $packages);
  $pack_array = split(" ", $packages);

?>

<h3>Packages in <em><?print $branch?></em> (<?print count($pack_array)?>)</h3>

<table width="100%" border="1" cellpadding="3" cellspacing="1">
<tr align="center">
<th rowspan="2"><small><font color="green">Source&nbsp;Name</font></small></th>
<th rowspan="1" colspan="5"><small><font color="green">Bugs(see above)</font></small></th>
<th rowspan="1" colspan="5"><small><font color="green">Version</font></small></th>
<th rowspan="1" colspan="2"><small><font color="green">Security</font></small></th>
<th rowspan="2"><small><font color="green">Binary<br> Package Page</font></small></th>
<th rowspan="2"><small><font color="green">Buildd</font></small></th>
<th rowspan="2"><small><font color="green">Excuses</font></small></th>
<th rowspan="1" colspan="3"><small><font color="green">Broken dependencies</font></small></th>
<th rowspan="2"><small><font color="green">Section</font></small></th>
<th rowspan="2"><small><font color="green">Priority</font></small></th>
<th rowspan="2"><small><font color="green">Pool</font></small></th>
<th rowspan="1" colspan="3"><small><font color="green"><a href="http://www.debian.org/devel/testing">Uninstallable</a></font></small></th>
</tr>
<tr align="center">
<th><small><u><font color="green"><span title="All opened bugs">All</span></font></u></small></th>
<th><small><u><font color="green"><span title="Release Critical bugs">RC</span></font></u></small></th>
<th><small><u><font color="green"><span title="Important &amp; Normal bugs">I&amp;N</span></font></u></small></th>
<th><small><u><font color="green"><span title="Minor &amp; Wishlist bugs">M&amp;W</span></font></u></small></th>
<th><small><u><font color="green"><span title="Fixed &amp; Pending bugs">F&amp;P</span></font></u></small></th>
<th><small><font color="green">Stable</font></small></th>
<th><small><font color="green">Testing</font></small></th>
<th><small><font color="green">Unstable</font></small></th>
<th><small><u><font color="green"><span title="Stable Proposed updates">Prop. Up.</span></font></u></small></th>
<th><small><font color="green">Exp.</font></small></th>
<th><small><font color="green">Stable</font></small></th>
<th><small><font color="green">Testing</font></small></th>
<th><small><font color="green">Stable</font></small></th>
<th><small><font color="green">Testing</font></small></th>
<th><small><font color="green">Unstable</font></small></th>
<th><small><font color="green">Stable</font></small></th>
<th><small><font color="green">Testing</font></small></th>
<th><small><font color="green">Unstable</font></small></th>
</tr>
<?
foreach ($pack_array as $package)
{
  global $prefix;
#  print "<<< $package >>>";
#  $upstream = $package[1];
  preg_match("/(.+)\((.+)\)/", $package, $result);
  $list = split (",", $result[2]);
  $package_name = $result[1];
  if(preg_match("/#/", $package)) {
    $uploader = 1;
    $package = preg_replace("/#/", "", $package);
  }
  if(preg_match("/%/", $package)) {
    $all = 1; 
    $package = preg_replace("/%/", "", $package);
  }
  preg_match("/(.+?)\[(.+)\]\{(.+)\}\{(.+)\}\{(.+)\}\|(.*)\|:(.*):/", $package, $results);
  $package = $package_name;
  $version = $results[2];
  $versions = explode (",", $version);
  $version_stable = $versions[0];
  $version_testing = $versions[1];
  $version_unstable = $versions[2];
  $version_prop = $versions[3];
  $version_experimental = $versions[4];
  $security_stable = $versions[5];
  $security_testing = $versions[6];
  $uninstalable_stable = preg_replace("/,/", "&nbsp;", $results[3]);
  $uninstalable_testing = preg_replace("/,/", "&nbsp;", $results[4]);
  $uninstalable_unstable = preg_replace("/,/", "&nbsp;", $results[5]);
  $priority = $results[6];
  $section = $results[7];

  $fp = fopen("$prefix/bugs.txt", "r");
  $bug_list = explode(" ", "0(0) 0(0) 0(0) 0(0)");
  $temp = preg_replace("/\+/", "_", $package);
  while(!feof($fp)) {
        $line = fgets($fp, "512");
        $line = preg_replace("/\+/", "_", $line);
        if(preg_match("/^$temp\s+(\d+\(\d+\)\s\d+\(\d+\)\s\d+\(\d+\)\s\d+\(\d+\))/", $line, $results)) {
                $bug_list = explode(" ", $results[1]);
                break;
        }
  }
  fclose($fp);

  if(strcmp($version_stable, "-") == 0 || !debcheckavailable('stable', $package)) {
    $stable_dep = "<small>-</small>";
  }else{
    $stable_dep = '<small><a href="http://qa.debian.org/debcheck.php?dist=stable&amp;package=' . rawurlencode($package) .'">Stable</a></small>';
  }

  if(strcmp($version_testing, "-")== 0 || !debcheckavailable('testing', $package)) {
    $testing_dep = "<small>-</small>";
  }else{
    $testing_dep = '<small><a href="http://qa.debian.org/debcheck.php?dist=testing&amp;package=' . rawurlencode($package) .'">Testing</a></small>';
  }

  $buildd = "http://buildd.debian.org/build.php?pkg=".$package;
  if(preg_match("/non-US/", $branch)) {
    $pool = "http://non-us.debian.org/debian-non-US/pool/". $branch . "/" .get_rep($package) . "/" . $package . "/";
  }else{
    $pool = "http://ftp.debian.org/debian/pool/". $branch . "/" .get_rep($package) . "/" . $package . "/";
  }

  if(strcmp($version_unstable, "-")== 0 || !debcheckavailable('unstable', $package)) {
    $sid_dep = "<small>-</small>";
  }else{
    $sid_dep = '<small><a href="http://qa.debian.org/debcheck.php?dist=unstable&amp;package=' . rawurlencode($package) . '">Unstable</a></small>';
  }
  $char = substr($package, 0, 1);
  if(file_exists("$prefix/excuses/$char/$package")) {
    $excuse = "<a href=\"developer.php?excuse=$package\">Excuses</a>";
  }else{
    $excuse = "-";
  }
  if(strcmp($version_prop, "-")) {
    $version_prop = '<font color="#2222AA"><b>' . $version_prop . '</b></font>';
  }
  $prop = '<td rowspan="1" colspan="1"><small>' . $version_prop . '</small></td>';
  if(strcmp($version_experimental, "-")) {
    $version_experimental = '<font color="2222AA"><b>' . $version_experimental . '</b></font>';
  }
  $experimental = '<td rowspan="1" colspan="1"><small>' . $version_experimental . '</small></td>';


  if((strcmp ($version_stable, $version_testing) == 0) && 
     (strcmp ($version_stable, "/") != 0)) {
     if((strcmp ($version_unstable, $version_testing) == 0)) {
    $version_print = '<td rowspan="1" colspan="3"><small>' . $version_stable . '</small></td>' .$prop .$experimental;
    }else{
        $version_print = '<td rowspan="1" colspan="2"><small><font color="#ff00ff">' . $version_stable . '</font></small></td><td rowspan="1" colspan="1"><small>' . $version_unstable . '</small></td>' . $prop .$experimental;
    }
    $ver = explode("-", $version_unstable);
    if((preg_match("/(.+\..+?)$/", $ver[count($ver) - 1], $toto)) && (count($ver) != 1))
        {
      $version_print = preg_replace("/$version_unstable/", "<font color=\"red\">$version_unstable</font>", $version_print);
    }
  }else if(strcmp ($version_testing, $version_unstable) == 0) {
    if(strcmp($version_stable, "/") != 0) {
      $version_stable = '<font color="#00AADD">'.$version_stable.'</font>';
    }
    $version_print = '<td><small>'.$version_stable.'</small></td><td rowspan="1" colspan="2"><small>' . $version_testing .'</small></td>' .$prop . $experimental;
    $ver = explode("-", $version_unstable);
    if((preg_match("/(.+\..+?)$/", $ver[count($ver) - 1], $toto)) && (count($ver) != 1))
        {
      $version_print = preg_replace("/$version_unstable/", "<font color=\"red\">$version_unstable</font>", $version_print);
    }
  }else {
    if(strcmp($version_stable, "/") != 0) {
      $version_stable = '<small><font color="#00AADD">'.$version_stable.'</font></small>';
    }else{
      $version_stable = '<small>'.$version_stable.'</small>';
    }
    $version_print = '<td>' . $version_stable . '</td><td><small><font color="#ff00ff">'.$version_testing . '</font></small></td><td><small>'.$version_unstable.'</small></td>' . $prop .$experimental;
    $ver = explode("-", $version_unstable);
    if((preg_match("/(.+\..+?)$/", $ver[count($ver) - 1], $toto)) && (count($ver) != 1))
       {
      $version_print = preg_replace("/$version_unstable/", "<font color=\"red\">$version_unstable</font>", $version_print);
    }
  }

?>
  <tr align="center">
  <td width="15%">
  <small>
<?
  if ($uploader == 1) {
    print '<font color="blue">';
  }
  print "<b>$package</b><a href=\"http://packages.qa.debian.org/".get_rep($package)."/$package.html\">[pts]</a>";
  if ($uploader == 1) {
    print '</font>';
    $uploader = 0;
  }
?>
  </small>
  </td>
  <td>
  <small>
<?
  $bugs = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?src=". rawurlencode($package)."&amp;repeatmerged=yes&amp;archive=no&amp;pend-exc=pending-fixed&amp;pend-exc=fixed&amp;pend-exc=done";
  $nobugs = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?src=". rawurlencode($package)."&amp;repeatmerged=yes&amp;archive=no";
  $bugs_all = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?src=". rawurlencode($package);
     $bug_count = $bug_list[0] + $bug_list[1] + $bug_list[2] + $bug_list[3];
     $real_bug_count = 0;
     for ($i = 0; $i <= count($bug_list); $i++) {
        preg_match("/\d+\((\d+)\)/", $bug_list[$i], $count_array);
        $real_bug_count += $count_array[1];
}
        if($bug_count == 0) { ?>
        <a class="dash" href="<?print $bugs_all?>">-</a>
<? }else{ ?>
  <a href="<?print $bugs_all?>"><? print bug_display("$bug_count($real_bug_count)"); ?></a>
<? } ?>
  </small>
  </td>
  <td>
  <small>
<?
        if(!strcmp($bug_list[0], "0(0)")) { ?>
  <a class="dash" href="<? print $nobugs; ?>&amp;sev-inc=critical&amp;sev-inc=grave&amp;sev-inc=serious">-</a>
<? }else{ ?>
  <a class="a" href="<? print $bugs; ?>&amp;sev-inc=critical&amp;sev-inc=grave&amp;sev-inc=serious"><? print bug_display($bug_list[0]); ?></a>
<? } ?>
  </small>
  </td>
  <td>
  <small>
<?
        if(!strcmp($bug_list[1], "0(0)")) { ?>
  <a class="dash" href="<? print $nobugs; ?>&amp;sev-inc=important&amp;sev-inc=normal">-</a>
<? }else{ ?>
  <a class="a" href="<? print $bugs; ?>&amp;sev-inc=important&amp;sev-inc=normal"><? print bug_display($bug_list[1]); ?></a>
<? } ?>
  </small>
  </td>
  <td>
  <small>
<?
        if(!strcmp($bug_list[2], "0(0)")) { ?>
  <a class="dash" href="<? print $nobugs; ?>&amp;sev-inc=minor&amp;sev-inc=wishlist">-</a>
<? }else{ ?>
  <a class="a" href="<? print $bugs; ?>&amp;sev-inc=minor&amp;sev-inc=wishlist"><? print bug_display($bug_list[2]); ?></a>
<? } ?>
  </small>
  </td>
  <td>
  <small>
<?
        if(!strcmp($bug_list[3], "0(0)")) { ?>
  <a class="dash" href="http://bugs.debian.org/cgi-bin/pkgreport.cgi?src=<? print rawurlencode($package); ?>&amp;repeatmerged=yes">-</a>
<? }else{ ?>
  <a class="a" href="http://bugs.debian.org/cgi-bin/pkgreport.cgi?src=<? print rawurlencode($package); ?>&amp;repeatmerged=yes&amp;archive=no&amp;pend-inc=pending-fixed&amp;pend-inc=fixed"><? print bug_display($bug_list[3]); ?></a>
<? } ?>
  </small>
  </td>
<?  

  print $version_print;
  if(strcmp($security_stable,"-")) {
        $security_stable = "<font color=\"red\">$security_stable</font>";
  }
  if(strcmp($security_testing,"-")) {
        $security_testing = "<font color=\"red\">$security_stable</font>";
  }
  print '<td><small>'.$security_stable.'</small></td><td><small>'.$security_testing.'</small></td>';
?> 
  <td width="15%">
  <small>
<?
  for ($i = 1; $i <= count($list); $i++) {
    $url = rawurlencode("${list[$i -1]}");
    print '<a href="http://packages.debian.org/'; 
    print $url;
    print '">'; 
    print $i; 
    print "</a>";
    if(($i % 3 ) == 0) {
      print " ";
    }else{
      print "&nbsp;";
    }
  }
?>
  </small>
  </td>
  <td>
  <small>
<?
  if($all == 1 || preg_match("/non-free/", $branch) || (strcmp($version_unstable, "-") == 0)) {
    print "-";
    $all = 0;
  }else{
    print "<a href=\"$buildd\">Buildd</a>";
  }
?>
  </small>
  </td>
  <td>
  <small>
<?
  print $excuse;
?>
  </small>
  </td>
  <td>
  <?print $stable_dep?>
  </td>
  <td>
  <?print $testing_dep?>
  </td>
  <td>
  <?print $sid_dep?>
  </td>
  <td>
<?
        print "<small>$section</small>";
?>   
  </td>
  <td>
<?
        print "<small>$priority</small>";
?>   
  </td>
  <td>
  <small>
  <a href="<?print $pool?>">Pool</a>
  </small>
  </td>
  <td>
<?
        print "<small>$uninstalable_stable</small>";
?>   
</td>
  <td>
<?
        print "<small>$uninstalable_testing</small>";
?>   
</td>
  <td>
<?
        print "<small>$uninstalable_unstable</small>";
?>   
</td>
  </tr>
<?
}
?>
</table>
<?
    }

if($excuse != "") {
        $char = substr($excuse, 0, 1);
        $excuse = preg_replace("/ /", "+", $excuse);
        if(file_exists("$prefix/excuses/$char/$excuse")) {
                $fp = fopen("$prefix/excuses/$char/$excuse","r");
                print fread ($fp, filesize ("$prefix/excuses/$char/$excuse"));
                fclose($fp);
        }else{
                print "<h2>No excuse for $excuse</h2>";
        }
}else if($gpg_key != "") {
  $contents = file("$prefix/extract");

  $printed = 0;
  $match = 0;

  $gpg_key = preg_replace ("/0x/i", "", $gpg_key);
  foreach ($contents as $line) {
    if(preg_match("/;(.+?);(.*$gpg_key.*);(.+?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*)/i", $line, $pack_array)) {
      $match += 1;
      if($printed == 0) {
        print_header_entries_top($pack_array[2], $pack_array[3]);
        $printed = 1;
      }else{
        print "<hr>";
      }
      
      print_header_entries_body($pack_array[1], $pack_array[2], $pack_array[3]);
      $count = 4;
      foreach ($branch as $value) {
        if($pack_array[$count] != "") {
          print_package_entries($value, $pack_array[$count]);
        }
        $count += 1;
      }    
    }
  }
  if($match == 0) {
    print_notfound($gpg_key);
  }
  
  printBackLink();
}else if($login != "") {
  $fp = fopen("$prefix/extract", "r");
  $contents = fread($fp, filesize ("$prefix/extract"));

  if (preg_match("/\S \S/", $login) || preg_match("/^[A-Z][^@]+$/", $login)) {
    if (preg_match("/;(.*?);(.*?);(.*$login.*);(.*?);(.*?);(.*?);(.*?);(.*?);(.*)/", $contents, $pack_array)) {
      print_header_entries_top($pack_array[2], $pack_array[3]);
      print_header_entries_body($pack_array[1], $pack_array[2], $pack_array[3]);
      $count = 4;
      foreach ($branch as $value) {
        if($pack_array[$count] != "") {
          print_package_entries($value, $pack_array[$count]);
        }
        $count += 1;
      }
    } else {
      print_notfound($login);
    }
  } else {
    if (! preg_match("/@/", $login)) {
      $login .= "@debian.org";
    }
    if (preg_match("/;$login;(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*)/i", $contents, $pack_array)) {
      print_header_entries_top($pack_array[1], $pack_array[2]);
      print_header_entries_body($login, $pack_array[1], $pack_array[2]);
      $count = 3;
      foreach ($branch as $value) {
        if($pack_array[$count] != "") {
          print_package_entries($value, $pack_array[$count]);
        }
        $count += 1;
      }
    } else {
      print_notfound($login);
    }
  }
  fclose($fp);
  printBackLink();
}else if ($package != "") {
  $fp = fopen("$prefix/extract", "r");
  $found = 0;
  if(preg_match("/\+\+/", $package)) {
        $package_short = preg_replace("/\+/", "", $package);
        $regexp="/[ ;]$package_short..\(/";
  }elseif(preg_match("/\+/", $package)){
        $package_short = preg_replace("/\+/", "", $package);
        $regexp="/[ ;]$package_short.\(/";
  }else{
        $regexp="/[ ;]$package\(/";
  }
  while(!feof($fp)) {
    $line = fgets($fp, "32768");
    if(preg_match("$regexp", $line, $results)) {
      $found = 1;
      preg_match("/;(.+?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*)/i", $line, $pack_array);
      print_header_entries_top($pack_array[2], $pack_array[3]);
      print_header_entries_body($pack_array[1], $pack_array[2], $pack_array[3]);
      $count = 4;
      foreach ($branch as $value) {
        if($pack_array[$count] != "") {
          print_package_entries($value, $pack_array[$count]);
        }
        $count += 1;
      }
    }
  }
  if($found == 0) {
    print_notfound($package);
  }
  fclose($fp);
  printBackLink();
}else{
  print_form();
  if($all) {
    print_all();
  }else{
    print_query_all();
  }
}

$fp = fopen("$prefix/extract.date", "r");
$general = fgets($fp, "512");
fclose($fp);
$fp = fopen("$prefix/bugs.date", "r");
$bugs = fgets($fp, "512");
fclose($fp);
?>

<hr>

<p><small>
Last updated:<br>
General information: <? print $general; ?><br>
Bug information: <? print $bugs; ?><br>
General information is updated once a day.<br>
Bug information is updated every 15 minutes.
</small></p>
Name	Value
svn:eol-style	native
svn:keywords	Author Date Id Revision