Subversion Repositories Sites.tela-botanica.org

Rev

Rev 440 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 440 Rev 441
Line 17... Line 17...
17
// |                                                                                                      |
17
// |                                                                                                      |
18
// | You should have received a copy of the GNU General Public                                            |
18
// | You should have received a copy of the GNU General Public                                            |
19
// | License along with this library; if not, write to the Free Software                                  |
19
// | License along with this library; if not, write to the Free Software                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
21
// +------------------------------------------------------------------------------------------------------+
22
// CVS : $Id:$
22
// CVS : $Id: projet_statistiques.php,v 1.2 2008-03-28 08:19:07 j_grillot Exp $
23
/**
23
/**
24
* Application projet
24
* Application projet
25
*
25
*
26
* Script pour calculer les statistiques
26
* Script pour calculer les statistiques
27
*
27
*
Line 29... Line 29...
29
//Auteur original :
29
//Auteur original :
30
*@author        Alexandre Granier <alexandre@tela-botanica.org>
30
*@author        Alexandre Granier <alexandre@tela-botanica.org>
31
//Autres auteurs :
31
//Autres auteurs :
32
*@author        Julien Grillot <julien.grillot@gmail.com>
32
*@author        Julien Grillot <julien.grillot@gmail.com>
33
*@copyright     Tela-Botanica 2000-2005
33
*@copyright     Tela-Botanica 2000-2005
34
*@version       $Revision:$
34
*@version       $Revision: 1.2 $
35
// +------------------------------------------------------------------------------------------------------+
35
// +------------------------------------------------------------------------------------------------------+
36
*/
36
*/
Line 37... Line 37...
37
 
37
 
38
// +------------------------------------------------------------------------------------------------------+
38
// +------------------------------------------------------------------------------------------------------+
Line 47... Line 47...
47
define("NB_SEC_INSERT", 7*24*3600);
47
define("NB_SEC_INSERT", 7*24*3600);
48
define("NB_SEC_UPDATE", 2*3600);
48
define("NB_SEC_UPDATE", 2*3600);
49
define("URL_WIKINI", "http://www.tela-botanica.org/wikini/");
49
define("URL_WIKINI", "http://www.tela-botanica.org/wikini/");
Line 50... Line 50...
50
 
50
 
51
/**
-
 
52
 * Retourne le contenu de la page $adresse de facon asynchrone
-
 
53
 * @param string $adresse URL de la page dont le contenu doit etre recupere
-
 
54
 * @param int timeout temps d'attente maximum avant abandon de la recuperation 
-
 
55
 */
-
 
56
function monFileGetContents($adresse, $timeout = 30){
-
 
57
	$url = parse_url($adresse);
-
 
58
	$url['port'] = isset($url['port']) ? $url['port'] : '80';
-
 
59
	$url['scheme'] = isset($url['scheme']) ? strtoupper($url['scheme']) : 'HTTP';
-
 
60
	$fp = fsockopen($url['host'], $url['port'], $errno, $errstr, $timeout);
-
 
61
	if (!$fp) {
-
 
62
		echo "Erreur de socket: $errno - $errstr<br />\n";
-
 
63
		return false;
-
 
64
	} else {
-
 
65
		$header  = 'GET '.$url['path'].' '.$url['scheme']."/1.1\r\n";
-
 
66
	
-
 
67
		$header .= "Host: www.yahoo.com\r\n";
-
 
68
		$header .= "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.2.1) Gecko/20021204\r\n";
-
 
69
		$header .= "Referer: http://www.yahoo.com/\r\n";
-
 
70
 
-
 
71
		$header .= 'Connection: Close\r\n\r\n';
-
 
72
 
-
 
73
		fputs($fp, $header);
-
 
74
		stream_set_timeout($fp, $timeout);
-
 
75
		while (!feof($fp)) {
-
 
76
			$page .= fread($fp, 262144);
-
 
77
		}
-
 
78
		$stream  = stream_get_meta_data($fp);
-
 
79
		fclose($fp);    
-
 
80
		if ($stream['timed_out']) {
-
 
81
			echo 'Le délai de réponse de la page <b>'.$adresse.'</b> a dépassé le timeout de <b>'.$timeout.'</b> sec.';
-
 
82
			return false;
-
 
83
		}else{
-
 
84
			return $page;
-
 
85
		}
-
 
86
	}
-
 
87
}
-
 
88
 
-
 
