'; echo '

'; print ''; print '';; print ''; echo '

Login :
Password :

'; } /*! \brief acces interdit */ function accessforbidden() { llxHeader(); print "Accés interdit"; llxFooter(); exit(0); } /*! \brief deplacer les fichiers telechargés \param src_file fichier source \param dest_file fichier de destination */ 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); } function dolibarr_user_page_param($db, &$user) { foreach ($GLOBALS["_GET"] as $key=>$value) { if ($key == "sortfield") { $sql = "REPLACE INTO ".MAIN_DB_PREFIX."user_param "; $sql .= " SET fk_user =".$user->id; $sql .= " ,page='".$GLOBALS["SCRIPT_URL"] . "'"; $sql .= " ,param='sortfield'"; $sql .= " ,value='".urlencode($value)."'"; $db->query($sql); $user->page_param["sortfield"] = $value; } // print $key . "=".$value . "
"; if ($key == "sortorder") { $sql = "REPLACE INTO ".MAIN_DB_PREFIX."user_param "; $sql .= " SET fk_user =".$user->id; $sql .= " ,page='".$GLOBALS["SCRIPT_URL"] . "'"; $sql .= " ,param='sortorder'"; $sql .= " ,value='".urlencode($value)."'"; $db->query($sql); $user->page_param["sortorder"] = $value; } if ($key == "begin") { $sql = "REPLACE INTO ".MAIN_DB_PREFIX."user_param "; $sql .= " SET fk_user =".$user->id; $sql .= " ,page='".$GLOBALS["SCRIPT_URL"] . "'"; $sql .= " ,param='begin'"; $sql .= " ,value='".$value."'"; $db->query($sql); $user->page_param["begin"] = $value; } if ($key == "page") { $sql = "REPLACE INTO ".MAIN_DB_PREFIX."user_param "; $sql .= " SET fk_user =".$user->id; $sql .= " ,page='".$GLOBALS["SCRIPT_URL"] . "'"; $sql .= " ,param='page'"; $sql .= " ,value='".$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 */ 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 du titre d'une liste \param name \param file \param field \param begin \param options \remarks begin = "" par défaut \remarks options = "" par défaut */ function print_liste_field_titre($name, $file, $field, $begin="", $options="") { global $conf; print $name." "; print ''; print ''; print ''; print ''; } /*! \brief affichage du titre d'une liste avec possibilité de tri et de choix du type de la balise td \param name \param file \param field \param begin \param options \param td \param sortfield \remarks begin = "" par défaut \remarks options = "" par défaut \remarks td = "" par défaut \remarks sortfield = "" par défaut */ function print_liste_field_titre_new($name, $file, $field, $begin="", $options="", $td="", $sortfield="") { global $conf; if ($sortfield == $field) { print ''; } else { print ''; } print $name." "; print ''; print ''; print ''; print ''; print ""; } /*! \brief affichage d'un titre \param titre le titre a afficher */ function print_titre($titre) { print ''; } /*! \brief affichage d'un titre d'une fiche aligné a droite \param titre le titre a afficher \param mesg message afficher */ 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 accès refusé */ function block_access() { llxHeader(); print "Accés refusé"; llxFooter(); } /* * * */ 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) { print ''; } else { print ''; } if ($form) { print ''; } print '

'.$titre.' - page '.($page+1).'
'.$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 \param nextpage page suivante */ function print_fleche_navigation($page,$file,$options='', $nextpage) { global $conf; if ($page > 0) { print ''; } if ($nextpage > 0) { print ''; } } /*! \brief fonction servant a afficher un menu déroulant avec oui ou non \param value \remarks value peut avoir la valeur 0 ou 1 */ function print_oui_non($value) { if ($value) { print 'non'; print 'oui'; } else { print 'non'; print 'oui'; } } /*! \brief fonction servant a afficher un menu déroulant sur le type de paiement \param value \remarks value peut avoir la valeur 0 ou 1 */ function print_type_paiement_select($db,$nomselect,$value=-1) { print ""; $sql = "SELECT tp.code, tp.libelle"; $sql .= " FROM ".MAIN_DB_PREFIX."c_paiement as tp"; if ($value >= 0) { $sql.="WHERE type = $value"; } $sql.=" ORDER by tp.libelle"; if ( $db->query($sql) ) { $i=0; $num = $db->num_rows(); while ($i < $num) { $obj = $db->fetch_object( $i); print "code\">$obj->libelle"; $i++; } } print "\n"; } /*! \brief fonction servant a afficher les mois dans un liste déroulante \param set_time \remarks set_time = '' par défaut */ 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 ""; for ($day = 1 ; $day <= $endday ; $day++) { if ($day == $cday) { print "$day"; } else { print "$day"; } } print ""; print ""; for ($month = $smonth ; $month <= $endmonth ; $month++) { if ($month == $cmonth) { print "" . $strmonth[$month]; } else { print "" . $strmonth[$month]; } } print ""; print ""; for ($year = $syear - 2; $year < $syear + 5 ; $year++) { if ($year == $syear) { print "$year"; } else { print "$year"; } } print "\n"; } /*! \brief fonction servant a afficher les heures/minutes dans un liste déroulante \param prefix \param begin \param end \remarks begin = 1 par défaut \remarks end = 23 par défaut */ function print_heure_select($prefix,$begin=1,$end=23) { print ''; for ($hour = $begin ; $hour <= $end ; $hour++) { print "$hour"; } print " H "; print ''; for ($min = 0 ; $min < 60 ; $min=$min+5) { if ($min < 10) { $min = "0" . $min; } print "$min"; } print "\n"; } /*! \brief fonction servant a afficher une durée dans une liste déroulante \param prefix */ function print_duree_select($prefix) { print ''; print "0"; print "1"; for ($hour = 2 ; $hour < 13 ; $hour++) { print "$hour"; } print " H "; print ''; for ($min = 0 ; $min < 55 ; $min=$min+5) { print "$min"; } print "\n"; } /*! \brief fonction qui retourne un montant monétaire formaté \param amount montant a formater \param html formatage html ou pas \remarks html = 0 par défaut \remarks fnction 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 */ 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 fonction qui affiche des statistiques \param basename \param bc1 \param bc2 \param ftc \param jour */ function stat_print($basename,$bc1,$bc2,$ftc, $jour) { $db = pg_Connect("","","","","$basename"); if (!$db) { echo "Pas de connexion a la base\n"; exit ; } $offset = $jour * 9; $sql="SELECT s.date, s.nb, l.libelle FROM stat_base as s, stat_cat as l WHERE s.cat = l.id ORDER by s.date DESC, s.cat ASC LIMIT 9 OFFSET $offset"; $result = $db->query($sql); if (!$result) { print "Erreur SELECT

