trunk/wml/developer.wml

<?
# keep the header in php generated file
<protect>/*
+-------------------------------------------------------------------------+
| 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$
+-------------------------------------------------------------------------+

*/</protect>
header('Content-Type: text/html; charset="utf-8"');
header('Content-Script-Type: text/javascript');
header('Content-Style-Type: text/css');
header('Pragma: no-cache');

// global variables
$arg_cookie = array();
$prefix="/org/qa.debian.org/data/ddpo/results";
$counter_span = 0;
$already_displayed = false;
$no_packages = false;

error_reporting(0);
$time = microtime();

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

setlocale(LC_ALL, 'fr_FR');
setlocale(LC_TIME, 'C');
setlocale(LC_NUMERIC, 'C');

/* pick up cookies information  or generate default one */
if (!empty($_COOKIE['columnsinfo']) and ($_GET['reset'] != 'yes')) 
{
    $tmp = $_COOKIE['columnsinfo']; 
    $arg_cookie = unserialize(base64_decode($tmp));
}else{
    $arg_cookie = array ( bugs => 1,
                          version => 1,
                          excuses => 1,
                          watch => 1,
                          bin => 1,
                          buildd => 1,
                          security => 1,
                          problems => 1,
                          section => 1,
                          priority => 1,
                          pool => 1,
                          uninstallable => 1);
}
/* always set cookie with that values in order to keep it 3 months old since the last visit */
setcookie('columnsinfo', base64_encode(serialize($arg_cookie)), strtotime('+3 month'));


/* if the "reset" arg is passed, need to extract action parameter in order to store the 
   value into the new cookie */
if($_GET['reset'] != 'yes') 
{
    foreach(array_keys($_GET) as $key)
    {
        if (($key == 'comaint') or ($key == 'login') or ($key == 'package') or ($key == 'wnpp') or ($key == 'gpg_key') or ($key == 'popcon'))
        {
            continue;
        }else{
            $arg_cookie[$key] = $_GET[$key];
        }
    }
    if ($_GET['set'] == 'yes') setcookie('columnsinfo', base64_encode(serialize($arg_cookie)), strtotime('+3 month'));
}

?>


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

