Una manita con esto...

[itatpc]

Este código hace que aparezcan, mediante SSI, un par de banners con distintas ID. Cada vez que la página carga, muestra diferentes banners al azar (de entre 10). El problema es que a veces muestra un banner, a veces dos, y a veces ninguno. ¿Alguien sabe cómo hacer que siempre aparezcan 2?

Código:

require "admin/data/settings.pl" or &dienice(19);

open (MEMDATSSI,"$data_path/members.db") or &dienice(15);
if ($use_flock) { flock(MEMDATSSI, 1) or &dienice(100); }
@datassi = <MEMDATSSI>;
close (MEMDATSSI);

$numban = (int(rand($ssi_ban_num))) + 1;
if ($numban == $ssi_ban_num) {$numban2 = 1}
else {$numban2 = $numban + 1}

foreach $line(@datassi) {
	@bze = split(/\|/,$line);
	if ($bze[1]) {
		if ($bze[1] == $numban) {
			$html .= "<a href=\"$cgi_url/out.cgi?ID=$bze[1]\"
target=\"_blank\"><img src=\"$bze[5]\" width=$banner_width
height=$banner_height border=0></a>\n";
		}
		if ($bze[1] == $numban2) {
			$html .= "<a href=\"$cgi_url/out.cgi?ID=$bze[1]\"
target=\"_blank\"><img src=\"$bze[5]\" width=$banner_width
height=$banner_height border=0></a> \n";
		}
	}
}
print "Content-type: text/html\n\n";
print "$html";
exit;

¡Mil gracias!

[SpiceMan]

Código:

require "admin/data/settings.pl" or &dienice(19);

open (MEMDATSSI,"$data_path/members.db") or &dienice(15);
if ($use_flock) { flock(MEMDATSSI, 1) or &dienice(100); }
@datassi = <MEMDATSSI>;
close (MEMDATSSI);


$numban2 = $numban = rand [1..$ssi_ban_num];
while (($numban2 == $numban) && ($ssi_ban_num > 1)) { $numban2 = rand [1..$ssi_ban_num] }

foreach $line(@datassi) {
	@bze = split(/\|/,$line);
	if ($bze[1]) {
		if ($bze[1] == $numban) {
			$html .= "<a href=\"$cgi_url/out.cgi?ID=$bze[1]\"
target=\"_blank\"><img src=\"$bze[5]\" width=$banner_width
height=$banner_height border=0></a>\n";
		}
                if ($ssi_ban_num > 1) {
        
                     if ($bze[1] == $numban2) {
			$html .= "<a href=\"$cgi_url/out.cgi?ID=$bze[1]\"
target=\"_blank\"><img src=\"$bze[5]\" width=$banner_width
height=$banner_height border=0></a> \n";
		  }
               }
	}
}
print "Content-type: text/html\n\n";
print "$html";
exit;

[SpiceMan]

las condiciones $ssi_ban_num > 1 las puse por si se llega a dar el caso de que en los datos almacenados haya 1 solo banner.

[itatpc]

¡MUCHAS GRACIAS!

Gracias SpiceMan por las respuestas. Pero no funciona. Ahora no se ve ni un sólo banner...


De todas formas, te lo agradeco como si funcionara. ¡Gracias!

[SpiceMan]

de donde obtenes $ssi_ban_num ?

[itatpc]

Buf...

A ver, de settings.pl obtiene el número de banners de entre los que se tiene que escojer (por ejemplo, tengo 100 banners, pero sólo quiero que muestre banners al azar de los 10 primeros), y también obtiene las rutas hacia el resto de archivos.

Uno de ellos en banners.db que tiene la siguiente estructura:

2|1|end
9|2|end
1|3|end

1, 2, 3 son las ID de cada miembro, los otros número, ni idea. Luego, de members.db otiene la URL del banner y la ID, $bze[1] y $bze[5]. La estructura de este archivo es un miembro por línea, así:

56|1|titulo|http://www.url.com|descripción|http://www.urldelbanner.com|y sigue...

No sé si esto te sirve de algo o no, y no sé si es mucho pedir ya, en cualquier caso, gracias por tu tiempo.

[SpiceMan]

Código:

@array = ('uno','dos','tres','cuatro','cinco','seis','siete','ocho','nueve','diez');

$bla2 = $bla = int rand @array;
while (($bla2 == $bla) && $#array > 1) { $bla2 = int rand @array }

print "\$bla: $bla - \$array[$bla]: $array[$bla]\n";
print "\$bla2: $bla2 - \$array[$bla2]: $array[$bla2]\n";