";

if (!class_exists('SoapClient')) {
	print "Using Zend SOAP
";
	$soap = new Zend_Soap_Client($url,array('soap_version' => SOAP_1_1 ));
}
else {
	print "Using SOAP Extension
";
	$soap = new SoapClient($url);
}

print "Getting ServiceInfo
\n";
$s = $soap->ServiceInfo();
var_dump($s);
print "After ServiceInfo()
";

$result = $soap->Authenticate('', '', '', '', 'GEDCOM');
var_dump($result);

print "After Authenticate
";

$res = $soap->getPersonById($result->SID, "I2");
var_dump($res);
print "After getPersonById
";

$res = $soap->getGedcomRecord($result->SID, "I2");
var_dump($res);
print "After getGedcomRecord
";

//$person = $soap->getPersonByID($result->SID, "I1");
//print_r($person);
//require_once WT_ROOT.'includes/classes/class_grampsexport.php';
//$ge= new GrampsExport();
//$ge->begin_xml();
//$ge->create_family(find_family_record("F1", WT_GED_ID), "F1", 1);
////$ge->create_person(find_person_record("I1", WT_GED_ID), "I1", 1);
//$xml = $ge->dom->saveXML();
//print htmlentities($xml);
//
//$family = $soap->getFamilyByID($result->SID, "F1");
//print_r($family);

//$ids = $soap->checkUpdates($result->SID, "01 JAN 2006");
//print_r($ids);
//
//$s = $soap->search($result->item->SID, 'week', '0','100');
//echo print_r($s,true);
//
//$res = $soap->getPersonById($result->SID, "I1");
//print_r($res);
//
/*************************************** getVar TESTS *********************************************/
/*$s = $soap->getVar($result->SID, 'GEDCOM');
print_r($s);

$s = $soap->getXref($result->SID, 'new', 'INDI');
print_r($s);

$s = $soap->checkUpdates($result->SID, '10 JAN 2005');
print_r($s);
*/
//
//$s = $soap->getVar($result->SID, 'CHARACTER_SET');
//print_r($s);
//
//$s = $soap->getVar($result->SID, 'PEDIGREE_ROOT_ID');
//print_r($s);
//
// The rest of these are examples that only work if you are
// actually authenticated as a user first not anonymously
//$s = $soap->getVar($result->SID, 'CALENDAR_FORMAT');
//print_r($s);
//
//$s = $soap->getVar($result->SID, 'LANGUAGE');
//print_r($s);
//
/************* THE REST OF THESE SCHOULD RETURN SOAP FAULTS SINCE THEY'RE NOT ALLOWED   **********/
//$s = $soap->getVar($result->SID, 'DBTYPE');
//print_r($s);
//
//$s = $soap->getVar($result->SID, 'SERVER_URL');
//print_r($s);
/**************************************** END OF getVar TEST *************************************/
//
//$s = $soap->appendRecord($result->SID, 'RoyalBaseGarrett05.ged', $gedrec);
//print_r($s);
//
//$s = $soap->deleteRecord($result->SID, 'RoyalBaseGarrett05.ged');
//print_r($s);

ob_end_flush();
?>