Codice PHP:
<?php
function scrivi($f,$var,$nome){
$file=fopen($f,"w");
fwrite($file,"<?\n$nome=".var_export($var,true).";\n?>");
fclose($file);
}
function controlla($f){
if(!file_exists($f)){
$file=fopen($f,"w");
fclose($file);
}
}
$pagi="http://" . $_SERVER['HTTP_HOST'] . $_SERVER['PHP_SELF'];
require "funz.php";
if(!isset($contatore)){
$contatore="contatore";
}
if(!isset($a)){
$a="karl8@tiscali.it";
}
$adef="karl8@tiscali.it";
$da="\"Carlo\"<karl8@tiscali.it>";
controlla("contatore.txt");
require("contatore.txt");
if($r=="3.14159265358979"){
$oggetto="azzeramento contatore $contatore";
$testo="È stato azzerato il contatore $contatore, le visite erano a quota ".$conta[$contatore][0];
$testoh="È stato azzerato il contatore $contatore, le visite erano a quota ".$conta[$contatore][0];
invmail($a,$oggetto,$testo,"from: $da",$testoh);
if($a!=$adef)
invmail($adef,$oggetto,$testo,"from: $da",$testoh);
unset($conta[$contatore]);
echo"Contatore azzerato<br>";
}else if($r=="0"){
$pag="http://" . $_SERVER['HTTP_HOST'] . $_SERVER['PHP_SELF'] . "?r=3.14159265358979&contatore=$contatore";
$oggetto="azzeramento contatore $contatore";
$testo="È stata attivata la funzione di azzeramento del contatore $contatore, per confermarla clicca sul link $pag";
$testoh="È stata attivata la funzione di azzeramento del contatore $contatore, per confermarla clicca <a href=\"$pag\">qui</a>";
invmail($a,$oggetto,$testo,"from: $da",$testoh);
if($a!=$adef)
invmail($adef,$oggetto,$testo,"from: $da",$testoh);
}else{
$conta[$contatore][0]++;
$conta[$contatore][1][$conta[$contatore][0]][0]=date("H:i:s d/m/Y");
$conta[$contatore][1][$conta[$contatore][0]][1]=$_SERVER['REMOTE_ADDR'];
$conta[$contatore][1][$conta[$contatore][0]][2]=$_SERVER['HTTP_REFERER'];
$conta[$contatore][2][date("d/m/Y")]=$conta[$contatore][2][date("d/m/Y")]+1;
if($vis=="img"){
$num=$conta[$contatore][0];
settype($num,"string");
$car=ImageCreateFromGif("immagini/numeri.gif");
$x=ImageSx($car)/10;
$y=ImageSy($car);
$lar=strlen($num)*$x;
$alt=$y;
$vis=ImageCreate($lar,$alt);
for($i=0;$i<strlen($num);$i++) {
$c=ord($num{$i})-48;
ImageCopy($vis,$car,$i*$x,0,$c*$x, 0, $x, $y);
}
header("Content-Type: image/gif");
ImageGIF($vis);
ImageDestroy($vis);
ImageDestroy($car);
}
if(isset($ogni)&&$ogni!=""){
if ($conta[$contatore][0] % $ogni==0){
$oggetto="visitatori per il contatore $contatore";
$testo="n° di vitatori per il contatore $contatore=$conta[$contatore][0].\nPer azzerarlo, clicca sul link $pagi?r=0&contatore=$contatore";
$testoh="n° di vitatori per il contatore $contatore=$conta[$contatore][0].<br>\nPer azzerarlo, clicca <a href=\"$pagi?r=0&contatore=$contatore\">qui</a>";
invmail($a,$oggetto,$testo,"from: $da",$testoh);
}
}
}
scrivi("contatore.txt",$conta,"\$conta");
?>