}
$grabber = new Grabber($geneanet);
$grabber->setDelay($config->get('grabber/delay'));
if ($config->get('connexion/proxy') != '') {
$grabber->setProxy($config->get('connexion/proxy'));
}
$test = 'single';
switch ($test) {
case 'single':
$p = $grabber->grabSingle($url);
# print_r($p);
echo utf8_decode($p);
break;
case 'ascendants':
$p = $grabber->grabSingle($url);
$list = $grabber->grabAscendants($p, $level = 15);
break;
case 'descendants':
$p = $grabber->grabSingle($url);
$grabber->grabDescendants($p, $level = 14);
break;
case 'siblings':
$p = $grabber->grabSingle($url);
printf("siblings of : %s\n", utf8_decode($p->quickDisplay()));
$list = $grabber->grabSiblings($p);
foreach ($list as $p) {
printf(" - %s\n", utf8_decode($p->quickDisplay()));
}
break;
case 'half-siblings':
$p = $grabber->grabSingle($url);
$url = $config->get('geneanet/default-url');
}
$grabber = new Grabber($geneanet);
$grabber->setDelay($config->get('grabber/delay'));
if ($config->get('connexion/proxy') != '') {
$grabber->setProxy($config->get('connexion/proxy'));
}
$test = 'descendants';
switch ($test) {
case 'single':
$p = $grabber->grabSingle($url);
echo utf8_decode($p);
break;
case 'ascendants':
$p = $grabber->grabSingle($url);
$grabber->grabAscendants($p, $level = 3);
break;
case 'descendants':
$p = $grabber->grabSingle($url);
$grabber->grabDescendants($p, $level = 2);
break;
}
# print_r($p);
$writer = new GedcomWriter($config);
# for debug
# echo utf8_decode($writer->pretty($writer->write($p)));
# it seems that geneanet do not support UTF8
switch ($config->get('gedcom/charset')) {
case 'UTF-8':
case 'UTF8':
echo $writer->write($p);
