#!/usr/local/bin/perl
##!D:/Archivos de programa/prog/perl/bin/perl.exe

#use AnyDBM_File;

use POSIX;
use lib '..';
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
   $CGI::POST_MAX=1024 * 100;  # max 100K posts
   $CGI::DISABLE_UPLOADS = 1;  # no uploads

print "Content-type: text/javascrit \n";
print "Cache-Control: max-age=120\n";
print "\n";
$query = new CGI;

if (param('img')) { $img=param('img');} 
      else {$img=1;}


if (param('login')) {
$arch = "./datos/".param('login').".dat";


# Archivo de datos de los usuarios (coloque la ruta completa dentro del servidor).

$logoutTime = 900;
# Tiempo tras el cual un usuario es considerado inactivo (en segundos).


$miIP = $ENV{'REMOTE_ADDR'};
#$miIP="127.0.0.1";

$res = '';
$t = time();
$n=$t-$logoutTime;


open (file,$arch);
$count=1;
$linea="";

$referencia=<file>;
$referencia=$ENV{'HTTP_REFERER'}."\n";
while (<file>) {
	chop;

($IP,$tm) = split(':',$_);
if (($IP ne $miIP)&&  ($n < $tm)) {
	$linea.="$IP:$tm\n";
	$count++;
	}
}
close($file);

$linea.="$miIP:$t\n";

#print "$linea";


open (file,">$arch");
flock(file, 2);
print file $referencia.$linea;
close ($file);

}
else {$count=0;}


print <<HTML_FIN;
contador=0;
function cuenta() {
document.write('<A HREF="http://www.infozaragoza.com/cuentame/"><IMG SRC="http://www.infozaragoza.com/cuentame/contador$img.gif" BORDER=0></A> ');
contador=$count;
}





HTML_FIN