git.infodrom.org Git - infodrom.org/www.infodrom.org/blob - src/Debian/support/debian.de/regulars.wml

   1 #include <infodrom.style>
   2 #include <debian.style>
   3 #include <fileutils.pl>
   4 #read "channel.xml"
   5
   6 <page title="Debian Support - Channel #Debian.DE">
   7
   8 <h3>Regulars</h3>
   9
  10 <p>Diese Leute sind oft auf #Debian.DE anzutreffen:<p>
  11
  12 <ul>
  13 <:
  14   %data = parse_xmlfile ("channel.xml");
  15
  16   $list = $data{'Regulars'};
  17   @list = @$list;
  18   foreach $k (@list) {
  19     %entry = %$k;
  20     if (length ($entry{'Homepage'})) {
  21       printf "<li><a href=\"%s\">%s</a> - %s", $entry{'Homepage'}, $entry{'Nickname'}, $entry{'Name'};
  22     } else {
  23       printf "<li>%s - %s", $entry{'Nickname'}, $entry{'Name'};
  24     }
  25     if (length ($entry{'E-Mail'})) {
  26       printf " &lt;%s&gt;", $entry{'E-Mail'};
  27     }
  28   }
  29 :>
  30 </ul><p>
  31
  32 </page>
  33
  34 # Local variables:
  35 # mode: indented-text
  36 # end: