From 595760e97d2aab20baf82299c484063ff5ab231a Mon Sep 17 00:00:00 2001
From: MOREAU FRANCK <moreauf@theobald-groupe.com>
Date: Mon, 25 Oct 2021 09:36:12 +0200
Subject: [PATCH] Lib Modif

---
 .../emailcollector/lib/emailcollector.lib.php | 129 ++++++++++++++++++
 1 file changed, 129 insertions(+)

diff --git a/htdocs/emailcollector/lib/emailcollector.lib.php b/htdocs/emailcollector/lib/emailcollector.lib.php
index fe4a5f1b19c..9b63bbea66a 100644
--- a/htdocs/emailcollector/lib/emailcollector.lib.php
+++ b/htdocs/emailcollector/lib/emailcollector.lib.php
@@ -85,3 +85,132 @@ function emailcollectorPrepareHead($object)
 
 	return $head;
 }
+
+/**
+ * Récupère les parties d'un message
+ * @param object $structure structure du message
+ * @return object|boolean parties du message|false en cas d'erreur
+ */
+function getParts($structure)
+{
+	return isset($structure->parts) ? $structure->parts : false;
+}
+
+/**
+ * Tableau définissant la pièce jointe
+ * @param object $part partie du message
+ * @return object|boolean définition du message|false en cas d'erreur
+ */
+function getDParameters($part)
+{
+	return $part->ifdparameters ? $part->dparameters : false;
+}
+
+/**
+ * Récupère les pièces d'un mail donné
+ * @param integer $jk numéro du mail
+ * @param object $mbox object connection imaap
+ * @return array type, filename, pos
+ */
+function getAttachments($jk, $mbox)
+{
+	$structure = imap_fetchstructure($mbox, $jk);
+	$parts = getParts($structure);
+	$fpos = 2;
+	$attachments = array();
+	$nb = count($parts);
+	if ($parts && $nb) {
+		for ($i = 1; $i < $nb; $i++) {
+			$part = $parts[$i];
+
+			if ($part->ifdisposition && strtolower($part->disposition) == "attachment") {
+				$ext = $part->subtype;
+				$params = getDParameters($part);
+
+				if ($params) {
+					$filename = $part->dparameters[0]->value;
+					$filename = imap_utf8($filename);
+					$attachments[] = array('type' => $part->type, 'filename' => $filename, 'pos' => $fpos);
+				}
+			}
+			$fpos++;
+		}
+	}
+	return $attachments;
+}
+
+/**
+ * Récupère la contenu de la pièce jointe par rapport a sa position dans un mail donné
+ * @param integer $jk numéro du mail
+ * @param integer $fpos position de la pièce jointe
+ * @param integer $type type de la pièce jointe
+ * @param object $mbox object connection imaap
+ * @return mixed data
+ */
+function getFileData($jk, $fpos, $type, $mbox)
+{
+	$mege = imap_fetchbody($mbox, $jk, $fpos);
+	$data = getDecodeValue($mege, $type);
+
+	return $data;
+}
+
+/**
+ * Sauvegarde de la pièce jointe dans le dossier défini avec un nom unique
+ * @param string $path chemin de sauvegarde dui fichier
+ * @param string $filename nom du fichier
+ * @param mixed $data contenu à sauvegarder
+ * @return string emplacement du fichier
+ **/
+function saveAttachment($path, $filename, $data)
+{
+	global $lang;
+	$tmp = explode('.', $filename);
+	$ext = array_pop($tmp);
+	$filename = implode('.', $tmp);
+	if (!file_exists($path)) {
+		if (dol_mkdir($path) < 0) {
+			return -1;
+		}
+	}
+
+	$i = 1;
+	$filepath = $path . $filename . '.' . $ext;
+
+	while (file_exists($filepath)) {
+		$filepath = $path . $filename . '(' . $i . ').' . $ext;
+		$i++;
+	}
+	file_put_contents($filepath, $data);
+	return $filepath;
+}
+
+/**
+ * Décode le contenu du message
+ * @param string $message message
+ * @param integer $coding type de contenu
+ * @return message décodé
+ **/
+function getDecodeValue($message, $coding)
+{
+	switch ($coding) {
+		case 0: //text
+		case 1: //multipart
+			$message = imap_8bit($message);
+			break;
+		case 2: //message
+			$message = imap_binary($message);
+			break;
+		case 3: //application
+		case 5: //image
+		case 6: //video
+		case 7: //other
+			$message = imap_base64($message);
+			break;
+		case 4: //audio
+			$message = imap_qprint($message);
+			break;
+	}
+
+	return $message;
+}