#!/usr/bin/perl
require 'cookie.lib';
if ($ENV{'QUERY_STRING'} =~ /mostrar/) {
$| = 1;
$buffer =~ /^(.+)\r\n/;
$bound = $1;
@pairs = split(/$bound/,$buffer);
@var = split(/\r\n/, $pairs[0]);
@namer = split(/\r\n/, $pairs[2]);
@actionr = split(/\r\n/, $pairs[3]);
$name = $namer[3];
$pairs[2] = $pairs[1];
$action = "mostrar";
($null,$ref) = split(/&/, $ENV{'QUERY_STRING'});
}
#IGNORAR LAS SIGUIENTES IP's
$ip="$ENV{'REMOTE_ADDR'}";
exit if($ip eq "213.96.203.245" or $ip eq "81.32.211.187");
############################
# Desfase Horario con el Meridiano
$desfase_horario = 1;
$date_command = "/bin/date";
&ejecuta;
sub ejecuta {
# If there already is a count cookie, proceed without setting a new one. #
if (&GetCookies('BCOcruceros')) {
# Increment the counter. #
# $Cookies{'BCO'}++;
# Print out the HTML Content-Type header. #
print "Content-type: text/html\n";
# Set the updated cookie with new count. #
&SetCookies('BCOcruceros',$Cookies{'BCOcruceros'});
$numero_cookie=$Cookies{'BCOcruceros'};
&mydbtemp;
# End the headers sent to browser. #
print "\n";
# Print Top of HTML Page #
print "\n";
print "
\n";
print "Cookies\n";
print " \n";
print " \n";
print " Visitante existente!
\n";
# Print out how many times they have visited this script. #
print "Su número de cookie es $Cookies{'BCOcruceros'} \n";
# Print out the end of the HTML page.
print "";
}
# Otherwise, if the use didn't already have a cookie, let's give them one! #
else {
# Print out the HTML Content-Type header. #
print "Content-type: text/html\n";
# Set a new cookie. #
&nrcookie;
&SetCookies("BCOcruceros","$numero_cookie");
&mydbtemp;
# End the headers sent to browser. #
print "\n";
# Print HTML Page #
print "\n";
print "
\n";
print " Cookies\n";
print " \n";
print " \n";
print " Nuevo Visitante
\n";
print "Se ha asignado el cookie nº $numero_cookie \n";
print "\n";
}
return($numero_cookie);
}
sub nrcookie {
$contador_cookie="contador.dat";
open(CONTADOR, "$contador_cookie");
flock(DATOS,2);
seek(DATOS, 0, 2);
while()
{
chomp;
($numero) = split(/\|/,$_,1);
$numero_cookie=$numero+1;
}
flock(DATOS,8);
close(CONTADOR);
if($numero_cookie>1) {
if (open (DATOS, ">$contador_cookie")) {
flock(DATOS,2);
seek(DATOS, 0, 2);
print DATOS "$numero_cookie\n";
flock(DATOS,8);
close(DATOS);
}
else {
exit;
}
}
}
sub mydbtemp {
($fecha) = &fecha;
($hora, $minutos) = &hora;
$cadena= $ENV{'HTTP_REFERER'};
$cadena_entera= $ENV{'HTTP_REFERER'};
@cadena = split(/\?/,$cadena);
$cadena2=pop(@cadena);
@cadena2 = split(/\&/,$cadena2);
$pagina=$cadena2[1];
$afiliado=$cadena2[2];
$cadena =~ s/http\:\/\///g;
$pagina = $cadena if($pagina eq '');
if ($afiliado eq '') {
$afiliado='BCOcruceros' if($pagina =~ /bcocruceros.com/);
}
$afiliado =~ s/afiliado//;
$afiliado =~ s/\=//;
#$ref = $ENV{'HTTP_REFERER'};
#$ref =~ s/mostrar&//;
#if ($afiliado eq '') {
# @cadena = split(/\?/,$ref);
# $cadena2=pop(@cadena);
# @cadena2 = split(/\&/,$cadena2);
# $afiliado=$cadena2[2];
#}
#$pagina='CATALOGO' if($pagina eq 'www.bcocruceros.com');
$contador_users='contador_users.dat';
if (open (DATOS, ">>$contador_users")) {
flock(DATOS,2);
seek(DATOS, 0, 2);
print DATOS "$fecha|$hora:$minutos|$numero_cookie|$afiliado|$pagina|$ENV{'REMOTE_ADDR'}|$ref\n";
flock(DATOS,8);
close(DATOS);
}
}
sub fecha
{
local ($date);
# Get the Date for Entry
$date = `$date_command +"%Y%B%d"`; chop($date);
$date =~ s/January/01/g;
$date =~ s/February/02/g;
$date =~ s/March/03/g;
$date =~ s/April/04/g;
$date =~ s/May/05/g;
$date =~ s/June/06/g;
$date =~ s/July/07/g;
$date =~ s/August/08/g;
$date =~ s/September/09/g;
$date =~ s/October/10/g;
$date =~ s/November/11/g;
$date =~ s/December/12/g;
$date =~ s/at/a las/g;
return ($date);
}
sub hora {
local ($minutos, $hora);
(undef, $minutos, $hora) = gmtime;
$hora += $desfase_horario;
$hora -= 24 if $hora > 23;
$hora = 00 if $hora ==0;
$hora += abs($desfase_horario) if $hora < 0;
$hora = "0$hora" if $hora < 10;
$minutos = "0$minutos" if $minutos < 10;
return ("$hora", "$minutos");
}