case "Identify": print headXML($verb); print identify(); $error = false; break; case "ListIdentifiers": if ($error == false) { $dataModel = new $methodology(); listRecords($metadataPrefix, $methodology); } break; case "ListSets": listRecords($metadataPrefix, $methodology); break; case "ListMetadataFormats": print headXML($verb); print listMetadataFormats(); $error = false; break; default: $verb = ""; $errorMsg = "Illegal OAI verb"; $errorCode = "badVerb"; } } //If have errors, show message if ($errorMsg && $error == true) { print verbError($verb, $errorMsg, $errorCode); } ?>
function verbError($verb, $errorMsg, $errorCode) { $envelop = headXML($verb); $result = "<error code=\"" . $errorCode . "\">" . $errorMsg . "</error>\n"; $envelop .= $result; $envelop .= "</OAI-PMH>\n"; print $envelop; }