if (empty($testuser)) {
print "As: anonymous\n";
} else {
print "As: " . $testuser . "\n";
}
$testdr = $testsac->depositAtomEntry($testdepositurl, $testuser, $testpw, $testobo, $testatomentry, false);
print "Received HTTP status code: " . $testdr->sac_status . " (" . $testdr->sac_statusmessage . ")\n";
if ($testdr->sac_status >= 200 || $testdr->sac_status < 300) {
$testdr->toString();
}
print "\n\n";
$edit_iri = $testdr->sac_edit_iri;
$cont_iri = $testdr->sac_content_src;
$edit_media = $testdr->sac_edit_media_iri;
$statement_atom = $testdr->sac_state_iri_atom;
$statement_ore = $testdr->sac_state_iri_ore;
}
if (true) {
print "About to retrieve deposit receipt from " . $edit_iri . "\n";
if (empty($testuser)) {
print "As: anonymous\n";
} else {
print "As: " . $testuser . "\n";
}
$testdr = $testsac->retrieveDepositReceipt($edit_iri, $testuser, $testpw, $testobo, "http://purl.org/net/sword/package/SimpleZip");
print "Received HTTP status code: " . $testsdr->sac_status . " (" . $testsdr->sac_statusmessage . ")\n";
if ($testdr->sac_status == 200) {
$testdr->toString();
}
print "\n\n";
}
