#!/usr/bin/perl -w
use strict;
use diagnostics;
use LinuxFocus::SDB;
my $VERSION = "0.2";
my $db = LinuxFocus::SDB->new();
$db->load("../../data/lfdb.nl.xml");
$db->load("../../data/lfdb.persons.xml");
$db->setLang("nl");
my $arts = 0;
my $translatedarts = 0;
print << "EOF";
LinuxFocus - NL: Medewerkers
LinuxFocus - NL Medewerkers
Hieronder staat een lijst met de huidige Nederlandse en Belgische mederwerkers van het LinuxFocus - NL
team. Lid worden kan door het sturen van een emailtje naar de Nederlandse
maillist op
dutch\@linuxfocus.org.
EOF
foreach my $personid ($db->getPersonIDs(sort => "asc", team => "nl")) {
my $name = $db->getPersonName($personid) || "";
my $nick = $db->getPersonNickname($personid) || "";
my $email = $db->getPersonEmail($personid) || "";
my $desc = $db->getPersonDescription($personid) || "";
#my %stats = $db->getPersonStats($personid);
print "- $name";
print " ($nick)" if ($nick ne "");
print "
\n";
print "$email
\n";
print "$desc
\n";
#print "Geschreven artikelen: " . $stats{written} . "
\n";
#print "Vertaalde artikelen (naar NL): " . $stats{translated} . "
\n";
#print "Gecontroleerde artikelen: " . $stats{proofread} . "
\n";
}
print << "EOF";
EOF