/* $Id $ */
/**
* @package Mediboard
* @subpackage hl7
* @version $Revision:$
* @author SARL OpenXtrem
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
*/
CCanDo::checkRead();
// Envoi à la source créée 'HL7 v.2'
$exchange_source = CExchangeSource::get("hl7v2", "ftp");
$extension = $exchange_source->fileextension;
$ftp = new CFTP();
$ftp->init($exchange_source);
$ftp->connect();
if (!($list = $ftp->getListFiles($ftp->fileprefix))) {
CAppUI::stepAjax("Le répertoire ne contient aucun fichier", UI_MSG_ERROR);
}
$messages = array();
foreach ($list as $filepath) {
if (substr($filepath, -strlen($extension)) == $extension) {
$filename = tempnam("", "hl7");
$ftp->getFile($filepath, $filename);
$hl7v2_reader = new CHL7v2Reader();
$message = $hl7v2_reader->readFile($filename);
if (!$message) {
$message = new CHL7v2Message();
}
$message->filename = basename($filepath);
$message->_errors_msg = !$message->isOK(CHL7v2Error::E_ERROR);
function isAuthentificate()
{
$ftp = new CFTP();
$ftp->init($this);
try {
$ftp->connect();
} catch (CMbException $e) {
$this->_reachable = 0;
$this->_message = $e->getMessage();
return false;
}
$ftp->close();
return true;
}
