#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$
# +-------------------------------------------------------------------------+

<?

$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 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) {
?>
<font size="-1">GPG key id: <a href="developer.php?gpg_key=<?print $key?>"><?print $key?></a></font><br>
<?
   }
}
}

function print_header_entries_body($login, $key, $name)
{
  $lintian = preg_replace("/[\s-\"í']/", "_", $name);
  $buildd=urlencode("$name <$login> ");
?>
<font size="-1">
<a href="http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=maint&data=<? print $login ?>&archive=no&raw=yes&bug-rev=yes&pend-exc=fixed&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&data=<?print rawurlencode($login)?>&archive=no&pend-exc=done&sev-inc=critical&sev-inc=grave&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>
</font>

<hr>
<font size="-1">
<b>Packages in <font color="blue">blue</font> are packages that are uploaded 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="purple">purple</font> are those where the unstable version differs from the version in testing</b>
</font>
<?
}

#
# 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)
</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 &<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></h3>

<table width="100%" border="1" cellpadding="0">
<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</font></small></th>
<th rowspan="1" colspan="4"><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">Uninstallable</font></small></th>
</tr>
<tr align="center">
<th><small><font color="green"><span title="All opened bugs">All</a></font></small></th>
<th><small><font color="green"><span title="Release Critical bugs">RC</a></font></small></th>
<th><small><font color="green"><span title="Important & Normal bugs">I&amp;N</a></font></small></th>
<th><small><font color="green"><span title="Minor & Wishlist bugs">M&amp;W</a></font></small></th>
<th><small><font color="green"><span title="Fixed & Pending bugs">F&amp;P</a></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">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_experimental = $versions[3];
  $security_stable = $versions[4];
  $security_testing = $versions[5];
  $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");
  $temp = preg_replace("/\+/", "_", $package);
  while(!feof($fp)) {
  	$line = fgets($fp, "512");
	$line = preg_replace("/\+/", "_", $line);
	if(preg_match("/^$temp\s+(\d+\s\d+\s\d+\s\d+)/", $line, $results)) {
		$bug_list = explode(" ", $results[1]);
		break;
	}

  }
  fclose($fp);

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

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

  $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 = "<font size=\"-1\">-</font>";
  }else{
    $sid_dep = '<font size="-1"><a href="http://qa.debian.org/debcheck.php?dist=unstable&package=' . rawurlencode($package) . '">Unstable</a></font>';
  }
  $char = substr($package, 0, 1);
  if(file_exists("$prefix/excuses/$char/$package")) {
    $excuse = "<a href=\"developer.php?excuse=$package\">Excuses</a>";
  }else{
    $excuse = "No";
  }
  
  if(strcmp($version_experimental, "-")) {
    $version_experimental = '<font color="2222AA"><b>' . $version_experimental . '</b></font>';
  }
  $experimental = '<td rowspan="1" colspan="1"><font size="-1">' . $version_experimental . '</font></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"><font size="-1">' . $version_stable . '</font></td>' .$experimental;
    }else{
 	$version_print = '<td rowspan="1" colspan="2"><font size="-1" color="purple">' . $version_stable . '</font></td><td rowspan="1" colspan="1"><font size="-1">' . $version_unstable . '</font></td>' . $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" size="-1">'.$version_stable.'</font>';
    }
    $version_print = '<td><font size="-1">'.$version_stable.'</font></td><td rowspan="1" colspan="2"><font size="-1">' . $version_testing .'</font></td>' .$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 = '<font color="#00AADD" size="-1">'.$version_stable.'</font>';
    }else{
      $version_stable = '<font size="-1">'.$version_stable.'</font>';
    }      
    $version_print = '<td>' . $version_stable . '</td><td><font size="-1" color="purple">'.$version_testing . '</font></td><td><font size="-1">'.$version_unstable.'</font></td>' . $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%">
  <font size="-1"
