Links aleatorios con CGI

El funcionamiento es simple, hay una base de datos en un archivo de texto con los links y un programa CGI que consulta esta base de datos y selecciona en forma aleatoria uno de los enlaces.

Archivo: aleatorio.cgi

#!/usr/bin/perl
#
###############################################
# Editar #

$RandomLinkFile = "/turuta/cgi-bin/links.txt";

$UseLog = 0; #Usar log 0 = No; 1 = Yes
$RandomLogFile = "/turuta/cgi-bin/log.txt";

# No editar #
###############################################

srand(time);
open(LINKS,"$RandomLinkFile") || &Error("No se puede abrir archivo de links : $RandomLinkFile, Error $!\n");
$NbLines = @LinkFile = ;
close(LINKS);

$Url = $LinkFile[int rand $NbLines];

if ($UseLog) {
@date = localtime(time); $date[4]++; $date[5] += 1900;
$Time = "$date[4]/$date[3]/$date[5]";
open(LOG,">>$RandomLogFile") || &Error("No se puede escribir log : $RandomLogFile, Error $!\n");
print LOG "[$Time] - $ENV{'REMOTE_HOST'} -> $Url\n";
close(LOG);
}

print "Location: $Url\n\n";

sub Error {
my($ErrorText) = @_;
print "Content-type: text/html\n\n";
print "Error: ".$ErrorText;
exit;
}

Archivo: links.txt

Http://www.sitio1.com
Http://www.sitio2.com
Http://www.sitio3.com
Http://www.sitio4.com
http://www.sitio5.com

Los archivos aleatorio.cgi y links.txt tienen que estar en el mismo directorio dentro de la carpeta cgi-bin.

aleatorio.cgi > ASCII > CHMOD 777
links.txt > ASCII > CHMOD 777

Ejemplo funcional: http://www.elanime.com.ar/cgi-bin/aleatorio.cgi

Hacerlo funcionar: Hacer un vínculo al programa cgi.

Ejemplo: Link aleatorio

Informe (Cgi) de Leandro I Burgoa
Webmaster de http//www.elamine.com.ar

Valora este artículo Malo Excelente

Han valorado este artículo de Cgi. 7 usuario(s).
Valoración media:

Este artículo ha sido leído ( 2803 veces ).
Fecha: 10/19/2005

Agregar comentario | (0) comentarios
Recomendar este artículo Cgi
Foros sobre Cgi
Imprimir Cgi
Agregar a Favoritos este artículo Cgi

Cgi

Artículos Relacionados

• Utilizando el FormMail Cgi

• Introducción a PHP

• Tutorial de CGI