{#style#:
<style type="text/css">
a.dash:link,a.dash:visited,a.dash:active {text-decoration: none;}
.general {color:black} 
.span_general {    text-align:left;
        cursor:pointer;
        border-bottom-style:dashed;
        border-width:thin} 
h3 { font-family: Arial, Helvetica, sans-serif;
margin-left:10px }
</style>
:##}

{#script#:
<script type="text/javascript" language="JavaScript"> 
function objectOver(x){ 
  x.style.color="blue";
} 
function objectOut(x){
  x.style.color="black";
}
function collapse(x, txt){ 
  var oTemp=document.getElementById("text_"+x) ;
  var oClick=document.getElementById("click_"+x);

  if(oTemp.style.display=="block"){ 
    oTemp.style.display="none"; 
    oClick.innerHTML=txt+"&nbsp<small>(click to expand)<\/small><br>"; 
  } 
  else{ 
    oTemp.style.display="block"; 
    oClick.innerHTML=txt+"&nbsp<small>(click to collapse)<\/small><br>"; 
  } 
} 
</script> 
:##}

<?


/* Used to return a file line while I didn't find such a function
   in php
   Args:
        $fp: opened file
   return:
        String: line
*/
function freadline($fp)
{
    $line = "";
    do 
    {
        $line .= fgets($fp, "10240");
    } 
    while($line != "" && $line[strlen($line)-1] != "\n");
    return $line;
}


/*
    All generated page are html 4.0 and css1 compliant
    Action:
        print the links to w3c
*/
function print_validator()
{
    print '<p><a href="http://jigsaw.w3.org/css-validator/validator/?uri=qa.debian.org/developer.php"><img style="border:0;width:88px;height:31px" src="http://jigsaw.w3.org/css-validator/images/vcss" alt="Valid CSS!"></a>
<a href="http://validator.w3.org/check?uri=referer"><img border="0" src="http://www.w3.org/Icons/valid-html40" alt="Valid HTML 4.0!" height="31" width="88"></a></p>';
}


/*
    Print the footer information such as page generating time.
*/
function print_footer()
{
    global $time;
    global $prefix;
    $fp = fopen("$prefix/extract.date", "r");
    $general = freadline($fp, "512");
    fclose($fp);
    $fp = fopen("$prefix/bugs.date", "r");
    $bugs = freadline($fp, "512");
    fclose($fp);

    $footer .= "General information: $general (updated once per day)" . html_br();
    $footer .= "Bug information: $bugs (updated every 15 minutes)" . html_br();
    list($micro,$sec) = explode(' ', microtime());
    list($smicro,$ssec) = explode(' ', $time);
    $footer .= sprintf("Time needed to generate page: %.2fs", $sec-$ssec+$micro-$smicro);

    print html_p(html_small($footer));
    print html_hr().  print_validator(); 
}

/*
    form function 
    Args:
        $method: "GET" "POST"
        $preamble: inner form data not considered as visible
                   parameters
        $data: visible parameters
        $name: submit button name
    Returns:
        an valid html form
*/
function html_form($method, $preamble, $fields, $name)
{
    $form = "<form method=\"$method\" action=\"developer.php\">";
    $form .= $preamble;
    $form .= $fields;
    $form .= html_input_submit($name);
    $form .= "</form>\n";
    return $form;
}

/*
    label function
    Args:
        $text: text to be labelized
    Return:
        labelized text
*/
function html_label($text)
{
    return "<label>$text</label>\n";
}

/*
    submit button function
    Args:
        $name: submit button name
    Returns:
        a valid html submit button
*/
function html_input_submit($name)
{
    return "<input type=\"submit\" value=\"$name\">\n";
}

/*
    text field unction
    Args:
        $name: the text field name
    Returns: 
        a valid html text field 
*/
function html_input_text($name)
{
    return "<input type=\"text\" size=\"30\" maxlength=\"40\" name=\"$name\">\n";
}

/*
    hidden field unction
    Args:
        $name: the hidden field name
        $value: hidden field value
    Returns: 
        a valid html hidden field 
*/
function html_input_hidden($name,$value)
{
   return "<input type=\"hidden\" name=\"$name\" value=\"$value\">\n"; 
}

/*
    radio button function
    Args:
        $name: the radio button field name
        $value: radio button field value
        $checked: boolean 
        $text: text to explain the radio button
    Returns: 
        a valid html radio button
*/
function html_input_radio($name,$value,$checked,$text)
{
    $data = "<input type=\"radio\" name=\"$name\" value=\"$value\"";
    if($checked) $data .= " checked";
    $data .= ">$text";
    return "$data\n";
}

/*
    table header element
    Args:
        $title: header text 
        $extra: th args (align, ...)
        $rowspan: how many rows in the table the header covers
        $colspan: how many cols in the table the header covers
    Returns: 
        A valid table header element
*/
function html_th($title, $extra, $rowspan, $colspan)
{
    if($colspan == "") $colspan = 1;
    if($rowspan == "") $rowspan = 1;
    if ($extra != "")
    {
        return "<th rowspan=\"$rowspan\" colspan=\"$colspan\">" . html_small_color("$title ", "green") . html_small_color("($extra)", "black") . "</th>\n";
    }else{
        return "<th rowspan=\"$rowspan\" colspan=\"$colspan\">" . html_small_color($title, "green") . "</th>\n";
    }
}

/*
    table element
    Args:
        $data: text element
        $width: width in %
        $rowspan: how many rows in the table the element covers
        $colspan: how many cols in the table the element covers
    Returns:
        A valid table element
*/
function html_td($data, $width, $colspan, $rowspan)
{
    if($colspan == "") $colspan = 1;
    if($rowspan == "") $rowspan = 1;
    if($width == "")
    {
        return "<td rowspan=\"$rowspan\" colspan=\"$colspan\">$data</td>\n";
    }else{
        return "<td width=\"$width\" rowspan=\"$rowspan\" colspan=\"$colspan\">$data</td>";
    }
}

/*
    table line
    Args:
        $data: all tds
        $align: center, left, right
        $bgcolor: background color
    Returns:
        A valid table line
*/
function html_tr($data, $align, $bgcolor)
{
    if($align == "") $align = "center";
    if($bgcolor == "")
    {
        return "<tr align=\"$align\">$data</tr>\n";
    }else{
        return "<tr align=\"$align\" bgcolor=\"$bgcolor\">$data</tr>\n";
    }
}

/*
    table
    Args:
        $header: all table headers (a tr)
        $data: array of data lines
        $width: table width in %
    Returns:
        A valid html table
*/
function html_table($header, $data, $width)
{
    if($width == "") $width = 100;
    $table = "<table width=\"${width}%\" border=\"1\" cellpadding=\"3\" cellspacing=\"1\" summary=\"\">";
    $table .= $header ;
    foreach ($data as $line) $table .= $line; 
    return "$table\n</table>\n";
}

/*
    Html Anchor
    Args:
        $text: anchor text
        $link: anchor link
        $class: anchor class
        $title: info bullet text
    Returns:
        A valid html anchor
*/
function html_a($text,$link,$class, $title)
{
    if($title != "") $title = " title=\"$title\"";
    if($class != "")
    {
        return "<a class=\"$class\" href=\"$link\"$title>$text</a>";
    }else{
        return "<a href=\"$link\"$title>$text</a>";
    }
}

/*
    Html headers
    Args: 
        $text: header text
        $level: header level
        $align: header align
    Returns: 
        A valid html header 
*/
function html_h($text, $level, $align)
{
    if ($align == "")
    {
        return "<h$level>$text</h$level>\n";
    }else{
        return "<h$level align=\"$align\">$text</h$level>\n";
    }
}

/* The following function are basic html functions (from html_tt to html_span */
function html_tt($text)
{
    return "<tt>$text</tt>";
}

function html_b($text)
{
    return "<b>$text</b>";
}

function html_u($text)
{
    return "<u>$text</u>";
}

function html_em($text)
{
    return "<em>$text</em>";
}

function html_p($text)
{
    return "<p>$text</p>";
}


function  html_blank()
{
    return "&nbsp;";
}

function html_br()
{
    return "<br>\n";
}

function html_hr()
{
    return "<hr>\n";
}

function html_small($text)
{
    return "<small>$text</small>";
}

function html_font($text, $data)
{
    return "<font $data>$text</font>";
}

function html_color($text, $color)
{
    return "<font color=\"$color\">$text</font>";
}

function html_small_color($text,$color)
{
    return html_small(html_color($text, $color));
}

function html_div($text,$id,$class,$extra)
{
    if($class != "")
    {
        return "<div id=\"$id\" class=\"$class\" $extra>$text</div>\n";
    }else{
        return "<div id=\"$id\" $extra>$text</div>\n";
    } 
}

function html_span($text,$id,$class,$extra)
{
    if($id != "") $id = "id=\"$id\"";
    if($class != "")
    {
        return "<span $id class=\"$class\" $extra>$text</span>\n";
    }else{
        return "<span $id $extra>$text</span>\n";
    } 
}

function html_ul($text)
{
    return "<ul>$text</ul>";
}

function html_li($text)
{
    return "<li>$text</li>";
}

function html_wrap2lines($text)
{
    $list = explode(",", $text);
    if(count($list) < 2)
    {
        return $text;
    }
    $half = (int)(count($list)/2);
    return implode(html_blank(), array_slice($list, 0, $half)) . " " .
           implode(html_blank(), array_slice($list, $half));
}


/* 
    This funtion is used to provide the collapsable areas and their title 
    You need to use an auto incremented number in order not to have collisions
    when expand/collapse an area
    You need to have a css style class named span_<something>
    This function return a html valid block
*/
function html_collexp($number, $text, $class, $collapsed, $data)
{
    if($collapsed) 
    {
        $info = html_blank() . "(click to expand)";
        $display = "none";
    }else{
        $info = html_blank() . "(click to collapse)";
        $display = "block";
    }
    $result = html_span($text . html_small("$info") . html_br(),"click_$number", "span_$class", "onmouseover='javascript:objectOver(this)' onmouseout='javascript:objectOut(this)' onclick='javascript:collapse($number,\"$text\")'"); 
    $result .= html_div($data, "text_$number", $class, "style='margin-left:0;display:$display'") ;
    return $result;
}

/* 
    Function needed to know if the columns has to be displayed or not
*/
function isdisplayed($value)
{
  global $arg_cookie;
  return $arg_cookie[$value];
}

/*
    This function is used for the display settings table
    Note that there is a exception with bugs
*/
function checkbox($value)
{
    global $arg_cookie;
    if($arg_cookie[$value] == 1)
    {
        $data = html_input_radio($value,1,true,"Show\n") . html_br();
        $data .= html_input_radio($value,0,false,"Hide") . html_br();
    }else{
        $data = html_input_radio($value,1,false,"Show\n") . html_br();
        $data .= html_input_radio($value,0,true,"Hide") . html_br();
    }
/*    if($value == 'version')
    {
        if($arg_cookie[$value] == 2)
        {
            $data = html_input_radio($value,1,false,"Show\n") . html_br();
            $data .= html_input_radio($value,0,false,"Hide\n") . html_br();
            $data .= html_input_radio($value,2,true,"Without Exp. &amp; Prop. Upt.\n") . html_br();
        }elseif($arg_cookie[$value] == 1)
        {
            $data = html_input_radio($value,1,true,"Show\n") . html_br();
            $data .= html_input_radio($value,0,false,"Hide\n") . html_br();
            $data .= html_input_radio($value,2,false,"Without Exp. &amp; Prop. Upt.\n") . html_br();
        }else{
            $data = html_input_radio($value,1,false,"Show\n") . html_br();
            $data .= html_input_radio($value,0,true,"Hide\n") . html_br();
            $data .= html_input_radio($value,2,false,"Without Exp. &amp; Prop. Upt.\n") . html_br();
        }
    } */
    if($value == 'bugs')
    {
        if($arg_cookie[$value] == 2)
        {
            $data = html_input_radio($value,1,false,"Show\n") . html_br();
            $data .= html_input_radio($value,0,false,"Hide\n") . html_br();
            $data .= html_input_radio($value,2,true,"Sum.\n") . html_br();
            $data .= html_input_radio($value,3,false,"Sum. &amp; RC\n") . html_br();
        }elseif($arg_cookie[$value] == 3)
        {
            $data = html_input_radio($value,1,false,"Show\n") . html_br();
            $data .= html_input_radio($value,0,false,"Hide\n") . html_br();
            $data .= html_input_radio($value,2,false,"Sum.\n") . html_br();
            $data .= html_input_radio($value,3,true,"Sum. &amp; RC\n") . html_br();
        }elseif($arg_cookie[$value] == 1)
        {
            $data = html_input_radio($value,1,true,"Show\n") . html_br();
            $data .= html_input_radio($value,0,false,"Hide\n") . html_br();
            $data .= html_input_radio($value,2,false,"Sum.\n") . html_br();
            $data .= html_input_radio($value,3,false,"Sum. &amp; RC\n") . html_br();
        }else{
            $data = html_input_radio($value,1,false,"Show\n") . html_br();
            $data .= html_input_radio($value,0,true,"Hide\n") . html_br();
            $data .= html_input_radio($value,2,false,"Sum.\n") . html_br();
            $data .= html_input_radio($value,3,false,"Sum. &amp; RC\n") . html_br();
        }
    }
    $data = html_small_color($data,"green");
    return $data;
}


/*
    return hidden fields with action parameters to be provided for the form validation
*/
function setaction()
{
    $action = "";
    global $_GET;
    foreach(array_keys($_GET) as $key) 
    {
        if (($key == 'login') or ($key == 'package') or ($key == 'gpg_key') or ($key == 'comaint')) 
        {
            $action .= html_input_hidden($key,$_GET[$key]);
        }
    }
    return $action;
}


function process_wnpp_owner($name, $email)
{
    $null = exec("ldapsearch -h bugs.debian.org -p 10101 -LLL -x -b   dc=current,dc=bugs,dc=debian,dc=org '(&(debbugsOwner=*$email*)(debbugsState=open)(debbugsPackage=wnpp))' debbugsID debbugsTitle", $data, $ret);
    if(($ret != 0) or (count($data) == 0)) return;
    $display = "";
    $temp = "";
    $title = "";
    print html_h("$name &lt;$email&gt; is owner:", 3);
    foreach ($data as $elem)
    {
        if (strstr($elem, "debbugsID"))
        {
            $temp = str_replace("debbugsID: ", "", $elem);
        }elseif(strstr($elem, "debbugsTitle"))
        {
            $title = str_replace("debbugsTitle: ", "", $elem);
        }elseif(preg_match('/^\s(.+)$/', $elem, $matches))
        {
            $title .= $matches[1]; 
        }elseif($elem == "")
        {
            $display .= html_li(html_a("#" . $temp . ": " . $title, "http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=" . $temp));
            $temp = "";
            $title = "";
        }
    }
    print html_ul($display);
}

/* These functions provides links to the bts for a maintainer */
function bugs_nonfixed($login)
{
    return html_a("Non-fixed bugs, most recent first", "http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=maint&amp;data=". urlencode($login) . "&amp;archive=no&amp;raw=yes&amp;bug-rev=yes&amp;pend-exc=fixed&amp;pend-exc=done");
}

function bugs_all_related($login)
{
    return html_a("All bugs related to &lt;$login&gt;", "http://bugs.debian.org/cgi-bin/pkgreport.cgi?maint=". urlencode($login));
}

function bugs_rc($login)
{
    return html_a("RC Bugs related to &lt;$login&gt;", "http://bugs.debian.org/cgi-bin/pkgreport.cgi?which=maint&amp;data=" . urlencode($login) . "&amp;archive=no&amp;pend-exc=done&amp;sev-inc=critical&amp;sev-inc=grave&amp;sev-inc=serious");
}

function bugs_submitter($login)
{
    return html_a("All bugs submitted by &lt;$login&gt;", "http://bugs.debian.org/cgi-bin/pkgreport.cgi?submitter=" . urlencode($login));
}

/* Functions used to construct the correct links in several fields (from bugs_display to stat_bug_link) */
function bugs_display($bug_number, $base_url)
{
    $bug_link="";
    preg_match("/(\d+)\((\d+)\)/", $bug_number, $result);
    if (strcmp($result[1], $result[2]) == 0) 
    {
        $bug_link = html_a($result[1], $base_url, "a");
    }else{
        $bug_link  = html_a($result[1], "${base_url}&amp;repeatmerged=no", "a");
        $bug_link .= html_blank() . html_color("(", "blue") . html_a($result[2], "${base_url}&amp;repeatmerged=yes", "a") . html_color(")", "blue");  
    }
    return $bug_link;
}

function lintian_link($lintian)
{
    return html_a("Lintian report", "http://lintian.debian.org/reports/m${lintian}.html");
}

function buildd_link($buildd, $login)
{
    return html_a("Buildd report", "http://buildd.debian.org/bymaint.php?maint=$buildd") . html_blank() . html_a("Igloo's buildd report", "http://people.debian.org/~igloo/status.php?email=". urlencode($login));
}

function stat_bug_link($login)
{
    return html_a("Bug statistics", "http://www.debian.gr.jp/~kitame/maint.cgi?num=srcs&amp;limit=0&amp;showpkgs=on&amp;maint=" . urlencode($login));
}

/* Function is used to display or not the extra features such as pocon, wnpp, and excuses */
function do_extra($data, $data_prefix, $error)
{
    global $prefix;
    $data = str_replace(" ", "+", $data);
    $filepath = "$prefix/$data_prefix/" . $data{0} . "/$data";
    if(file_exists($filepath)) 
    {
        require "$filepath";
    }else{
        print html_h($error, 2);
    }
    if($data_prefix == "excuses")
    {
        print html_br() . html_a("More excuses", "http://bjorn.haxx.se/debian/testing.pl?package=$data");
    }
}


function printBackLink() {
    print html_p(html_a("Back to main page", "developer.php", ""));
}

/* function used to display the main maintainer links in a collapsable area */
function print_header_entries_body($keys, $name, $comaint, $login)
{
    global $counter_span;
    global $prefix;
    $add_comaint = "&amp;comaint=$comaint";
    $lintian = preg_replace('/%../', "_", urlencode($name));
    $lintian = preg_replace('/\+/', "_", $lintian);
    $lintian = preg_replace('/-/', "_", $lintian);
    $fp = fopen("$prefix/../../ftp/Maintainers", "r");
    $ok = 0;
    while(!feof($fp))
    {
        $line = freadline($fp, "10240");
        if (preg_match("/$login/", $line))
        {
            $ok = 1;
            $login = preg_replace('/\\\\/', '', $login);
            if (preg_match("/$login \(/", $line)) 
            {
                $buildd=urlencode("$login ($name) ");
            }else{
                $buildd=urlencode("$name <$login> ");
            }
        }
        if ($ok == 1 )
        {
            break;
        }
    }
    fclose($fp); 
    $counter_span += 1;
    $title = html_b("General information for Id: $login");
    $maintainer_data = "";
        /* GPG is broken
    if ($keys == "NOID")
    {
        $maintainer_data = html_font("GPG key id not found!", 'size="+1" color="red"'); 
        $maintainer_data .= html_blank() . html_font("(key id was not found neither in the Debian keyring nor on a public keyserver)", 'size="-2"');
        $maintainer_data .= html_br();
    }else{
        $maintainer_data .= "GPG key id: ";
        foreach (explode(",", $keys) as $key)
        {
            $maintainer_data .= html_small(html_a($key, "developer.php?gpg_key=" .$key . $add_comaint)) . " ";
        }
        $maintainer_data .= html_br();
    }
        */
    $maintainer_data .= html_small(bugs_nonfixed($login)) . html_br();
    $maintainer_data .= html_small(bugs_all_related($login)) . html_br();
    $maintainer_data .= html_small(bugs_rc($login)) . html_br();
    $maintainer_data .= html_small(bugs_submitter($login)) . html_br();
    $maintainer_data .= html_small(lintian_link($lintian)) . html_br();
    $maintainer_data .= html_small(buildd_link($buildd, $login)) . html_br();
    $maintainer_data .= html_small(stat_bug_link($login));
    if(file_exists("$prefix/wnpp/" . $login{0} . "/$login")) 
    {
        $maintainer_data .= html_br() . html_small(html_a("Wnpp bugs opened by &lt;$login&gt;", "developer.php?wnpp=$login"));
    }

    print html_collexp($counter_span, $title, "general", false, $maintainer_data);
}

/* Function used to display the generic information (help and display settings) */
function print_header_entries_top($login, $key, $name)
{
    global $counter_span;
    global $already_displayed;
    print html_h("Packages overview for $name", 1, "center");

    if(! $already_displayed) 
    {
        $counter_span += 1;
        $display_data = "You are able to display only the columns you want/need.". html_br();
        $display_data .= html_b(html_em("You need to allow cookies if you want the configuration to be stored. If not, remember/bookmark the right url that will be provided after submitting changes.")) . html_br();
        $display_data .= "You can override the settings by providing an extra arg to the url (e.g. &amp;buildd=1 if you want to display the buildd column). These args will not change the custom settings you defined before (the cookie is not modified). In each column in the bo ttom table you can see in " .html_b("black") . " the arg to be passed. Put 1 if you want to show the corresponding column, 0 to hide and 2 to have a summary if column is " . html_em("bugs") . "." . html_br();
        $display_data .= "Please select the configuration you want (check the boxes corresponding to columns name if you want to keep it displayed):";
        $display_data = html_small($display_data);
        $display_table_th = html_th("Bugs","&amp;bugs=");
        $display_table_th .= html_th("Version","&amp;version=");
        $display_table_th .= html_th("Excuses","&amp;excuses=");
        $display_table_th .= html_th("Binary" . html_br() . "Package Page","&amp;bin=");
        $display_table_th .= html_th("Buildd","&amp;buildd=");
        $display_table_th .= html_th("Security","&amp;security=");
        $display_table_th .= html_th("Problems","&amp;problems=");
        $display_table_th .= html_th("Uninstallable","&amp;uninstallable=");
        $display_table_th .= html_th("Watch","&amp;watch=");
        $display_table_th .= html_th("Section","&amp;section=");
        $display_table_th .= html_th("Priority","&amp;priority=");
        $display_table_th .= html_th("Pool","&amp;pool=");
    
        $display_table_tds = html_td(checkbox('bugs'));
        $display_table_tds .= html_td(checkbox('version'));
        $display_table_tds .= html_td(checkbox('excuses'));
        $display_table_tds .= html_td(checkbox('bin'));
        $display_table_tds .= html_td(checkbox('buildd'));
        $display_table_tds .= html_td(checkbox('security'));
        $display_table_tds .= html_td(checkbox('problems'));
        $display_table_tds .= html_td(checkbox('uninstallable'));
        $display_table_tds .= html_td(checkbox('watch'));
        $display_table_tds .= html_td(checkbox('section'));
        $display_table_tds .= html_td(checkbox('priority'));
        $display_table_tds .= html_td(checkbox('pool'));
        
        $display_table_tr = html_tr($display_table_tds, "left");
    
        $display_data .= html_table(html_tr($display_table_th), array($display_table_tr));
    
        $preamble = setaction() . html_input_hidden("set", "yes");
        $display_data = html_form("GET", $preamble, $display_data, "Submit");
        
        $preamble = setaction() . html_input_hidden("reset", "yes");
        $display_data .= html_form("GET", $preamble, "", "Show all");
    
        //$display_data = html_small($display_data);
        $title = html_b("Display configuration:");
        print html_br() . html_collexp($counter_span, $title, "general", true, $display_data);
    
        $counter_span += 1; 
        $help_data = html_color("Blue", "blue") . " packages are co-maintained by developer (reference to Uploaders: field)" . html_br();
        $help_data .= "The bug columns display the real number of bugs. If there are merged bugs, the total is in parentheses." . html_br();
        $help_data .= html_color("Red", "red") . " version numbers are NMUs" . html_br();
        $help_data .= html_color("Magenta", "#ff00ff") . " version numbers are packages where the unstable version differs from the testing version" . html_br();
        $help_data .= "Watch columns:" . html_br();
        $help_data .= html_blank().html_blank(). html_color("green", "green") . ": upstream found version is in sync with version unstable/experimental" . html_br();
        $help_data .= html_blank().html_blank(). html_color("magenta", "#ff00ff") . ": upstream found version is greater than version in unstable" . html_br();
        $help_data .= html_blank().html_blank(). html_color("navy blue", "#2222AA") . ": upstream found version is lower than version in unstable (a bug in the watch file)" . html_br();
        $help_data .= html_blank().html_blank(). html_color("error", "red") . ": uscan had problems following the watch file" . html_br();
        $help_data .= html_blank().html_blank(). "Watch is N/A: package does not have a watch file" . html_br();
        $help_data .= html_blank().html_blank(). "Wwiz is N/A: package does not have a copyright file suitable to automatically generate a watch file" . html_br();
        $help_data .= html_blank().html_blank(). "Wwiz is " . html_color("notmatch", "red") . ": package had a copyright file but no useful URL download link was found to automatically generate a watch file" . html_br();
        $help_data .= html_blank().html_blank(). html_color("no value", "grey") . ": there is a problem with the dehs database files" . html_br().html_br();
        $help_data = html_small($help_data);

        $title = html_b("Help");
        print html_collexp($counter_span, $title, "general", true, $help_data);
        $already_displayed = true;
    }
}


function print_notfound($login)
{
print html_h("No information available for $login", 2);
}


/* Construct page provided when no command is provided */
function print_form()
{
    $form = html_h("Debian Developer's Packages Overview", 1);
    $form .= html_p("Use the following search forms to determine the Debian developer whose packages overview you wish to see:");
    
    $preamble = "Search based on the Maintainer field in packages:" . html_br();
    $preamble .= html_small("If a single username is provided, @debian.org is automatically appended.") . html_br();
    $preamble .= html_small("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.") . html_br();

    $preamble .= html_input_text("login");
    $preamble = html_label($preamble) . html_br(); 

    $form_data = "Display co-maintained packages:" . html_blank();
    $form_data .= html_input_radio("comaint", "yes", true, "yes");
    $form_data .= html_input_radio("comaint", "no", false, "no");
    $form_data .= html_input_radio("comaint", "only", false, "only");
    $form_data = html_label($form_data) . html_br();

    $form .= html_form("GET", $preamble, $form_data, "Find");

    #$preamble = "Search based on the " . html_tt("GPG key ID:") . html_br();
    #$preamble .= html_input_text("gpg_key");
    #$preamble = html_label($preamble) . html_br();

    #$form_data = "Display co-maintained packages:" . html_blank(); 
    #$form_data .= html_input_radio("comaint", "yes", true, "yes");
    #$form_data .= html_input_radio("comaint", "no", false, "no");
    #$form_data .= html_input_radio("comaint", "only", false, "only");
    #$form_data = html_label($form_data) .html_br();
   
    #$form .= html_form("GET", $preamble, $form_data, "Find") . html_br();
    
    $preamble = "Search based on a source package name:" . html_br();
    $preamble .= html_input_text("package");
    $preamble = html_label($preamble) . html_br();

    $form_data = "Display co-maintained packages:" . html_blank(); 
    $form_data .= html_input_radio("comaint", "yes", true, "yes");
    $form_data .= html_input_radio("comaint", "no", false, "no");
    $form_data .= html_input_radio("comaint", "only", false, "only");
    $form_data = html_label($form_data) .html_br();
   
    $form .= html_form("GET", $preamble, $form_data, "Find");
 
    $query = "Show complete, sorted list of developers (600kB)";
    $hidden = html_input_hidden("all", "1");
    $form .= $query . html_form("GET", $hidden, "", "Show the list") . html_br();

    $form .= "Report problems to the ". html_a("qa.debian.org pseudopackage", "http://bugs.debian.org/cgi-bin/pkgreport.cgi?pkg=qa.debian.org") .".";
    print $form;
}

/* Construct the page where all maintainer are displayed */
function print_all()
{
    global $prefix;
    $maint = file("$prefix/ddpo_maintainers");
    $html = html_h("Sorted developer list", 2);
    
    $display_table_th = html_th("Name and email");
    $display_table_th .= html_th("main");
    $display_table_th .= html_th("non-us");
    $display_table_th .= html_th("Other" . html_br(), html_small("all contrib &amp;" . html_br() . "non-free packages"));
    $display_table_th .= html_th("Total");
    $trs = array();
    foreach($maint as $line)
    {
        if($line != "") 
        {
            $count = 0;
            $line = preg_replace("/, /", ",", $line);
            preg_match("/;([^;]+?);([^;]+?);([^;]*?);([^;]*?);([^;]*?);([^;]*?);([^;]*?);([^;]*?);([^;]*)$/", $line, $info_array);
        
            $tds = html_td(html_b(html_a(str_replace(" ", html_blank(), "$info_array[3]") . html_blank() . "&lt;$info_array[1]&gt;", "developer.php?login=" . rawurlencode($info_array[1]))), 15);
            $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]));
            }

            $tds .= html_td($main) . html_td($nonUS) . html_td($other) . html_td(html_b($count));
            $trs[] = html_tr($tds, "center");
        }
    }
    print html_table(html_tr($display_table_th), $trs, "80");
}

