\n";
sendInternalMail("DPF :: SOCKET FAILED!");
} else {
fputs ($fp, $completeReq);
if (fflush($fp)) :
// Read header
$httpHeader = "";
$httpBodyLength = 0;
if (!feof($fp)) :
$line = trim(fgets ($fp,1024));
$httpHeader .= trim($line);
while (!feof($fp) && $line != "") {
$line = trim(fgets ($fp,1024));
$httpHeader .= $line;
if (!(strpos($line, "Content-Length: ") === FALSE)) :
$httpBodyLength = trim(substr($line, 16));
endif;
}
endif;
// writeLocatingLog($logFile, "::: " . $httpHeader . "\r\n");
// writeLocatingLog($logFile, "::: " . $httpBodyLength . "\r\n");
$count = 0;
while (!feof($fp) && $count < $httpBodyLength) {
$line = trim(fgets ($fp,2));
$response .= $line;
$count++;
}
// writeLocatingLog($logFile, ":# Loops: " . $count . "\r\n");
else :
$response = "ERR: " . $errno . " " . $errstr;
endif;
fclose ($fp);
}
return $response;
}
// Generates the systax of a request according to the SAPPER specification
function generateRequestSapper($username, $password, $matchtype, $checktype, $name, $street, $city, $zip, $country, $sourceid) {
$requestHeader = "";
$requestBody = "";
if ($username != "" && $password != "" && $matchtype != "" && $checktype != "" && $sourceid != "") :
// Define header request
$requestHeader .= "POST /dominorealtime.asmx HTTP/1.1\r\n";
$requestHeader .= "Host: api.dominowatch.com\r\n";
$requestHeader .= "Content-Type: text/xml; charset=utf-8\r\n";
$requestHeader .= "Content-Length: LENGTH\r\n";
$requestHeader .= "SOAPAction: \"http://api.dominowatch.com/DominoMatchResult\"\r\n\r\n";
// Connection request
$requestBody .= "";
$requestBody .= "";
$requestBody .= " ";
$requestBody .= " ";
$requestBody .= " ";
$requestBody .= " " . $username . "";
$requestBody .= " " . $password . "";
$requestBody .= " ";
$requestBody .= " ";
$requestBody .= " " . $matchtype . "";
$requestBody .= " " . $checktype . "";
$requestBody .= " ";
$requestBody .= " ";
$requestBody .= " " . $name . "";
$requestBody .= " " . $street . "";
$requestBody .= " " . $city . "";
$requestBody .= " " . $zip . "";
$requestBody .= " " . $country . "";
$requestBody .= " ";
$requestBody .= " ";
$requestBody .= " " . $sourceid . "";
$requestBody .= " ";
$requestBody .= " ";
$requestBody .= " ";
$requestBody .= "";
// $requestBody = urlencode($requestBody);
$requestBodyLen = strlen($requestBody);
$requestHeader = str_replace ("LENGTH", $requestBodyLen, $requestHeader);
endif;
$request = $requestHeader . $requestBody;
return $request;
}
function getTagContent($strToParse, $tagBegin, $tagEnd) {
$tagContent = "";
$repeat = TRUE;
while ($repeat && !(strpos($strToParse, $tagBegin) === FALSE) && !(strpos($strToParse, $tagEnd) === FALSE)) :
$pos0 = strpos($strToParse, $tagBegin); // begin of tagBegin (first occurrence)
$pos1 = strpos($strToParse, $tagBegin) + strlen($tagBegin); // end of tagBegin (first occurrence)
$pos2 = strpos($strToParse, $tagEnd); // begin of tagEnd (first occurrence)
$pos3 = strpos($strToParse, $tagEnd) + strlen($tagEnd); // end of tagEnd (first occurrence)
$repeat = FALSE;
if ($pos2 - $pos1 > 0) :
// Get the content of the tag
$tagContent = substr($strToParse, $pos1, $pos2 - $pos1);
endif;
endwhile;
return $tagContent;
}
// *************************************
$statusMessage = "";
$currentTime = getDateTime("0");
if ($doCheckCurrentDataset) :
// Generate request
$request = generateRequestSapper($username, $password, $matchtype, $checktype, $name, $street, $city, $zip, $country, $sourceid);
writeLocatingLog($logFile, "--------------------------------------------------------------------------------------------------" . "\r\n");
writeLocatingLog($logFile, $cmpDpfChecksum . " " . $newDpfChecksum . "\r\n");
writeLocatingLog($logFile, $name . " " . $street . " " . $zip . " " . $city . "\r\n");
writeLocatingLog($logFile, $request . "\r\n");
// Get connection and response
$startTime = getDateTime("0");
$response = connectDPF($request."\r\n");
$endTime = getDateTime("0");
writeLocatingLog($logFile, "Request time : " . $startTime . " - " . $endTime . "\r\n");
writeLocatingLog($logFile, $response . "\r\n");
// writeLocatingLog($logFile, "--------------------------------------------------------------------------------------------------" . "\r\n");
// Parse the response and trigger actions
$dfpErrCode = "0";
$dfpErrText = "";
$dfpExpdate = "";
$dfpAcctype = "";
$dfpRemtrans = "";
$dfpVerid = "";
$dfpTranid = "";
$dfpMatchlevel = "";
$dfpLogurl = "";
if ($response == "") :
// Response is empty
$dfpErrCode = "9999";
$dfpErrText = "Keine Antwort vom DFP-Server!";
else :
$dfpErrCode = getTagContent($response, "", ""); // Error code
$dfpErrText = getTagContent($response, "", ""); // Error description
$dfpExpdate = getTagContent($response, "", ""); // Datum, wann das gebuchte Abonnement (Demo oder Produktiv / Standard) endet
$dfpAcctype = getTagContent($response, "", ""); // 1: Demo; 2: Standard
$dfpRemtrans = getTagContent($response, "", ""); // Bei der Demovariante wird hier die Anzahl restlich verfügbarer Transaktionen angezeigt
$dfpVerid = getTagContent($response, "", ""); // Die aktuelle Version der Boykottlisten
$dfpTranid = getTagContent($response, "", ""); // Domino-Referenz Nr.
$dfpMatchlevel = getTagContent($response, "", ""); // 0: keinen Treffer; 1: Treffer unter RedAlert; 2: Treffer ueber RedAlert
$dfpLogurl = getTagContent($response, "", ""); // URL zur Report-Seite fuer die actuelle Abfrage
endif;
// Erases output buffer because of charset
// ob_clean();
// ob_start();
// ob_end_clean();
// ob_flush(); flush();
// ob_end_flush();
// Handling according to the result
if ($dfpErrCode == "0") :
if ($dfpMatchlevel == "0") :
$statusMessage = getLngt("Der Datensatz ist NICHT auffällig gemäß der Sanktionslistenprüfung!");
// if ($cmpId != "" && is_numeric($cmpId) && $dfpAcctype == "2") :
updateStmt("company","cmp_id",$cmpId,array("cmp_dpf_state", "10", "cmp_dpf_datetime", $currentTime, "cmp_dpf_checksum", $newDpfChecksum));
// endif;
elseif ($dfpMatchlevel == "1" || $dfpMatchlevel == "2") :
if ($dfpMatchlevel == "1") :
$statusMessage = getLngt("Der Datensatz ist AUFFÄLLIG gemäß der Sanktionslistenprüfung!");
else :
$statusMessage = getLngt("Der Datensatz ist STARK AUFFÄLLIG gemäß der Sanktionslistenprüfung!");
endif;
// if ($cmpId != "" && is_numeric($cmpId) && $dfpAcctype == "2") :
updateStmt("company","cmp_id",$cmpId,array("cmp_dpf_state", $dfpMatchlevel, "cmp_dpf_datetime", $currentTime, "cmp_dpf_checksum", $newDpfChecksum, "cmp_authenticated", "0", "cmp_modify_status", "0"));
// endif;
endif;
else :
$statusMessage = getLngt("Die Antwort des Sanktionslisten-Servers weist den Fehler " . $dfpErrCode . " auf! " . "[" . $dfpErrText . "]");
endif;
else:
$statusMessage = getLngt("Der Datensatz wurde nicht nachgeprüft, da keine relevanten Daten gemäß der Sanktionslistenprüfung modifiziert wurden!");
endif;
// INFORMATIONS:
// Possible states in DB-field "cmp.cmp_dpf_state":
// 1 = noticeable (state from SAPPER, etc.)
// 2 = heavy noticeable (state from SAPPER, etc.)
// 11 = noticeable, but authentication manually set ok
// 12 = heavy noticeable, but authentication manually set ok
?>
<?php echo $pageTitel ?>
";
// echo "CompID: " . $cmpId . "
";
echo "Matchtype: " . $matchtype . "
";
echo "Checktype: " . $checktype . "
";
echo "
";
echo "
";
echo "PRÜFDATEN:
";
echo $name . "
";
echo $street . "
";
echo $city . "
";
echo $zip . "
";
echo $country . "
";
echo $sourceid . "
";
echo "
";
echo "
";
echo "Err.Code: " . $dfpErrCode . "
";
echo "Err.Text: " . $dfpErrText . "
";
echo "ExpDate: " . $dfpExpdate . "
";
echo "AccType: " . $dfpAcctype . "
";
echo "RemTrans: " . $dfpRemtrans . "
";
echo "VersionID: " . $dfpVerid . "
";
echo "TranID: " . $dfpTranid . "
";
echo "Matchlevel: " . $dfpMatchlevel . "
";
echo "LogURL: " . $dfpLogurl . "
";
?>