#include <infodrom.style>
#include "tools.pl"
#read "mailed"
#read "done"

<page title="manpages-de: Nicht übersetzte Seiten">

<p>Die folgenden Seiten wurden bisher noch nicht übersetzt.<p>

<:

  $thead = '<table class="blackborder" width="100%" cellspacing="0" cellpadding="2" border="0" summary="">'
          .'<tr bgcolor="<colh>">'
          .'<th>kB</th>'
          .'<th width="25%">Name</th>'
          .'<th>Beschreibung</th>'
          .'</tr>';

  $chost = 'http://cvs.infodrom.org/manpages';
  $copt = 'rev=HEAD;content-type=text/plain;cvsroot=debian';
  $row = '<tr bgcolor="%s">'
        .'<td align="right" class="smallfont">%d kB</td>'
        .'<td width="25%%" class="smallfont"><a href="%s/man%d/%s.%d?%s">%s</a> (%d)</td>'
        .'<td class="smallfont">%s</td>'
        .'</tr>';

  @english = gather_english ();
  %german = gather_german ();

  # Debug
  #  foreach $s (keys %german) {
  #    printf "[%s] ", $s;
  #  }
  #  print "<p>";

  for ($i=0; $i <= $#english; $i++) {
    if ($german{$english[$i]} != 1) {
      $english[$i] =~ /^(.*)\.([0-9])$/;
      $page=$1; $section=$2;

      if (!is_link ($page, $section)) {
        push (@free, $english[$i]);
      }
    }
  }
  @free = sort (@free);

  printf "<p>Nur noch %d nicht übersetzte Seiten.<p>", $#free+1;
  print $thead;

  $color = "<cold>";
  for ($i=0; $i <= $#free; $i++) {
    $free[$i] =~ /^(.*)\.([0-9])$/;
    $page=$1; $section=$2;
    $size = filesize ($page, $section);
    $name = getname ($page, $section);

    $color = $color eq "<cold>"?"<coln>":"<cold>";
    printf $row, $color, $size / 1024, $chost, $section, $page, $section, $copt, $page, $section, $name;
  }

  print "</table>";
:>

</page>

# Local variables:
# mode: text
# mode: auto-fill
# end: