batch/1.1/old/cjBodaccInsee.php
2013-06-19 08:24:49 +00:00

526 lines
35 KiB
PHP

#!/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(FWK_PATH.'common/curl.php');
include_once(INCLUDE_PATH.'insee/classMInsee.php');
$iInsee=new MInsee();
$siren=552144503;
print_r($iInsee->getAnnoncesLegales($siren));
die();
$tabLigne=file('/root/cjBodacc.txt');
$tabCj=array();
foreach ($tabLigne as $i=>$ligne) {
if ($i<1) continue;
$tabTmp=explode("\t", $ligne);
$libCj=strtoupper(trim(preg_replace('/[^a-z]/i','',$tabTmp[0])));
$nbrCj=$tabTmp[1];
@$tabCj[$libCj]+=$nbrCj;
}
$nbCj=count($tabCj);
echo "$i CJ traitées => $nbCj filtrées !".EOL;
foreach ($tabCj as $libCj=>$nbrCj)
echo "'$libCj'=>0,\t// $nbrCj".EOL;
die();
/*include_once(INCLUDE_PATH.'partenaires/classMGreffes.php');
include_once(FWK_PATH.'mail/sendMail.php');
*/
/*
function ferie($mois,$an, $alsace = false){
if (is_array($mois)){
$retour = array();
foreach ($mois as $m) {
$r = ferie($m, $an);
$retour[$m] = ferie($m, $an);
}
return $retour;
}
// calcul des jours feries pour un seul mois.
if (mktime(0,0,0,$mois, 1,$an) == -1) { return FALSE;}
list($mois, $an) = explode("-", date("m-Y", mktime(0,0,0,$mois, 1, $an)));
$an = intval($an);
$mois = intval($mois);
// une constante
$jour = 3600*24;
// les jours fixes
$ferie["Jour de l'an"][1] = 1;
$ferie["Armistice 39-45 "][5] = 8;
$ferie["Toussaint"][11] = 1;
$ferie["Armistice 14-18"][11] = 11;
$ferie["Assomption"][8] = 15;
$ferie["Fête du travail "][5] = 1;
$ferie["Fête nationale"][7] = 14;
$ferie["Noël"][12] = 25;
if ($alsace)
$ferie["Lendemain de Noël (Alsace seulement)"][12] = 25;
// quelques fetes mobiles
$lundi_de_paques['mois'] = date( "n", easter_date($an)+1*$jour);
$lundi_de_paques['jour'] = date( "j", easter_date($an)+1*$jour);
$lundi_de_paques['nom'] = "Lundi de Pâques";
$ascencion['mois'] = date( "n", easter_date($an)+39*$jour);
$ascencion['jour'] = date( "j", easter_date($an)+39*$jour);
$ascencion['nom'] = "Jeudi de l'ascenscion";
$vendredi_saint['mois'] = date( "n", easter_date($an)-2*$jour);
$vendredi_saint['jour'] = date( "j", easter_date($an)-2*$jour);
$vendredi_saint['nom'] = "Vendredi Saint";
$lundi_de_pentecote['mois'] = date( "n", easter_date($an)+50*$jour);
$lundi_de_pentecote['jour'] = date( "j", easter_date($an)+50*$jour);
$lundi_de_pentecote['nom'] = "Lundi de Pentecôte";
$ferie[$lundi_de_paques['nom']][$lundi_de_paques['mois']] = $lundi_de_paques['jour'];
$ferie[$lundi_de_pentecote['nom']][$lundi_de_pentecote['mois']] = $lundi_de_pentecote['jour'];
$ferie[$ascencion['nom']][$ascencion['mois']] = $ascencion['jour'];
if ($alsace)
$ferie[$vendredi_saint['nom']." (Alsace)"][$vendredi_saint['mois']]= $vendredi_saint['jour'];
// reponse
$reponse = array();
while(list($nom, $date)= each($ferie)){
if (isset($date[$mois])){
// une fete a date calculable
$reponse[$date[$mois]]=$nom;
}
}
ksort($reponse);
return $reponse;
}
function tab_jours_feriés($an) {
return ferie(range(1,12),$an);
}
$année = date("Y");
$tabFeriers = tab_jours_feriés($année);
print_r($tabFeriers);
die();
echo "<br>";
while (list($mois, $tab) = each ($fériées)) {
while (list($jour, $fete) = each ($tab)) {
echo "$jour/$mois/$année => $fete \n<br>";
}
}
*/
$iDb=new WDB();
$tabRet=$iDb->select('boamp_detail' , 'id, raisonSociale, adresse, cp, ville', "1");
foreach ($tabRet as $i=>$tabInsert) {
$idTxtUnique=trim(strtoupper(preg_replace('/[^a-z0-9]/i', '',
$tabInsert['raisonSociale'].$tabInsert['adresse'].
$tabInsert['cp'].$tabInsert['ville'])));
$id=$tabInsert['id'];
if ($idTxtUnique<>'') {
$iDb->update('boamp_detail',
array( 'idTxtUnique'=>$idTxtUnique,
'dateUpdate'=>0), "id=$id");
//die($id);
}
}
//echo WDate::jourFerie($argv[1],1);
die();
$tabFormesJuridiques=array(
"SociÉtÉ À responsabilitÉ limitÉe À capital variable" ,
"Societe anonyme cooperative a capital variable" ,
"Societe a responsabilite limitee" ,
"Sarl membre de la ce ou partie À l'accord sur l'espace Économique europÉen" ,
"Soci t par actions simplifi e" ,
"Soci t responsabilit limit e" ,
"Societe civile de personnes" ,
"Societe civile particuliere" ,
"Societe d'exercice liberal par actions simplifiee" ,
"Societe anonyme cooperative" ,
"Societe par actions simplifiee a associe unique" ,
"Societe cooperative" ,
"S a r l a capital variable" ,
"Ste en commandite simple" ,
"Soci t responsabilit limit e capital variable" ,
"Groupememt d'interet economique commercial" ,
"Societe par action simplifiee" ,
"Societe d'exercice liberal par actions simplifiee - selas" ,
"Entreprise unipersonnelle a responsabilite limitee" ,
"Soci t en nom collectif" ,
"SociÉtÉ par actions simplifiÉe unipersonnelle" ,
"Societe civile de contruction/vente" ,
"Societe anonyme a capital variable" ,
"Societe cooperative de production a responsabilite limitee a capital variable" ,
"Cooperative ouvriere de product. a resp. lim." ,
"SociÉtÉ civile de moyens" ,
"Affaire personnelle commerÇant" ,
"SociÉtÉ civile professionnelle" ,
"Societe anonyme d'economie mixte locale" ,
"Sa a conseil d administration" ,
"Societe cooperative agricole a capital variable" ,
"Cooperative ouvriere de production en a.r.l." ,
"Sarl a associe unique et a capital variable" ,
"Societe anonyme d'h.l.m." ,
"Cooperative agricole" ,
"Soci t civile" ,
"Soci t civile immobili re" ,
"SociÉtÉ d'exercice libÉral À responsabilitÉ limitÉe" ,
"Societe cooperative de production a responsabilite limitee" ,
"Societe cooperative de travailleurs (anonyme)" ,
"Soci?t? ? responsabilit? limit?e" ,
"Cooperative ouvriere de production (anonyme)" ,
"Sa coop de production a cap variable" ,
"Sa À conseil d'administration" ,
"Societe d'interet collectif agricole" ,
"Societe civile agricole" ,
"Societe cooperative de production anonyme a capital variable" ,
"Sarl unipersonnelle" ,
"Sarl cooperative" ,
"Societe cooperative agricole" ,
"Societe anonyme" ,
"Societe par actions simplifiee a directoire et conseil de surveillance" ,
"Ste coop. prod. a resp. limitee a capital personnel et variable" ,
"Societe d'actions simplifiee a capital variable" ,
"SociÉtÉ anonyme coopÉrative d'intÉrÊt collectif pour l'accession À la propriÉtÉ" ,
"Groupement d'intÉrÊt Économique" ,
"Societe d'exercice liberal a responsabilite limitee unipersonnelle%" ,
"Societe cooperative de production" ,
"Societe cooperative ouvriere de production anonyme a capital variable" ,
"Sarl a capital variable" ,
"Societe anonyme d'economie mixte" ,
"Societe cooperative anonyme d interet collectif agricole" ,
"Sasu sociÉtÉ par actions simplifiÉe À associÉ unique" ,
"Societe d'investissements a capital variable (s.i.c.a.v)" ,
"Societe cooperative de production (sarl)" ,
"Societe d exercice liberal par actions simplifiees" ,
"Union de cooperatives agricoles" ,
"Societe cooperative ouvriere de production anonyme" ,
"Soci t de droit tranger" ,
"Societe civile professionnelle d'architectes" ,
"Societe civile construction vente" ,
"Soci t anonyme" ,
"Societe a responsabilite limitee de presse" ,
"Societe anonyme sportive professionnelle" ,
"Societe anonyme a conseil d administration" ,
"Cooperative d'utilisation de materiel agricole (c.u.m.a.)" ,
"Societe civile cooperative de construction" ,
"Sarl de presse" ,
"Groupememt d interet economique commercial" ,
"Sa À directoire" ,
"Societe cooperative de production en a.r.l a capital variable" ,
"Societe cooperative interet collectif agricole s.a." ,
"Societe cooperative d'interet collectif anonyme" ,
"Societe cooperative a capital et personnel variables" ,
"SociÉtÉ coopÉrative À capital variable en la forme sarl" ,
"Ste coop de banque a capital var." ,
"Groupement agricole d'exploitation en commun - gaec" ,
"SociÉtÉ civile d'exploitation agricole" ,
"Societe cooperative a capital variable et a responsabilite limitee" ,
"Societe anonyme cooperative de production d hlm" ,
"Societe anonyme cooperative de commercants detaillants" ,
"SociÉtÉ civile professionnelle de commissaires-priseurs" ,
"Societe anonyme cooperative de banque populaire" ,
"Cooperative de consommation en s.a" ,
"Sa coopÉrative d'intÉrÊt collectif pour accession À la propriÉtÉ (sacicap)" ,
"Cooperative de commercants detaillants" ,
"Societe anonyme cooperative a capital et personnel variable" ,
"SociÉtÉ coopÉrative de production À forme sarl." ,
"SociÉtÉ civile immobiliÈre de construction vente" ,
"Ano societe anonyme a directoire et conseil de surveillance" ,
"Societe par actions simplifiee" ,
"Societe cooperative ouvriere de production" ,
"Societe civile d exploitation agricole a responsabilite limitee" ,
"Exploitation agricole À responsabilitÉ limitÉe" ,
"E.u.r.l." ,
"Societe d'economie mixte a conseil d'administration" ,
"Groupement europeen d'interet economique" ,
"Societe anonyme cooperative de production d'hlm" ,
"Groupement d int r t conomique" ,
"Cooperative ouvriere de product a resp lim " ,
"Soci t responsabilit limit e coop rative ouvri re de production et de cr dit" ,
"Societe cooperative credit capital variable a.r.l." ,
"Societe d'exercice liberal a forme anonyme _ selafa" ,
"SociÉtÉ À responsabilitÉ limitÉe coopÉrative ouvriÈre de production et de crÉdit" ,
"SociÉtÉ anonyme d'hlm" ,
"Societe d interet collectif agricole" ,
"Societe cooperative d'artisan en arl a capital variable" ,
"SociÉtÉ d'exercice libÉral À forme anonyme" ,
"SociÉtÉ d'investissement À capital variable" ,
"Societe civile d exploitation agricole" ,
"Societe en nom collectif" ,
"Sarl cooperative ouvriere de production et de credit a capital variable" ,
"SociÉtÉ par actions simplifiÉe À capital variable" ,
"SociÉtÉ par actions simplifiÉe À associÉ unique et capital variable" ,
"S a cooperative d entreprises a capital variable" ,
"Sa a conseil d&#039;administration" ,
"Societe cooperative de credit" ,
"Societe de presse" ,
"Societe anonyme a participation ouvriere" ,
"Groupement d interet economique commercial" ,
"SociÉtÉ anonyme d'Économie mixte À conseil d'administration" ,
"Ste d'exercice liberal a responsabilite limitee unipersonnel" ,
"Societe cooperative d interet collectif a responsabilite limitee" ,
"Sa d'economie mixte a conseil administratif" ,
"Societe d'economie mixte a directoire" ,
"Cette societe est une sas unipersonnelle" ,
"Sa sportive professionnelle" ,
"S.a.r.l. a capital personnel variable" ,
"Societe civile professionnelle d'huissiers" ,
"Sa cooperative ouvriere de production et de credit a conseil d administration" ,
"Gaec a capital variable" ,
"Groupement agricole d exploitation en commun" ,
"Societe d'exercice liberal par actions simplifiees (selas)" ,
"Societe civile d attribution" ,
"Soci t par actions simplifi e associ unique" ,
"Societe civile de construction vente" ,
"Cooperative agricole a capital variable" ,
"Societe cooperative de production en a.r.l. a capital variable" ,
"Societe anonyme a capital et personnel variables" ,
"SociÉtÉ anonyme À conseil d'administration" ,
"Sa coop. ouvriere de production capital et personnel variables" ,
"Union de societes cooperatives a directoire" ,
"Societe d'exercice liber. forme anonyme" ,
"Sarl d'intÉrÊt collectif et agricole À capital variable" ,
"Sarl cooperative a capital variable" ,
"Sa coop rative ouvri re de prod et cr dit conseil d adm capital variable" ,
"Banque cooperative regie par la loi n.99-532 du 25.06.1999" ,
"Societe anonyme au capital et personnel variable" ,
"Soci?t? par actions simplifi?e unipersonnelle" ,
"Sa d'int. collectif agri. a ca" ,
"Soci t civile de moyens" ,
"Societe a responsabilite limite de droit britanique" ,
"Ste cooperative de banque populaire" ,
"Societe cooperative de consommation anonyme" ,
"Societe anonyme d hlm" ,
"SociÉtÉ coopÉrative de travailleurs À forme sarl" ,
"Cooperative d'interet collectif a conseil d'administration" ,
"SociÉtÉ de placement À prÉpondÉrance immobiliÈre À capital variable" ,
"Societe cooperative a capital variable" ,
"Etablissement public national" ,
"Sica anonyme a directoire et conseil de surveillance" ,
"Eurl a capital variable" ,
"Sarl cooperative ouvriere de production" ,
"Sa coop. de production hlm a capital variable" ,
"Socite civile cooperative de credit" ,
"Societe a responsabilite limitee d'architecture" ,
"Cooperative ouvriere de production en a r l " ,
"Societe cooperative a responsabilite limitee a capital variable" ,
"Sarl sous forme de eurl" ,
"Ano societe anonyme cooperative a capital variable a directoire" ,
"Cooperative artisanale en s.a.r.l" ,
"SociÉtÉ civile professionnelle d'avocats" ,
"Ste cooperative artisanale resp.lim.capital variable" ,
"Societe anonyme capital fixe coop. de banque" ,
"Societe cooperative de banque populaire a capital variable" ,
"Cooperative ouvriere de production en s.a.r.l." ,
"Societe cooperative ouvriere de production a.s.a" ,
"SociÉtÉ coopÉrative de production À forme anonyme À capital variable" ,
"Sa coopÉrative ouvriÈre de prod. et crÉdit À conseil d'adm. À capital variable" ,
"Banque cooperative" ,
"Sarl membre de la ce ou partie l accord sur l espace conomique europ en" ,
"Sascop" ,
"Sa cooperative de consommation a conseil d administration a capital variable" ,
"Societe anonyme a conseil de surveillance" ,
"Cooperative artisanale" ,
"Cooperative maritime" ,
"Ste d'investissements a capital variable a conseil -sicav-" ,
"Societe civile en construction vente (loi de 1971) titre1" ,
"Societe cooperative artisanale a resp. limitee et a capital variable" ,
"SociÉtÉ anonyme coopÉrative de consommation À conseil d'administration" ,
"Ville de" ,
"Societe anonyme de presse" ,
"Association loi 1901 Émettant des obligations" ,
"Societe civile professionnelle de notaires" ,
"Societe civile immobiliere d attribution" ,
"Societe civile professionnelle de chirurgien-dentistes" ,
"Ste cooperative d'interet collectif a responsabilite limitee a capital variable" ,
"Arl societe a associe unique" ,
"Soci?t? par actions simplifi?e" ,
"SociÉtÉ coopÉrative ouvriÈre de production en la forme sarl" ,
"Soci t responsabilit limit e coop rative capital variable" ,
"Societe anonyme de consom a capital variable" ,
"Entreprise unipersonnelle a responsabilite limitee (eurl) et a capital variable" ,
"Societe cooperative de credit a capital variable" ,
"Societe civile de placement immobilier" ,
"Ste civile a participation ouvriere a capital variable" ,
"Societe anonyme cooperative de banque populaire a capital variable" ,
"Societe d'investissement a capital variable d'actionnariat salaries (sicavas)" ,
"Cooperative a capital variable (sarl)" ,
"Soci t en commandite simple" ,
"Soci t d exercice lib ral responsabilit limit e" ,
"Societe anonyme cooperative maritime a capital variable" ,
"Societe d interet collectif agricole arl" ,
"Societe anonyme cooperative a directoire" ,
"Cooperative professionnelle" ,
"S.a cooperative d'entreprises a capital variable" ,
"SociÉtÉ ÉtrangÈre immatriculÉe au rcs" ,
"Soci?t? ? responsabilit? limit?e ? associ? unique" ,
"SociÉtÉ civile professionnelle d'huissiers de justice" ,
"Soci t responsabilit limit e associ unique" ,
"SociÉtÉ coopÉrative ouvriÈre de production en la forme sa" ,
"Sa coop de commercants detail a ca" ,
"StÉ de participation financiÈre de profession libÉrale À responsabilitÉ limitÉe" ,
"Societe cooperative maritime" ,
"Autres formes juridiques" ,
"Societe civile immobiliere de construction / vente" ,
"Banque coopÉrative rÉgie par la loi n°99-532 du 25 juin 1999" ,
"SociÉtÉ coopÉrative exploitÉe sous forme de sarl" ,
"Sarl associe unique" ,
"Institution regie - articles l141-1 et suivants du code monetaire et financier" ,
"Societe de droit anglais" ,
"Societe cooperative de consommation anonyme a capital variable" ,
"Union de cooperative" ,
"Societe en commandite simple a capital variable" ,
"StÉ coop de crÉdit À capital variable et À responsabilitÉ statutairement limitÉe" ,
"Societe par actions" ,
"Societe cooperative artisanale a responsabilite limitee" ,
"Societe civile professionnelle de medecins" ,
"Union de cooperatives a capital variable" ,
"Societe anonyme d'h.l.m. a conseil" ,
"Sarl cooperative artisanale" ,
"Societe civile de construction" ,
"Societe civile d exploitation viticole" ,
"E.u.r.l a capital variable" ,
"Entreprise unipersonnelle a responsabilite limitee et a capital variable" ,
"Ste anonyme a directoire et conseil d'orientation & surveillance" ,
"Sarl unipersonnelle sportive" ,
"Scop a responsabilite limitee et a capital variable" ,
"SociÉtÉ À responsabilitÉ limitÉe unipersonnelle À capital variable" ,
"Sarl a capital et personnel variable" ,
"Societe d exploitation agricole a responsabilite limitee" ,
"Sarl - eurl a capital variable" ,
"StÉ anonyme coopÉrative d'intÉrÊt collectif pour l'accession À la propriÉtÉ" ,
"Ste anonyme cooperative a capital variable" ,
"Etablissement de credit a but non lucratif" ,
"Societe cooperative de travailleurs (sarl)" ,
"E.a.r.l." ,
"Societe d assurance" ,
"Regie municipale" ,
"Coop. de crÉdit À responsabilitÉ statutairement limitÉe et À capital variable" ,
"Societe" ,
"Sarl non membre de la ce ou non partie À l'accord sur l'espace Économique eur." ,
"Cooperative a capital variable en a r l " ,
"Societe anonyme a directoire et conseil de surveillance" ,
"Cooperative ouvriere de production (sa)" ,
"Societe civile d'attribution" ,
"Societe civile de portefeuille" ,
"SociÉtÉ anonyme coopÉrative d'intÉrÊt collectif pour accession À la propriÉtÉ" ,
"Affaire personnelle artisan" ,
"Scp de mandataires judiciaires À la liquidation des entreprises" ,
"Societe civile immobiliere a capital variable" ,
"S a r l de presse" ,
"Sarl d'architecture" ,
"Societe civile professionnelle de mandataires liquidateurs" ,
"Societe anonyme cooperative de consommation" ,
);
function getCodeFJ($forme_juridique) {
$iDb=new WDB();
$variable=false;
$strVar='';
if (preg_match('/capital variable/i', $forme_juridique)) {
$fj2=addslashes(preg_replace('/capital variable/i',' ',$forme_juridique));
$variable=true;
$strVar='VAR';
} else
$fj2=addslashes($forme_juridique);
$tmp=$iDb->select(
'tabFJur',
"code, libelle, MATCH(libelle) AGAINST('$fj2') AS score",
"code>1000 AND MATCH(libelle) AGAINST('$fj2')", false, MYSQL_ASSOC);
echo "A RECHERCHER : '$forme_juridique'".EOL;
foreach($tmp as $i=>$tabFj) {
if ($i==0) {
echo strtoupper(" $i - ".$tabFj['libelle']." ==> ".$tabFj['code']).EOL;
$code=$tabFj['code'];
} else
echo " $i - ".$tabFj['libelle']." ==> ".$tabFj['code'].EOL;
if ($i>20) break;
}
while(true){
echo "Confirmez le code $code pour '$forme_juridique' ?".EOL;
$saisie = trim(strtoupper(fgets(STDIN)));
if (strlen($saisie)==4 && $saisie*1>1000) {
$code=$saisie;
break;
/* if (!$iBodacc->addDeviseBodacc($devise, $saisie) && mysql_errno()<>1062) {
echo date ('Y/m/d - H:i:s')." - ERREUR ".mysql_errno()." : Insertion des informations de chargement en base impossible :".EOL;
echo date ('Y/m/d - H:i:s'). mysql_error();
die();
}
$capital_devise=$saisie;
break;*/
} elseif ($saisie=='?') {
$code=$saisie;
break;
} elseif (strlen($saisie)==0) {
break;
}
}
return array('code'=>$code,'variable'=>$variable,'var'=>$strVar);
}
$fp=fopen('./libFJ.php','w+');
$fp2=fopen('./libFJ.csv','w+');
foreach($tabFormesJuridiques as $i=>$fj) {
//echo "$i:$fj = "..EOL;
$fj2=prepareString(strtoupper(trim($fj)));
$tabCode=getCodeFJ($fj2);
$code=$tabCode['code'];
$var=$tabCode['variable'];
$strVar=$tabCode['var'];
fwrite($fp, "case '$fj2':\t\$cj=$code; \$capitalType='$strVar'; break;".EOL);
fwrite($fp2, "$fj2\t$code\t$strVar".EOL);
}
echo simpleWhois('indiscore', 'fr', true);
die();
$tab = array( 'toto.com',
'momo.com',
'yoyo.fr',
'65qs4df56q4qsdqsd.com',
'koko.net',
'zozo.net',
'soso.net',
'qoqo.net',
'qs56d4qs56d4qs65d4qs564.net',
'xoxo.net',
'coco.com',
'hoho.fr',
'nono.net',
'dodo.com',
);
// Récupération des résultats
$output = false;
// Exécution
if($tab){
foreach($tab as $host){
list($domain, $tdl) = split(".", $host, 2); // le 2 permet de s'arreter après le 1er point ce qui permet d'avoir des extenssion du type .com.fr
$output[$host] = simpleWhois($domain, $tdl);
}
}
// Affichage "brut" des données traitées
if($output){
print_r($output);
}
?>