#!/usr/bin/perl
print "Content-type:text/html\n\n";
# Título de la página
print
"<html><head><title>VariablesCGI</title></head>";
# Preparación (en colores) de la página
print"<body text=\"#000000\" bgcolor=\"#FFFFFF\"
link= \"#0000EE\"vlink=\"#551A8B\"alink=\"#FF0000\"><p>\n";
# Cuadro azul introductorio
print"<center><table COLS=1 WIDTH=\"90%\" BGCOLOR=\"#000099\"
NOSAVE >\n";
print"<tr>\n";
print"<td>\n";
print"<center>\n";
print
"<br><b><fontcolor=
\"#FFFFFF\"><fontsize=
+2>VariablesdelserverwebApache-1.3.3</font></font></b></center>\n";
print "<br><fontsize=+2></font> </td>\n";
print"</tr>\n";
print"</table></center>\n";
print"<p>\n";
# Imagen, cambiar el origen (después del tag src)
print"<center><img src="\"imagen.jpg\" alt=
\"Aquí hay sitio para una imagen, ponedla vosotros también\"height=40width=80%></center>\n";
# Cuadro de las variables
print"<br><center><table border= 2width=\"90%\">\n";
foreach $key (sort keys %ENV) {
print"<tr><td>$key</td>\n";
print"<td>$ENV{$key}</td></tr>\n";
}
print"</table>\n";
# Texto al final de la página
print"<center><p>\n";
print "<br><b><fontcolor= \"#000099\"><fontsize=
+1>Los valores de las variables se han sacadodelscriptgetinfo.cgi</font></font></b></center>\n";
# Otro texto al final de la página: fijaos que hemos tenido que introducir el símbolo '\' antes de las barras ( / ) y de las comillas. Si tenéis unos conocimientos básicos de programación en perl, entenderéis el porqué.
print "<p>Back to<ahref="\"http:\/\/vuestrositio.it\/main.html\">main</a>\n";
# Y con esto se cierra la página
print "</body></html>";
Fijaos que cuando creamos el cuadro con nuestros datos no es nada útil introducir a mano los nombres de las variables a la izquierda y dejar que el script elija los valores y los introduzca a la derecha, si definimos antes el número de los cuadros. Si introducimos después de la instrucción 'foreach' los tags para crear las diferentes celdas del cuadro, el script pondrá por su cuenta los nombres y los valores en su sitio, cerrando el cuadro cuando no tenga nada más que añadir. Por lo tanto, este script funciona bien tanto para introducir tres variables como para introducir una lista de variables muy larga. Se las arreglará para crear el cuadro y no pondrá ni siquiera una línea más.
No vamos a poner el screenshot de la página para que averiguéis vosotros el resultado de este trabajo.
Esperamos haber demostrado lo simple que es redactar páginas más atractivas y complejas que las simplemente grises. Os dejamos la posibilidad de experimentar nuevas soluciones.