$sql

"; return 1; } print ""; print ""; print ""; print ""; $num = $db->num_rows(); $i = 0; $tag = 1; while ( $i < $num) { $obj = $db->fetch_object( $i); $tag = !$tag; print "\n"; print "\n"; $i++; } print "

base $basename	libelle
$obj->date	$obj->libelle	$obj->nb

"; $db->free(); $db->close(); } function tab_count($basename,$bc1,$bc2,$ftc) { $db = pg_Connect("","","","","$basename"); if (!$db) { echo "Pas de connexion a la base\n"; exit ; } $sql="SELECT count(*) AS nbcv from candidat WHERE active=1"; $result = $db->query($sql); if (!$result) { print "Erreur SELECT

$sql

"; return 1; } print "

"; print ""; print ""; print ""; print ""; $nbcv = $db->result( $i, "nbcv"); print "\n"; print "\n"; print "\n"; $db->free(); $sql="SELECT count(*) AS nbcv from offre WHERE active=1"; $result = $db->query($sql); if (!$result) { print "Erreur SELECT $sql "; } $nbcv = $db->result( $i, "nbcv"); print ""; print ""; print ""; $db->free(); $sql="SELECT count(*) AS nbcv from candidat WHERE active=0"; $result = $db->query($sql); if (!$result) { print "Erreur SELECT $sql "; } $nbcv = $db->result( $i, "nbcv"); print "\n"; print ""; print ""; $db->free(); $sql="SELECT count(*) AS nbcv from offre WHERE active=0"; $result = $db->query($sql); if (!$result) { print "Erreur SELECT $sql "; } $nbcv = $db->result( $i, "nbcv"); print "\n"; print "\n"; print "\n"; $db->free(); $sql="SELECT count(*) AS nbsoc from logsoc"; $result = $db->query($sql); if (!$result) { print "Erreur SELECT $sql "; } $nbsoc = $db->result( $i, "nbsoc"); print "\n"; print ""; print ""; print " base $basename libelle $ftc Nombre de CV $ftc $nbcv $ftc Nombre d'offre $ftc $nbcv $ftc Nombre de CV inactifs $ftc $nbcv $ftc Nombre d'offres inactives $ftc $nbcv $ftc Nombre de logins societes $ftc $nbsoc

"; $db->close(); } /*! \brief fonction qui permet d'envoyer les infos dans un fichier de log \param str chaine a mettre dans le fichier \param log nom du fichier de log \remarks cette fonction ne marchera qui si la constante MAIN_DEBUG = 1 */ function logfile($str,$log="/var/log/dolibarr/dolibarr.log") { if (defined("MAIN_DEBUG") && MAIN_DEBUG ==1) { if (!file_exists($log)) { if (!$file=fopen($log,"w")) { return 0; } } else { if (!$file=fopen($log,"a+")) { return 0; } } $logentry=date("[d/M/Y:H:i:s] ").$str."\n"; if(!fwrite($file,$logentry)) { fclose($file); return 0; } fclose($file); return 1; } } /*! \brief fonction pour créer un mot de passe aléatoire \param longueur longueur du mot de passe \param sel donnée aléatoire \remarks la longueur est fixée a 8 par défaut \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(); } /* * Retourne le rowid d'un departement pas son code * */ 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(0); return $obj->rowid; } else { return 0; } $db->free(); } else { return 0; } } ?>