#!/usr/bin/php -c/var/www/batch/config/php_batch_sd.ini
<?php
include_once(FWK_PATH.'common/chiffres.php');
include_once(FWK_PATH.'common/dates.php');
include_once(INCLUDE_PATH.'insee/classMInsee.php');
include_once(INCLUDE_PATH.'partenaires/classMGreffes.php');
include_once(INCLUDE_PATH.'partenaires/classMWeb.php');
include_once(FWK_PATH.'mail/sendMail.php');

error_reporting(E_ALL ^ E_NOTICE);

$strInfoScript='Usage : '.basename($argv[0]). " [OPTION]
Recherche des téléphones, fax, sites Web et mails pour les fiches d'identités consultées et MAJ des infos_entrep trop anciennes.

Options :
  -i	Mise à jour des infos_entrep anciennes
  -t	Mise à jour des téléphones anciens

";
$infosEntrep=$telFax=false;

$argv=$_SERVER['argv'];
if ($_SERVER['argc']==1)	$semiManuel=false;	// Fonctionnement normal du script, càd : on sirene que en auto
else {
  for ($i=1; isset($argv[$i]); $i++) {
	if (substr($argv[$i],0,1)=='-') {
		switch (substr($argv[$i],1,1)) {
		   case 'i':
				$infosEntrep=true;
				break;
		   case 't':
				$telFax=true;
				break;
		   case '-':
		   case '?':
		   		die($strInfoScript);
		   		break;
		   default:
		   		die('Option '. $argv[$i] . " inconnue !\n");
		   	break;
		}
   }
}
}
	
$iDb=new WDB('sdv1');
$iWeb=new MSitesWeb();
$iInsee=new MInsee();
	
if (!$infosEntrep && !$telFax)	$infosEntrep=$telFax=true;

