Files
resatennis_tyroltenn/www/site_inscription/actualise_classement.php

47 lines
1.2 KiB
PHP
Executable File

<?php
include("conf.php");
include("mysql_compat.php");
include ("conf.php");
$db_connection=mysql_connect($db_host,$db_user,$password);
mysql_select_db($db_name,$db_connection);
include("fct_nouvjoueur.php");
/* Pour tous les joueurs */
$cpt=0;
$requete="SELECT numero_fft FROM joueur";
$reponse=mysql_query($requete,$db_connection);
while($joueur=mysql_fetch_object($reponse)) {
/* On controle le numero de licence du joueur */
if(verifierLicence($joueur->numero_fft)) {
$num_fft=$joueur->numero_fft;
echo "$num_fft\n";
recup_joueur($num_fft);
$cpt++;
}
}
echo $cpt;
function verifierLicence($numero_fft){
$numero=0;
$res=1;
// controle de la licence si le numero de licence est valide (1234567K par ex,)
if(is_numeric($numero_fft[0]) and $numero_fft!="") {
for($i=0;$i<7;$i++){$numero=$numero+($numero_fft[$i]* pow (10,(6-$i)));}
$cle=$numero_fft[7];
$tab_lettres=array("A","B","C","D","E","F","G","H","J","K","L","M","N","P","R","S","T","U","V","W","X","Y","Z");
$mod=($numero % 23);
if ($mod==0){$mod=23;}
if(strtoupper($cle)!=$tab_lettres[$mod-1]){
$res=0;
}
}
else {
$res=0;
}
return $res;
}
?>