dolibarr/htdocs/telephonie/script/api/presel-view.php

<?PHP
/* Copyright (C) 2005,2006 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$
 *
 * Visualisation de l'etat des lignes preselectionnées
 *
 */
require ("../../../master.inc.php");
require_once DOL_DOCUMENT_ROOT."/telephonie/lignetel.class.php";
require_once DOL_DOCUMENT_ROOT."/lib/dolibarrmail.class.php";

$host          = CMD_PRESEL_WEB_HOST;
$user_login    = CMD_PRESEL_WEB_USER;
$user_passwd   = CMD_PRESEL_WEB_PASS;

$user = new User($db);
$user->id = 1;

$ids = array();

if ($argv[1])
{
  $debug = 0;
  array_push($ids, $argv[1]);
}
else
{
  $sql = "SELECT rowid,ligne";
  $sql .= " FROM ".MAIN_DB_PREFIX."telephonie_societe_ligne";
  $sql .= " WHERE fk_fournisseur = 4";
  $sql .= " AND statut = 3";
  if ($debug)
    {
      $sql .= " LIMIT 1";
    }
  $resql = $db->query($sql);
  
  if ($resql)
    {      
      while ($row = $db->fetch_row($resql))
	{
	  array_push($ids, $row[1]);
	}
    }
  else
    {
      print $db->error();
      exit(1);
    }
}

GetPreselection_byRef($db, $host, $user_login, $user_passwd, $ids, $debug, $user);

/*
 * Fonctions
 *
 */

function GetPreselection_byRef($db, $host, $user_login, $user_passwd, $ids, $debug, $user)
{  
  $numcli = sizeof($ids);
  $i = 0;
  print "Nombre de lignes $numcli\n";
  foreach($ids as $cli)
    {
      $i++;
      $fp = @fsockopen($host, 80, $errno, $errstr, 30);
      if (!$fp)
	{
	  print "Impossible de se connecter au server $errstr ($errno)";
	}
      else
	{
	  $ligne_numero = "";
	  $ligne_service = "";
	  $ligne_presel = "";

	  //GetPreselection_byRef  
	  $url = "/AzurApp_websvc_b3gdb/account.asmx/GetPreselection_byRef?";

	  $url .= "user_login=".  $user_login;
	  $url .= "&user_passwd=".$user_passwd;
	  $url .= "&telnum=".$cli;

	  $out = "GET $url HTTP/1.1\r\n";
	  $out .= "Host: $host\r\n";
	  $out .= "Connection: Close\r\n\r\n";
	  
	  fwrite($fp, $out);
	  
	  while (!feof($fp))
	    {
	      $line = fgets($fp, 1024);
	      if ($debug)
		{
		  print $line;
		}
	      if (preg_match("/<Preselection .* \/>/",$line))
		{	      
		  $results = split(" ",trim($line));
		  //print_r($results);
		  
		  $array = array();
		  preg_match('/telnum="([0123456789]*)"/', $line, $array);
		  $ligne_numero = $array[1];
		  
		  $array = array();
		  preg_match('/ServiceActive="([\S]*)"/i', $line, $array);
		  $service_active = $array[1];

		  $array = array();
		  preg_match('/PreSelectionActive="([\S]*)"/i', $line, $array);
		  $presel_active = $array[1];

		  $array = array();
		  preg_match('/Service_Statut="([\S]*)"/i', $line, $array);
		  $ligne_service = $array[1];
		  
		  $array = array();
		  preg_match('/PreSelection_Statut="([\S]*)"/i', $line, $array);
		  $ligne_presel = $array[1];
		  
		  if ($ligne_service.$ligne_presel <> 'TRAITE_OKTRAITE_OK')
		    {
		      print "$i/$numcli ";
		      print $ligne_numero." ";
		      print "$service_active/$presel_active ";
		      print substr($ligne_service.str_repeat(" ",20),0,20);
		      print substr($ligne_presel.str_repeat(" ",20),0,20);
		      print "\n";
		    }

		  $situation_key = $ligne_service.' / '.$ligne_presel;

		  if ($situation_key == 'TRAITE_OK / ATTENTE')
		    {
		      $ligne = new LigneTel($db);
		      
		      if ($ligne->fetch($ligne_numero) == 1)
			{
			  if ($ligne->statut == 3)
			    {
			      $sql = "INSERT INTO ".MAIN_DB_PREFIX."telephonie_commande_retour";
			      $sql .= " (cli,mode,date_traitement,situation,fk_fournisseur,traite)";
			      $sql .= " VALUES ('$ligne_numero','PRESELECTION',now(),'$situation_key',4,1);";
			      
			      $resql = $db->query($sql);

			      $statut = 6;
			      $date_resiliation = time();
			      $datea = $db->idate($date_resiliation);

			      if ($ligne->set_statut($user, $statut, $datea,'',4) <> 0)
				{
				  $error++;
				  print "ERROR\n";
				}
			    }
			}
		      else
			{
			  print "Erreur de lecture\n";
			}
		    }
		  

		}

	      if (preg_match("/<Error .* \/>/",$line))
		{	      
		  $array = array();
		  preg_match('/libelle="(.*)" xmlns:d4p1/', $line, $array);

		  print "$i/$numcli ";
		  print "$cli ErreurAPI ".$array[1]."\n";
		}
	    }
	  fclose($fp);
	}
    }
}

?>