if ($telFax) {
	
	echo date('Y/m/d - H:i:s') ." - DEBUT du programme de recherche des tél/fax...".EOL;
	
	$nbTel=$iDb->select('logs', 'siren, nic, dateHeure',"siren>1000 AND page IN ('identite') 
	AND dateHeure>=DATE_SUB(NOW(), INTERVAL 1 DAY) GROUP BY siren, nic ORDER BY dateHeure", false,MYSQL_ASSOC,true);
	//echo mysql_error();
	/*SELECT *
	FROM `infos_entrep`
	WHERE `nscrl` =0
	ORDER BY `infos_entrep`.`dateUpdate` ASC*/
	
	
	echo date ('Y/m/d - H:i:s')." - Il y a $nbTel établissements à mettre à jour en TEL/FAX...".EOL;
	$nbSiret=$siretTrouve=$siretEnCache=$siretActif=$siretInactif=$siretInfosEntrepCache=$siretInfosEntrepMaj=0;
	
	while ($tabTel=$iDb->fetch(MYSQL_ASSOC)) {
		$nbSiret++;
		$siren=	$tabTel['siren'];
		//$siren=	448364232; 
		$nic=	$tabTel['nic'];
		$date=	$tabTel['dateHeure'];
	//	$siren=504284159;	$nic=0;
		if ($sirenPre==$siren && $sirenTrouve==false) {
			$ligne=date('Y/m/d H:i:s')." - Siret $siren $nic : déjà traité sans succès ($date)";
			echo $ligne.EOL;
			continue;
		}
		$tabIdentite=$iInsee->getIdentiteEntreprise($siren, $nic, 0, false,false);
		$rs=$tabIdentite['Nom'];// Nom2, Sigle, Enseigne
		if ($tabIdentite['Actif']==1) {
			$tdeb=microtime(1);
			$iTel=new MTel(true);
		   	$tmp=$iTel->getTel($siren);
		   	if (count($tmp)>0 && $nic*1>0) {
		   		$tmp=$iTel->getTel($siren, $nic);
		   		$sirenTrouve=true;
		   		$siretTrouve++;
		   	} else
		   		$sirenTrouve=false;
		   	if ($iTel->enCache)
		   		$siretEnCache++;
			$duree=round(microtime(1)-$tdeb,3);
			
			$tabIdentitePart=$iInsee->getIdentitePart($siren, $rs, $enseigne, $sigle, $nic, true);
			if ($tabIdentitePart['enCache'])	{
				$strLigne='en cache';
				$siretInfosEntrepCache++;
			} else {
				$duree2=$tabIdentitePart['duree'];
				$strLigne="MAJ en $duree2 s";
				$siretInfosEntrepMaj++;			
			}
			
			$ligne=date('Y/m/d H:i:s')." -  Siret n°$nbSiret/$nbTel, $siren $nic : infos entreps $strLigne, ".count($tmp)." ligne(s) tel/fax en $duree s ($date)";
			$siteWeb=$iWeb->findSiteWeb($siren, $rs);
			echo "$ligne ($siteWeb)".EOL;//die();
			randsleep(3,7);
			$siretActif++;
		} else
			$siretInactif++;
		$sirenPre=$siren;
	}
	$message="Sur les $nbSiret fiches consultés hier, nous avions $siretActif fiches actives.
	Nous avons trouvés $siretTrouve contacts téléphoniques dont $siretEnCache en cache.
	Nous avons mis à jour $siretInfosEntrepMaj fiches 'infos_entrep' ($siretInfosEntrepCache en cache).\r\n".EOL;
	
	sendMail('production@scores-decisions.com', 'ylenaour@scores-decisions.com', 'Chargement des informations TEL/FAX', $message);
	
	echo date ('Y/m/d - H:i:s')." - FIN   de la mise à jour des TEL/FAX des entreprises ($nbAvecMaj MAJ/$nbTel avec $nbErr erreurs).".EOL;
}

if ($infosEntrep) {
	echo date('Y/m/d - H:i:s') ." - DEBUT du programme de recherche des infos_entrep...".EOL;
	
	$nbTel=$iDb->select('jo.infos_entrep', 'siren, 0 AS nic, dateUpdate AS dateHeure',"nscrl=0 ORDER BY dateUpdate ASC LIMIT 0,1000", false,MYSQL_ASSOC,true);
	
	echo date ('Y/m/d - H:i:s')." - Il y a $nbTel établissements à mettre à jour en infos_entrep...".EOL;
	$nbSiret=$siretTrouve=$siretEnCache=$siretActif=$siretInactif=$siretInfosEntrepCache=$siretInfosEntrepMaj=0;
	while ($tabTel=$iDb->fetch(MYSQL_ASSOC)) {
		$nbSiret++;
		$siren=	$tabTel['siren'];
		$nic=	$tabTel['nic'];
		$date=	$tabTel['dateHeure'];
	//	$siren=504284159;	$nic=0;
		$tabIdentite=$iInsee->getIdentiteEntreprise($siren, $nic, 0, false,false);
		
		if ($tabIdentite['Actif']==1) {
			$tdeb=microtime(1);
			$iTel=new MTel();
		   	$tmp=$iTel->getTel($siren);
		   	if (count($tmp)>0 && $nic*1>0) {
		   		$tmp=$iTel->getTel($siren, $nic);
		   		$sirenTrouve=true;
		   		$siretTrouve++;
		   	} else
		   		$sirenTrouve=false;
		   	if ($iTel->enCache)
		   		$siretEnCache++;
			$duree=round(microtime(1)-$tdeb,3);
			
			$tabIdentitePart=$iInsee->getIdentitePart($siren, $rs, $enseigne, $sigle, $nic, true);
			if ($tabIdentitePart['enCache'])	{
				$strLigne='en cache';
				$siretInfosEntrepCache++;
			} else {
				$duree2=$tabIdentitePart['duree'];
				$strLigne="MAJ en $duree2 s";
				$siretInfosEntrepMaj++;			
			}
			
			$ligne=date('Y/m/d H:i:s')." -  Siret n°$nbSiret/$nbTel, $siren $nic : infos entreps $strLigne, ".count($tmp)." ligne(s) tel/fax en $duree s ($date)";
			echo $ligne.EOL;
			randsleep(3,7);
			$siretActif++;
		} else
			$siretInactif++;
	}
	$message="Sur les $nbSiret infos_entrep anciennes du jour, nous avions $siretActif fiches actives.
	Nous avons trouvés $siretTrouve contacts téléphoniques dont $siretEnCache en cache.
	Nous avons mis à jour $siretInfosEntrepMaj fiches 'infos_entrep' ($siretInfosEntrepCache en cache).\r\n".EOL;
	
	sendMail('production@scores-decisions.com', 'ylenaour@scores-decisions.com', 'Chargement des informations infos_entrep anciennes', $message);
	
	echo date ('Y/m/d - H:i:s')." - FIN   de la mise à jour des infos_entrep anciennes des entreprises ($nbAvecMaj MAJ/$nbTel avec $nbErr erreurs).".EOL;
}

die();

function chechSirenSiteAfnic($siteWeb) {
	$referer='http://www.afnic.fr/';
	$url='http://www.afnic.fr/outils/whois/'.$siteWeb;
	//die(print_r(parse_url('http://www.'.$siteWeb.'/')));
	/*print_r(pathinfo('http://www.'.$siteWeb.'/index.html'));
	print_r(pathinfo($siteWeb));
	die();*/
	$page=getUrl($url, '', '', $referer);
	if ($page['code']==200) {
		if(preg_match('/<li>Identifié grâce au numéro de SIREN <a href="(?:.*) target="_blank" class="ext">(.*)<\/a><\/li>/Uis', $page['body'], $matches))
			return html_entity_decode($matches[1]);
	}
	return false;
}

chechSirenSiteAfnic('dipinfo.fr');

function findSiteWeb($siren, $nomEntrep='') {
	global $iDbUpdate;
	$referer='http://www.google.fr/';
	$siren2=implode(' ', str_split($siren, 3));
	if ($nomEntrep<>'')	$rs2="OR \"$nomEntrep\"";
	$tabSitesExclus=array('societe.com','bilans.net','gouv.fr','info-financiere.fr','bodacc.fr','manageo.fr','bilansgratuits.fr','lesechos.fr','google.fr');

	$rs="$siren OR \"$siren2\" $rs2 -site:".implode(' -site:', $tabSitesExclus);
	//-site:gouv.fr -site:info-financiere.fr -site:bodacc.fr -site:manageo.fr -site:bilansgratuits.fr -site:lesechos.fr -site:google.fr";

	$url='http://www.google.fr/search?hl=fr&as_qdr=all&q='.urlencode($rs).'&btnG=Rechercher&num=100';//&meta=cr%3DcountryFR';
	
	//http://www.google.fr/search?hl=fr&q=448364232+OR+%22448+364+232%22+-site%3Agouv.fr++-site%3Ainfo-financiere.fr+-site%3Abodacc.fr&btnG=Rechercher&meta=
	$page=getUrl($url, '', '', $referer, false, 'www.google.fr','', 5);
	//$fp=fopen('./findSiteWeb.log', 'a+');
	if ($page['code']==200) {
		$levMin=100;
		$pctMin=0;
		$urlLev=$urlPct='';
			$body=$page['body'];
			// url?q=http://www.zueblin.fr/files/FRAFinanceGeneralMeeting_file82.pdf
			
			preg_match_all('/<a href="\/url\?q=http\:\/\/(.*)\/(?:.*)"/iU', $body, $matches);
			$urlapprox="http://www.$nomEntrep.fr/";
			
			foreach ($matches[1] as $i=>$url)
			{
				$url="http://$url/";
				$lev=@levenshtein ($urlapprox,$url);
				if ($lev>0 && $lev<$levMin) {
					$levMin=$lev;
					$urlLev=$url;
				}
				$sim=similar_text($urlapprox,$url,$pct);
				if ($pct>$pctMin && strpos($url, 'zonebourse')===false) {
					$pctMin=$pct;
					$urlPct=$url;	
				}
				if (preg_match('/\.(.*\.fr)\//', $url, $matches2)) {
					$rep=$iDbUpdate->select('sitesWeb', 'siren, web', "web=$url");
					if (@$rep[0]['siren']*1==0) {
						$siren=chechSirenSiteAfnic($matches2[1]);
						if ($siren) {
							$tabInsert=array('siren'=>$siren,
											 'web'=>$url,
											 'dateInsert'=>date('YmdHis'));
							$iDbUpdate->insert('sitesWeb', $tabInsert);
						}
					}
				}
			}
			
			//fclose($fp);
			
			if ($levMin<15 && $pctMin>44 && $urlLev==$urlPct) {
		//		fwrite($fp, date('Y-m-d H:i:s') .' - '. $page['code'] . " - $rs - $i - $lev (Min=$levMin) - $pct (Min=$pctMin) - $urlLev - $urlPct - $url !!! RETURNED !!!\n");
				return $urlLev;
			}
			return false;
		}
		//fclose($fp);
		return false;
	}
 ?>