89
/**
51
/**
90
 * Procedure retrouvant le nombre de contribution, de message et le contenu de la page a partir des informations de la BDD
52
 * Procedure retrouvant le nombre de contribution, de message et le contenu de la page a partir des informations de la BDD
91
 * @param object $ligne resultat d'un fetch row contenant l'url du document a analyser
53
 * @param object $ligne resultat d'un fetch row contenant l'url du document a analyser
92
 * @param int $nombre_contrib recupere le nombre de contributions du projet 
54
 * @param int $nombre_contrib recupere le nombre de contributions du projet 
93
 * @param int $nombre_message recupere le nombre de nouveaux messages du projet
55
 * @param int $nombre_message recupere le nombre de nouveaux messages du projet
Line 112... Line 74...
112
	if($ligne->AGO_A_NOMGRP) {
74
	if($ligne->AGO_A_NOMGRP) {
113
		$url='http://fr.groups.yahoo.com/group/'.$ligne->AGO_A_NOMGRP;
75
		$url='http://fr.groups.yahoo.com/group/'.$ligne->AGO_A_NOMGRP;
Line 114... Line 76...
114
		
76
		
115
		// Recherche du schema retrouvant le nombre de nouveaux message dans la semaine
77
		// Recherche du schema retrouvant le nombre de nouveaux message dans la semaine
-
 
78
		$pattern='>([0-9]+)</span> nouveau';
-
 
79
		
116
		$pattern='>([0-9]+)</span> nouveau';
80
		// Quelques soucis avec la version asynchrone (sockopen)
Line 117... Line 81...
117
		$contenu=monFileGetContents($url);
81
		$contenu=file_get_contents($url);
118
		
82
		
119
		$r=($contenu?true:false);
83
		$r=($contenu?true:false);
Line 163... Line 127...
163
		'left join projet_documents on (p_id=pd_ce_projet and  pd_date_de_mise_a_jour > date_sub(now(), interval 1 week)) ' .
127
		'left join projet_documents on (p_id=pd_ce_projet and  pd_date_de_mise_a_jour > date_sub(now(), interval 1 week)) ' .
164
		'left join projet_statut_utilisateurs on p_id=psu_id_projet ' .
128
		'left join projet_statut_utilisateurs on p_id=psu_id_projet ' .
165
		'left join projet_lien_liste_externe on plle_id_projet=p_id ' .
129
		'left join projet_lien_liste_externe on plle_id_projet=p_id ' .
166
		'left join agora on plle_id_liste=AGO_A_ID ' .
130
		'left join agora on plle_id_liste=AGO_A_ID ' .
167
		'group by p_id order by p_titre' ;
131
		'group by p_id order by p_titre' ;
-
 
132
 
168
$resultat = $this->_db->query($requete) ;
133
$resultat = $this->_db->query($requete) ;
169
if (DB::isError($resultat)) {
134
if (DB::isError($resultat)) {
170
	return ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
135
	return ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
171
}
136
}
172
$res .= '<h1>Statistiques des projets</h1>';
137
$res .= '<h1>Statistiques des projets</h1>';
Line 202... Line 167...
202
	// Si elle remonte a plus de deux heure, on sauvegarde, et a plus de 7 jours, on archive et créé une nouvelle entrée
167
	// Si elle remonte a plus de deux heure, on sauvegarde, et a plus de 7 jours, on archive et créé une nouvelle entrée
203
	if($ligne_verif->ps_date > date("Y-m-d H:i:s", time()-NB_SEC_INSERT)) {
168
	if($ligne_verif->ps_date > date("Y-m-d H:i:s", time()-NB_SEC_INSERT)) {
204
		if($ligne_verif->ps_maj < date("Y-m-d H:i:s", time()-NB_SEC_UPDATE)) {
169
		if($ligne_verif->ps_maj < date("Y-m-d H:i:s", time()-NB_SEC_UPDATE)) {
Line 205... Line 170...
205
		
170
		
206
			// Recupere nombre_contrib et nombre_message
171
			// Recupere nombre_contrib et nombre_message
Line 207... Line 172...
207
			$calculs=analyser($ligne_verif, $nombre_contrib, $nombre_message);
172
			$calculs=analyser($ligne, $nombre_contrib, $nombre_message);
208
			
173
			
209
			$requete_maj = 'UPDATE projet_statistiques SET ps_msg_derniere_semaine="'.$nombre_message.'", ps_doc_derniere_semaine="'.$ligne->nb_doc.'", ps_nombre_inscrit="'.$ligne->nb_utilisateur.'", ps_nombre_inscrit_liste="'.$ligne->nb_utilisateur_liste.'", ps_modifwiki_derniere_semaine="'.$nombre_contrib.'", ps_maj=NOW() WHERE ps_ce_projet="'.$ligne->p_id.'" AND ps_date="'.$ligne->ps_date.'"';
174
			$requete_maj = 'UPDATE projet_statistiques SET ps_msg_derniere_semaine="'.$nombre_message.'", ps_doc_derniere_semaine="'.$ligne->nb_doc.'", ps_nombre_inscrit="'.$ligne->nb_utilisateur.'", ps_nombre_inscrit_liste="'.$ligne->nb_utilisateur_liste.'", ps_modifwiki_derniere_semaine="'.$nombre_contrib.'", ps_maj=NOW() WHERE ps_ce_projet="'.$ligne->p_id.'" AND ps_date="'.$ligne->ps_date.'"';
210
			$resultat_maj = $this->_db->query($requete_maj);
175
			$resultat_maj = $this->_db->query($requete_maj);
Line 264... Line 229...
264
$res .= 'Execut&eacute; en '.(round((microtime(true)-$start)*1000)/1000).' secondes.</p>';
229
$res .= 'Execut&eacute; en '.(round((microtime(true)-$start)*1000)/1000).' secondes.</p>';
Line 265... Line 230...
265
 
230
 
Line 266... Line 231...
266
return $res;
231
return $res;
-
 
232
 
-
 
233
/* +--Fin du code ---------------------------------------------------------------------------------------+
-
 
234
* $Log: projet_statistiques.php,v $
-
 
235
* Revision 1.2  2008-03-28 08:19:07  j_grillot
-
 
236
* retrait de la fonction monFileGetContents inutilisée & commentaires
-
 
237
*
267
 
238
* Revision 1.1  2008-03-27 09:15:36  j_grillot
268
/* +--Fin du code ---------------------------------------------------------------------------------------+
239
* Correction du bug sur le parsing xml
269
* $Log:$
240
*
270
* +--Fin du code ----------------------------------------------------------------------------------------+
241
* +--Fin du code ----------------------------------------------------------------------------------------+
271
*/
242
*/