banner.cgi

#!/usr/bin/perl

$LIST = 'banner.list';

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

srand($$ & time ^ $$);

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

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

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