Banner Para HTML

[zombie@www.bhtc.utep.edu]

    Tal vez les guste talvez lo odien pero este pequeno prog es para 
aquellos que les gusta el rollo del HTML. Este pequenio prog hace que cada 
vez que alguien accesse tu pagina vea un banner diferente. Espero que les 
guste :-)

----- cortar aqui rotacion.cgi -------------------------
#!/usr/bin/perl
#
# (c) 1997 Rotacion de gifs por: zombie@www.bhtc.utep.edu
# Como usarlo: Creas un directorio caulquiera. Creas un archivo llamado
# gifcount.cnt donde colocaras los nombres de los gif que quieras usar.
# por ultimo solo cheka el html code y listo. Los usuarios podran ver un
# gif diferente cada vez que entren a tu pagina.

$countfile = "gifcount.cnt";

# pon la lista de tus gifs aqui!
@pix = qw(
	zombie1b.gif
	construction.gif
	calavera.gif
  );

# Finaliza la lista
$endgif = $#pix;

# incrementa el contador
open(CNT, "+<$countfile");
$count = <CNT>; 
($count >= $endgif) ? $count = 0 : $count++;
seek(CNT, 0, 0); # rewind
print CNT "$count\n";
close(CNT);

# mandando el gif
open(GIF, "<" . @pix[$count]) || exit(0);
print "content-type: image/gif\r\n\r\n";
while(<GIF>) { print }
close(GIF);

-----fin de rotacion.cgi -------------------------