function error_schema()
{
$error_message = "Schema Validation Failed\n";
$errorCode = "XDSRepositoryMetadataError";
$errors = libxml_get_errors();
print_r($errors);
foreach ($errors as $error) {
$error_message .= $error->message . "\n";
}
//$error_message.= $errors->message;
### RESTITUISCE IL MESSAGGIO DI FAIL IN SOAP
$SOAPED_failure_response = makeSoapedFailureResponse($error_message, $logentry, $errorCode);
### SCRIVO LA RISPOSTA IN UN FILE
// File da scrivere
$fp = fopen($tmp_path . $idfile . "-SOAPED_failure_VALIDATION_response-" . $idfile, "w+");
fwrite($fp, $SOAPED_failure_response);
fclose($fp);
### PULISCO IL BUFFER DI USCITA
ob_get_clean();
//OKKIO FONDAMENTALE!!!!!
### HEADERS
header("HTTP/1.1 200 OK");
header("Path: {$www_REP_path}");
header("Content-Type: text/xml;charset=UTF-8");
header("Content-Length: " . (string) filesize($tmp_path . $idfile . "-SOAPED_failure_VALIDATION_response-" . $idfile));
### CONTENUTO DEL FILE DI RISPOSTA
$file = fopen($tmp_path . $idfile . "-SOAPED_failure_VALIDATION_response-" . $idfile, 'rb');
if ($file) {
while (!feof($file) && connection_status() == 0) {
print fread($file, 1024 * 8);
flush();
//NOTA BENE!!!!!!!!!
}
fclose($file);
}
### SPEDISCO E PULISCO IL BUFFER DI USCITA
ob_end_flush();
### BLOCCO L'ESECUZIONE DELLO SCRIPT
exit;
}
writeTimeFile($idfile . "--Ho creato il file correttamente");
$writef = true;
}
} else {
sleep(1);
$nfile++;
}
}
//Fine while
#### CHIUDO L'HANDLER
fclose($fp_allegato);
// Se dopo 10 volte non sono riuscito a salvare il file riporto un errore
if (!$writef) {
$errorcode[] = "XDSRepositoryError";
$error_message[] = "Repository can't save files. ";
$File_response = makeSoapedFailureResponse($error_message, $errorcode);
writeTimeFile($_SESSION['idfile'] . "--Repository: File error");
$file_input = $idfile . "-file_failure_response-" . $idfile;
writeTmpFiles($File_response, $file_input);
SendResponse($File_response);
exit;
}
##############################################À
### SALVATAGGIO DELL'ALLEGATO SU FILESYSTEM
##################################################################
#### MI ASSICURO CHE URI,SIZE ED HASH NON SIANO GIA' SPECIFICATE NEL METADATA
$mod = modifiable($ExtrinsicObject_node);
$datetime = "CURRENT_TIMESTAMP";
$insert_into_DOCUMENTS = "INSERT INTO DOCUMENTS (XDSDOCUMENTENTRY_UNIQUEID,DATA,URI,MIMETYPE,CRYPT) VALUES ('" . $UniqueId_valid_array[1][$o] . "'," . $datetime . ",'" . $document_URI2 . "','" . $AllegatiExtrinsicObject[2][$o] . "','" . $REP_crypt . "')";
//writeTimeFile($idfile."--Repository: INSERT INTO DOCUMENTS".$insert_into_DOCUMENTS);
$ris = query_execute2($insert_into_DOCUMENTS, $connessione);
function writeTmpFiles($log_text, $file_name, $mandatory = false)
{
### PATH COMPLETO AL FILE
if (!isset($_SESSION['tmp_path'])) {
$pathToFile = "./tmp/" . $file_name;
} else {
$pathToFile = $_SESSION['tmp_path'] . $file_name;
}
$writef = false;
$nfile = 0;
//Se il file è obbligatorio devo accertarmi che venga salvato
if ($mandatory) {
while (!$writef && $nfile < 10) {
### APERTURA DEL FILE IN FORMA TAIL ED IN SOLA SCRITTURA
$handler_log = fopen($pathToFile, "wb+");
if ($handler_log) {
## CASO DI DATO TIPO ARRAY
if (is_array($log_text)) {
$txt = "";
### IMPOSTA L'ARRAY NELLA FORMA [etichetta] = valore
foreach ($log_text as $element => $value) {
$txt = $txt . "{$element} = {$value}\n";
}
//END OF foreach
$log_text = $txt;
}
//END OF if(is_array($log_text))
if (fwrite($handler_log, $log_text) === FALSE) {
sleep(1);
$nfile++;
} else {
// Caso OK Riesce a aprire e scrivere il file correttamente
$writef = true;
}
} else {
sleep(1);
$nfile++;
}
}
//Fine while
#### CHIUDO L'HANDLER
fclose($handler_log);
if (!$writef) {
$errorcode[] = "XDSRepositoryError";
$error_message[] = "Repository can't create tmp file. ";
$tmp_response = makeSoapedFailureResponse($error_message, $errorcode);
writeTimeFile($_SESSION['idfile'] . "--Repository: Tmp File error");
$file_input = $idfile . "-tmp_failure_response-" . $idfile;
writeTmpFiles($tmp_response, $file_input);
SendResponse($tmp_response);
exit;
}
} else {
$handler_log = fopen($pathToFile, "wb+");
## CASO DI DATO TIPO ARRAY
if (is_array($log_text)) {
$txt = "";
### IMPOSTA L'ARRAY NELLA FORMA [etichetta] = valore
foreach ($log_text as $element => $value) {
$txt = $txt . "{$element} = {$value}\n";
}
//END OF foreach
$log_text = $txt;
}
//END OF if(is_array($log_text))
fwrite($handler_log, $log_text);
fclose($handler_log);
}
#### RITORNO IL PATH AL FILE SCRITTO
return $pathToFile;
}
function verificaExtrinsicObject($dom_ebXML)
{
$ExtrinsicObject_array = $dom_ebXML->get_elements_by_tagname("ExtrinsicObject");
$conta_EO = count($ExtrinsicObject_array);
if ($conta_EO > 0) {
//RESTITUISCE IL MESSAGGIO DI ERRORE
$errorcode[] = "XDSMissingDocument";
$error_message[] = "XDSDocumentEntry exists in metadata with no corresponding attached document";
$failure_response = makeSoapedFailureResponse($error_message, $errorcode);
$file_input = $_SESSION['idfile'] . "-Document_missing-" . $_SESSION['idfile'];
writeTmpFiles($failure_response, $file_input);
SendResponse($failure_response);
exit;
//PULISCO IL BUFFER DI USCITA
ob_get_clean();
//OKKIO FONDAMENTALE!!!!!
} else {
return true;
}
}
function giveboundary($headers)
{
if (stripos($headers["Content-Type"], "boundary")) {
writeTimeFile($_SESSION['idfile'] . "--Repository: Il boundary e' presente");
if (preg_match('(boundary="[^\\t\\n\\r\\f\\v";]+")', $headers["Content-Type"])) {
writeTimeFile($_SESSION['idfile'] . "--Repository: Ho trovato il boundary di tipo boundary=\"bvdwetrct637crtv\"");
$content_type = stristr($headers["Content-Type"], 'boundary');
$pre_boundary = substr($content_type, strpos($content_type, '"') + 1);
$fine_boundary = strpos($pre_boundary, '"') + 1;
//BOUNDARY ESATTO
$boundary = '';
$boundary = substr($pre_boundary, 0, $fine_boundary - 1);
writeTimeFile($idfile . "--Repository: Il boundary " . $boundary);
} else {
if (preg_match('(boundary=[^\\t\\n\\r\\f\\v";]+[;])', $headers["Content-Type"])) {
writeTimeFile($_SESSION['idfile'] . "--Repository: Ho trovato il boundary di tipo boundary=bvdwetrct637crtv;");
$content_type = stristr($headers["Content-Type"], 'boundary');
$pre_boundary = substr($content_type, strpos($content_type, '=') + 1);
$fine_boundary = strpos($pre_boundary, ';');
//BOUNDARY ESATTO
$boundary = '';
$boundary = substr($pre_boundary, 0, $fine_boundary);
writeTimeFile($_SESSION['idfile'] . "--Repository: Il boundary " . $boundary);
} else {
$errorcode[] = "XDSRepositoryError";
$error_message[] = "Repository can't recognize boundary. ";
$folder_response = makeSoapedFailureResponse($error_message, $errorcode);
writeTimeFile($_SESSION['idfile'] . "--Repository: Il boundary non e' del tipo boundary=\"bvdwetrct637crtv\" o boundary=bvdwetrct637crtv;");
$file_input = $idfile . "-boundary_failure_response-" . $idfile;
writeTmpFiles($folder_response, $file_input);
SendResponse($folder_response);
exit;
}
}
$MTOM = false;
} else {
writeTimeFile($_SESSION['idfile'] . "--Repository: non e' dichiarato il boundary");
$MTOM = true;
//$boundary = "--boundary_per_MTOM";
}
$ret = array($boundary, $MTOM);
return $ret;
}
}
//END OF IF
if (!$conf_PatientIds_arr[0]) {
writeTimeFile($idfile . "--Registry: CONFRONTO XDSDocumentEntry.patientId vs XDSSubmissionSet.patientId OK");
}
## CONFRONTO XDSDocumentEntry.patientId vs XDSFolder.patientId CASO ADD DOCUMENT
// se $isAddAllowed_array[0] è falso dà errore
$isAddAllowed_array = verifyAddDocToFolder($dom_ebXML, $XDSDocumentEntryPatientId_arr, $connessione);
$error_code_array = array_merge($ExtrinsicObject_mimeType_array[2], $DocumentEntryPatientId_valid_array[4], $DocumentEntryUniqueId_valid_array[4], $Replacement_valid_array[2], $Append_valid_array[2], $SubmissionSetPatientId_valid_array[3], $SubmissionSetUniqueId_valid_array[2], $FolderUniqueId_valid_array[3], $hsu[2], $FolderPatientId_valid_array[2], $conf_PatientIds_arr[2], $isAddAllowed_array[2]);
$failure_response_array = array_merge($ExtrinsicObject_mimeType_array[1], $DocumentEntryPatientId_valid_array[1], $DocumentEntryUniqueId_valid_array[1], $Replacement_valid_array[1], $Append_valid_array[1], $SubmissionSetPatientId_valid_array[1], $SubmissionSetUniqueId_valid_array[1], $FolderUniqueId_valid_array[1], $hsu[1], $FolderPatientId_valid_array[1], $conf_PatientIds_arr[1], $isAddAllowed_array[1]);
###### CASO DI VALIDAZIONE ===NON=== PASSATA
if ($ExtrinsicObject_mimeType_array[0] || $DocumentEntryPatientId_valid_array[0] || !$Replacement_valid_array[0] || !$Append_valid_array[0] || !$DocumentEntryUniqueId_valid_array[0] || $SubmissionSetPatientId_valid_array[0] || !$SubmissionSetUniqueId_valid_array[0] || !$FolderUniqueId_valid_array[0] || !$hsu[0] || !$FolderPatientId_valid_array[0] || $conf_PatientIds_arr[0] || !$isAddAllowed_array[0]) {
### COMPONGO IL CORE DEL MESSAGGIO DI FAIL
writeTimeFile($idfile . "--Registry: NON HO SUPERATO I VINCOLI DI VALIDAZIONE");
### RESTITUISCE IL MESSAGGIO DI FAIL IN SOAP
$SOAPED_failure_response = makeSoapedFailureResponse($failure_response_array, $error_code_array);
### SCRIVO LA RISPOSTA IN UN FILE
$file_input = $idfile . "-SOAPED_failure_response.xml";
writeTmpFiles($SOAPED_failure_response, $file_input, true);
SendResponseFile($tmp_path . $file_input);
//SendResponse($SOAPED_failure_response);
exit;
}
######## END OF VALIDAZIONE ===NON=== PASSATA
#### SE SONO QUI HO SUPERATO TUTTI I VINCOLI DI VALIDAZIONE
writeTimeFile($idfile . "--Registry: HO SUPERATO I VINCOLI DI VALIDAZIONE");
######################################################
###### POSSO RIEMPIRE IL DATABASE DEL REGISTRY #######
writeTimeFile($idfile . "--Registry: Inizio a riempire il Database");
### 1 - ExtrinsicObject
include_once 'ExtrinsicObject_2.php';
SendResponseFile($tmpQueryService_path . $file_input);
//SendResponse($status_response);
exit;
}
if ($Action == "") {
$failure_response = array("You must set the Action of the Request");
$error_code = array("XDSRegistryActionError");
$SOAPED_failure_response = makeSoapedFailureResponse($failure_response, $error_code, $Action, $MessageID);
$file_input = $idfile . "-SOAPED_Action_failure.xml";
writeTmpQueryFiles($SOAPED_failure_response, $file_input, true);
SendResponseFile($_SESSION['tmpQueryService_path'] . $file_input);
exit;
} elseif ($Action != "urn:ihe:iti:2007:RegistryStoredQuery") {
$failure_response = array("This is a Registry Stored Query transaction and you don't use the Action urn:ihe:iti:2007:RegistryStoredQuery");
$error_code = array("XDSRegistryActionError");
$SOAPED_failure_response = makeSoapedFailureResponse($failure_response, $error_code, $Action, $MessageID);
$file_input = $idfile . "-SOAPED_Action_failure.xml";
writeTmpQueryFiles($SOAPED_failure_response, $file_input, true);
SendResponseFile($_SESSION['tmpQueryService_path'] . $file_input);
exit;
}
//Ottengo Reply Address
$namespacequery = givenamescape('urn:oasis:names:tc:ebxml-regrep:xsd:query:3.0', $ebxml_imbustato_soap_STRING);
if ($namespacequery == '') {
$inizioAdhocQueryRequest = "<AdhocQueryRequest";
$fineAdhocQueryRequest = "</AdhocQueryRequest>";
$ebxml_STRING = substr($ebxml_imbustato_soap_STRING, strpos($ebxml_imbustato_soap_STRING, $inizioAdhocQueryRequest), strlen($ebxml_imbustato_soap_STRING) - strlen(substr($ebxml_imbustato_soap_STRING, strpos($ebxml_imbustato_soap_STRING, $fineAdhocQueryRequest) + strlen($fineAdhocQueryRequest))));
$ebxml_STRING = str_replace(substr($ebxml_imbustato_soap_STRING, strpos($ebxml_imbustato_soap_STRING, $fineAdhocQueryRequest) + strlen($fineAdhocQueryRequest)), "", $ebxml_STRING);
} else {
$inizioAdhocQueryRequest = "<{$namespacequery}:AdhocQueryRequest";
$fineAdhocQueryRequest = "</{$namespacequery}:AdhocQueryRequest>";
function fill_Association_tables($dom, $RegistryPackage_id_array, $ExtrinsicObject_id_array, $simbolic_RegistryPackage_FOL_id_array, $connessione)
{
writeTimeFile("Registry: sono entrato in fill_Association_tables");
##### RADICE DEL DOCUMENTO ebXML
$root_ebXML = $dom->document_element();
##### ARRAY DEI NODI LeafRegistryObjectList
$dom_ebXML_LeafRegistryObjectList_node_array = $root_ebXML->get_elements_by_tagname("LeafRegistryObjectList");
##### NODO LeafRegistryObjectList
$dom_ebXML_LeafRegistryObjectList_node = $dom_ebXML_LeafRegistryObjectList_node_array[0];
##### TUTTI I NODI FIGLI DI LeafRegistryObjectList
$dom_ebXML_LeafRegistryObjectList_child_nodes = $dom_ebXML_LeafRegistryObjectList_node->child_nodes();
for ($i = 0; $i < count($dom_ebXML_LeafRegistryObjectList_child_nodes); $i++) {
#### SINGOLO NODO
$dom_ebXML_LeafRegistryObjectList_child_node = $dom_ebXML_LeafRegistryObjectList_child_nodes[$i];
##### tagname
$dom_ebXML_LeafRegistryObjectList_child_node_tagname = $dom_ebXML_LeafRegistryObjectList_child_node->node_name();
#### SOLO I NODI ASSOCIATION
if ($dom_ebXML_LeafRegistryObjectList_child_node_tagname == 'Association') {
$association_node = $dom_ebXML_LeafRegistryObjectList_child_node;
$DB_array_association_attributes = array();
$value_id = $association_node->get_attribute('id');
if ($value_id == '' || isSimbolic($value_id)) {
$value_id = "urn:uuid:" . idrandom();
}
#### PARENT
$value_parent = $value_id;
$value_accessControlPolicy = $association_node->get_attribute('accessControlPolicy');
if ($value_accessControlPolicy == '') {
$value_accessControlPolicy = "NULL";
}
$value_objectType = $association_node->get_attribute('objectType');
if ($value_objectType == '') {
$value_objectType = "Association";
}
$value_associationType = $association_node->get_attribute('associationType');
if ($value_associationType == '') {
$value_associationType = "NOT DECLARED";
}
$value_sourceObject = $association_node->get_attribute('sourceObject');
//writeSQLQuery('Valore fuori dall if '.$value_sourceObject);
if ($value_sourceObject == "") {
$errorcode[] = "XDSRegistryError";
$error_message[] = "The sourceObject in Association is empty. ";
$folder_response = makeSoapedFailureResponse($error_message, $errorcode);
writeTimeFile($_SESSION['idfile'] . "--Registry: targetObject error");
$file_input = $idfile . "-sourceObject_failure_response.xml";
writeTmpFiles($folder_response, $file_input, true);
SendResponseFile($_SESSION['tmp_path'] . $file_input);
//SendResponse($folder_response,"application/soap+xml",filesize($tmp_path.$idfile."-folder_failure_response.xml"));
exit;
}
if (isSimbolic($value_sourceObject)) {
$value_sourceObject_1 = $ExtrinsicObject_id_array[$value_sourceObject];
$value_sourceObject_2 = $RegistryPackage_id_array[$value_sourceObject];
if ($value_sourceObject_1 != "") {
$value_sourceObject = $value_sourceObject_1;
} else {
$value_sourceObject = $value_sourceObject_2;
}
}
//END OF if(isSimbolic($value_sourceObject))
$value_targetObject = $association_node->get_attribute('targetObject');
if ($value_targetObject == "") {
$errorcode[] = "XDSRegistryError";
$error_message[] = "The targetObject in Association is empty. ";
$folder_response = makeSoapedFailureResponse($error_message, $errorcode);
writeTimeFile($_SESSION['idfile'] . "--Registry: targetObject error");
$file_input = $idfile . "-targetObject_failure_response.xml";
writeTmpFiles($folder_response, $file_input, true);
SendResponseFile($_SESSION['tmp_path'] . $file_input);
//SendResponse($folder_response,"application/soap+xml",filesize($tmp_path.$idfile."-folder_failure_response.xml"));
exit;
}
$simbolic_value_targetObject = $association_node->get_attribute('targetObject');
if (isSimbolic($value_targetObject)) {
$value_targetObject_1 = $ExtrinsicObject_id_array[$value_targetObject];
$value_targetObject_2 = $RegistryPackage_id_array[$value_targetObject];
if ($value_targetObject_1 != "") {
$value_targetObject = $value_targetObject_1;
} else {
$value_targetObject = $value_targetObject_2;
}
}
//END OF if(isSimbolic($simbolic_value_targetObject))
$value_isConfirmedBySourceOwner = $association_node->get_attribute('isConfirmedBySourceOwner');
if ($value_isConfirmedBySourceOwner == '') {
$value_isConfirmedBySourceOwner = "0";
}
$value_isConfirmedByTargetOwner = $association_node->get_attribute('isConfirmedByTargetOwner');
if ($value_isConfirmedByTargetOwner == '') {
$value_isConfirmedByTargetOwner = "0";
}
$DB_array_association_attributes['id'] = $value_id;
$DB_array_association_attributes['accessControlPolicy'] = $value_accessControlPolicy;
$DB_array_association_attributes['objectType'] = $value_objectType;
$DB_array_association_attributes['associationType'] = $value_associationType;
$DB_array_association_attributes['sourceObject'] = $value_sourceObject;
$DB_array_association_attributes['targetObject'] = $value_targetObject;
$DB_array_association_attributes['isConfirmedBySourceOwner'] = $value_isConfirmedBySourceOwner;
$DB_array_association_attributes['isConfirmedByTargetOwner'] = $value_isConfirmedByTargetOwner;
$Association_folder = in_array($simbolic_value_targetObject, $simbolic_RegistryPackage_FOL_id_array);
if (!$Association_folder) {
####### QUI ORA POSSO RIEMPIRE IL DB
$INSERT_INTO_Association = "INSERT INTO Association (id,accessControlPolicy,objectType,associationType,sourceObject,targetObject,isConfirmedBySourceOwner,isConfirmedByTargetOwner) VALUES ('" . $DB_array_association_attributes['id'] . "','" . $DB_array_association_attributes['accessControlPolicy'] . "','" . $DB_array_association_attributes['objectType'] . "','" . $DB_array_association_attributes['associationType'] . "','" . $DB_array_association_attributes['sourceObject'] . "','" . $DB_array_association_attributes['targetObject'] . "','" . $DB_array_association_attributes['isConfirmedBySourceOwner'] . "','" . $DB_array_association_attributes['isConfirmedByTargetOwner'] . "')";
$ris = query_exec2($INSERT_INTO_Association, $connessione);
writeSQLQuery($ris . ": " . $INSERT_INTO_Association);
#### NODI FIGLI DI ASSOCIATION
$association_child_nodes = $association_node->child_nodes();
if (!empty($association_child_nodes)) {
for ($j = 0; $j < count($association_child_nodes); $j++) {
#### SINGOLO NODO
$association_child_node = $association_child_nodes[$j];
##### tagname
$association_child_node_tagname = $association_child_node->node_name();
#### SOLO I NODI SLOT
if ($association_child_node_tagname == 'Slot') {
$slot_node = $association_child_node;
$DB_array_slot_attributes = array();
$value_name = $slot_node->get_attribute('name');
if ($value_name == '') {
$value_name = "NOT DECLARED";
}
$value_slotType = $slot_node->get_attribute('slotType');
if ($value_slotType == '') {
$value_slotType = "NULL";
}
$DB_array_slot_attributes['name'] = $value_name;
$DB_array_slot_attributes['slotType'] = $value_slotType;
$DB_array_slot_attributes['value'] = '';
$DB_array_slot_attributes['parent'] = $value_parent;
#### NODI FIGLI DI SLOT
$slot_child_nodes = $slot_node->child_nodes();
for ($q = 0; $q < count($slot_child_nodes); $q++) {
$slot_child_node = $slot_child_nodes[$q];
$slot_child_node_tagname = $slot_child_node->node_name();
if ($slot_child_node_tagname == 'ValueList') {
$valuelist_node = $slot_child_node;
$valuelist_child_nodes = $valuelist_node->child_nodes();
## UN SOLO VALUE
for ($r = 0; $r < count($valuelist_child_nodes); $r++) {
$value_node = $valuelist_child_nodes[$r];
$value_node_tagname = $value_node->node_name();
if ($value_node_tagname == 'Value') {
$value_value = $value_node->get_content();
$DB_array_slot_attributes['value'] = $value_value;
##### SONO PRONTO A SCRIVERE NEL DB
$INSERT_INTO_Slot = "INSERT INTO Slot (name,slotType,value,parent) VALUES ('" . trim($DB_array_slot_attributes['name']) . "','" . trim($DB_array_slot_attributes['slotType']) . "','" . trim(adjustString($DB_array_slot_attributes['value'])) . "','" . trim($DB_array_slot_attributes['parent']) . "')";
$ris = query_exec2($INSERT_INTO_Slot, $connessione);
writeSQLQuery($ris . ": " . $INSERT_INTO_Slot);
}
}
}
}
}
//END OF if($association_child_node_tagname=='Slot')
}
}
//END OF if(!empty($association_child_nodes))
} else {
}
########### CASI DI REPLACEMENT + ADDENDUM + TRANSFORMATION
##### CASO RPLC Accept Document Replace
if ($value_associationType == "RPLC") {
// devo verificare se il documento da sostituire è dentro ad un folder, se è dentro ad un folder devo creare una association Folder Document.
$query_SELECT_RegistryPackage = "SELECT id from RegistryPackage where id IN (SELECT sourceObject from Association where targetObject = '{$value_targetObject}') and objectType = 'urn:uuid:d9d542f3-6cc4-48b6-8870-ea235fbc94c2'";
$Association_folder_array = query_select2($query_SELECT_RegistryPackage, $connessione);
writeSQLQuery($Association_folder_array . ": " . $query_SELECT_RegistryPackage);
//Se trovo qualche RegistryPackage di tipo folder
$conta_Folder = count($Association_folder_array);
for ($i_Folder = 0; $i_Folder < $conta_Folder; $i_Folder++) {
$insert_Association_folderDoc = "INSERT INTO Association (id,objectType,associationType,sourceObject,targetObject) VALUES ('urn:uuid:" . idrandom() . "','Association','HasMember','" . $Association_folder_array[$i_Folder][0] . "','" . $value_sourceObject . "')";
$res_insert_Association = query_exec2($insert_Association_folderDoc, $connessione);
writeSQLQuery($res_insert_Association . ": " . $insert_Association_folderDoc);
}
// devo cambiare lo stato del documento a Deprecated
$query_UPDATE_targetObject = "UPDATE ExtrinsicObject SET status = 'Deprecated' WHERE ExtrinsicObject.id = '{$value_targetObject}'";
$ex = query_exec2($query_UPDATE_targetObject, $connessione);
writeSQLQuery($ex . ": " . $query_UPDATE_targetObject);
}
//END OF if($value_associationType=="RPLC")
##### CASO XFRM_RPLC Accept Document Replace with Transformation
if ($value_associationType == "XFRM_RPLC") {
$query_UPDATE_targetObject = "UPDATE ExtrinsicObject SET status = 'Deprecated' WHERE ExtrinsicObject.id = '{$value_targetObject}'";
$ex = query_exec2($query_UPDATE_targetObject, $connessione);
writeSQLQuery($ex . ": " . $query_UPDATE_targetObject);
}
//END OF if($value_associationType=="XFRM_RPLC")
##### CASO XFRM Accept Document Transformation
if ($value_associationType == "XFRM") {
$query_UPDATE_targetObject = "UPDATE ExtrinsicObject SET status = 'Approved' WHERE ExtrinsicObject.id = '{$value_targetObject}'";
$ex = query_exec2($query_UPDATE_targetObject, $connessione);
writeSQLQuery($ex . ": " . $query_UPDATE_targetObject);
}
//END OF if($value_associationType=="XFRM")
##### CASO APND Accept Document Addendum
if ($value_associationType == "APND") {
$query_UPDATE_targetObject = "UPDATE ExtrinsicObject SET status = 'Approved' WHERE ExtrinsicObject.id = '{$value_targetObject}'";
$ex = query_exec2($query_UPDATE_targetObject, $connessione);
writeTimeFile("Registry: update status" . $query_UPDATE_targetObject);
}
//END OF if($value_associationType=="APND")
########### CASI DI GESTIONE FOLDER + SUBMISSIONSET
if ($value_associationType == "HasMember") {
##### FIGLI DI ASSOCIATION
$association_node_childs = $association_node->child_nodes();
#### AGGIUNTA DI UN DOCUMENTO A FOLDER GIA' ESISTENTE
if (!isSimbolic($value_sourceObject) && empty($association_node_childs)) {
#### APPURIAMO DI ESSERE NEL CASO FOLDER
$query_folder = "SELECT * FROM Slot WHERE Slot.name = 'lastUpdateTime' AND Slot.parent = '{$value_sourceObject}'";
$ris_folder = query_select2($query_folder, $connessione);
writeSQLQuery($ris_folder . ": " . $query_folder);
if (!empty($ris_folder[0])) {
#### ricavo data-ora correnti
$today = date("Ymd");
$cur_hour = date("His");
$datetime = $today . $cur_hour;
//$datetime = "CURRENT_TIMESTAMP";
####UPDATE DI lastUpdateTime
$update_lastUpdateTime = "UPDATE Slot SET Slot.value = '{$datetime}' WHERE Slot.name = 'lastUpdateTime' AND Slot.parent = '{$value_sourceObject}'";
$ex = query_exec2($update_lastUpdateTime, $connessione);
writeSQLQuery($ex . ": " . $update_lastUpdateTime);
}
//END OF if(!empty($ris_folder))
} else {
if (!isSimbolic($value_sourceObject) && !empty($association_node_childs)) {
for ($y = 0; $y < count($association_node_childs); $y++) {
##### NODO SLOT
$slot_node = $association_node_childs[$y];
##### RECUPERO TAGNAME
$slot_node_tagname = $slot_node->node_name();
if ($slot_node_tagname == "Slot") {
#### NAME ATTRIBUTE FOR SLOT
$slot_node_name = $slot_node->get_attribute('name');
#### NODI FIGLI DI SLOT
$slot_node_childs = $slot_node->child_nodes();
for ($x = 0; $x < count($slot_node_childs); $x++) {
$slot_node_child = $slot_node_childs[$x];
$slot_node_child_tagname = $slot_node_child->node_name();
if ($slot_node_child_tagname == "ValueList") {
$slot_node_childs_2 = $slot_node_child->child_nodes();
for ($z = 0; $z < count($slot_node_childs_2); $z++) {
$slot_node_child_2 = $slot_node_childs_2[$z];
$slot_node_child_2_tagname = $slot_node_child_2->node_name();
if ($slot_node_child_2_tagname == "Value") {
$update_value = $slot_node_child_2->get_content();
}
//END OF if($slot_node_child_2_tagname=="Value")
}
}
//END OF if($slot_node_child_tagname=="ValueList")
}
####UPDATE DI SubmissionSetStatus Non va fatta ????? Deve rimanere Approved
$update_RegistryPackageStatus = "UPDATE RegistryPackage SET RegistryPackage.status = '{$update_value}' WHERE RegistryPackage.id = '{$value_sourceObject}'";
//writeSQLQuery($ris.": ".$update_RegistryPackageStatus);
$selectIdAssociation = "SELECT id FROM Association WHERE Association.sourceObject = '{$value_sourceObject}'";
$ris_selectIdAssociation = query_select2($selectIdAssociation, $connessione);
writeSQLQuery($ris_selectIdAssociation . ": " . $selectIdAssociation);
$countID = count($ris_selectIdAssociation);
for ($risId = 0; $risId < $countID; $risId++) {
//$update_SubmissionSetStatus="UPDATE Slot SET Slot.value = '$update_value' WHERE name ='$slot_node_name' AND Slot.parent IN (SELECT id FROM Association WHERE Association.sourceObject = '$value_sourceObject')";
$update_SubmissionSetStatus = "UPDATE Slot SET Slot.value = '{$update_value}' WHERE name ='{$slot_node_name}' AND Slot.parent ='" . $ris_selectIdAssociation[$risId][0] . "'";
//writeTimeFile("Registry: update Slot ".$update_SubmissionSetStatus);
$ex = query_exec2($update_SubmissionSetStatus, $connessione);
writeSQLQuery($ex . ": " . $update_SubmissionSetStatus);
}
}
//END OF if($slot_node_tagname=="Slot")
}
//END OF for($y=0;$y<count($association_node_childs);$y++)
}
}
//END OF else if(!isSimbolic($value_sourceObject))
}
//END OF if($value_associationType=="HasMember")
} else {
continue;
}
}
//END OF for($i=0;$i<count($dom_ebXML_LeafRegistryObjectList_child_nodes);$i++)
writeTimeFile("Registry: esco da fill_Association_tables");
}
function connectDB()
{
include './config/registry_oracle_db.php';
//putenv("ORACLE_HOME=/usr/lib/oracle/xe/app/oracle/product/10.2.0");
# open connection to db
$conn = oci_connect($user_db, $password_db, $db);
if (!$conn) {
$errorcode = array();
$error_message = array();
$errorcode[] = "XDSRegistryError";
$err = ocierror();
$error_message[] = $err['message'];
$database_error_response = makeSoapedFailureResponse($error_message, $errorcode);
writeTimeFile($_SESSION['idfile'] . "--Registry: database_error_response");
$file_input = $_SESSION['idfile'] . "-database_error_response.xml";
writeTmpFiles($database_error_response, $file_input, true);
SendResponseFile($_SESSION['tmp_path'] . $file_input);
//SendResponse($database_error_response);
exit;
}
return $conn;
}
function isValid($ebxml_STRING_VALIDATION, $schema)
{
####### VALIDAZIONE DELL'ebXML SECONDO LO SCHEMA
libxml_use_internal_errors(true);
$domEbxml = DOMDocument::loadXML($ebxml_STRING_VALIDATION);
// Valido il messaggio da uno schema
if (!$domEbxml->schemaValidate($schema)) {
$errors = libxml_get_errors();
foreach ($errors as $error) {
$errorcode[] = "XDSRegistryMetadataError";
$error_message[] = $error->message;
}
### RESTITUISCE IL MESSAGGIO DI FAIL IN SOAP
$failure_response = makeSoapedFailureResponse($error_message, $errorcode);
### SCRIVO LA RISPOSTA IN UN FILE
// File da scrivere
$file_input = $_SESSION['idfile'] . "-SOAPED_failure_VALIDATION_response.xml";
writeTmpFiles($failure_response, $file_input, true);
SendResponseFile($_SESSION['tmp_path'] . $file_input);
//SendResponse($failure_response);
exit;
} else {
return true;
}
}
function connectDB()
{
# IMPORT MYSQL PARAMETERS (NOTE: IT WORKS WITH ABSOLUTE PATH ONLY !!)
include './config/registry_mysql_db.php';
//ob_start();//OKKIO FONADAMENTALE!!!!!!!!!!
# open connection to db
$connessione = mysql_connect($ip_q, $user_db_q, $password_db_q);
// or die("Connessione non riuscita: " . mysql_error());
if (!$connessione) {
$errorcode = array();
$error_message = array();
$errorcode[] = "XDSRegistryError";
$error_message[] = mysql_error();
$database_error_response = makeSoapedFailureResponse($error_message, $errorcode);
writeTimeFile($_SESSION['idfile'] . "--Registry: database_error_response");
$file_input = $_SESSION['idfile'] . "-database_error_response.xml";
writeTmpFiles($database_error_response, $file_input, true);
SendResponseFile($_SESSION['tmp_path'] . $file_input);
//SendResponse($database_error_response,"text/xml");
exit;
}
# open db
//mysql_select_db($db_name_q);
return $connessione;
}
$get_DocUniqueId = "SELECT XDSDOCUMENTENTRY_UNIQUEID,URI,MIMETYPE,CRYPT FROM DOCUMENTS WHERE XDSDOCUMENTENTRY_UNIQUEID='" . $DocumentRequests_array[$i][1] . "'";
writeTimeFile($idfile . "--GetDocument Retrieve: {$get_DocUniqueId}");
$res_DocUniqueId = query_select($get_DocUniqueId);
if ($res_DocUniqueId[0][3] == "A") {
$file[$i] = decrypt($keycrypt, file_get_contents("./" . $res_DocUniqueId[0][1], "r"));
} else {
$file[$i] = file_get_contents("./" . $res_DocUniqueId[0][1], "r");
}
$documento_encoded64[$i] = base64_encode($file[$i]);
writeTimeFile($idfile . "--Repository Retrieve: File {$i}: " . $file[$i]);
} else {
writeTimeFile($idfile . "--GetDocument Retrieve: il repository UniqueId non corrisponde " . $res_repUniqueId[0][0] . " diverso da " . $DocumentRequests_array[$i][0]);
//Devo gestire un errore
$errorcode[] = "XDSRepositoryMetadataError";
$error_message[] = "Repository.uniqueID '" . $res_repUniqueId[0][0] . "' is different form your submission '" . $DocumentRequests_array[$i][0] . "'";
$repositoryUniqueId_response = makeSoapedFailureResponse($error_message, $errorcode, $Action);
$file_input = $_SESSION['idfile'] . "-repositoryUniqueId_failure_response-" . $_SESSION['idfile'];
writeTmpRetrieveFiles($repositoryUniqueId_response, $file_input);
SendResponse($repositoryUniqueId_response);
}
}
$boundary = md5(time());
$Content_ID = md5(time() + 1);
$messageID = md5(time() + 2);
$idDoc = array();
$SOAP_stringaxml = "<?xml version='1.0' encoding='UTF-8'?>" . CRLF . "<soapenv:Envelope xmlns:soapenv=\"http://www.w3.org/2003/05/soap-envelope\"\n xmlns:wsa=\"http://www.w3.org/2005/08/addressing\">\n <soapenv:Header>\n <wsa:Action>urn:ihe:iti:2007:RetrieveDocumentSetResponse</wsa:Action>\n <wsa:RelatesTo>{$MessageID}</wsa:RelatesTo>\n </soapenv:Header>";
$SOAP_stringaxml .= "\n <soapenv:Body>\n <xdsb:RetrieveDocumentSetResponse xmlns:xdsb=\"urn:ihe:iti:xds-b:2007\">\n <rs:RegistryResponse xmlns:rs=\"urn:oasis:names:tc:ebxml-regrep:xsd:rs:3.0\"\n status=\"urn:oasis:names:tc:ebxml-regrep:ResponseStatusType:Success\"/>";
for ($y = 0; $y < $numero_documenti; $y++) {
$idDoc[$y] = md5(time() + 3 + $y);
$SOAP_stringaxml .= "\n <xdsb:DocumentResponse>\n\t\t<xdsb:RepositoryUniqueId>" . $DocumentRequests_array[$y][0] . "</xdsb:RepositoryUniqueId>\n <xdsb:DocumentUniqueId>" . $DocumentRequests_array[$y][1] . "</xdsb:DocumentUniqueId>\n <xdsb:mimeType>" . $res_DocUniqueId[$y][2] . "</xdsb:mimeType>\n\t\t<xdsb:Document>" . $documento_encoded64[$y] . "</xdsb:Document>\n </xdsb:DocumentResponse>";
}
function connectDB()
{
# IMPORT MYSQL PARAMETERS (NOTE: IT WORKS WITH ABSOLUTE PATH ONLY !!)
include './config/repository_mysql_db.php';
# open connection to db
$connessione = mysql_connect($ip, $user_db, $password_db);
if (!$connessione) {
$errorcode = array();
$error_message = array();
$errorcode[] = "XDSRepositoryError";
$error_message[] = mysql_error();
$database_error_response = makeSoapedFailureResponse($error_message, $errorcode);
writeTimeFile($_SESSION['idfile'] . "--Repository: database_error_response");
$file_input = $_SESSION['idfile'] . "-database_error_response-" . $_SESSION['idfile'];
writeTmpFiles($database_error_response, $file_input);
SendResponse($database_error_response);
exit;
}
# open db
mysql_select_db($db_name);
return $connessione;
}
