function generatePayload($ws_client_url, $service, $service_name, $parameters, $xsl)
{
global $debug, $defFile;
//die($service_name." - ".$service);
switch ($service_name) {
case "Identify":
$response = listRecords($set = $parameters["set"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 30, $debug = false);
break;
case "ListMetadataFormats":
$response = getAbstractArticle($set = $parameters["pid"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 30, $debug = false);
break;
case "ListIdentifiers":
$response = listRecords($set = $parameters["set"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 30, $debug = false, $metadataprx = $parameters["metadataprefix"]);
break;
case "ListSets":
$response = getTitles($lang = "en", $debug = false);
break;
case "ListRecords":
$response = ListRecords($set = $parameters["set"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 30, $debug = false, $metadataprx = $parameters["metadataprefix"]);
break;
case "ListRecordsAgris":
$response = ListRecordsAgris($set = $parameters["set"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 100, $debug = false, $metadataprx = $parameters["metadataprefix"]);
break;
case "GetRecord":
$response = getAbstractArticle($pid = $parameters["pid"], $lang = "en", $ws = $parameters["ws_oai"], $debug = false);
break;
case "GetRecordAgris":
$response = getAbstractArticleAgris($pid = $parameters["pid"], $lang = "en", $ws = $parameters["ws_oai"], $debug = false);
break;
}
#workaround for fatal error in DOMDocument::loadXML() when XML have & character
$response = preg_replace('/ & /', ' & ', $response);
if (!$debug) {
$transform = new XSLTransformerOAI();
$transform->setXslBaseUri($defFile["PATH_OAI"]);
$transform->setXslFile($defFile["PATH_OAI"] . $xsl);
$transform->setXml($response);
$transform->transform();
if ($transform->getError()) {
echo "XSL Transformation error\n";
echo $transform->getError();
exit;
}
$result = $transform->getOutput();
}
return $result;
}
break;
case 'Submit Add':
GetPostVariables();
if (ValidUniqueCode()) {
Db_Add();
ListMenu();
} else {
$_SESSION['SystemMessage'] = 'Code already on file!! Choose another.';
AddForm();
}
break;
case 'Cancel Add':
CurrentNumberRecords();
GetVariablesFromSession();
ListMenu();
break;
case 'List Records':
ListRecords();
break;
case 'Back':
header("Location: {$CallingProgram}");
break;
default:
ListMenu();
break;
}
} else {
InitializeProgram();
ListMenu();
}
echo "\n</body>\n</html>";
function generatePayload($ws_client_url, $service, $service_name, $parameters, $xsl)
{
global $debug, $defFile;
//die($service_name." - ".$service);
switch ($service_name) {
case "Identify":
$response = listRecords($set = $parameters["set"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 30, $debug = false);
break;
case "ListMetadataFormats":
$response = getAbstractArticle($set = $parameters["set"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 30, $debug = false);
break;
case "ListIdentifiers":
$response = listRecords($set = $parameters["set"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 30, $debug = false);
break;
case "ListSets":
$response = getTitles($lang = "en", $debug = false);
break;
case "ListRecords":
$response = ListRecords($set = $parameters["set"], $from = $parameters["from"], $until = $parameters["until"], $control = $parameters["control"], $lang = "en", $nrm = "iso", $count = 30, $debug = false);
break;
case "GetRecord":
$response = getAbstractArticle($pid = $parameters["pid"], $lang = "en", $ws = $parameters["ws_oai"], $debug = false);
break;
}
// $result = "";
if (!$debug) {
$transform = new XSLTransformer();
if (getenv("ENV_SOCKET") != "true") {
//socket
$xsl = file_get_contents($defFile["PATH_OAI"] . $xsl);
} else {
$xsl = str_replace('.XSL', '', strtoupper($xsl));
}
$transform->setXslBaseUri($defFile["PATH_OAI"]);
$transform->setXsl($xsl);
$transform->setXml($response);
$transform->transform();
if ($transform->getError()) {
// Transformation error
echo "XSL Transformation error\n";
echo $transform->getError();
$transform->destroy();
exit;
}
$result = $transform->getOutput();
$transform->destroy();
}
return $result;
}
