HTMLpointHTMLpoint HTMLpoint.com


 Redactar páginas complejas



A esta altura ya tenéis todos los instrumentos para empezar a escribir vuestros script. Sin embargo, antes de acabar nuestra explicación de los CGI, vamos a ver cómo utilizarlos para que redacten páginas complejas, utilizando como base el script que hemos usado anteriormente para sacar las variables de nuestro servidor. Lo utilizaremos otra vez, pero lo haremos un poco más complejo y que redacte páginas web más 'atractivas' de las que tienen el fondo gris, que son las que hemos visto hasta ahora.
esto puede parecer inútil y desde el punto de vista práctico lo es. Pero, cuando introduzcáis en vuestro sitio unos script, sería mejor que la página tenga el mismo estilo que las demás.

Vamos a ver cómo llegar a este resultado.

#!/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>&nbsp;</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.


  Volver al inicio de la página