Dolibarr Authentification

'; echo ''; } /** \brief Affiche message erreur de type acces interdit et arrete le programme \remarks L'appel a cette fonction termine le code. */ function accessforbidden() { global $user, $langs; $langs->load("other"); llxHeader(); print '

'.$langs->trans("ErrorForbidden").'

'; print '
'; if ($user->login) { print $langs->trans("Login").": ".$user->login."
"; print $langs->trans("ErrorForbidden2",$langs->trans("Home"),$langs->trans("Users")); } else { print $langs->trans("ErrorForbidden3"); } llxFooter(); exit(0); } /** \brief Affiche message erreur system avec toutes les informations pour faciliter le diagnostique et la remontée des bugs. On doit appeler cette fonction quand une erreur technique bloquante est rencontrée. Toutefois, il faut essayer de ne l'appeler qu'au sein de page php, les classes devant renvoyer leur erreur par l'intermédiaire de leur propriété "error". \param db Handler de base utilisé \param msg Message complémentaire à afficher */ function dolibarr_print_error($db='',$msg='') { global $langs; $syslog = ''; if ($_SERVER['DOCUMENT_ROOT']) // Mode web { print "Dolibarr a détecté une erreur technique.
\n"; print "Voici les informations qui pourront aider au diagnostique:

\n"; print "".$langs->trans("Server").": ".$_SERVER["SERVER_SOFTWARE"]."
\n";; print "URL sollicitée: ".$_SERVER["REQUEST_URI"]."
\n";; print "QUERY_STRING: ".$_SERVER["QUERY_STRING"]."
\n";; print "Referer: ".$_SERVER["HTTP_REFERER"]."
\n";; $syslog.="url=".$_SERVER["REQUEST_URI"]; $syslog.=", query_string=".$_SERVER["QUERY_STRING"]; } else // Mode CLI { print "Erreur interne détectée...\n"; $syslog.="pid=".getmypid(); } if ($db) { if ($_SERVER['DOCUMENT_ROOT']) // Mode web { print "
\n"; print "Requete dernier acces en base: ".$db->lastquery()."
\n"; print "Code retour dernier acces en base: ".$db->errno()."
\n"; print "Information sur le dernier accès en base: ".$db->error()."
\n"; } else // Mode CLI { print "Requete dernier acces en base:\n".$db->lastquery()."\n"; print "Code retour dernier acces en base:\n".$db->errno()."\n"; print "Information sur le dernier accès en base:\n".$db->error()."\n"; } $syslog.=", sql=".$db->lastquery(); $syslog.=", db_error=".$db->error(); } if ($msg) { if ($_SERVER['DOCUMENT_ROOT']) // Mode web { print "".$langs->trans("Message").": ".$msg."
\n" ; } else // Mode CLI { print $langs->trans("Message").":\n".$msg."\n" ; } $syslog.=", msg=".$msg; } dolibarr_syslog("Error $syslog"); } /** \brief Deplacer les fichiers telechargés \param src_file fichier source \param dest_file fichier de destination \return int le resultat du move_uploaded_file */ function doliMoveFileUpload($src_file, $dest_file) { $file_name = $dest_file; if (substr($file_name, strlen($file_name) -3 , 3) == 'php') { $file_name = $dest_file . ".txt"; } return move_uploaded_file($src_file, $file_name); } /** \brief \param db handler d'accès base \param user object utilisateur */ function dolibarr_user_page_param($db, &$user) { foreach ($GLOBALS["_GET"] as $key=>$value) { if ($key == "sortfield") { $sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param WHERE fk_user = $user->id ;"; $db->query($sql); $sql = "INSERT INTO ".MAIN_DB_PREFIX."user_param(fk_user,page,param,value) VALUES ($user->id,'".$GLOBALS["SCRIPT_URL"]."','sortfield','".urlencode($value)."');"; $db->query($sql); $user->page_param["sortfield"] = $value; } if ($key == "sortorder") { $sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param WHERE fk_user = $user->id ;"; $db->query($sql); $sql = "INSERT INTO ".MAIN_DB_PREFIX."user_param(fk_user,page,param,value) VALUES ($user->id,'".$GLOBALS["SCRIPT_URL"]."','sortfield','".urlencode($value)."');"; $db->query($sql); $user->page_param["sortorder"] = $value; } if ($key == "begin") { $sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param WHERE fk_user = $user->id ;"; $db->query($sql); $sql = "INSERT INTO ".MAIN_DB_PREFIX."user_param(fk_user,page,param,value) VALUES ($user->id,'".$GLOBALS["SCRIPT_URL"]."','sortfield','".urlencode($value)."'); "; $db->query($sql); $user->page_param["begin"] = $value; } if ($key == "page") { $sql = "DELETE FROM ".MAIN_DB_PREFIX."user_param WHERE fk_user = $user->id ;"; $db->query($sql); $sql = "INSERT INTO ".MAIN_DB_PREFIX."user_param(fk_user,page,param,value) VALUES ($user->id,'".$GLOBALS["SCRIPT_URL"]."','sortfield','".urlencode($value)."'); "; $db->query($sql); $user->page_param["page"] = $value; } } } /** \brief Transcodage de francs en euros \param zonein zone de depart \param devise type de devise \return r resultat transcodé */ function transcoS2L($zonein,$devise) { // Open source offert par alainfloch@free.fr 28/10/2001, sans garantie. // début de la fonction de transcodification de somme en toutes lettres /* $zonein = "123,56"; * $devise = "E"; // préciser F si francs , sinon ce sera de l'euro * $r = transcoS2L($zonein,$devise); // appeler la fonction * echo "résultat vaut $r
"; * $zonelettresM = strtoupper($r); // si vous voulez la même zone mais tout en majuscules * echo "résultat en Majuscules vaut $zonelettresM
"; * $zonein = "1,01"; * $r = transcoS2L($zonein,$devise); * echo "résultat vaut $r
"; */ if ($devise == "F") { $unite_singulier = " franc "; $unite_pluriel = " francs "; $cent_singulier = " centime"; } else { $unite_singulier = " euro "; $unite_pluriel = " euros "; $cent_singulier = " centime"; } $arr1_99 = array("zéro","un","deux","trois", "quatre","cinq","six","sept", "huit","neuf","dix","onze","douze", "treize","quatorze","quinze","seize", "dix-sept","dix-huit","dix-neuf","vingt "); $arr1_99[30] = "trente "; $arr1_99[40] = "quarante "; $arr1_99[50] = "cinquante "; $arr1_99[60] = "soixante "; $arr1_99[70] = "soixante-dix "; $arr1_99[71] = "soixante et onze"; $arr1_99[80] = "quatre-vingts "; $i = 22; while ($i < 63) {// initialise la table $arr1_99[$i - 1] = $arr1_99[$i - 2]." et un"; $j = 0; while ($j < 8) { $k = $i + $j; $arr1_99[$k] = $arr1_99[$i - 2].$arr1_99[$j + 2]; $j++; } $i = $i + 10; } // fin initialise la table $i = 12; while ($i < 20) {// initialise la table (suite) $j = 60 + $i; $arr1_99[$j] = "soixante-".$arr1_99[$i]; $i++; } // fin initialise la table (suite) $i = 1; while ($i < 20) {// initialise la table (fin) $j = 80 + $i; $arr1_99[$j] = "quatre-vingt-".$arr1_99[$i]; $i++; } // fin initialise la table (fin) // echo "Pour une valeur en entrée = $zonein
"; //pour ceux qui ne croient que ce qu'ils voient ! // quelques petits controles s'imposent !! $valid = "[a-zA-Z\&\é\"\'$\-\è\_\ç\à$\=\;\:\!\*\$\^\<\>]"; if (ereg($valid,$zonein)) { $r = "la chaîne ".$zonein." n'est pas valide"; return($r); } $zone = explode(" ",$zonein); // supprimer les blancs séparateurs $zonein = implode("",$zone); // reconcatène la zone input $zone = explode(".",$zonein); // supprimer les points séparateurs $zonein = implode("",$zone); // reconcatène la zone input, ça c'est fort ! merci PHP $virg = strpos($zonein,",",1); // à la poursuite de la virgule $i = strlen($zonein); // et de la longueur de la zone input if ($virg == 0) { // ya pas de virgule if ($i > 7) { $r = "la chaîne ".$zonein." est trop longue (maxi = 9 millions)"; return($r); } $deb = 7 - $i; $zoneanaly = substr($zonechiffres,0,$deb).$zonein.",00"; } else { //ya une virgule $ti = explode(",",$zonein); // mettre de côté ce qu'il y a devant la virgule $i = strlen($ti[0]); // en controler la longueur $zonechiffres = "0000000,00"; if ($i > 7) { $r = "la chaîne ".$zonein." est trop longue (maxi = 9 millions,00)"; return($r); } $deb = 7 - $i; $zoneanaly = substr($zonechiffres,0,$deb).$zonein; } $M= substr($zoneanaly,0,1); if ($M != 0) { // qui veut gagner des millions $r = $arr1_99[$M]." million"; if ($M ==1) $r = $r." "; else $r = $r."s "; if (substr($zoneanaly,1,6)==0) { if ($devise == 'F') $r = $r." de "; else $r = $r."d'"; } } $CM= substr($zoneanaly,1,1); if ($CM == 1) { // qui veut gagner des centaines de mille $r = $r." cent "; } else { // ya des centaines de mille if ($CM > 1) { $r = $r. $arr1_99[$CM]." cent "; } } // fin du else ya des centaines de mille $MM= substr($zoneanaly,2,2); if (substr($zoneanaly,2,1)==0){ $MM = substr($zoneanaly,3,1);} // enlever le zéro des milliers cause indexation if ($MM ==0 && $CM > 0) { $r = $r."mille "; } if ($MM != 0) { if ($MM == 80) { $r = $r."quatre-vingt mille "; } else { if ($MM > 1 ) { $r = $r.$arr1_99[$MM]." mille "; } else { if ($CM == 0) $r = $r." mille "; else { $r = $r.$arr1_99[$MM]." mille "; } } } } $C2= substr($zoneanaly,5,2); if (substr($zoneanaly,5,1)==0){ $C2 = substr($zoneanaly,6,1);} // enlever le zéro des centaines cause indexation $C1= substr($zoneanaly,4,1); if ($C2 ==0 && $C1 > 1) { $r = $r.$arr1_99[$C1]." cents "; } else { if ($C1 == 1) $r = $r." cent "; else { if ($C1 > 1) $r = $r.$arr1_99[$C1]." cent "; } } if ($C2 != 0) { $r = $r.$arr1_99[$C2]; } if ($virg !=0) { if ($ti[0] > 1) $r = $r. $unite_pluriel; else $r = "un ".$unite_singulier; } else { if ($zonein > 1) $r = $r.$unite_pluriel; else $r = "un ".$unite_singulier; } $UN= substr($zoneanaly,8,2); if ($UN != "00") { $cts = $UN; if (substr($UN,0,1)==0){ $cts = substr($UN,1,1);} // enlever le zéro des centimes cause indexation $r = $r." et ". $arr1_99[$cts].$cent_singulier; if ($UN > 1) $r =$r."s"; // accorde au pluriel } $r1 = ltrim($r); // enleve quelques blancs possibles en début de zone $r = ucfirst($r1); // met le 1er caractère en Majuscule, c'est + zoli return($r); // retourne le résultat } // fin fonction transcoS2L /** \brief Affichage de la ligne de titre d'un tabelau \param name \param file \param field \param begin ("" par defaut) \param options ("" par defaut) \param td paramètres de l'attribut td ("" par defaut) \param sortfield nom du champ sur lequel est effectué le tri du tableau */ function print_liste_field_titre($name, $file, $field, $begin="", $options="", $td="", $sortfield="") { global $conf; // Le champ de tri est mis en évidence. // Exemple si (sortfield,field)=("nom","xxx.nom") ou (sortfield,field)=("nom","nom") if ($sortfield == $field || $sortfield == ereg_replace("^[^\.]+\.","",$field)) { print ''; } else { print ''; } print $name." "; print ''.img_down("A-Z").''; print ''.img_up("Z-A").''; print ""; } /** \brief Affichage d'un titre \param titre Le titre a afficher */ function print_titre($titre) { print '

'.$titre.'

'; } /** \brief Affichage d'un titre d'une fiche, aligné a gauche \param titre Le titre a afficher \param mesg Message suplémentaire à afficher à droite */ function print_fiche_titre($titre, $mesg='') { print "\n".''; print ''; if (strlen($mesg)) { print ''; } print '

'.$titre.'

'.$mesg.'

'."\n"; } /** \brief Effacement d'un fichier \param file fichier a effacer */ function dol_delete_file($file) { return unlink($file); } /** \brief Fonction print_barre_liste \param titre titre de la page \param page numéro de la page \param file lien \param options \param sortfield \param sortorder \param form \param num nombre d'élément total */ function print_barre_liste($titre, $page, $file, $options='', $sortfield='', $sortorder='', $form='', $num=-1) { global $conf; if ($num > $conf->liste_limit or $num == -1) { $nextpage = 1; } else { $nextpage = 0; } print ''; if ($page > 0 || $num > $conf->liste_limit) { print ''; } else { print ''; } if ($form) { print ''; } print '

'.$titre.' - page '.($page+1); print '
'.$titre.'	'.$form.'	'; if (strlen($sortfield)) { $options .= "&sortfield=$sortfield"; } if (strlen($sortorder)) { $options .= "&sortorder=$sortorder"; } // Affichage des fleches de navigation print_fleche_navigation($page,$file,$options,$nextpage); print '

'; } /** \brief Fonction servant a afficher les fleches de navigation dans les pages de listes \param page numéro de la page \param file lien \param options autres parametres d'url a propager dans les liens ("" par defaut) \param nextpage faut-il une page suivante */ function print_fleche_navigation($page,$file,$options='',$nextpage) { global $conf, $langs; if ($page > 0) { print ''.img_previous($langs->trans("Previous")).''; } if ($nextpage > 0) { print ''.img_next($langs->trans("Next")).''; } } /** \brief Fonction servant a afficher un menu déroulant sur le type de paiement \param db handler d'accès base \param nomselect Nom de la zone select html \param value Critere de filtrage sur les type de paiement */ function print_type_paiement_select($db,$nomselect,$value=-1) { print "\n"; } /** \brief Fonction servant a afficher les mois dans un liste déroulante \param set_time ("" par defaut) */ function print_date_select($set_time='') { if (! $set_time) { $set_time = time(); } $strmonth[1] = "Janvier"; $strmonth[2] = "Février"; $strmonth[3] = "Mars"; $strmonth[4] = "Avril"; $strmonth[5] = "Mai"; $strmonth[6] = "Juin"; $strmonth[7] = "Juillet"; $strmonth[8] = "Août"; $strmonth[9] = "Septembre"; $strmonth[10] = "Octobre"; $strmonth[11] = "Novembre"; $strmonth[12] = "Décembre"; $smonth = 1; $endmonth = 12; $sday = 1; $endday = 31; $cday = date("d", $set_time); $cmonth = date("n", $set_time); $syear = date("Y", $set_time); print ""; print ""; print "\n"; } /** \brief Fonction servant a afficher les heures/minutes dans un liste déroulante \param prefix \param begin (1 par defaut) \param end (23 par defaut) */ function print_heure_select($prefix,$begin=1,$end=23) { print ' H "; print '\n"; } /** \brief Fonction servant a afficher une durée dans une liste déroulante \param prefix prefix */ function print_duree_select($prefix) { print ' H "; print '\n"; } /** \brief Fonction qui retourne un montant monétaire formaté \param amount montant a formater \param html formatage html ou pas (0 par defaut) \remarks fonction utilisée dans les pdf et les pages html */ function price($amount, $html=0) { if ($html) { $dec='.'; $thousand=' '; return ereg_replace(' ',' ',number_format($amount, 2, $dec, $thousand)); } else { return number_format($amount, 2, '.', ' '); } } /** \brief Fonction qui convertit des euros en francs \param euros somme en euro à convertir \return price prix converti et formaté */ function francs($euros) { return price($euros * 6.55957); } /** \brief Fonction qui calcule la tva \param euros somme en euro \param taux taux de tva */ function tva($euros, $taux=19.6) { $taux = $taux / 100 ; return sprintf("%01.2f",($euros * $taux)); } /** \brief Fonction qui calcule le montant tva incluse \param euros somme en euro \param taux taux de tva */ function inctva($euros, $taux=1.196) { return sprintf("%01.2f",($euros * $taux)); } /** \brief Renvoie oui ou non dans la langue choisie \param yesno variable pour test si oui ou non \param case Oui/Non ou oui/non */ function yn($yesno, $case=1) { global $langs; if ($yesno == 0 || $yesno == 'no' || $yesno == 'false') return $case?$langs->trans("No"):$langs->trans("no"); if ($yesno == 1 || $yesno == 'yes' || $yesno == 'true') return $case?$langs->trans("Yes"):$langs->trans("yes"); return "unknown"; } /** \brief Fonction pour créer un mot de passe aléatoire \param longueur longueur du mot de passe (8 par defaut) \param sel donnée aléatoire \remarks la fonction a été prise sur http://www.uzine.net/spip */ function creer_pass_aleatoire($longueur = 8, $sel = "") { $seed = (double) (microtime() + 1) * time(); srand($seed); for ($i = 0; $i < $longueur; $i++) { if (!$s) { if (!$s) $s = rand(); $s = substr(md5(uniqid($s).$sel), 0, 16); } $r = unpack("Cr", pack("H2", $s.$s)); $x = $r['r'] & 63; if ($x < 10) $x = chr($x + 48); else if ($x < 36) $x = chr($x + 55); else if ($x < 62) $x = chr($x + 61); else if ($x == 63) $x = '/'; else $x = '.'; $pass .= $x; $s = substr($s, 2); } return $pass; } /** \brief Fonction pour initialiser sel \remarks la fonction a été prise sur http://www.uzine.net/spip */ function initialiser_sel() { global $htsalt; $htsalt = '$1$'.creer_pass_aleatoire(); } /** \brief Fonction pour qui retourne le rowid d'un departement par son code \param db handler d'accès base \param code Code région \param pays_id Id du pays */ function departement_rowid($db,$code, $pays_id) { $sql = "SELECT c.rowid FROM ".MAIN_DB_PREFIX."c_departements as c,".MAIN_DB_PREFIX."c_regions as r"; $sql .= " WHERE c.code_departement=". $code; $sql .= " AND c.fk_region = r.code_region"; $sql .= " AND r.fk_pays =".$pays_id; if ($db->query($sql)) { $num = $db->num_rows(); if ($num) { $obj = $db->fetch_object(); return $obj->rowid; } else { return 0; } $db->free(); } else { return 0; } } function get_exdir($num) { $num = substr("000".$num, -3); return substr($num, 0,1).'/'.substr($num, 1,1).'/'.substr($num, 2,1).'/'; } /* * Création de répertoire recursive * */ function create_exdir($dir) { $ccdir = ''; $cdir = explode("/",substr($dir,1)); for ($i = 0 ; $i < sizeof($cdir) ; $i++) { $ccdir .= "/".$cdir[$i]; if (! file_exists($ccdir)) { umask(0); if (! @mkdir($ccdir, 0755)) { dolibarr_syslog("create_exdir Erreur: Le répertoire '$ccdir' n'existe pas et Dolibarr n'a pu le créer."); } else { dolibarr_syslog("create_exdir Le répertoire '$ccdir' created"); } } } } ?>

Login :
Password :