:> » jean-luc.chretien@tice.ac-caen.fr
* @Auteurs « wawa » olivier.lecluse@crdp.ac-caen.fr
* @Note: Ce fichier de fonction doit etre appele par un include
* @Licence Distribue sous la licence GPL
*/
/**
* file: functions.inc.php
* @Repertoire: includes/
*/
//=================================================
/**
* Fonction qui test si la chaine est encode en UTF8
* @Parametres $chaine la chaine a tester
* @Return
*/
function convertUTF8_to_8859($str){
if(is_utf8($str) == 1){
// fonction qui test si la chaine encode en UTF8 contient des caractere francais: Cette fonction ne traite que des chaines en UTF8
if(content8859_in_UTF8($str)=="TRUE"){
// On convertit la chaine de UTF8 en ISO8859-1
$str = utf8_decode($str);
// retourner la chaine converti
return($str);
}else{ // cas ou la chaine en UTF-8 mais ne contient pas des accents francais : exemple les caracetres chinois encode en UTF8
// retourner la chaine non convertit
return($str);
}
}else{ // cas ou la chaine n'est pas encode en UTF8
return($str);
}
}
//=================================================
/**
* Test si la chaine est en UTF-8 ou pas
* @Parametres $chaine la chaine a tester
* @Returns true if $string is valid UTF-8 and false otherwise.
*/
function is_utf8($string) {
return preg_match('%^(?:
[\x09\x0A\x0D\x20-\x7E] # ASCII
| [\xC2-\xDF][\x80-\xBF] # non-overlong 2-byte
| \xE0[\xA0-\xBF][\x80-\xBF] # excluding overlongs
| [\xE1-\xEC\xEE\xEF][\x80-\xBF]{2} # straight 3-byte
| \xED[\x80-\x9F][\x80-\xBF] # excluding surrogates
| \xF0[\x90-\xBF][\x80-\xBF]{2} # planes 1-3
| [\xF1-\xF3][\x80-\xBF]{3} # planes 4-15
| \xF4[\x80-\x8F][\x80-\xBF]{2} # plane 16
)*$%xs', $string);
} // function is_utf8
//=================================================
/**
* fonction qui cherche s'il ya des caractres accentues francais dans une chaine en UTF8
* @Parametres $str chaine a tester
* @Return true ou false
*/
function content8859_in_UTF8($str){
if ( strlen($str) == 0 ) { return; }
// cette fonction ne retourne de valeur si la chaine est en UTF8
// cette fonction retourne un tableau contenant les chaines accentuees
preg_match_all('/.{1}|[^\x00]{1,1}$/us', $str, $ar);
$chars = $ar[0];
$str_fr = 0;
foreach ( $chars as $i => $c ){
$ud = 0;
// Calcul les codes ASCII des chaines en UTF8
if (ord($c{0})>=0 && ord($c{0})<=127) { continue; } // ASCII - next please
if (ord($c{0})>=192 && ord($c{0})<=223) { $ord = (ord($c{0})-192)*64 + (ord($c{1})-128); }
if (ord($c{0})>=224 && ord($c{0})<=239) { $ord = (ord($c{0})-224)*4096 + (ord($c{1})-128)*64 + (ord($c{2})-128); }
if (ord($c{0})>=240 && ord($c{0})<=247) { $ord = (ord($c{0})-240)*262144 + (ord($c{1})-128)*4096 + (ord($c{2})-128)*64 + (ord($c{3})-128); }
if (ord($c{0})>=248 && ord($c{0})<=251) { $ord = (ord($c{0})-248)*16777216 + (ord($c{1})-128)*262144 + (ord($c{2})-128)*4096 + (ord($c{3})-128)*64 + (ord($c{4})-128); }
if (ord($c{0})>=252 && ord($c{0})<=253) { $ord = (ord($c{0})-252)*1073741824 + (ord($c{1})-128)*16777216 + (ord($c{2})-128)*262144 + (ord($c{3})-128)*4096 + (ord($c{4})-128)*64 + (ord($c{5})-128); }
if (ord($c{0})>=254 && ord($c{0})<=255) { $chars{$i} = $unknown; continue; } //error
//Test si les caracteres contient les accents
if(($ord == 224) || ($ord == 226) || ($ord == 235) || ($ord == 249) || ($ord == 250) || ($ord == 252) || ($ord == 251) || ($ord == 233) || ($ord == 234) || ($ord == 232) || ($ord == 231) || ($ord == 228) || ($ord == 256) || ($ord == 128) || ($ord == 156) || ($ord == 230) || ($ord == 231) || ($ord == 244) || ($ord == 225) || ($ord == 236) || ($ord == 227) || ($ord == 237) || ($ord == 238) || ($ord == 249) || ($ord == 239) || ($ord == 257)){
$str_fr =1;
}
}
if($str_fr == 1){
return "TRUE";
}else{
return "FALSE";
}
}
//=================================================
/**
* Remplace les caracteres accentues par leurs equivalents et l'espace par underscore (modifie pour utf-8)
* @Parametres $chaine a traiter
* @Return chaine sans accent
*/
// Remplace les caracteres accentues par leurs equivalents, et les majuscules
// et l'espace par underscore (modifie pour utf-8)
function enleveaccents($chaine){
$chaine=convertUTF8_to_8859($chaine);
$chaine = str_replace(
array(
'à', 'â', 'ä', 'á', 'ã', 'å',
'î', 'ï', 'ì', 'í',
'ô', 'ö', 'ò', 'ó', 'õ', 'ø',
'ù', 'û', 'ü', 'ú',
'é', 'è', 'ê', 'ë',
'ç', 'ÿ', 'ñ',
'À', 'Â', 'Ä', 'Á', 'Ã', 'Å',
'Î', 'Ï', 'Ì', 'Í',
'Ô', 'Ö', 'Ò', 'Ó', 'Õ', 'Ø',
'Ù', 'Û', 'Ü', 'Ú',
'É', 'È', 'Ê', 'Ë',
'Ç', '¾', 'Ñ',
' '
),
array(
'a', 'a', 'a', 'a', 'a', 'a',
'i', 'i', 'i', 'i',
'o', 'o', 'o', 'o', 'o', 'o',
'u', 'u', 'u', 'u',
'e', 'e', 'e', 'e',
'c', 'y', 'n',
'a', 'a', 'a', 'a', 'a', 'a',
'i', 'i', 'i', 'i',
'o', 'o', 'o', 'o', 'o', 'o',
'u', 'u', 'u', 'u',
'e', 'e', 'e', 'e',
'c', 'y', 'n',
'_'
),$chaine);
return $chaine;
}
//=================================================
/**
* Verification de l'intitule d'un groupe
* L'intitule d'un groupe ne doit pas commencer et finir par les mots : Classe, Cours, Equipe, Matiere
* @Parametres
* @Return
*/
function verifIntituleGrp ($intitule) {
$motif1 = "#^Classe$#";
$motif2 = "#^Cours$#";
$motif3 = "#^Equipe$#";
$motif4 = "#^Matiere$#";
if ( preg_match($motif1,$intitule)||preg_match($motif2,$intitule)||preg_match($motif3,$intitule)||preg_match($motif4,$intitule) ) {
$ret = false;
} else $ret = true;
return $ret;
}
//=================================================
/**
* Verification de la validite d'un mot de passe
* longueur de 4 a 20 caracteres
* compose de lettre et d'au moins un chiffre ou des caracteres speciaux suivants : _@£%§!?*:
* @Parametres password a tester
* @Return true si Ok false sinon
*/
function verifPwd ($password) {
global $char_spec;
if ( preg_match("/(^[a-zA-Z]*$)|(^[0-9]*$)/", $password) )
return false;
elseif ( preg_match("/^[[:alnum:]$char_spec]{4,20}$/", $password) )
return true; else return false;
}
//=================================================
/**
* Verification format date de naissance
* @Parametres date a verifier
* @Return true si ok false sinon
*/
function verifDateNaissance ($date) {
$motif = "^[0-9]{8}$";
if ( preg_match("/$motif/", $date) ) {
// Verification de l'annee
if ( (date(Y) - substr ($date,0,4) < 75) && (date(Y) - substr ($date,0,4) > 4) ) {
// Verification du mois
if ( (substr ($date,4,2) > 0) && (substr ($date,4,2) <= 12 ) ) {
if ( (substr ($date,6,2) > 0) && (substr ($date,6,2) <= 31) ) {
$ret = true;
}
}
}
} else {
$ret = false;
}
return $ret;
}
//=================================================
/**
* Verification d'une entree de type Nom ou Prenom si on a des caracteres etranges
* @Parametres $entree
* @Return true si Ok false sinon.
*/
function verifEntree($entree) {
$motif = "#^[_0-9a-zA-Z \'ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÇçÌÍÎÏìíîïÙÚÛÜùúûüÿÑñ-]{2,20}$#";
if ( preg_match($motif, $entree) ) {
$ret= true;
} else {
$ret= false;
}
return $ret;
}
//=================================================
/**
* Verification du format du pseudo
* @Parametres
* @Return
*/
function verifPseudo($pseudo) {
$motif = "#\|,/ #";
if ( preg_match($motif, $pseudo) || strlen ($pseudo) > 20 || strlen ($pseudo) == 0 ) {
$ret = false;
} else {
$ret = true;
}
return $ret;
}
//=================================================
/**
* Verification du champ description
* @Parametres
* @Return
*/
function verifDescription($entree) {
$motif = "/^[a-zA-Z0-9\s,.;\"\'\/:&ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÇçÌÍÎÏìíîïÙÚÛÜùúûüÿÑñ-]{0,80}$/";
if ( preg_match($motif, stripslashes($entree)) ) {
$ret= true;
} else {
$ret= false;
}
return $ret;
}
//=================================================
/**
* Verification numero de telephone
* @Parametres
* @Return
*/
function verifTel ($tel) {
$motif ="#^[0-9]{10}$#";
if ( preg_match($motif, $tel) || strlen ($tel) == 0 ) {
$ret = true;
} else {
$ret = false;
}
return $ret;
}
//=================================================
/**
* Affiche le haut des pages avec le login
* @Parametres
* @Return
*/
function header_html()
{
global $login;
?>
Interface d'administration de SambaEdu
".gettext("Bonjour")." $login";
}
//=================================================
/**
* Test si $login a le droit $droit
* @Parametres $droit droit a tester - $login login a tester
* @Return Y si il a le droit, N sinon.
*/
function is_admin ($droit,$login)
{
if ((ldap_get_right("se3_is_admin",$login)=="Y")||(ldap_get_right($droit,$login)=="Y"))
$srch="Y";
else
$srch="N";
return $srch;
}
//=================================================
/**
* Affiche le menu de recherche dans la partie LDAP
* @Parametres
* @Return
*/
function aff_mnu_search($user_type)
{
if ($user_type=="Y") {
// keyser modif MC marques 02/06
// Affichage menu admin
echo"
- ".gettext("Rechercher :")."
- ".gettext("Ajouter")." :
- ".gettext("Import / Export")." :
\n";
} else {
// Affichage menu user
echo "
\n";
}
}
//=================================================
/**
* Affichage de la barre remorquee de haut de page
* mode 1 : lien Annuaire
* mode 2 : lien Annuaire -> Recherche
* mode 3 : lien Annuaire -> Lien Recherche
* mode 31 : lien Annuaire -> Modification
* mode 4 : lien Annuaire -> lien Modification pseudo
* mode 5 : lien Annuaire -> lien Modification pwd
* mode 6 : lien Annuaire -> lien Ajout groupe
* mode 7 : lien Annuaire -> lien Ajout utilisateur
* @Parametres
* @Return
*/
function aff_trailer ($mode)
{
global $imagespath;
echo"";
} elseif ($mode == 2) {
echo "-> ".gettext("Recherche")."";
} elseif ($mode == 3 ) {
echo "-> ".gettext("Recherche")."";
} elseif ($mode == 31 ) {
echo "-> ".gettext("Recherche")." ->".gettext(" Modification")."";
} elseif ($mode == 4 ) {
echo "-> ".gettext("Modification")."";
} elseif ($mode == 5 ) {
echo "-> ".gettext("Modification")."";
} elseif ($mode == 6 ) {
echo "-> ".gettext("Ajout d'un groupe")."";
} elseif ($mode == 7 ) {
echo "-> ".gettext("Ajout d'un utilisateur")."";
} elseif ($mode != "") {
list($valeur, $filtre) = preg_split ("#_#", $mode);
if ($valeur == 8 ) {
$mode=preg_replace("#8_#","",$mode);
echo "-> ".gettext("Recherche")." ->".gettext(" Modification")." -> $mode";
}
if ($valeur == 9 ) {
$mode=preg_replace("#9_#","",$mode);
echo "-> ".gettext("Recherche")." ->".gettext(" Modification")." -> $mode";
}
} else {
echo "";
}
echo "
\n";
}
?>