<?
  if($uploader == 1) {
    print ' color="blue"';
    $uploader = 0;
  }
     print "><b>$package</b><a href=\"http://pts.debian.net/".get_rep($package)."/$package.html\">[pts]</a>";
?></font></td>
  <td>
  <font size="-1">
<?
  $bugs = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?src=". rawurlencode($package)."&repeatmerged=yes&archive=no&pend-exc=pending-fixed&pend-exc=fixed&pend-exc=done";
  $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];
	if($bug_count == 0) { ?>
  <font size="-1">0</font>
<? }else{ ?>
  <a href="<?print $bugs_all?>"><? print $bug_count; ?></a>
<? } ?>
  </font>
  </td>
  <td>
<?
	if(!strcmp($bug_list[0], "0")) { ?>
  <font size="-1">0</font>
<? }else{ ?>
  <font size="-1"><a class="a" href="<? print $bugs; ?>&sev-inc=critical&sev-inc=grave&sev-inc=serious"><? print $bug_list[0]; ?></a></font>
<? } ?>
  </td>
  <td>
<?
	if(!strcmp($bug_list[1], "0")) { ?>
  <font size="-1">0</font>
<? }else{ ?>
  <font size="-1"><a class="a" href="<? print $bugs; ?>&sev-inc=important&sev-inc=normal"><? print $bug_list[1]; ?></a></font>
<? } ?>
  </td>
  <td>
<?
	if(!strcmp($bug_list[2], "0")) { ?>
  <font size="-1">0</font>
<? }else{ ?>
  <font size="-1"><a class="a" href="<? print $bugs; ?>&sev-inc=minor&sev-inc=wishlist"><? print $bug_list[2]; ?></a></font>
<? } ?>
  </td>
  <td>
<?
	if(!strcmp($bug_list[3], "0")) { ?>
  <font size="-1">0</font>
<? }else{ ?>
  <font size="-1"><a class="a" href="http://bugs.debian.org/cgi-bin/pkgreport.cgi?src=<? print rawurlencode($package); ?>&repeatmerged=yes&archive=no&pend-inc=pending-fixed&pend-inc=fixed"><? print $bug_list[3]; ?></a></font>
<? } ?>
  </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><font size="-1">'.$security_stable.'</font></td><td><font size="-1">'.$security_testing.'</font></td>';
?> 
  <td width="15%">
  <font size="-1">
<?
  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;";
    }
  }
?>
  </font>
  </td>
  <td>
  <font size="-1">
<? 
  if($all == 1) {
    print "Arch. All";
    $all = 0;
  }else{
    print "<a href=\"$buildd\">Buildd</a>";
  }
?>
  </font>
  </td>
  <td>
  <font size="-1">
<?
  print $excuse;
?>
  </font>
  </td>
  <td>
  <?print $stable_dep?>
  </td>
  <td>
  <?print $testing_dep?>
  </td>
  <td>
  <?print $sid_dep?>
  </td>
  <td>
<?
	print "<font size=\"-1\">$section</font>";
?>	
</td>
  <td>
<?
	print "<font size=\"-1\">$priority</font>";
?>	
</td>
  <td>
  <font size="-1">
  <a href="<?print $pool?>">Pool</a>
  </font>
  </td>
  <td>
<?
	print "<font size=\"-1\">$uninstalable_stable</font>";
?>	
</td>
  <td>
<?
	print "<font size=\"-1\">$uninstalable_testing</font>";
?>	
</td>
  <td>
<?
	print "<font size=\"-1\">$uninstalable_unstable</font>";
?>	
</td>
  </tr>
<?
}
?>
</table>
</font>
<?
    }

if($excuse != "") {
	$char = substr($excuse, 0, 1);
	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("/@/i", $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, "8192");
    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>
<div align="left">
<p><small>
Last updated:<br>
General information: <? print $general; ?><br>
Bugs information: <? print $bugs; ?>
</small></p>
</div>