forked from Wavyzz/dolibarr
384 lines
8.0 KiB
PHP
384 lines
8.0 KiB
PHP
<?PHP
|
|
/* Copyright (C) 2005 Rodolphe Quiedeville <rodolphe@quiedeville.org>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
*
|
|
* $Id$
|
|
* $Source$
|
|
*
|
|
* Script d'import des CDR BT
|
|
*/
|
|
|
|
require ("../../master.inc.php");
|
|
|
|
$opt = getopt("f:i:");
|
|
|
|
$file = $opt['f'];
|
|
$id_fourn = $opt['i'];
|
|
|
|
if (strlen($file) == 0 || strlen($id_fourn) == 0)
|
|
{
|
|
print "Usage :\n php import-cdr-bt.php -f <filename> -i <id_fournisseur>\n";
|
|
exit;
|
|
}
|
|
|
|
/*
|
|
* Traitement
|
|
*
|
|
*/
|
|
|
|
$files = array();
|
|
|
|
if (is_dir($file))
|
|
{
|
|
$handle=opendir($file);
|
|
|
|
if ($handle)
|
|
{
|
|
$i = 0 ;
|
|
$var=True;
|
|
|
|
while (($xfile = readdir($handle))!==false)
|
|
{
|
|
if (is_file($file.$xfile) && substr($xfile, -4) == ".csv")
|
|
{
|
|
$files[$i] = $file.$xfile;
|
|
dolibarr_syslog($file.$xfile." ajouté");
|
|
$i++;
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog($file.$xfile." ignoré");
|
|
}
|
|
}
|
|
|
|
closedir($handle);
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Impossible de libre $file");
|
|
exit ;
|
|
}
|
|
}
|
|
elseif (is_file($file))
|
|
{
|
|
$files[0] = $file;
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Impossible de libre $file");
|
|
exit ;
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
* Vérification du fournisseur
|
|
*
|
|
*/
|
|
|
|
$sql = "SELECT f.rowid, f.nom";
|
|
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_fournisseur as f";
|
|
$sql .= " WHERE f.rowid = ".$id_fourn;
|
|
|
|
if ($db->query($sql))
|
|
{
|
|
$num = $db->num_rows();
|
|
|
|
if ($num == 1)
|
|
{
|
|
$row = $db->fetch_row();
|
|
dolibarr_syslog ("Import fichier ".$file);
|
|
dolibarr_syslog("Fournisseur [".$row[0]."] ".$row[1]);
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Erreur Fournisseur inexistant : ".$id_fourn);
|
|
exit ;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Erreur recherche fournisseur");
|
|
exit ;
|
|
}
|
|
|
|
|
|
/*
|
|
* Charge les ID de lignes
|
|
*
|
|
*/
|
|
|
|
$sql = "SELECT ligne, rowid ";
|
|
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_societe_ligne";
|
|
|
|
$resql = $db->query($sql);
|
|
|
|
if ($resql)
|
|
{
|
|
$num = $db->num_rows($resql);
|
|
dolibarr_syslog ($num . " lignes chargées");
|
|
$i = 0;
|
|
$ligneids = array();
|
|
|
|
while ($i < $num)
|
|
{
|
|
$row = $db->fetch_row($resql);
|
|
$ligneids[$row[0]] = $row[1];
|
|
$i++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Erreur chargement des lignes");
|
|
dolibarr_syslog($sql);
|
|
exit ;
|
|
}
|
|
|
|
|
|
|
|
foreach ($files as $xfile)
|
|
{
|
|
if (is_readable($xfile))
|
|
{
|
|
if ( _verif($db, $xfile) == 0)
|
|
{
|
|
|
|
dolibarr_syslog("Lecture du fichier $xfile");
|
|
|
|
$error = 0;
|
|
$line = 0;
|
|
$line_inserted = 0;
|
|
$hf = fopen ($xfile, "r");
|
|
$line = 0;
|
|
|
|
if ($db->query("BEGIN"))
|
|
{
|
|
while (!feof($hf) )
|
|
{
|
|
$cont = fgets($hf, 1024);
|
|
|
|
if (strlen(trim($cont)) > 0)
|
|
{
|
|
// 297400910,2005-03-23 08:08:08,Appels Mob.-ORANGE,0680301933, 106, .3445
|
|
// 297400910,2005-03-23 09:24:36,Appels Mob.-ORANGE,0675621805, 5, .0162
|
|
// 297400910,2005-03-23 09:36:55,Appels Mob.-ORANGE,0680301933, 57, .1852
|
|
|
|
$tabline = explode(",", $cont);
|
|
if (sizeof($tabline) == 6)
|
|
{
|
|
$index = $line;
|
|
$ligne = "0".$tabline[0];
|
|
$date = substr($tabline[1],0,10);
|
|
|
|
//Retournment de la date
|
|
$date = substr($date, 8,2)."/".substr($date, 5,2)."/".substr($date, 0,4);
|
|
|
|
$heure = substr($tabline[1],11,8);
|
|
|
|
$numero = $tabline[3];
|
|
$tarif = $tabline[2];
|
|
|
|
$h = floor(trim($tabline[4]) / 3600);
|
|
$m = floor((trim($tabline[4]) - ($h * 3600)) / 60);
|
|
$s = (trim($tabline[4]) - ( ($h * 3600 ) + ($m * 60) ) );
|
|
|
|
if ($h > 0)
|
|
{
|
|
$dt = $h . " h " . substr("00".$m, -2) ."mn" . substr("00".$s, -2);
|
|
}
|
|
else
|
|
{
|
|
if ($m > 0)
|
|
{
|
|
$dt = substr("00".$m,-2) ."mn" . substr("00".$s, -2);
|
|
}
|
|
else
|
|
{
|
|
$dt = "00mn".substr("00".$s, -2);
|
|
}
|
|
}
|
|
|
|
$duree_text = $dt;
|
|
$tarif_fourn = "NONE";
|
|
$montant = trim($tabline[5]);
|
|
$duree_secondes = trim($tabline[4]);
|
|
|
|
if ($ligneids[$ligne] > 0)
|
|
{
|
|
$sql = "INSERT INTO ".MAIN_DB_PREFIX."telephonie_import_cdr";
|
|
|
|
$sql .= "(idx,fk_ligne,ligne,date,heure,num,dest,dureetext,tarif,montant,duree";
|
|
$sql .= ", fichier, fk_fournisseur)";
|
|
|
|
$sql .= " VALUES (";
|
|
$sql .= "$index";
|
|
$sql .= ",'".$ligneids[$ligne]."'";
|
|
$sql .= ",'".$ligne."'";
|
|
$sql .= ",'".ereg_replace('"','',$date)."'";
|
|
$sql .= ",'".ereg_replace('"','',$heure)."'";
|
|
$sql .= ",'".ereg_replace('"','',$numero)."'";
|
|
$sql .= ",'".addslashes(ereg_replace('"','',$tarif))."'";
|
|
$sql .= ",'".ereg_replace('"','',$duree_text)."'";
|
|
$sql .= ",'".ereg_replace('"','',$tarif_fourn)."'";
|
|
$sql .= ",".ereg_replace(',','.',$montant);
|
|
$sql .= ",".$duree_secondes;
|
|
$sql .= ",'".basename($xfile)."'";
|
|
$sql .= " ,".$id_fourn;
|
|
$sql .= ")";
|
|
|
|
if(ereg("^[0-9]+$", $duree_secondes))
|
|
{
|
|
if ($db->query($sql))
|
|
{
|
|
$line_inserted++;
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Erreur de traitement de ligne $index");
|
|
dolibarr_syslog($db->error());
|
|
dolibarr_syslog($sql);
|
|
$error++;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print "Ligne : $cont ignorée\n";
|
|
$error++;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Ligne : $ligne ignorée!");
|
|
$error++;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Mauvais format de fichier ligne $line ".sizeof($tabline));
|
|
dolibarr_syslog($cont);
|
|
$error++;
|
|
}
|
|
}
|
|
$line++;
|
|
}
|
|
|
|
dolibarr_syslog($line." lignes traitées dans le fichier");
|
|
dolibarr_syslog($line_inserted." insert effectués");
|
|
|
|
if ($error == 0)
|
|
{
|
|
$db->query("COMMIT");
|
|
dolibarr_syslog("COMMIT");
|
|
}
|
|
else
|
|
{
|
|
$db->query("ROLLBACK");
|
|
dolibarr_syslog("ROLLBACK");
|
|
}
|
|
|
|
}
|
|
|
|
fclose($hf);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
print "Erreur lecture : $xfile";
|
|
dolibarr_syslog($xfile . " not readable");
|
|
}
|
|
}
|
|
|
|
|
|
function _verif($db, $file)
|
|
{
|
|
$result = 0;
|
|
/*
|
|
* Vérifie que le fichier n'a pas déjà été chargé
|
|
*
|
|
*/
|
|
|
|
$sql = "SELECT count(fichier)";
|
|
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_import_cdr";
|
|
$sql .= " WHERE fichier = '".basename($file)."'";
|
|
|
|
if ($db->query($sql))
|
|
{
|
|
$num = $db->num_rows();
|
|
|
|
if ($num == 1)
|
|
{
|
|
$row = $db->fetch_row();
|
|
if ($row[0] > 0)
|
|
{
|
|
dolibarr_syslog ("Fichier ".$file." déjà chargé dans import-log");
|
|
$result = -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Erreur vérif du fichier");
|
|
$result = -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Erreur SQL vérification du fichier");
|
|
$result = -1;
|
|
}
|
|
|
|
/*
|
|
* Vérifie que le fichier n'a pas déjà été traité
|
|
*
|
|
*/
|
|
|
|
$sql = "SELECT count(fichier_cdr)";
|
|
$sql .= " FROM ".MAIN_DB_PREFIX."telephonie_communications_details";
|
|
$sql .= " WHERE fichier_cdr = '".basename($file)."'";
|
|
|
|
if ($db->query($sql))
|
|
{
|
|
$num = $db->num_rows();
|
|
|
|
if ($num == 1)
|
|
{
|
|
$row = $db->fetch_row();
|
|
if ($row[0] > 0)
|
|
{
|
|
dolibarr_syslog ("Fichier ".$file." déjà traité");
|
|
$result = -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Erreur vérif du fichier dans les comm");
|
|
$result = -1;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
dolibarr_syslog("Erreur SQL vérification du fichier dans les comm");
|
|
dolibarr_syslog($sql);
|
|
$result = -1;
|
|
}
|
|
|
|
return $result;
|
|
}
|
|
|
|
|
|
return $error;
|