lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ajout debug

Browse Source
This commit is contained in:
Rodolphe Quiedeville 2005-11-21 16:36:34 +00:00
parent 8607afc479
commit 1db6868a07
1 changed files with 39 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
htdocs/telephonie/script/commande_presel_statut_view.php
View File

@ -51,7 +51,6 @@ else
exit(1);
}
GetPreselection_byRef($db, $host, $user_login, $user_passwd, $ids);
/*
@ -89,45 +88,50 @@ function GetPreselection_byRef($db, $host, $user_login, $user_passwd, $ids)
$out .= "Host: $host\r\n";
$out .= "Connection: Close\r\n\r\n";
fwrite($fp, $out);
while (!feof($fp))
if (fwrite($fp, $out) )
{
$line = fgets($fp, 1024);
if (preg_match("/<Preselection .* \/>/",$line))
{
$results = split(" ",trim($line));
//print_r($results);
while (!feof($fp))
{
$line = fgets($fp, 1024);
$array = array();
preg_match('/telnum="([0123456789]*)"/', $line, $array);
$ligne_numero = $array[1];
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('/Service_Statut="([\S]*)"/i', $line, $array);
$ligne_service = $array[1];
$array = array();
preg_match('/PreSelection_Statut="([\S]*)"/i', $line, $array);
$ligne_presel = $array[1];
print "$i/$numcli ";
print $ligne_numero." ";
print substr($ligne_service.str_repeat(" ",20),0,20);
print substr($ligne_presel.str_repeat(" ",20),0,20);
print "\n";
}
$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];
print "$i/$numcli ";
print $ligne_numero." ";
print substr($ligne_service.str_repeat(" ",20),0,20);
print substr($ligne_presel.str_repeat(" ",20),0,20);
print "\n";
}
if (preg_match("/<Error .* \/>/",$line))
{
$array = array();
preg_match('/libelle="(.*)" xmlns:d4p1/', $line, $array);
print "$i/$numcli ";
print "$cli ErreurAPI ".$array[1]."\n";
if (preg_match("/<Error .* \/>/",$line))
{
$array = array();
preg_match('/libelle="(.*)" xmlns:d4p1/', $line, $array);
print "$i/$numcli ";
print "$cli ErreurAPI ".$array[1]."\n";
}
}
}
else
{
print "Impossible d'ecrire sur la socket";
}
fclose($fp);
}
}