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

   1 #include <infodrom.style>
   2 #include <projects.style>
   3 #include "tools.pl"
   4 #read "names"
   5 #read "mailed"
   6
   7 <projectpg project="manpages-de">
   8
   9 <h3>Zum Übersetzen verschickt</h3>
  10
  11 <dl>
  12 <:
  13   %name = read_names ();
  14   %done = read_mailed ();
  15
  16   foreach $short (keys %name) {
  17     ($email,$name) = split (/:/, $name{$short});
  18     $short{$name} = $short;
  19   }
  20
  21   foreach $rn (sort keys %short) {
  22     $short = $short{$rn};
  23
  24     if (length ($done{$short}) > 0) {
  25       ($email,$name) = split (/:/, $name{$short});
  26       printf "<dt> <b><a href=\"mailto:%s\">%s</a></b> &lt;%s&gt;<dd>",
  27              $email, $name, $email;
  28
  29       @pages = sort (split (/,/, $done{$short}));
  30       for ($i=0; $i <= $#pages; $i++) {
  31         print ", " if ($i > 0);
  32         $pages[$i] =~ /^(.*)\.([0-9])$/;
  33         printf "<a href=\"%s?page=%s&section=%d&language=us\">%s</a>(%d)",
  34                $cgipath, $1, $2, $1, $2;
  35       }
  36       print ".";
  37     }
  38   }
  39
  40 :>
  41 </dl>
  42
  43 </projectpg>
  44
  45 # Local variables:
  46 # mode: text
  47 # mode: auto-fill
  48 # end: