#!/usr/bin/perl

$number_of_digits = "5"; # Количество отображаемых цифр,
			 # например: если у Вас 567 посещений,
			 # то скрипт покажет 00567

$end = ".gif";

$pathtocounter = "counter.txt"; # Путь на сервере к counter.txt


$pathtoimages = "http://localhost/counter/img/"; # URL к картинкам

$graphics = "yes"; # "yes", если Вы хотите графический счетчик,
		   # "no", если Вы хотите текстовый

#=============================================================

print ("Content-type: text/html\n\n");

open (COUNTER, "$pathtocounter");
$count = <COUNTER>;
chop ($count) if $count =~ /\n$/;
close (COUNTER);

$count += 1;

open (COUNTER, ">$pathtocounter");
print COUNTER ("$count");
close (COUNTER);

@digits = split(//, $count);

if ($number_of_digits eq "") {
        $howmany = @digits;
} else {
        $howmany = $number_of_digits;
}

$spline = '%0' . $howmany . 'd';
$count = sprintf("$spline", $count);

@digitimages = split(//, $count);

foreach $digitimage (@digitimages) {
	if ($graphics eq yes) {
        $image = "<img src=$pathtoimages" . "$digitimage" . "$end width=15 height=20>";
	print ("$image");
	} else {
        $plain = $digitimage;
 	print ("$plain");
	}
}

exit;