<?
// -------------------------------------------------------------
// Fichier: parse-phpinfo.php3
// Version: 1.0
// Auteur: Jean-Pierre DEZELUS <jpdezelus@phpinfo.net>
// Dern Modif: 04 août 2000
// Site: http://www.phpinfo.net/
// -------------------------------------------------------------
//
// Pour insérer les news de phpinfo.net placer la ligne
// suivante dans vos scripts php :
//
// include("parse-phpinfo.php3");
//
// -------------------------------------------------------------
// Note: basé sur linuxfr.php3 0.0.3
// Auteur: Jean-Sébastien GOETSCHY - goetschy@agat.net
// Dern Modif: 07 février 2000
// Site: http:/www.agat.net/
// -------------------------------------------------------------
// Note: basé sur newsbackend interfaces 2.0.4
// Author: Kalle Kiviaho - kivi@chl.chalmers.se
// Lastmod: 1999-09-09
// Homepage: http:/swamp.chl.chalmers.se/backends/
// -------------------------------------------------------------
// -------------------------------------------------------------
// Variables de Configuration
// -------------------------------------------------------------
$source = "news-phpinfo.txt";
$prefixe_lien = "o";
$suffixe_lien = "<BR>\n";
$fichier_cache = "news-phpinfo.cache.php3";
$duree_cache = 3600; // en secondes
$target = "_blank";
// -------------------------------------------------------------
$time = split(" ", microtime());
srand((double)microtime()*1000000);
$duree_cache_rnd = 300 - rand(0, 600);
$ok = true;
if ((!(file_exists($fichier_cache))) ||
((filectime($fichier_cache)+$duree_cache-$time[1])+$duree_cache_rnd < 0) ||
(!(filesize($fichier_cache)))) {
$fSource = @fopen($source, 'r');
if (!$fSource) {
echo "Impossible d'ouvrir la source (".$source.")<BR>\n";
$ok = false;
} else {
$fCache = fopen($fichier_cache, 'w');
if (!$fCache) {
echo "Impossible de créer le cache (".$fichier_cache.")<BR>\n";
$ok = false;
} else {
while(! feof($fSource)) {
$buffer = chop(fgets($fSource, 256));
if ($buffer == "%%") {
$date = chop(fgets($fSource, 256));
$titre = chop(fgets($fSource, 256));
$lien = chop(fgets($fSource, 256));
$image = chop(fgets($fSource, 256));
if ($titre != "") {
$item = $prefixe_lien." ".$date;
$item .= " <A HREF='".$lien."' TARGET='".$target."'>".$titre."</A>";
$item .= $suffixe_lien;
fputs($fCache, $item);
}
}
}
fclose($fCache);
}
fclose($fSource);
}
}
if ($ok && file_exists($fichier_cache)) include($fichier_cache);
?>
|
|