Función EmiteFondos()
<?php
function EmiteFondos()
{
// Montamos una relación con los nombres de los fondos
// que hay en el directorio
$Orden = "ls -1 *.jpg";
$Listado = `$Orden`;
$Listado = str_replace (".jpg", "", $Listado);
$Relacion = explode ("\n", $Listado);
$Total = count ($Relacion);
for ( $i=1 ; $i<$Total ; $i++ )
{
// Nombre del archivo
$NombreArchivo = $Relacion[$i-1];
// Dimensiones de la imagen
$TamanoImagen = GetImageSize ("$NombreArchivo.jpeg");
// Las dimensiones las lee PHP
$DimensionesImagen = $TamanoImagen[3];
$CodigoHTML=<<<HTML
<A HREF="$NombreArchivo.jpg">
<IMG SRC="$NombreArchivo.jpeg" $DimensionesImagen CLASS="seguido"
ALT="$NombreArchivo" TITLE="$i: $NombreArchivo">
</A>
HTML;
print $CodigoHTML;
}
}
php?>