Server : Apache System : Linux ks5.tuic.fr 6.1.0-18-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.76-1 (2024-02-01) x86_64 User : pragmatice ( 1003) PHP Version : 8.2.24 Disable Function : NONE Directory :  /home/pragmatice/public_html/lesite/squelettes/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

<?php

// Balise : #VISITEURS_CONNECTES
// ===========================================================
// Auteur: SarkASmeL
// Fonction : affiche le nombre de visiteurs en cours de connection sur le site
// ===========================================================
//
function balise_VISITEURS_CONNECTES($p) {

	$p->code = 'calcul_visiteurs_connectes()';
	$p->statut = 'php';
	return $p;
}

function calcul_visiteurs_connectes() {
	$nb = count(preg_files(_DIR_TMP.'visites/','.'));
	return $nb;
}

// Balise : #VISITES_SITE
// ===========================================================
// Auteur: SarkASmeL
// Fonction : affiche le nombre de visites sur le site pour le jour courant, la veille ou depuis le debut
// Parametre: aujourdhui, hier, depuis_debut (ou vide)
// ===========================================================
//
function balise_VISITES_SITE($p) {

	$jour = interprete_argument_balise(1,$p);
	$jour = isset($jour) ? str_replace('\'', '"', $jour) : '"depuis_debut"';

	$p->code = 'calcul_visites_site('.$jour.')';
	$p->statut = 'php';
	return $p;
}

function calcul_visites_site($j) {

	$visites = 0;
	
	if ( $j == 'aujourdhui' ) {
		$auj = date('Y-m-d',strtotime(date('Y-m-d')));
		$select = array('visites');
		$from = array('spip_visites');
		$where = array("date=".sql_quote($auj));
		$result = sql_select($select, $from, $where);
		if ($row = sql_fetch($result)) {
			$visites = $row['visites'];
		}
	}
	else if ( $j == 'hier' ) {
		$hier = date('Y-m-d',strtotime(date('Y-m-d')) - 3600*24);
		$select = array('visites');
		$from = array('spip_visites');
		$where = array("date=".sql_quote($hier));
		$result = sql_select($select, $from, $where);
		if ($row = sql_fetch($result)) {
			$visites = $row['visites'];
		}
	}
	else {
		$select = array('SUM(visites) AS total_absolu');
		$from = array('spip_visites');
		$result = sql_select($select, $from);
		if ($row = sql_fetch($result)) {
			$visites = $row['total_absolu'];
			if ($visites == NULL) $visites=0;
		}
	}
	return $visites;
}

// Filtre target
// http://www.spip-contrib.net/Fonction-Target

function target($letexte) {

// $letexte = preg_replace('/<a ([^>]*http:\/\/[^>]*#B#[^>]*)>", "<a \\1
// target=\"_blank\">", $letexte);

// $letexte = preg_replace('/<a ([^>]*http:\/\/[^>]*#B#[^>]*)>/', "<a target=\"_blank\">", $letexte);

$letexte = preg_replace('/<a ([^>]*http:\/\/[^>]*#S#[^>]*)>/', "<a \\1
target=\"_self\">", $letexte);
$letexte = preg_replace('/<a ([^>]*http:\/\/[^>]*#P#[^>]*)>/', "<a \\1
target=\"_parent\">", $letexte);
$letexte = preg_replace('/<a ([^>]*http:\/\/[^>]*#T#[^>]*)>/', "<a \\1
target=\"_top\">", $letexte);
// ajout Eric detection site https � ouvrir dans une nouvelle fen�tre
$letexte = preg_replace('/<a ([^>]*https:\/\/[^>]*#B#[^>]*)>/', "<a \\1
target=\"_blank\">", $letexte);
// ajout Eric detection document PDF � ouvrir dans une nouvelle fen�tre
$letexte = preg_replace('/<a ([^>]*IMG\/pdf[^>]*.pdf[^>]*)>/', "<a \\1
target=\"_blank\">", $letexte);
// apres r�ecriture des urls suppression des tags.
$letexte  = preg_replace('/#B#/',"",$letexte);// _blank
$letexte  = preg_replace('/#S#/',"",$letexte);// _self
$letexte  = preg_replace('/#P#/',"",$letexte);// _parent
$letexte  = preg_replace('/#T#/',"",$letexte);// _top

return $letexte;
}

// Filtre target pour les descriptifs
// http://www.spip-contrib.net/Fonction-Target

function targetdesc($descriptif) {

$descriptif = preg_replace('/<a ([^>]*http:\/\/[^>]*#B#[^>]*)>/', "<a \\1
target=\"_blank\">", $descriptif);
$descriptif = preg_replace('/<a ([^>]*http:\/\/[^>]*#S#[^>]*)>/', "<a \\1
target=\"_self\">", $descriptif);
$descriptif = preg_replace('/<a ([^>]*http:\/\/[^>]*#P#[^>]*)>/', "<a \\1
target=\"_parent\">", $descriptif);
$descriptif = preg_replace('/<a ([^>]*http:\/\/[^>]*#T#[^>]*)>/', "<a \\1
target=\"_top\">", $descriptif);
// ajout Eric detection site https � ouvrir dans une nouvelle fen�tre
$descriptif = preg_replace('/<a ([^>]*https:\/\/[^>]*#B#[^>]*)>/', "<a \\1
target=\"_blank\">", $descriptif);
// ajout Eric detection document PDF � ouvrir dans une nouvelle fen�tre
$descriptif = preg_replace('/<a ([^>]*IMG/pdf[^>]*.pdf[^>]*)>/', "<a \\1
target=\"_blank\">", $descriptif);
// apres r�ecriture des urls suppression des tags.
$descriptif  = preg_replace('/#B#/',"",$descriptif);// _blank
$descriptif  = preg_replace('/#S#/',"",$descriptif);// _self
$descriptif  = preg_replace('/#P#/',"",$descriptif);// _parent
$descriptif  = preg_replace('/#T#/',"",$descriptif);// _top

return $descriptif;
}

// Filre tri_alpha
// Tri des valeurs de tableau par ordre alphanumerique insensible a la casse
function tri_alpha($array){
   natcasesort($array);
   return $array;
}

// Filre tri_alpha_cle
// Tri des valeurs de tableau par ordre alphanumerique insensible a la casse
function tri_alpha_cle($array){
   uksort($array,'strnatcasecmp');
   return $array;
}

// Filre pour normaliser les caract�res accentu�s
// d'apr�s la fonction de Olivier Laviale
// http://www.weirdog.com/blog/php/supprimer-les-accents-des-caracteres-accentues.html
function normaliser($chaine){
	if (!strlen($chaine)) return '';
    $chaine = htmlentities($chaine, ENT_NOQUOTES, 'utf-8');   
    $chaine = preg_replace('#&([A-za-z])(?:acute|cedil|circ|grave|orn|ring|slash|th|tilde|uml);#', '\1', $chaine);
    $chaine = preg_replace('#&([A-za-z]{2})(?:lig);#', '\1', $chaine); // pour les ligatures e.g. '&oelig;'
    $chaine = preg_replace('#&[^;]+;#', '', $chaine); // supprime les autres caract�res 
    return $chaine;
}

// Cr�ation d'un mot de passe al�atoire
function CarAleatoire($taille)
{
$cars="azertyiopqsdfghjklmwxcvbn0123456789"; //Listes des caract�res possibles
$mdp='';
$long=strlen($cars);
srand((double)microtime()*1000000); //Initialise le g�n�rateur de nombres al�atoires
for($i=0;$i<$taille;$i++)$mdp=$mdp.substr($cars,rand(0,$long-1),1);
return $mdp;
}			

?>