git.infodrom.org Git - infodrom.org/www.infodrom.org/blob - src/projects/manpages-de/free-alpha.wml

   1 #include <infodrom.style>
   2 #include <projects.style>
   3 #include "tools.pl"
   4 #read "mailed"
   5 #read "done"
   6
   7 <projectpg project="manpages-de" maxcontrib=15>
   8
   9 <h3>Freie und unübersetzte Seiten</h3>
  10
  11 <p>Die folgenden Seiten wurden bisher noch nicht übersetzt.<p>
  12
  13 <:
  14
  15   $thead = '<table width="100%" cellspacing="0" cellpadding="2" border="0" summary="">'
  16           .'<tr bgcolor="<colh>">'
  17           .'<th width="10%"><font face="Helvetica,Arial">kB</font></th>'
  18           .'<th width="20%"><font face="Helvetica,Arial">Name</font></th>'
  19           .'<th><font face="Helvetica,Arial">Beschreibung</font></th>'
  20           .'</tr>';
  21
  22   $row = '<tr bgcolor="%s">'
  23         .'<td width="10%%" align="right"><font face="Helvetica,Arial">%d kB</font></td>'
  24         .'<td width="20%%"><font face="Helvetica,Arial" size="-1">'
  25           .'<a href="%s?page=%s&section=%d&language=us">%s</a> (%d)</font></td>'
  26         .'<td><font face="Helvetica,Arial" size="-1">%s</font></td>'
  27         .'</tr>';
  28
  29   @english = gather_english ();
  30   %german = gather_german ();
  31
  32   # Debug
  33   #  foreach $s (keys %german) {
  34   #    printf "[%s] ", $s;
  35   #  }
  36   #  print "<p>";
  37
  38   for ($i=0; $i <= $#english; $i++) {
  39     if ($german{$english[$i]} != 1) {
  40       $english[$i] =~ /^(.*)\.([0-9])$/;
  41       $page=$1; $section=$2;
  42
  43       if (!is_link ($page, $section)) {
  44         push (@free, $english[$i]);
  45       }
  46     }
  47   }
  48   @free = sort (@free);
  49
  50   printf "<p>Nur noch %d nicht übersetzte Seiten.<p>", $#free+1;
  51   print $thead;
  52
  53   $color = "<cold>";
  54   for ($i=0; $i <= $#free; $i++) {
  55     $free[$i] =~ /^(.*)\.([0-9])$/;
  56     $page=$1; $section=$2;
  57     $size = filesize ($page, $section);
  58     $name = getname ($page, $section);
  59
  60     $color = $color eq "<cold>"?"<coln>":"<cold>";
  61     printf $row, $color, $size / 1024, $cgipath, $page, $section, $page, $section, $name;
  62   }
  63
  64   print "</table>";
  65 :>
  66
  67 </projectpg>
  68
  69 # Local variables:
  70 # mode: text
  71 # mode: auto-fill
  72 # end: