Example #1
0
}
debugstring("\$def={$def}\n");
$deffile = new DefFile($def);
$ws_client_url = "http://" . $deffile->getKeyValue("SERVER_SCIELO") . $deffile->getKeyValue("PATH_DATA") . "ws/scielo-ws.php";
debugstring("\$ws_client_url={$ws_client_url}\n");
$self = "http://" . $deffile->getKeyValue("SERVER_SCIELO") . $deffile->getKeyValue("PATH_DATA") . "oai/scielo-oai.php";
$xslPath = "http://" . $deffile->getKeyValue("SERVER_SCIELO") . $deffile->getKeyValue("PATH_DATA") . "oai/";
debugstring("\$xslPath={$xslPath}\n");
$repositoryName = trim($deffile->getKeyValue("SITE_NAME"));
$adminEmails = array(trim($deffile->getKeyValue("E_MAIL")));
switch ($verb) {
    case "Identify":
        $packet = Identify_OAI($self, $ws_client_url, $xslPath);
        break;
    case "ListMetadataFormats":
        $packet = ListMetadataFormats_OAI($self, $ws_client_url, $xslPath, "");
        break;
    case "GetRecord":
        $packet = getRecord_OAI($self, $ws_client_url, $xslPath, $identifier, $metadataPrefix);
        break;
    case "ListSets":
        $packet = ListSets_OAI($self, $ws_client_url, $xslPath, $resumptionToken);
        break;
    case "ListIdentifiers":
    case "ListRecords":
        //$metadataPrefix2 = $metadataPrefix; // $metadataPrefix perde seu valor original apos o IF abaixo.
        if ($resumptionToken && !parseResumptionToken($resumptionToken)) {
            $packet = createOAIErrorpacket($self, $verb, "badResumptionToken");
            break;
        }
        if ($from && !isDatestamp($from)) {
}
debugstring("\$def={$def}\n");
$deffile = new DefFile($def);
$ws_client_url = "http://" . $deffile->getKeyValue("SERVER_SCIELO") . $deffile->getKeyValue("PATH_DATA") . "ws/scielo-ws.php";
debugstring("\$ws_client_url={$ws_client_url}\n");
$self = "http://" . $deffile->getKeyValue("SERVER_SCIELO") . $deffile->getKeyValue("PATH_DATA") . "oai/scielo-oai.php";
$xslPath = "http://" . $deffile->getKeyValue("SERVER_SCIELO") . $deffile->getKeyValue("PATH_DATA") . "oai/";
debugstring("\$xslPath={$xslPath}\n");
$repositoryName = trim($deffile->getKeyValue("SITE_NAME"));
$adminEmails = array(trim($deffile->getKeyValue("E_MAIL")));
switch ($verb) {
    case "Identify":
        $packet = Identify_OAI($self, $ws_client_url, $xslPath);
        break;
    case "ListMetadataFormats":
        $packet = ListMetadataFormats_OAI($self, $ws_client_url, $xslPath, $identifier);
        break;
    case "GetRecord":
        $packet = getRecord_OAI($self, $ws_client_url, $xslPath, $identifier, $metadataPrefix);
        break;
    case "ListSets":
        $packet = ListSets_OAI($self, $ws_client_url, $xslPath, $resumptionToken);
        break;
    case "ListIdentifiers":
    case "ListRecords":
        if ($resumptionToken && !parseResumptionToken($resumptionToken)) {
            $packet = createOAIErrorpacket($self, $verb, "badResumptionToken");
            break;
        }
        if ($from && !isDatestamp($from)) {
            $packet = createOAIErrorpacket($self, $verb, "badArgument", "Invalid date format");