Rotación de Banners con CGI

Necesitamos dos archivos, uno de texto al que llamaremos banner.list y otro con el código al que llamaremos banner.cgi

banner.cgi
Debemos crear un archivo .cgi con el código que se muestra a continuación:

Archivo banner.cgi:

#!/usr/bin/perl

$LIST = 'banner.list';

open(BANNERS, "$LIST") || die "No se pudo leer $BANNERS. $!";

srand($$ & time ^ $$);

@banners = <BANNERS>;
$ban = splice(@banners, int rand @banners, 1);
chomp($ban);

($img,$url,$desc,$border) = split(/|/,$ban);
print "<a href=$url>n";
print "<img src=$img alt='$desc' border=$border></a>n";

Con lo anterior hemos creado el script que generará aleatoriamente el código para los banners . Debes dar permisos 755 a éste archivo y ubicarlo en la carpeta cgi-bin (generalmente) de tu servidor, o la que esté determinada para ejecutar los CGIs.

Finalmente, recuerda cambiar en la primera línea " /usr/bin/perl " por la ubicación del intérprete Perl en tu servidor. Aunque usualmente es la que está en el script .

Archivo banner.list:

01.jpg|http://mrdevy.com|Visitá MrDevy|0
02.jpg|http://flashmaestro.fm|Visitá FlashMaestro|1
03.jpg|http://ayudaasp.com|Visitá Ayudaasp|3

El archivo banner.list contiene el listado de todos los banners. La estructura para añadir o modificar los banners es la siguiente:

imagen.jpg|http://www.direccion.com|Texto Alternativo|border

Como vez, es muy sencillo personalizar el script y después de haber creado el archivo del CGI ( banner.cgi ), sólo debes modificar la lista para cambiar y agregar más publicidad aleatoria a tu web.

Para no tener que copiar y pegar este código en todas las páginas, podemos recurrir a los SSI (Server Side Include) para incluir una página dentro de otra. La forma de hacerlo sería:

<!--#exec cgi="banner.cgi"-->

Recuerda que para poder utilizarlos debes utilizar la extensión .shtml en tus páginas, ante cualquier duda consulta a tu proveedor de hosting que te guiará sobre este tema.

Autor: Jorge Torres

Original de WebExperto

 

Usuarios que han visto este tema también han visto...

- Enviando un Archivo Existente como Respuesta
- Introducción a la programación CGI en Pascal
- Primeros Pasos en CGI
- Invocando un CGI
- Links Aleatorios

- Versión imprimible de este documento
- Enviar por e-mail este documento