/* $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; }