} $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);