/* Small useful function to construct the link to the excuses */ 
function get_rep($package_name)
{
  if(preg_match("/^lib/", $package_name)) {
    return substr($package_name, 0, 4);
  }else{
    return substr($package_name, 0, 1);
  }
}
# Begin of Dehs functions
function dehsdb_conn ($dbname,$mode) 
{
    $id = dba_open($dbname, $mode, "db4");
    return $id;
}

function dehsdb_xml($xml) 
{
    $p = xml_parser_create();
    xml_parse_into_struct($p, $xml, $vals, $index);
    xml_parser_free($p);
    $values=array("id"=>$vals[1][value],"up_version"=>$vals[2][value],"wwiz"=>$vals[3][value]);
    return $values;
}
function dehs_value($pkg_name,$dist) 
{
    $id = dehsdb_conn("/org/qa.debian.org/data/dehs/dehs_qa_" . $dist . ".db","r");
    if(!$id) return "error";    
    if (!dba_exists($pkg_name,$id)) return array("id"=>"-","up_version"=>"-","wwiz"=>"-");
    $xml=dba_fetch($pkg_name,$id);
    dba_close($id);
    return dehsdb_xml($xml);
}
function vers_conv($debvers) {
        preg_match("/(.+:)?([^-]+)(ds|dsfg|debian)/",$debvers,$matches);
        if (!$matches[3]) {
                unset($matches);
                preg_match("/(.+:)?([^-]+)/",$debvers,$matches);
        }
        if (substr($matches[2],-1)=='.') $matches[2]=substr($matches[2],0,-1);
        return $matches[2];
}
function ver_comp($a,$b) {
  exec("dpkg --compare-versions '$a' gt '" . vers_conv($b) . "'",$output,$res);
  if ($res==0) return 1;
  exec("dpkg --compare-versions '$a' lt '" . vers_conv($b) . "'",$output,$res);
  if ($res==0) return 2;
  else return 3;
}
function print_dehs($package,$version,$dist,$type) 
{
    $dehs_values=dehs_value($package,$dist);
    if($dehs_values=="error") return html_td(html_small_color("no value", "grey"));
    if ($type=="up_version") 
    {
        $dehs_link= html_small(html_br() . html_a("Details", "http://dehs.alioth.debian.org/maintainer.php?name=" . rawurlencode($package)));
        if($dehs_values[up_version]=="-") 
        {
            $dehs_values[up_version] = html_small("-");
            $dehs_link='';
        }
        elseif ($dehs_values[up_version]=='N/A') 
        {
            $color="black";
        }    
        elseif ($dehs_values[up_version]=='Error') $color="red";
        elseif(ver_comp($dehs_values[up_version],$version)==1) $color="magenta";    
        elseif(ver_comp($dehs_values[up_version],$version)==2) $color="#2222AA";
        else {
            $color="green"; 
            $dehs_link='';
        }
        $upstream_print = html_td(html_small_color($dehs_values[up_version], $color) . $dehs_link, "", 1, 1);
        return $upstream_print;
    }else{    
        $wwiz_link_desc="Details";
        if($dehs_values[wwiz]=='-' or !$dehs_values[wwiz]) 
        {
            $dehs_values[wwiz] = html_small("-");
            $dehs_link='';
        }
        elseif ($dehs_values[wwiz]=='N/A') $color="black";
        elseif ($dehs_values[wwiz]=='error' OR $dehs_values[wwiz]=='notmatch') $color="red";
        elseif(ver_comp($dehs_values[wwiz],$version)==1) 
        {
            $color="magenta";
            $wwiz_link_desc="Watch";
        }
        elseif(ver_comp($dehs_values[wwiz],$version)==2) 
        {
            $color="#2222AA";
            $wwiz_link_desc="Watch";
        }else{
            $color="green"; 
            $wwiz_link_desc="Watch";
        }
        if(!isset($dehs_link)) 
        {
            $dehs_link= html_br() . html_small(html_a($wwiz_link_desc, "http://dehs.alioth.debian.org/wwiz_detail.php?id=" . $dehs_values[id] . "&amp;type=watch"));
        }
        $wwiz_print= html_td(html_small_color($dehs_values[wwiz], $color, "", 1, 1));
        return $wwiz_print;
    }
}
# 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);
}

