/**
* Populate archive directory up to max_archives files
*
* @param CFTP $ftp FTP connector
* @param string $basename Base name for archive directory
* @param boolean $compressed True if file is an archive
*
* @return int Current archive count
*/
function archiveFile(CFTP $ftp, $basename, $compressed)
{
try {
// Répertoire d'archivage
$directory = $ftp->fileprefix . $basename;
$datetime = $this->getDateTime();
$ftp->createDirectory($directory);
// Transmission de la copie
$archive = "{$directory}/archive-{$datetime}" . ($compressed ? ".zip" : ".html");
$file = $compressed ? $this->_file_compressed : $this->_file;
$ftp->sendFile($file, $archive);
// Rotation des fichiers
$files = $ftp->getListFiles($directory);
rsort($files);
$list_files = array_slice($files, $this->max_archives);
foreach ($list_files as $_file) {
$ftp->delFile($directory . "/" . basename($_file));
}
} catch (CMbException $e) {
$e->stepAjax();
}
return count($ftp->getListFiles($directory));
}
* @link http://www.mediboard.org
*/
CCanDo::checkRead();
// Envoi à la source créée 'HPRIM21' (FTP)
$exchange_source = CExchangeSource::get("hprim21", "ftp");
$extension = $exchange_source->fileextension;
$ftp = new CFTP();
$ftp->init($exchange_source);
try {
$ftp->connect();
} catch (CMbException $e) {
CAppUI::stepAjax($e->getMessage(), UI_MSG_WARNING);
}
$list = array();
try {
$list = $ftp->getListFiles($ftp->fileprefix);
} catch (CMbException $e) {
CAppUI::stepAjax($e->getMessage(), UI_MSG_WARNING);
}
if (empty($list)) {
CAppUI::stepAjax("Le répertoire ne contient aucun fichier", UI_MSG_ERROR);
}
$sender_ftp = new CSenderFTP();
$sender_ftp->user_id = CUser::get()->_id;
$sender_ftp->loadMatchingObject();
$count = CAppUI::conf("eai max_files_to_process");
$list = array_slice($list, 0, $count);
foreach ($list as $filepath) {
if (substr($filepath, -strlen($extension)) == $extension) {
$filename = basename($filepath);
$hprimFile = $ftp->getFile($filepath, "tmp/hprim21/{$filename}");
/* $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);
$message->_warnings_msg = !$message->isOK(CHL7v2Error::E_WARNING);
* @author SARL OpenXtrem
* @license GNU General Public License, see http://www.gnu.org/licenses/gpl.html
*/
// Check params
if (null == ($exchange_source_name = CValue::get("exchange_source_name"))) {
CAppUI::stepAjax("Aucun nom de source d'échange spécifié", UI_MSG_ERROR);
}
$exchange_source = CExchangeSource::get($exchange_source_name, "ftp", true, null, false);
$ftp = new CFTP();
$ftp->init($exchange_source);
try {
$ftp->connect();
CAppUI::stepAjax("Connecté au serveur {$ftp->hostname} et authentifié en tant que {$ftp->username}");
} catch (CMbException $e) {
$e->stepAjax();
return;
}
if ($ftp->passif_mode) {
CAppUI::stepAjax("Activation du mode passif");
}
try {
$files = $ftp->getListFiles($ftp->fileprefix, true);
} catch (CMbException $e) {
$e->stepAjax();
return;
}
// Création du template
$smarty = new CSmartyDP();
$smarty->assign("exchange_source", $exchange_source);
$smarty->assign("files", $files);
$smarty->display("inc_ftp_files.tpl");
