Rev 3002 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php// declare(encoding='UTF-8');/*** Service fournissant des urls vers des images de graphiques sur les statistiques de l'application CEL.* Encodage en entrée : utf8* Encodage en sortie : utf8** Cas d'utilisation :* /CelStatistique/TypeDeGraph : retourne le graphique demandé** @internal Mininum PHP version : 5.2* @category CEL* @package Services* @subpackage Statistiques* @version 0.1* @author Mathias CHOUET <mathias@tela-botanica.org>* @author Jean-Pascal MILCENT <jpm@tela-botanica.org>* @author Aurelien PERONNET <aurelien@tela-botanica.org>* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>* @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>* @copyright 1999-2014 Tela Botanica <accueil@tela-botanica.org>*/class CelStatistique extends Cel {/*** Méthode appelée avec une requête de type GET.*/public function getElement($param) {$graph = null;if (isset($param[0])) {$graph_demande = array_shift($param);$methode = 'get'.$graph_demande;if (method_exists($this, $methode)) {$graph = $this->$methode($param);} else {$this->messages[] = "Ce type de graphique '$graph_demande' n'est pas disponible.";}} else {$this->messages[] = "Le premier paramêtre du service CEL Statistique doit correspondre au type de graphique.";}if (!is_null($graph)) {$url = "http://chart.apis.google.com/chart";$contexte = stream_context_create(array('http' => array('method' => 'POST','content' => http_build_query($graph),'header' => 'Content-Type: application/x-www-form-urlencoded')));$image = file_get_contents($url, false, $contexte);$this->envoyer($image, 'image/png', null, false);} else {$info = 'Un problème est survenu : '.print_r($this->messages, true);$this->envoyer($info);}}private function getEvolImgLieesParMois($param) {$utilisateur = isset($_GET['utilisateur']) ? Cel::db()->quote($_GET['utilisateur']) : null;// Récupération des données$requete = "SELECT DATE_FORMAT(date_creation, '%Y%m') AS periode, COUNT(id_image) AS nbre "."FROM cel_images_export "."WHERE date_creation != '0000-00-00 00:00:00' ".' AND ce_observation IS NOT NULL AND ce_observation != 0 '.((isset($utilisateur)) ? " AND courriel_utilisateur = $utilisateur " : '').'GROUP BY periode '.'ORDER BY periode ';$resulats = Cel::db()->requeter($requete);$img_totale = array();foreach ($resulats as $info) {$img_totale[$info['periode']] = $info['nbre'];}// Trie des dates pour les étiquettes des axes$dates = array();$annees = array();$les_mois = array();$pas = 1; // intervalle de mois entre deux étiquettes$periode = 0;$cumul = 0;$img_totale_cumul = array();foreach ($img_totale as $annee_mois => $nbre) {$annee = substr($annee_mois, 0, 4);$mois = substr($annee_mois, 4, 2);$mois_fmt_B = strftime('%b', strtotime("0000-$mois-01"));$cumul += $nbre;$img_totale_cumul[$annee_mois] = $cumul;if (!isset($dates[$annee][$mois])) {$annees[] = (!isset($dates[$annee]) ? $annee : '');$les_mois[] = is_int($periode++ / $pas) ? $mois_fmt_B : '';// Ajouter au tableau dates tjrs à la fin$dates[$annee][$mois] = 1;}}// Post traitement des données$titre = "Évolution des images liées aux observations par mois";$valeurs_y = implode(',', $img_totale);$valeurs_r = implode(',', $img_totale_cumul);$valeurs_max_y = max($img_totale);$valeurs_max_r = max($img_totale_cumul);$y_val_fin = $valeurs_max_y;$y_pas = 200;$r_val_fin = $valeurs_max_r;$r_pas = 1000;$etiquettes_x1 = implode('|', $les_mois);$etiquettes_x2 = implode('|', $annees);$etiquettes_y = 'Images';// Construire de l'url de l'image$graph = array('cht' => 'lc','chtt' => $titre,'chs' => '600x200','chco' => '007F00,99CC00','chd' => 't:'.$valeurs_y.'|'.$valeurs_r,'chds' => "0,$valeurs_max_y,0,$valeurs_max_r",'chxt' => 'y,y,x,x,r','chxl' => '1:|'.$etiquettes_y.'|3:|'.$etiquettes_x2.'|2:|'.$etiquettes_x1.'','chxp' => '1,50|3,0','chxr' => "0,0,$y_val_fin,$y_pas|4,0,$r_val_fin,$r_pas",'chm' => 'N ** ,000000,0,-1,8,1.0,ht','chxs' => '0,007F00|4,99CC00');return $graph;}private function getEvolImgParMois($param) {$utilisateur = isset($_GET['utilisateur']) ? Cel::db()->quote($_GET['utilisateur']) : null;// Récupération des données$requete = "SELECT DATE_FORMAT(date_creation, '%Y%m') AS periode, COUNT(id_image) AS nbre "."FROM cel_images_export "."WHERE date_creation != '0000-00-00 00:00:00' ".((isset($utilisateur)) ? " AND courriel_utilisateur = $utilisateur " : '').'GROUP BY periode '.'ORDER BY periode ';$resulats = Cel::db()->requeter($requete);$img_totale = array();foreach ($resulats as $info) {$img_totale[$info['periode']] = $info['nbre'];}// Trie des dates pour les étiquettes des axes$dates = array();$annees = array();$les_mois = array();$pas = 1; // intervalle de mois entre deux étiquettes$periode = 0;$cumul = 0;$img_totale_cumul = array();foreach ($img_totale as $annee_mois => $nbre) {$annee = substr($annee_mois, 0, 4);$mois = substr($annee_mois, 4, 2);$mois_fmt_B = strftime('%b', strtotime("0000-$mois-01"));$cumul += $nbre;$img_totale_cumul[$annee_mois] = $cumul;if (!isset($dates[$annee][$mois])) {$annees[] = (!isset($dates[$annee]) ? $annee : '');$les_mois[] = is_int($periode++ / $pas) ? $mois_fmt_B : '';// Ajouter au tableau dates tjrs à la fin$dates[$annee][$mois] = 1;}}// Post traitement des données$titre = "Évolution du dépôt d'images par mois";$valeurs_y = implode(',', $img_totale);$valeurs_r = implode(',', $img_totale_cumul);$valeurs_max_y = max($img_totale);$valeurs_max_r = max($img_totale_cumul);$y_val_fin = $valeurs_max_y;$y_pas = 500;$r_val_fin = $valeurs_max_r;$r_pas = 1000;$etiquettes_x1 = implode('|', $les_mois);$etiquettes_x2 = implode('|', $annees);$etiquettes_y = 'Images';// Construire de l'url de l'image$graph = array('cht' => 'lc','chtt' => $titre,'chs' => '600x200','chco' => '007F00,99CC00','chd' => 't:'.$valeurs_y.'|'.$valeurs_r,'chds' => "0,$valeurs_max_y,0,$valeurs_max_r",'chxt' => 'y,y,x,x,r','chxl' => '1:|'.$etiquettes_y.'|3:|'.$etiquettes_x2.'|2:|'.$etiquettes_x1.'','chxp' => '1,50|3,0','chxr' => "0,0,$y_val_fin,$y_pas|4,0,$r_val_fin,$r_pas",'chm' => 'h,C3C3C3,0,0.5,1,-1|N ** ,000000,0,-1,8,1.0,ht','chxs' => '0,007F00|4,99CC00');return $graph;}private function getEvolUtilisateurParMois($param) {// Récupération des données$requete = 'SELECT DISTINCT courriel_utilisateur , '.' MIN(date_creation) AS date_min, MAX(date_creation) AS date_max, '.' COUNT(id_observation) AS obs_nbre '.'FROM cel_export_total '."WHERE date_creation != '0000-00-00 00:00:00' "." AND courriel_utilisateur LIKE '%@%' ".'GROUP BY courriel_utilisateur '.'ORDER BY date_min ASC ';$resultats = Cel::db()->requeter($requete);// Trie des données et des dates pour les étiquettes des axes$dates = array();$annees = array();$utilisateurs = array();$les_mois = array();$pas = 2; // intervalle de mois entre deux étiquettes$periode = 0;foreach ($resultats as $enrg) {$annee = substr($enrg['date_min'], 0, 4);$mois = substr($enrg['date_min'], 5, 2);$mois_fmt_B = strftime('%b', strtotime("0000-$mois-01"));if (!isset($dates[$annee][$mois])) {$annees[] = (!isset($dates[$annee]) ? $annee : '');$les_mois[] = is_int($periode++ / $pas) ? $mois_fmt_B : '';$utilisateurs["$annee-$mois"] = 1;// Ajouter au tableau dates tjrs à la fin$dates[$annee][$mois] = 1;} else {$utilisateurs["$annee-$mois"]++;}}// Post traitement des données$titre = 'Évolution des utilisateurs par mois';$valeurs = implode(',', $utilisateurs);$valeurs_max = max($utilisateurs);$y_val_fin = $valeurs_max;$y_pas = 5;$etiquettes_x1 = implode('|', $les_mois);$etiquettes_x2 = implode('|', $annees);$etiquettes_y = 'Utilisateurs';// Construire de l'url de l'image$graph = array('cht' => 'lc','chtt' => $titre,'chs' => '600x200','chco' => '0000FF',//4D89F9'chd' => 't:'.$valeurs,'chds' => '0,'.$valeurs_max,'chxt' => 'y,y,x,x','chxl' => '1:|'.$etiquettes_y.'|3:|'.$etiquettes_x2.'|2:|'.$etiquettes_x1.'','chxp' => '1,50|3,0','chxr' => "0,0,$y_val_fin,$y_pas",'chm' => 'h,C3C3C3,0,0.5,1,-1|N ** ,000000,0,2::2,8,1.0,ht','chxs' => '0,0000FF|1,0000FF');return $graph;}private function getEvolObsParMoisGlissant($param) {// Récupération des données$format_date = '%Y%m%d';$where = 'date_creation > DATE_SUB(NOW(), INTERVAL 31 DAY)';$obs_totale = $this->executerRequeteEvol('cel_export_total', 'id_observation', $format_date, $where);// Tri des dates pour les étiquettes des axes$dates = array();$annees = array();$annees_mois = array();$jours = array();foreach ($obs_totale as $annee_mois_jours => $nbre) {$annee = substr($annee_mois_jours, 0, 4);$mois = substr($annee_mois_jours, 4, 2);$jour = substr($annee_mois_jours, 6, 2);$annee_mois_fmt_B = strftime('%B %Y', mktime(0, 0, 0, $mois, 1, $annee));if (!isset($dates[$annee][$mois][$jour])) {$annees_mois[] = (!isset($dates[$annee][$mois]) ? $annee_mois_fmt_B : '');$jours[] = $jour;// Ajouter au tableau dates tjrs à la fin$dates[$annee][$mois][$jour] = 1;}}// Post traitement des données$titre = 'Évolution des observations sur un mois glissant';$valeurs_max = max($obs_totale);$valeurs = implode(',', $obs_totale);$y_val_fin = $valeurs_max;$y_pas = round($valeurs_max / 6);$etiquettes_x1 = implode('|', $jours);$etiquettes_x2 = implode('|', $annees_mois);$etiquettes_y2 = 'Observations';// Construire de l'url de l'image$graph = array('cht' => 'lc','chtt' => $titre,'chs' => '600x200','chco' => '822013','chd' => 't:'.$valeurs,'chds' => '0,'.$valeurs_max,'chxt' => 'y,y,x,x','chxl' => '1:|'.$etiquettes_y2.'|2:|'.$etiquettes_x1.'|3:|'.$etiquettes_x2,'chxp' => '0,0|1,50','chxr' => "0,0,$y_val_fin,$y_pas",'chm' => 'h,C3C3C3,0,0.5,1,-1|N,000000,0,1::1,8,1.0,ht','chxs' => '0,822013|1,822013');return $graph;}private function getEvolObsParMois($param) {// Récupération des données$obs_totale = $this->executerRequeteEvol('cel_export_total', 'id_observation');// Trie des dates pour les étiquettes des axes$dates = array();$annees = array();$les_mois = array();$pas = 3; // intervalle de mois entre deux étiquettes$periode = 0;$cumul = 0;$obs_totale_cumul = array();foreach ($obs_totale as $annee_mois => $nbre) {$annee = substr($annee_mois, 0, 4);$mois = substr($annee_mois, 4, 2);$mois_fmt_B = strftime('%b', strtotime("0000-$mois-01"));$cumul += $nbre;$obs_totale_cumul[$annee_mois] = $cumul;if (!isset($dates[$annee][$mois])) {$annees[] = (!isset($dates[$annee]) ? $annee : '');$les_mois[] = is_int($periode++ / $pas) ? $mois_fmt_B : '';// Ajouter au tableau dates tjrs à la fin$dates[$annee][$mois] = 1;}}// Post traitement des données$titre = 'Évolution des observations par mois';$valeurs_y = implode(',', $obs_totale);$valeurs_r = implode(',', $obs_totale_cumul);$valeurs_max_y = max($obs_totale);$valeurs_max_r = max($obs_totale_cumul);$y_val_fin = $valeurs_max_y;$y_pas = round(($valeurs_max_y / 6), 0);$r_val_fin = $valeurs_max_r;$r_pas = round(($valeurs_max_r / 6), 0);$etiquettes_x1 = implode('|', $les_mois);$etiquettes_x2 = implode('|', $annees);$etiquettes_y2 = 'Observations';$etiquettes_r2 = 'Cumul obs.';// Construire de l'url de l'image$graph = array('cht' => 'lc','chtt' => $titre,'chs' => '600x200','chco' => '822013,F1841D','chd' => 't:'.$valeurs_y.'|'.$valeurs_r,'chds' => "0,$valeurs_max_y,0,$valeurs_max_r",'chxt' => 'y,y,x,x,r,r','chxl' => '1:|'.$etiquettes_y2.'|2:|'.$etiquettes_x1.'|3:|'.$etiquettes_x2.'|5:|'.$etiquettes_r2.'','chxp' => '1,50|3,0|5,50','chxr' => "0,0,$y_val_fin,$y_pas|4,0,$r_val_fin,$r_pas",'chm' => 'N ** ,000000,0,2::2,8,1.0,ht','chxs' => '0,822013|1,822013|4,F1841D|5,F1841D');return $graph;}private function getEvolObsParAn($param) {// Récupération des données$obs_totale = $this->executerRequeteEvol('cel_export_total', 'id_observation', '%Y');// Trie des dates pour les étiquettes des axes$dates = array();$annees = array();foreach ($obs_totale as $annee => $nbre) {if (!isset($dates[$annee])) {$annees[] = $annee;$dates[$annee] = 1;}}// Post traitement des données$titre = 'Évolution des observations par année';$valeurs = implode(',', $obs_totale);$valeurs_max = max($obs_totale);$valeurs_min = min($obs_totale);$y_val_deb = preg_replace('/[0-9]{2}$/', '00', $valeurs_min);$y_val_fin = $valeurs_max;$y_pas = round(($valeurs_max / 6), 0);$etiquettes_x = implode('|', $annees);;$etiquettes_y = 'Observations';// Construire de l'url de l'image$graph = array('cht' => 'lc','chtt' => $titre,'chs' => '600x200','chco' => '822013','chd' => 't:'.$valeurs,'chds' => "$valeurs_min,$valeurs_max",'chxt' => 'y,y,x','chxl' => '1:|'.$etiquettes_y.'|2:|'.$etiquettes_x.'','chxp' => '0,0|1,50|2,0','chxr' => "0,$y_val_deb,$y_val_fin,$y_pas",'chm' => 'h,C3C3C3,0,0.5,1,-1|N,000000,0,1::1,8,1.0,ht','chxs' => '0,822013|1,822013');return $graph;}private function getEvolObsHisto($param) {// Récupération des données$obs_totale = $this->executerRequeteEvol('cel_export_total', 'id_observation');$obs_identifiee = $this->executerRequeteEvol('cel_export_total', 'id_observation', "courriel_utilisateur LIKE '%@%' ");$lignes = array('total', 'obs. identifiée');// Post traitement des données$titre = 'Évolution des observations';$valeurs = implode(',', $obs_totale).'|'.implode(',', $obs_identifiee);$valeurs_max = max($obs_totale);$etiquettes = implode('|', array_keys($lignes));// Construire de l'url de l'image$graph = array('cht' => 'lc','chtt' => $titre,'chs' => '500x300','chco' => 'FF0000,00FF00','chd' => 't:'.$valeurs,'chds' => "0,$valeurs_max",'chxt' => 'y','chxl' => '0:|'.$etiquettes.'','chm' => 'N,000000,0,-1,10');return $graph;}private function getNbreObsIdVsTest($param) {// Récupération des données$obs_totale = $this->executerRequeteNombre('cel_export_total', 'id_observation');$obs_identifiee = $this->executerRequeteNombre('cel_export_total', 'id_observation', "courriel_utilisateur LIKE '%@%' ");$obs_test = $obs_totale - $obs_identifiee;$pourcent_identifiee = round(($obs_identifiee / ($obs_totale / 100)), 2).'%';$pourcent_anonyme = round(($obs_test / ($obs_totale / 100)), 2).'%';// Post traitement des données de la base de données$titre = "Nombre d'observations|tests vs. identifiées";$etiquette_obs_test = "tests ($obs_test - $pourcent_anonyme)";$etiquette_obs_id = "identifiées ($obs_identifiee - $pourcent_identifiee)";$donnees = array($etiquette_obs_test => $obs_test, $etiquette_obs_id => $obs_identifiee);$valeurs = implode(',', $donnees);$etiquettes = implode('|', array_keys($donnees));// Construire les paramêtres de l'url de l'image$graph = array('cht' => 'p3','chtt' => $titre,'chs' => '250x200','chco' => 'FF0000,00FF00','chd' => 't:'.$valeurs,'chds' => "0,$obs_totale",'chdl' => $etiquettes,'chdlp' => 'bv|r','chts' => '000000,12');return $graph;}private function getNbreObsPublicVsPrivee($param) {// Récupération des données$obs_totale = $this->executerRequeteNombre('cel_export_total', 'id_observation');$obs_public = $this->executerRequeteNombre('cel_export_total', 'id_observation', 'transmission = 1');$obs_privee = $obs_totale - $obs_public;$pourcent_privee = round(($obs_privee / ($obs_totale / 100)), 2).'%';$pourcent_public = round(($obs_public / ($obs_totale / 100)), 2).'%';// Post traitement des données de la base de données$titre = "Nombre d'observations|publiques vs. privées";$etiquette_obs_public = "publiques ($obs_public - $pourcent_public)";$etiquette_obs_privee = "privées ($obs_privee - $pourcent_privee)";$donnees = array($etiquette_obs_privee => $obs_privee, $etiquette_obs_public => $obs_public);$valeurs = implode(',', $donnees);$etiquettes = implode('|', array_keys($donnees));// Construire les paramêtres du graph$graph = array('cht' => 'p3','chtt' => $titre,'chs' => '250x200','chco' => 'FF0000,00FF00','chd' => 't:'.$valeurs,'chds' => "0,$obs_totale",'chdl' => $etiquettes,'chdlp' => 'bv|r','chts' => '000000,12');return $graph;}private function getNbreObsDetermineeVsInconnue($param) {// Récupération des données$obs_totale = $this->executerRequeteNombre('cel_export_total', 'id_observation');$obs_determinee = $this->executerRequeteNombre('cel_export_total', 'id_observation', 'nom_sel_nn != 0');$obs_inconnue = $obs_totale - $obs_determinee;$pourcent_determinee = round(($obs_determinee / ($obs_totale / 100)), 2).'%';$pourcent_inconnue = round(($obs_inconnue / ($obs_totale / 100)), 2).'%';// Post traitement des données de la base de données$titre = "Nombre d'observations|determinées vs. inconnues";$etiquette_obs_determinee = "determinées ($obs_determinee - $pourcent_determinee)";$etiquette_obs_inconnue = "non déterminées ($obs_inconnue - $pourcent_inconnue)";$donnees = array($etiquette_obs_inconnue => $obs_inconnue, $etiquette_obs_determinee => $obs_determinee);$valeurs = implode(',', $donnees);$etiquettes = implode('|', array_keys($donnees));// Construire les paramêtres du graph$graph = array('cht' => 'p3','chtt' => $titre,'chs' => '250x200','chco' => 'FF0000,00FF00','chd' => 't:'.$valeurs,'chds' => "0,$obs_totale",'chdl' => $etiquettes,'chdlp' => 'bv|r','chts' => '000000,12');return $graph;}private function getNbreObsAvecIndicationGeo($param) {// Récupération des données$total = $this->executerRequeteNombre('cel_export_total', 'id_observation');$where_commune = $this->creerWhereIndicationGeo('zone_geo');$obs['commune'] = $this->executerRequeteNombre('cel_export_total', 'id_observation', $where_commune);$where_commune_id = $this->creerWhereIndicationGeo('ce_zone_geo');$obs['commune identifiée'] = $this->executerRequeteNombre('cel_export_total', 'id_observation', $where_commune_id);$where_lieudit = $this->creerWhereIndicationGeo('lieudit');$obs['lieu-dit'] = $this->executerRequeteNombre('cel_export_total', 'id_observation', $where_lieudit);$where_station = $this->creerWhereIndicationGeo('station');$obs['station'] = $this->executerRequeteNombre('cel_export_total', 'id_observation', $where_station);$where_milieu = $this->creerWhereIndicationGeo('milieu');$obs['milieu'] = $this->executerRequeteNombre('cel_export_total', 'id_observation', $where_milieu);$where_xy = $this->creerWhereIndicationGeo('latitude').' AND '.$this->creerWhereIndicationGeo('longitude');$obs['coordonnée'] = $this->executerRequeteNombre('cel_export_total', 'id_observation', $where_xy);$donnees = array();$num = 1;foreach ($obs as $etiquette => $nbre) {$pourcent = round(($obs[$etiquette] / ($total / 100)), 1).'%';$legende = "$num : $etiquette ($nbre - $pourcent)";$donnees['valeurs'][] = $nbre;$donnees['etiquettes'][] = $num++;$donnees['legendes'][] = $legende;}// Post traitement des données de la base de données$titre = "Nombre d'observations|avec indications géographiques";$valeurs = implode(',', $donnees['valeurs']);$etiquettes = implode('|', $donnees['etiquettes']);$legendes = implode('|', $donnees['legendes']);// Construire les paramètres du graphe$graph = array('cht' => 'rs','chtt' => $titre,'chs' => '600x300','chco' => 'FFFFFF','chd' => 't:'.$valeurs,'chds' => "0,$total",'chdl' => $legendes,'chxt' => 'x','chxl' => "0:|$etiquettes",//'chxp' => '1,0,20,40,60,80,100',// Grille sous forme de cible'chm' => 'B,FF000080,0,1.0,5.0');return $graph;}private function creerWhereIndicationGeo($champ) {$where = null;if (isset($champ)) {$where = "$champ != '000null' "."AND $champ != '' "."AND $champ IS NOT NULL ";}return $where;}private function getUtilisationJournaliere($param) {// Sur quel jour, voulons nous estimer l'utilisation$aujourdhui = date('Y-m-d');if (isset($param[0]) && preg_match('/^[0-9]{4}(?:-[0-9]{2}){2}$/', $param[0])) {$aujourdhui = $param[0];}$aujourdhui_fmt = strftime('%d %b %Y', strtotime($aujourdhui));// Récupération des données$max_obs = array();$max_obs[] = $this->executerRequeteEvol('cel_export_total', 'id_observation', '%Y%m%d',"date_creation NOT LIKE '$aujourdhui%' ", 'date_creation');$max_obs[] = $this->executerRequeteEvol('cel_export_total', 'id_observation', '%Y%m%d',"date_modification NOT LIKE '$aujourdhui%' ", 'date_modification');$max_obs[] = $this->executerRequeteEvol('cel_export_total', 'id_observation', '%Y%m%d',"date_transmission NOT LIKE '$aujourdhui%' ", 'date_transmission');$obs_aujourdhui = $this->executerRequeteNombre('cel_export_total', 'id_observation',"(date_creation LIKE '$aujourdhui%'OR date_modification LIKE '$aujourdhui%'OR date_transmission LIKE '$aujourdhui%') ");// Cummul des obs crées, modifiées, transmises par jour$donnees = array();foreach ($max_obs as $obs_par_jour) {foreach ($obs_par_jour as $annee_mois_jour => $nbre) {if (!isset($donnees[$annee_mois_jour])) {$donnees[$annee_mois_jour] = $nbre;} else {$donnees[$annee_mois_jour] += $nbre;}}}// Post traitement des données$valeur = $obs_aujourdhui;$valeur_max = 400;if ($valeur > $valeur_max) {$pourcentage = 100;} else {$pourcentage = round(($valeur / ($valeur_max / 100)), 0);}$etiquettes_x = $aujourdhui_fmt;$etiquettes_y = "faible|moyenne|forte";$titre = "Intensité d'utilisation pour le $aujourdhui_fmt";$legende = "$valeur changements";// Construire de l'url de l'image$graph = array('cht' => 'gom','chtt' => $titre,'chdl' => "$legende",'chdlp' => 'b','chs' => '350x200','chco' => 'FFFF00,0A7318','chls' => '3|10','chma' => '0,0,0,0|300,40','chd' => 't:'.$pourcentage,'chxt' => 'x,y','chxl' => '0:|'.$etiquettes_x.'|1:|'.$etiquettes_y.'','chxp' => '0,50');return $graph;}private function getNbreObsParUtilisateur($param) {// Récupération des données$requete = 'SELECT courriel_utilisateur, COUNT(id_observation) AS nbre '.'FROM cel_export_total '.'GROUP BY courriel_utilisateur ';$utilisateurs = Cel::db()->requeter($requete);// Création des classes d'utilisateurs$classes = array('00->10' => 0, '11->50' => 0, '51->100' => 0, '101->500' => 0, '500->∞' => 0);$donnees['Utilisateurs'] = $classes;$valeur_max = 0;foreach ($utilisateurs as $utilisateur) {$id = $utilisateur['courriel_utilisateur'];$nbre = $utilisateur['nbre'];// Détermination de la classe$classe = '';if (0 < $nbre && $nbre <= 10) {$classe = '00->10';} else if (10 < $nbre && $nbre <= 50) {$classe = '11->50';} else if (50 < $nbre && $nbre <= 100) {$classe = '51->100';} else if (100 < $nbre && $nbre <= 500) {$classe = '101->500';} else if (500 < $nbre) {$classe = '500->∞';}// Détermination du type d'utilisateurif (strstr($id, '@')) {$type = 'Utilisateurs';// Incrémentation du tableau de données et récupration de la valeur max$donnees[$type][$classe]++;if ($donnees[$type][$classe] > $valeur_max) {$valeur_max = $donnees[$type][$classe];}}}// Post traitement des données$titre = "Nombre d'observations par utilisateur";$y1_val_fin = $valeur_max;$y1_pas = '100';$valeurs = implode(',', $donnees['Utilisateurs']);$etiquettes_x1 = implode('|', array_keys($classes));$etiquettes_x2 = 'Observations';$etiquettes_y2 = 'Utilisateurs';$legendes = implode('|', array_keys($donnees));// Construire de l'url de l'image$graph = array('cht' => 'bvg','chtt' => $titre,'chs' => '400x200','chco' => '00FF00,FF0000','chbh' => 'r,0.3,1','chd' => 't:'.$valeurs,'chds' => "0,$valeur_max",'chxt' => 'x,x,y,y','chxl' => '0:|'.$etiquettes_x1.'|1:|'.$etiquettes_x2.'|3:|'.$etiquettes_y2.'','chxp' => '1,100|3,100','chxr' => "2,0,$y1_val_fin,$y1_pas",'chm' => 'h,C3C3C3,0,0.5,1,-1|N,000000,0,0::1,8,1.0,e');//echo '<pre>'.print_r($graph,true).'</pre>';return $graph;}private function getNbreObsParUtilisateurEtTest($param) {// Récupération des données$requete = 'SELECT courriel_utilisateur, COUNT(id_observation) AS nbre '.'FROM cel_export_total '.'GROUP BY courriel_utilisateur ';$utilisateurs = Cel::db()->requeter($requete);// Création des classes d'utilisateurs$classes = array('00->10' => 0, '11->50' => 0, '51->100' => 0, '101->500' => 0, '500->∞' => 0);$donnees['Utilisateurs'] = $classes;$donnees['Tests'] = $classes;$valeur_max = 0;foreach ($utilisateurs as $utilisateur) {$id = $utilisateur['courriel_utilisateur'];$nbre = $utilisateur['nbre'];// Détermination de la classe$classe = '';if (0 < $nbre && $nbre <= 10) {$classe = '00->10';} else if (10 < $nbre && $nbre <= 50) {$classe = '11->50';} else if (50 < $nbre && $nbre <= 100) {$classe = '51->100';} else if (100 < $nbre && $nbre <= 500) {$classe = '101->500';} else if (500 < $nbre) {$classe = '500->∞';}// Détermination du type d'utilisateurif (strstr($id, '@')) {$type = 'Utilisateurs';} else {$type = 'Tests';}// Incrémentation du tableau de données et récupration de la valeur max$donnees[$type][$classe]++;if ($donnees[$type][$classe] > $valeur_max) {$valeur_max = $donnees[$type][$classe];}}// Post traitement des données$titre = "Nombre d'observations par utilisateur et test";$y1_val_fin = $valeur_max;$y1_pas = '100';$valeurs = implode(',', $donnees['Utilisateurs']).'|'.implode(',', $donnees['Tests']);$etiquettes_x1 = implode('|', array_keys($classes));$etiquettes_x2 = 'Observations';$etiquettes_y2 = 'Utilisateurs';$legendes = implode('|', array_keys($donnees));// Construire de l'url de l'image$graph = array('cht' => 'bvg','chtt' => $titre,'chs' => '400x200','chco' => '00FF00,FF0000','chbh' => 'r,0.3,1','chd' => 't:'.$valeurs,'chds' => "0,$valeur_max",'chxt' => 'x,x,y,y','chxl' => '0:|'.$etiquettes_x1.'|1:|'.$etiquettes_x2.'|3:|'.$etiquettes_y2.'','chxp' => '1,100|3,100','chxr' => "2,0,$y1_val_fin,$y1_pas",'chm' => 'h,C3C3C3,0,0.5,1,-1|N,000000,0,0::1,8,1.0,e|N,000000,1,0::1,8,1.0,e','chdl' => $legendes,'chdlp' => 'b');//echo '<pre>'.print_r($graph,true).'</pre>';return $graph;}private function getNuagePointsObsParHeureEtJourSemaine($param) {$utilisateur = isset($_GET['utilisateur']) ? Cel::db()->quote($_GET['utilisateur']) : false;// Récupération des données de la base$requete = 'SELECT courriel_utilisateur, DATE_FORMAT(date_creation, "%w-%H") AS periode, (ROUND(LOG10(COUNT(id_observation))) + 1) AS nbre '.'FROM cel_export_total '.'WHERE date_creation != "0000-00-00 00:00:00" '.' AND courriel_utilisateur '.($utilisateur ? "= $utilisateur " : 'LIKE "%@%" ').'GROUP BY periode, courriel_utilisateur ';$infos = Cel::db()->requeter($requete);// Traitement résulat requête$observations = array();foreach ($infos as $info) {if (isset($observations[$info['periode']])) {$observations[$info['periode']] += $info['nbre'];} else {$observations[$info['periode']] = $info['nbre'];}}// Postraitement des données// Jour de la semaine$donnees['joursSemaine'] = array();for ($njs = 0; $njs < 7; $njs++) {$donnees['joursSemaine'][] = strftime('%A', strtotime('2010-05-'.(16+$njs)));}// Heure$donnees['heures'] = array();for ($h = 0; $h < 24; $h++) {$heure_fmt = sprintf('%02s', $h);// Format numérique 00$donnees['heures'][] = strftime('%H', strtotime("0000-00-00 $heure_fmt:00:00"));}// Nbre$valeur_max = max($observations);for ($njs = 0; $njs < 7; $njs++) {for ($h = 0; $h < 24; $h++) {$hfmt = sprintf('%02s', $h);// Format numérique 00$periode = $njs.'-'.$hfmt;$donnees['valeurs_x'][] = round(($h + 1) * (100 / 24), 0);$donnees['valeurs_y'][] = round(($njs + 1) * (100 / 7), 0);$ps = 0;if (isset($observations[$periode])) {$ps = round($observations[$periode] * (100 / $valeur_max), 0);}$donnees['valeurs_ps'][] = $ps;}}//echo '<pre>'.print_r($donnees,true).'</pre>';// Préparation des paramêtres du graph$titre = "Nombre de création d'observation|par heure et jour de la semaine";$valeurs = implode(',', $donnees['valeurs_x'])."|".implode(',', $donnees['valeurs_y'])."|".implode(',', $donnees['valeurs_ps']);$etiquettes_x1 = '|'.implode('|', $donnees['heures']);$etiquettes_x2 = 'Heures';$etiquettes_y1 = '|'.implode('|', $donnees['joursSemaine']);$x_axis_step_size = str_replace(',', '.', (100 / 24));$y_axis_step_size = str_replace(',', '.', (100 / 7));// Construction du tableau des paramêtres du graph$graph = array('cht' => 's','chtt' => $titre,'chs' => '400x200','chco' => '00FF00','chd' => 't:'.$valeurs,'chxt' => 'x,x,y','chxr' => "0,-1,23,1|2,-1,6,1",'chxp' => '1,100','chxl' => '0:|'.$etiquettes_x1.'|1:|'.$etiquettes_x2.'|2:|'.$etiquettes_y1.'','chg' => "$x_axis_step_size,$y_axis_step_size,1,5");//echo '<pre>'.print_r($graph,true).'</pre>';return $graph;}private function getNuagePointsObsAnciennete($param) {// Récupération des données de la base$requete = 'SELECT DISTINCT courriel_utilisateur , '.' MIN(date_creation) AS date_min, MAX(date_creation) AS date_max, '.' COUNT(id_observation) AS obs_nbre '.'FROM cel_export_total '."WHERE date_creation != '0000-00-00 00:00:00' "." AND courriel_utilisateur LIKE '%@%' ".'GROUP BY courriel_utilisateur '.'ORDER BY date_min ASC ';$resultats = Cel::db()->requeter($requete);// Trie des données$max_obs = 0;$max_obs_log = 0;$max_anciennete = 0;$donnees = array();foreach ($resultats as $enrg) {$tps_deb = strtotime($enrg['date_min']);$tps_fin = strtotime($enrg['date_max']);$donnee = array();if (($tps_fin - $tps_deb) == 0) {$donnee['anciennete'] = 1;} else {$donnee['anciennete'] = round((($tps_fin - $tps_deb) / 86400), 0);}$donnee['obs'] = $enrg['obs_nbre'];$donnee['obs_log'] = log10($enrg['obs_nbre']);$donnees[] = $donnee;$max_obs_log = ($donnee['obs_log'] > $max_obs_log) ? $donnee['obs_log'] : $max_obs_log;$max_obs = ($donnee['obs'] > $max_obs) ? $donnee['obs'] : $max_obs;$max_anciennete = ($donnee['anciennete'] > $max_anciennete) ? $donnee['anciennete'] : $max_anciennete;}// Postraitement des donnéesforeach ($donnees as $donnee) {$donnees['valeurs_x'][] = round($donnee['anciennete'] * (100 / $max_anciennete), 0);$donnees['valeurs_y'][] = round($donnee['obs_log'] * (100 / $max_obs_log), 0);$donnees['valeurs_ps'][] = 20;}// Échelle log des obs$donnees['echelle_y1'] = array();$pas = $max_obs_log / 100 ;for ($i = 0 ; $i < 5 ; $i++) {$donnees['echelle_y1'][] = round(pow(10, (($i*20) * $pas)), 0);}$donnees['echelle_y1'][] = $max_obs;//echo '<pre>'.print_r($donnees['valeurs_x'],true).'</pre>';// Préparation des paramêtres du graph$titre = "Répartition des utilisateurs en fonction|du nombre d'observations et de l'ancienneté";$valeurs = implode(',', $donnees['valeurs_x'])."|".implode(',', $donnees['valeurs_y'])."|".implode(',', $donnees['valeurs_ps']);$etiquettes_x2 = 'Ancienneté en jours';$etiquettes_y1 = implode('|', $donnees['echelle_y1']);$etiquettes_y2 = 'Observations';$x_axis_step_size = $max_anciennete;// Construction du tableau des paramêtres du graph$graph = array('cht' => 's','chtt' => $titre,'chs' => '400x200','chco' => '0000FF','chxt' => 'x,x,y,y','chd' => 't:'.$valeurs,'chxr' => "0,0,$x_axis_step_size|2,0,$max_obs",//|2,0,$y_axis_step_size,$pas'chxp' => '1,100|3,100','chm' => 'h,C3C3C3,0,-0.2,0.2,-1','chxl' => '1:|'.$etiquettes_x2.'|2:|'.$etiquettes_y1.'|3:|'.$etiquettes_y2.'');////echo '<pre>'.print_r($graph,true).'</pre>';return $graph;}private function executerRequeteEvol($table, $champ, $format_date = '%Y%m', $where = null, $champ_date = 'date_creation', $order_by = null, $limit = null) {$utilisateur = isset($_GET['utilisateur']) ? Cel::db()->quote($_GET['utilisateur']) : false;$requete = "SELECT DATE_FORMAT($champ_date, '$format_date') AS periode, COUNT($champ) AS nbre "."FROM $table "."WHERE $champ_date != '0000-00-00 00:00:00' ".(($utilisateur != false) ? " AND courriel_utilisateur = $utilisateur " : '').((is_null($where)) ? '' : " AND $where ").'GROUP BY periode '.((is_null($order_by)) ? '' : "ORDER BY $order_by ");((is_null($limit)) ? '' : "LIMIT $limit ");$evolution = Cel::db()->requeter($requete);// Traitement du tableau$donnees_traitees = array();foreach ($evolution as $info) {$donnees_traitees[$info['periode']] = $info['nbre'];}return $donnees_traitees;}private function executerRequeteNombre($table, $champ, $where = null) {$utilisateur = null;if (isset($_GET['utilisateur'])) {$utilisateur = Cel::db()->quote($_GET['utilisateur']);$where = isset($where) ? $where.' AND ' : '';$where .= "courriel_utilisateur = $utilisateur ";}$requete = "SELECT COUNT($champ) AS nbre "."FROM $table ".((isset($where)) ? "WHERE $where " : '');$nbre = Cel::db()->requeterValeurUnique($requete);return $nbre;}}?>