Ayuda !¿Cómo insertar un contador oculto en mi página?

[kidd]

Si todo lo que quieres hacer es mantener un log de las personas que visitan cierta página, puedes hacer un script que escriba en un archivo los datos de cada entrada, y pones en la página un ssi para que el script sea llamado...

Ejemplo:

Código:

<!--#include virtual="/cgi-bin/log.cgi"-->

Aquí te pongo el ejemplo de un cgi que abre un archivo y escribe en él informacion del usuario que acaba de accesar tu página:

Código:

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);

my $date = &getDate; #Tomamos la fecha de hoy

#ABRIMOS EL ARCHIVO
open(FILE, ">>log.txt");

    print FILE "Fecha: $date\n"; #Imprimimos fecha
    print FILE "Página Pedida: " . $ENV{'REQUEST_URI'} . "\n"; #Imprimimos la página pedida
    print FILE "Referrer: " . $ENV{'HTTP_REFERER'} . "\n"; #Imprimimos de donde vino
    print FILE "UserAgent: " . $ENV{'HTTP_USER_AGENT'} . "\n"; #Que agente esta usando
    print FILE "IP: " . $ENV{'REMOTE_ADDR'} . "\n"; #Que ip usa

      #Si estas en una página protegida puedes usar esta linea para ver
      # que usuario acceso
      print FILE "Usuario: " . $ENV{'REMOTE_USER'} . "\n"; #Esta linea solo funcion en páginas protegidas

    #Ponemos un separador
    print FILE "-------------------------\n";
    print FILE " \n";
close(FILE);


#Retornamos una página vacía
print "Content-type: text/html\n\n";
print "\n";


#Matamos el programa
exit(1);



sub getDate{
    my @dias   = ('Domingo','Lunes','Martes','Miércoles',
               'Jueves','Viernes','Sábado');
    my @meses = ('Enero','Febrero','Marzo','Abril','Mayo','Junio','Julio',
                 'Agosto','Septiembre','Octubre','Noviembre','Diciembre');

    my ($segundo,$minuto,$hora,$dia,$mes,$anio,$diaSemana) = (localtime(time))[0,1,2,3,4,5,6];
    my $tiempo = sprintf("%02d:%02d:%02d",$hora,$minuto,$segundo);
    $anio += 1900;

    my $fecha = "$dias[$diaSemana] $dia de $meses[$mes]  del $anio $tiempo";
    return($fecha);
}

SALUDOS