/*
 Print possible wnpp entries and/or removal requests for this source package
 as consise links, or nothing if there are none
*/
function get_wnpp_rm($package)
{
       static $db;
       if (!$db) $db = dba_open("/org/qa.debian.org/data/bts/wnpp_rm.db", 'r-', 'db4');
       if (!$db) return;
       $entries = dba_fetch($package, $db);
       if (!$entries) return;
       $entries = explode('|', $entries);
       $ret = "";
       foreach ($entries as $entry) {
               preg_match('/(\\S+)\\s+(\\S+)/', $entry, $m);
               $ret .= "<a href=\"http://bugs.debian.org/$m[2]\"><strong>[$m[1]]</strong></a>";
       }
       return $ret;
}

/*
 This function prints a package table information row
*/
function print_package_entry($branch, $package, $comaint, $back_tr_color)
{
    global $prefix;
    static $pack_db;

    # open package info db
    # source(binary, binary)[versions]{uninstalable_stable}{_testing}{_unstable}|priority|:section:
    if (!$pack_db) $pack_db = dba_open("$prefix/ddpo_packages.db", 'r-', 'db4');

    # handle co-maintained packages
    $uploader = false;
    if(strstr($package, "#")) 
    {
        $uploader = 1;
        $package = str_replace("#", "", $package);
    }
    if ((($uploader == 1) && ( $comaint == "no")) || 
        (($uploader == 0) && ( $comaint == "only"))) return "";

    # get package data
    $package = dba_fetch($package, $pack_db);
    preg_match("/(.+)\((.+)\)/", $package, $result);
    $list = split (",", $result[2]);
    $package_name = $result[1];

    if(strstr($package, "%")) 
    {
        $arch_all = 1; 
        $package = str_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];
    $version_experimental_backup= $versions[4];
    $security_stable = $versions[5];
    $security_testing = $versions[6];
    $uninstalable_stable = html_wrap2lines($results[3]);
    $uninstalable_testing = html_wrap2lines($results[4]);
    $uninstalable_unstable = html_wrap2lines($results[5]);
    $priority = $results[6];
    $section = $results[7];

    // make $bugsdb link persistent during this pagerequest, we don't lock, so
    // this doesn't matter at all
    static $bugsdb;
    if (!$bugsdb) $bugsdb = dba_open("$prefix/bugs.db", 'r-', 'db4');

    if (!($bug_list = dba_fetch($package, $bugsdb))) $bug_list = '0(0) 0(0) 0(0) 0(0)';
    $bug_list = explode(' ', $bug_list);

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

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

    if(strcmp($version_unstable, "-")== 0 || !debcheckavailable('unstable', $package)) 
    {
        $sid_dep = html_small("-");
    }else{
        $sid_dep = html_small(html_a("Unstable", "http://qa.debian.org/debcheck.php?dist=unstable&amp;package=" . rawurlencode($package)));
    }

    $buildd = "http://buildd.debian.org/build.php?pkg=".$package;
    if(strstr($branch, "non-US")) 
    {
        $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(file_exists("$prefix/excuses/" . $package{0} . "/$package")) 
    {
        $excuse = html_a("Excuses", "developer.php?excuse=$package") . " ";
        $excuse .= html_a("More", "http://bjorn.haxx.se/debian/testing.pl?package=$package");
    }else{
        $excuse = "-";
    } 
    if(strcmp($version_prop, "-")) 
    {
        $version_prop = html_color(html_b($version_prop), "#2222AA");
    }
    $prop = html_td(html_small($version_prop));

    if(strcmp($version_experimental, "-")) 
    {
        $version_experimental = html_color(html_b($version_experimental), "#2222AA");
    }
    $experimental = html_td(html_small($version_experimental));


    if((strcmp ($version_stable, $version_testing) == 0) && 
       (strcmp ($version_stable, "/") != 0)) 
    {
        if((strcmp ($version_unstable, $version_testing) == 0)) 
        {
            $version_print = html_td(html_small($version_stable), "", 3, 1) . $prop . $experimental;
        }else{
            $version_print = html_td(html_small($version_stable), "", 2, 1) . html_td(html_small($version_unstable)) . $prop . $experimental;
        }
        $ver = explode("-", $version_unstable);
        if((preg_match("/(.+\..+?)$/", $ver[count($ver) - 1], $toto)) && (count($ver) != 1))
        {
            $version_print = str_replace("$version_unstable", html_color($version_unstable, "red"), $version_print);
        }
    }elseif(strcmp ($version_testing, $version_unstable) == 0) 
    {
        if(strcmp($version_stable, "/") != 0) 
        {
            $version_stable = html_color($version_stable, "#00AADD");
        }
        $version_print = html_td(html_small($version_stable)) . html_td(html_small($version_testing), "", 2, 1) . $prop . $experimental;
        $ver = explode("-", $version_unstable);
        if((preg_match("/(.+\..+?)$/", $ver[count($ver) - 1], $toto)) && (count($ver) != 1))
        {
            $version_print = str_replace("$version_unstable", html_color($version_unstable, "red"), $version_print);
        }
    }else{
        if(strcmp($version_stable, "/") != 0) 
        {
            $version_stable = html_small_color($version_stable, "#00AADD");
        }else{
            $version_stable = html_small($version_stable);
        }
            $version_print = html_td($version_stable) . html_td(html_small_color($version_testing, "#ff00ff")) . html_td(html_small($version_unstable)) . $prop . $experimental;
            $ver = explode("-", $version_unstable);
            if((preg_match("/(.+\..+?)$/", $ver[count($ver) - 1], $toto)) && (count($ver) != 1))
            {
                $version_print = str_replace("$version_unstable", html_color($version_unstable, "red"), $version_print);
            }
    }

    $line = "";
    $line_data = html_b($package) . get_wnpp_rm($package) . html_br() . html_a("[pts]", "http://packages.qa.debian.org/".get_rep($package)."/$package.html") . html_blank() . html_a("[popcon]", "developer.php?popcon=$package");
    if($uploader == 1)
    {
        $line = html_td(html_small_color($line_data, "blue"));
    }else{
        $line = html_td(html_small($line_data));
    }

    
    /* if bugs >= 1  always print the summary */
    if(isdisplayed('bugs'))
    {
        $bugs = "http://bugs.debian.org/cgi-bin/pkgreport.cgi?src=". rawurlencode($package)."&amp;archive=no&amp;pend-exc=pending-fixed&amp;pend-exc=fixed&amp;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];
        $real_bug_count = 0;
        $bug_data = "";
        foreach($bug_list as $bug_item)
        {
            preg_match("/\d+\((\d+)\)/", $bug_item, $count_array);
            $real_bug_count += $count_array[1];
        }
        if($bug_count == 0)
        {
            $bug_data = html_a("-", $bugs_all, "dash");
        }else{
            $bug_data = bugs_display("$bug_count($real_bug_count)", $bugs_all);
        }
        $line .= html_td(html_small($bug_data));
        
        /* user want to display all the bugs info */
        if(isdisplayed('bugs') == 1)
        {
            if(!strcmp($bug_list[0], "0(0)"))
            {
                $bug_data = html_a("-", $bugs_all . "&amp;sev-inc=critical&amp;sev-inc=grave&amp;sev-inc=serious", "dash");
            }else{
                $bug_data = bugs_display($bug_list[0], "$bugs" . "&amp;sev-inc=critical&amp;sev-inc=grave&amp;sev-inc=serious");
            } 
            $line .= html_td(html_small($bug_data));

            if(!strcmp($bug_list[1], "0(0)"))
            {
                $bug_data = html_a("-", $bugs_all . "&amp;sev-inc=important&amp;sev-inc=normal", "dash");
            }else{
                $bug_data = bugs_display($bug_list[1], "$bugs" . "&amp;sev-inc=important&amp;sev-inc=normal");
            } 
            $line .= html_td(html_small($bug_data));

            if(!strcmp($bug_list[2], "0(0)"))
            {
                $bug_data = html_a("-", $bugs_all . "&amp;sev-inc=minor&amp;sev-inc=wishlist", "dash");
            }else{
                $bug_data = bugs_display($bug_list[2], "$bugs" . "&amp;sev-inc=minor&amp;sev-inc=wishlist");
            } 
            $line .= html_td(html_small($bug_data));

            if(!strcmp($bug_list[3], "0(0)"))
            {
                $bug_data = html_a("-", $bugs_all . "&amp;archive=no&amp;pend-inc=pending-fixed&amp;pend-inc=fixed", "dash");
            }else{
                $bug_data = bugs_display($bug_list[3], $bugs_all ."&amp;archive=no&amp;pend-inc=pending-fixed&amp;pend-inc=fixed");
            } 
            $line .= html_td(html_small($bug_data));
        /* user only wants summary + rc bugs count */
        }elseif(isdisplayed('bugs') == 3)
        {
            if(!strcmp($bug_list[0], "0(0)"))
            {
                $bug_data = html_a("-", $bugs_all . "&amp;sev-inc=critical&amp;sev-inc=grave&amp;sev-inc=serious", "dash");
            }else{
                $bug_data = bugs_display($bug_list[0], "$bugs" . "&amp;sev-inc=critical&amp;sev-inc=grave&amp;sev-inc=serious");
            } 
            $line .= html_td(html_small($bug_data));

        }
    }

    if(isdisplayed('version')) $line .= $version_print; 
    if(isdisplayed('excuses')) $line .= html_td(html_small($excuse));
    if(isdisplayed('bin'))
    {
        $bin_display = "";
        for ($i = 1; $i <= count($list); $i++) 
        {
            $bin_package = $list[$i - 1];
            $bin_display .= html_a($i, "http://packages.debian.org/" . rawurlencode($bin_package), "", $bin_package);
            if(($i % 3 ) == 0) 
            {
                $bin_display .= " ";
            }else{
                $bin_display .= html_blank();
            }
        }
        $line .= html_td(html_small($bin_display));
    }
    
    if(isdisplayed('buildd')) 
    {
        $buildd_display = "";
        if(@$arch_all || preg_match("/non-free/", $branch) || (strcmp($version_unstable, "-") == 0)) 
        {
            $buildd_display = html_td(html_small("-"));
            $arch_all = 0;
        }else{
            $buildd_display = html_td(html_small(html_a("Buildd", $buildd)
                        . html_br() . html_a("More",
                        "http://people.debian.org/~igloo/status.php?packages=$package")));
        }
        $line .= $buildd_display;
    }

    if(isdisplayed('security')) 
    {
        if(strcmp($security_stable,"-")) $security_stable = html_color($security_stable, "red");
        if(strcmp($security_testing,"-")) $security_testing = html_color($security_testing, "red");
        $line .= html_td(html_small($security_stable)) . html_td(html_small($security_testing));
    }
    if(isdisplayed('problems')) $line .= html_td($stable_dep) . html_td($testing_dep) . html_td($sid_dep);
    if(isdisplayed('uninstallable')) $line .= html_td(html_small($uninstalable_stable)) . html_td(html_small($uninstalable_testing)) . html_td(html_small($uninstalable_unstable));
    if(isdisplayed('watch')) 
    {
        $line .= print_dehs($package,$version_unstable,"unstable","up_version"); 
        $line .= print_dehs($package,$version_unstable,"unstable","wwiz"); 
        $line .= print_dehs($package,$version_experimental_backup,"experimental","up_version"); 
        $line .= print_dehs($package,$version_experimental_backup,"experimental","wwiz"); 
    }
    if(isdisplayed('section')) $line .= html_td(html_small($section));
    if(isdisplayed('priority')) $line .= html_td(html_small($priority));
    if(isdisplayed('pool')) $line .= html_td(html_a(html_small("Pool"), $pool));
    return html_tr($line, "center", $back_tr_color);
}

/*
 This function prints a package table information for specific branch 
 given in argument
*/
function print_package_entries($branch, $packages, $comaint)
{
    global $prefix;
    $packages = preg_replace ("/, /", ",", $packages);
    $pack_array = split(" ", $packages);
    $global_count = count($pack_array);
    $arch_all = 0;

    if ($comaint == "no")
    /* don't display co-maintained packages */
    {
        $result = 0;
        for ($i = 0; $i < strlen($packages); $i++)
        {
            if ($packages[$i] == '#')
            {
                $result += 1;
            }
        }
        $global_count -= $result;
    }elseif($comaint == "only")
    /* Only display co-maintained packages */
    {
        $result = 0;
        for ($i = 0; $i < strlen($packages); $i++) 
        {
            if ($packages[$i] == '#')
            {
                $result += 1;
            }
        }
        $global_count = $result;
    }

    print html_h("Packages in " . html_em($branch) . " ($global_count)", 3);


    /* contruct the table header */
    $ths = html_th("Source" . html_blank(). "Name", "", 2);
    if(isdisplayed('bugs') == 1)
    {
        $ths .= html_th("Bugs (see above)", "", 1, 5);
    }elseif(isdisplayed('bugs') == 2)
    {
        $ths .= html_th("Bugs (see above)", "", 1, 1);
    }elseif(isdisplayed('bugs') == 3)
    {
        $ths .= html_th("Bugs (see above)", "", 1, 2);
    }
    if(isdisplayed('version')) $ths .= html_th("Version", "", 1, 5);
    if(isdisplayed('excuses')) $ths .= html_th(html_span("Excuses", "", "", "title=\"Raw excuse and Björn Stenberg analysis\""), "", 2, 1);
    if(isdisplayed('bin')) $ths .= html_th("Binary" . html_br() . " Package Page", "", 2, 1);
    if(isdisplayed('buildd')) $ths .= html_th("Buildd", "", 2, 1);
    if(isdisplayed('security')) $ths .= html_th("Security", "", 1, 2);
    if(isdisplayed('problems')) $ths .= html_th("Problems", "", 1, 3);
    if(isdisplayed('uninstallable')) $ths .= html_th(html_a("Uninstallable", "http://www.debian.org/devel/testing"), "", 1, 3);
    if(isdisplayed('watch')) $ths .= html_th("Watch", "", 1, 4);
    if(isdisplayed('section')) $ths .= html_th("Section", "", 2, 1);
    if(isdisplayed('priority')) $ths .= html_th("Priority", "", 2, 1);
    if(isdisplayed('pool')) $ths .= html_th("Pool", "", 2, 1);

    $th_level1 = html_tr($ths);
    $ths = "";
    
    /* the second header line */ 
    if(isdisplayed('bugs') == 1)
    {
        $ths .= html_th(html_span("All", "", "", "title=\"All opened bugs\""));    
        $ths .= html_th(html_span("RC", "", "", "title=\"Release Critical bugs\""));    
        $ths .= html_th(html_span("I&amp;N", "", "", "title=\"Important &amp; Normal bugs\""));    
        $ths .= html_th(html_span("M&amp;W", "", "", "title=\"Minor &amp; Wishlist bugs\""));    
        $ths .= html_th(html_span("F&amp;P", "", "", "title=\"Fixed &amp; Pending bugs\""));    
    }
    elseif(isdisplayed('bugs') == 2)
    {
        $ths .= html_th(html_span("All", "", "", "title=\"All opened bugs\""));    
    }
    elseif(isdisplayed('bugs') == 3)
    {
        $ths .= html_th(html_span("All", "", "", "title=\"All opened bugs\""));    
        $ths .= html_th(html_span("RC", "", "", "title=\"Release Critical bugs\""));    
    }

    if(isdisplayed('version'))
    {
        $ths .= html_th("Stable");
        $ths .= html_th("Testing");
        $ths .= html_th("Unstable");
        $ths .= html_th(html_span("Prop. Up.", "", "", "title=\"Stable Proposed Updates\""));
        $ths .= html_th("Exp.");
    }
    if(isdisplayed('security'))
    {
        $ths .= html_th("Stable");
        $ths .= html_th("Testing");
    }
    if(isdisplayed('problems'))
    {
        $ths .= html_th("Stable");
        $ths .= html_th("Testing");
        $ths .= html_th("Unstable");
    }
    if(isdisplayed('uninstallable'))
    {
        $ths .= html_th("Stable");
        $ths .= html_th("Testing");
        $ths .= html_th("Unstable");
    }
    if(isdisplayed('watch'))
    {
        $ths .= html_th("Watch Unstable");
        $ths .= html_th("WWiz Unstable");
        $ths .= html_th("Watch Exp.");
        $ths .= html_th("WWiz Exp.");
    }
    
    $ths = $th_level1 . html_tr($ths);
     
    $trs = array();
    $package_line = "";
    $back_tr_color = "";
    foreach($pack_array as $package)
    {
        $tr = print_package_entry($branch, $package, $comaint, $back_tr_color);
        if($tr){ $trs[] = $tr; }
        if ($back_tr_color == "")
        {
            $back_tr_color = "#dcdcdc";
        }else{
            $back_tr_color = "";
        }
    }
    print html_table($ths, $trs);
}

function print_subscribed_packages($login, $comaint)
{
    global $prefix;
    static $subscribe_db;

    # section1:pkg1 pkg2;section2:pkg3
    if (!$subscribe_db) $subscribe_db = dba_open("$prefix/ddpo_subscribe.db", 'r-', 'db4');

    $data = dba_fetch($login, $subscribe_db);
    if(!$data) { return; }

    $sections = explode(";", $data);
    foreach($sections as $section)
    {
        preg_match("/^([^:]*):(.*)/", $section, $secarray);
        print_package_entries($secarray[1], $secarray[2], $comaint);
    }
}

# main program

if($comaint == "") 
{
  $comaint = "yes";
}

if(@$excuse) 
{
    do_extra($excuse, "excuses", "No excuse for $excuse");
}elseif(@$popcon) 
{
    do_extra($popcon, "popcon", "No Popularity contest entry for $popcon");
}elseif(@$wnpp) 
{
    do_extra($wnpp, "wnpp", "No Wnpp entries for $wnpp");
}else if(@$gpg_key) 
{
    $contents = file("$prefix/ddpo_maintainers");

    $match = 0;
    $gpg_key = preg_replace ("/0x/i", "", $gpg_key);
    foreach ($contents as $line) 
    {
        if(preg_match("/^;[^;]*;[^;]*$gpg_key/i", $line)) 
        {
            preg_match("/^;(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*)/i", $line, $pack_array);
            $match += 1;
            print_header_entries_top($pack_array[1], $pack_array[2], $pack_array[3]);
            print_header_entries_body($pack_array[2], $pack_array[3], $comaint, $pack_array[1]);
            $count = 4;
            foreach ($branch as $value) 
            {
                if($pack_array[$count] != "") 
                {
                    print_package_entries($value, $pack_array[$count], $comaint);
                    $no_packages = true;
                }elseif(! $no_packages){
                    print html_h("No packages in unstable", 3);
                    $no_packages = true;
                }
                $count += 1;
            }    
            print html_br();
            if($match > 10){ break; }
        }
    }
    if($match == 0) 
    {
        print_notfound($gpg_key);
    }
  
    printBackLink();
}elseif(@$login)
{
    $login = preg_replace ("/\+/", "\+", $login);
    if (preg_match("/^[a-z0-9]+$/", $login)) $login .= "@debian.org";

    $contents = file("$prefix/ddpo_maintainers");

    $match = 0;
    foreach($contents as $line)
    {
        if (preg_match("/^;[^;]*;[^;]*;[^;]*$login/i", $line) || # substring for name
            preg_match("/^;$login;/i", $line)) # exact match for mail
        {
            preg_match("/^;(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*)/i", $line, $pack_array);
            $match += 1;
            print_header_entries_top($pack_array[1], $pack_array[2], $pack_array[3]);
            print_header_entries_body($pack_array[2], $pack_array[3], $comaint, $pack_array[1]);
            $count = 4;
            foreach ($branch as $value) 
            {
                if($pack_array[$count] != "") 
                {
                    print_package_entries($value, $pack_array[$count], $comaint);
                    $no_packages = true;
                }elseif(! $no_packages){
                    print html_h("No packages in unstable", 3);
                    $no_packages = true;
                }
                $count += 1;
            }
            print_subscribed_packages($pack_array[1], $comaint);
            if($arg_cookie[packages])
            {
                print_package_entries("url", $arg_cookie[packages], $comaint);
            }
            print html_br();
            if($match > 10){ break; }
        }
    }
    if($match == 0) 
    {
        print_notfound($login);
    }
    printBackLink();
}elseif(@$package) 
{
    $contents = file("$prefix/ddpo_maintainers");
    $package_re = preg_replace("/\+/", ".", $package);

    $match = 0;
    foreach($contents as $line)
    {
        if (preg_match("/[; ]${package_re}[; \#]/i", $line))
        {
            preg_match("/^;(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*?);(.*)/i", $line, $pack_array);
            $match += 1;
            print_header_entries_top($pack_array[1], $pack_array[2], $pack_array[3]);
            print_header_entries_body($pack_array[2], $pack_array[3], $comaint, $pack_array[1]);
            $count = 4;
            foreach ($branch as $value) 
            {
                if($pack_array[$count] != "") 
                {
                    print_package_entries($value, $pack_array[$count], $comaint);
                    $no_packages = true;
                }elseif(! $no_packages){
                    print html_h("No packages in unstable", 3);
                    $no_packages = true;
                }
                $count += 1;
            }
            print_subscribed_packages($pack_array[1], $comaint);
            if($arg_cookie[packages])
            {
                print_package_entries("url", $arg_cookie[packages], $comaint);
            }
            print html_br();
            if($match > 10){ break; }
        }
    }
    if($match == 0) 
    {
        print_notfound($package);
    }
    printBackLink();
}elseif(@$all)
{
    print_all();
}else{
    print_form();
}

print_footer();
?>

# vim:sw=4:ft=php:
Name	Value
svn:eol-style	native
svn:keywords	Author Date Id Revision