Rotación de banners con CGI

Ya vimos como rotar banners con ASP, PHP y JavaScript, ahora le llegó el turno a 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:

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.

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.