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

Nouveau fichier

Browse Source
This commit is contained in:
Rodolphe Quiedeville 2006-02-21 13:07:30 +00:00
parent 0859d3be89
commit 7f12929791
1 changed files with 146 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

146
htdocs/telephonie/script/api/presel-resiliation-manuelle.php Normal file
View File

@ -0,0 +1,146 @@
<?PHP
/* Copyright (C) 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$
*
*
* Resiliation de lignes par API
*
*/
require ("../../../master.inc.php");
require_once DOL_DOCUMENT_ROOT."/telephonie/lignetel.class.php";
$verbose = 0;
$ligne = $argv[1];
$user = new User($db);
$user->id = 1; // C'est sale je sais !
$host = CMD_PRESEL_WEB_HOST;
$user_login = CMD_PRESEL_WEB_USER;
$user_passwd = CMD_PRESEL_WEB_PASS;
$user_contract = CMD_PRESEL_WEB_CONTRACT;
/*
* Lecture des lignes a résilier
*
*/
$sql = "SELECT s.nom, s.idp as socid, s.address, s.cp, s.ville";
$sql .= ", l.ligne, l.statut, l.rowid";
$sql .= " FROM ".MAIN_DB_PREFIX."societe as s";
$sql .= " , ".MAIN_DB_PREFIX."telephonie_societe_ligne as l";
$sql .= " , ".MAIN_DB_PREFIX."telephonie_fournisseur as f";
$sql .= " WHERE l.fk_soc = s.idp AND l.fk_fournisseur = f.rowid";
$sql .= " AND f.rowid = 4 AND l.ligne = ".$ligne." ORDER BY s.idp ASC";
$resql = $db->query($sql);
$result = 1;
if ($resql)
{
$i = 0;
$num = $db->num_rows($resql);
while ($i < $num)
{
$obj = $db->fetch_object($resql);
$result = ActivationPreselection($host, $user_login, $user_passwd, $obj->ligne, $num_abo);
if ($result == 0)
{
}
$i++;
}
}
function ActivationPreselection($host, $user_login, $user_passwd, $ligne, $id_person)
{
$url = "/AzurApp_websvc_b3gdb/account.asmx/UpdatePreselection?";
$url .= "user_login=". $user_login;
$url .= "&user_passwd=".$user_passwd;
$url .= "&telnum=".$ligne;
$url .= "&okCollecte=false";
$url .= "&okPreselection=false";
$fp = fsockopen($host, 80, $errno, $errstr, 30);
if (!$fp)
{
dolibarr_syslog("$errstr ($errno)");
}
else
{
$out = "GET $url HTTP/1.1\r\n";
$out .= "Host: $host\r\n";
$out .= "Connection: Close\r\n\r\n";
fwrite($fp, $out);
if ($verbose > 2)
dolibarr_syslog("Data sent, waiting for response");
$parse = 0;
$result = "error";
$fresult = "";
while (!feof($fp))
{
$line = fgets($fp, 1024);
if ($verbose > 2)
dolibarr_syslog($line);
if ($parse == 1)
{
preg_match('/^<string xmlns=".*">(.*)<\/string>$/', $line, $results);
$result = $results[1];
$parse = 0;
}
if (substr($line,0,38) == '<?xml version="1.0" encoding="utf-8"?>')
{
$parse = 1;
}
$fresult .= $line;
}
fclose($fp);
}
if (substr($result,0,2) == "OK")
{
dolibarr_syslog("Activation réussie ligne ".$ligne." id client ".$id_person." $result\n");
return 0;
}
else
{
dolibarr_syslog("Activation échouée ligne ".$ligne." id client ".$id_person." $result\n");
return -1;
}
}
?>