<?php

// Sécurité
if (!defined('_ECRIRE_INC_VERSION')) {
	return;
}

/**
 * Validation d'un SIREN ou d'un SIRET
 *
 * 1/ Un SIREN comporte STRICTEMENT 9 caractères
 * 1b/ Un SIRET comporte strictement 14 caractères
 * 2/ Un siren/siret utilise une clef de controle "1-2"
 *    Un siren/siret est donc valide si la somme des chiffres pairs
 *    + la somme du double de tous les chiffres impairs (16 = 1+6 = 7) est un multiple de 10
 *
 * @param string $valeur
 *   La valeur à vérifier.
 * @param array $options
 *   Indique s'il faut tester le SIREN ou le SIRET.
 * @return string
 *   Retourne une chaine vide si c'est valide, sinon une chaine expliquant l'erreur.
 */
function verifier_siren_siret_dist($valeur, $options = array()) {
	if (!$options['mode'] or !in_array($options['mode'], array('siren', 'siret'))) {
		$mode = 'siren';
	} else {
		$mode = $options['mode'];
	}

	// on supprime les espaces avant d'effectuer les tests
	$valeur = preg_replace('/\s/', '', $valeur);

	// Test de SIREN
	if ($mode == 'siren') {
		$erreur = _T('verifier:erreur_siren');
		if (!is_string($valeur)) {
			return $erreur;
		}

		// Si pas 9 caractère, c'est déjà foiré !
		if (!preg_match('/^[0-9]{9}$/', $valeur)) {
			return $erreur;
		}

		// On vérifie la clef de controle "1-2"
		$somme = 0;
		$i = 0; // Les impaires
		while ($i < 9) {
			$somme += $valeur[$i];
			$i+=2;
		}
		$i = 1; // Les paires !
		while ($i < 9) {
			if ((2*$valeur[$i])>9) {
				$somme += (2*$valeur[$i])-9;
			} else {
				$somme += 2*$valeur[$i];
			}
			$i+=2;
		}

		if ($somme % 10) {
			return $erreur;
		}
	} else {
		// Test de SIRET
		$erreur = _T('verifier:erreur_siret');
		if (!is_string($valeur)) {
			return $erreur;
		}

		// Si pas 14 caractère, c'est déjà foiré !
		if (!preg_match('/^[0-9]{14}$/', $valeur)) {
			return $erreur;
		}
		if (preg_match('/[0]{8}/', $valeur)) {
			return $erreur;
		}

		// Pour le SIRET on vérifie la clef de controle "1-2" avec les impaires *2
		// (vs pairs*2 pour SIREN, parce qu'on part de la fin)
		$somme = 0;
		$i = 1; // Les paires
		while ($i < 14) {
			$somme += $valeur[$i];
			$i+=2;
		}
		$i = 0; // Les impaires !
		while ($i < 14) {
			if ((2*$valeur[$i])>9) {
				$somme += (2*$valeur[$i])-9;
			} else {
				$somme += 2*$valeur[$i];
			}
			$i+=2;
		}

		if ($somme % 10) {
			return $erreur;
		}
	}

	return '';
}