1.- La librería CGI.pm de Perl.

Hasta ahora, hemos estado trabajando con Perl sin utilizar ninguna de las muchas librerías de las que existen para trabajar con CGIs(están todas en www.cpan.org), ahora vamos a ver la librería de Perl para hacer CGIs y, concretamente, nos vamos a centrar en la parte de CGI para WML, el módulo CGI::WML.

Aquí no vamos a ver la librería CGI.pm, la cual sirve para realizar CGIs orientados a HTML, sino la librería CGI::WML (que hereda de la primera). El que tenga curiosidad en conocer CGI.pm puede ecnontrar un tutorial de inicio en http://decsai.ugr.es/~pedro/curso_comercio/cgi.pm.htm y más información en http://stein.cshl.org/WWW/software/CGI/cgi_docs.html

2.- La librería CGI::WML.

CGI::WML permite programar CGIs para WAP/WML, al ser una subclase de la librería CGI.pm, sigue su filosofía y hereda sus métodos. La versión m´s actualizada de esta liberia está en http://wap.z-y-g-o.com/tools (y aquí teneis una copia local de esta referencia).

Para empezar, veamos un ejemplo que muestra cómo se usa la librería para hacer un CGI de WML rápidamente:

Ejemplo

#!/usr/bin/perl

#Ponemos que vamos a usar la librería CGI::WML
use CGI::WML;

#Creamos un objeto CGI
my $mi_cgi=new CGI::WML;

#Creamos la página WML
print $mi_cgi->header(),                           #Cabecera con el tipo MIME
      $mi_cgi->start_wml(),                        #Principio de la página WML  
      $mi_cgi->card(-id=>"ejemplo1",               #Creamos una carta del página WML   
                    -title=>"Ejemplo 1",
                    -content=>"<p>Hola mundo del wap</p>"),
      $mi_cgi->end_wml();                          #Cerramos la página WML

2.1 Sintaxis y uso de las rutinas

Como hemos visto en el ejemplo anterior, las distintas funciones aceptan varios argumentos (hasta 20), aunque normalmente todos son opcionales. Dichos argumentos son los atributos y contenidos de las etiquetas que las dunciones representan.

En el ejemplo visto en el apartado anterior la línea:

	....
	<card id="ejemplo1" title="Ejemplo1">
		<p>Hola mundo del wap</p>
	</card>
	....

Se ha escrito de la siguiente manera:

	....
    $mi_cgi->card(-id     =>"ejemplo1",               
                  -title  =>"Ejemplo 1",
                  -content=>"<p>Hola mundo del wap</p>"),
	....

Aunque también podemos usar escribirlo como hemos hecho antes:

....
print<<"carta_wml";
	<card id="ejemplo1" title="Ejemplo1">
		<p>Hola mundo del wap</p>
	</card>
carta_wml
....

Por lo que el ejemplo anterior, lo podíamos haber puesto como:

#!/usr/bin/perl

#Ponemos que vamos a usar la librería CGI::WML
use CGI::WML;

#Creamos un objeto CGI
my $mi_cgi=new CGI::WML;

#Creamos la página WML
print $mi_cgi->header();                           #Cabecera con el tipo MIME
print $mi_cgi->start_wml();                        #Principio de la página WML  

#Creamos una carta en la página WML
print<<"carta_wml";
	<card id="ejemplo1" title="Ejemplo1">
		<p>Hola mundo del wap</p>
	</card>
pagina_wml


print $mi_cgi->end_wml();                          #Cerramos la página WML

El nombre de los argumentos puede ir en mayúsculas o minúsculas y en cualquier orden.

2.2 Funciones para crear una baraja (deck)

Veamos las funciones más básicas para realizar un CGI WML con CGI::WML:

• header(): Esta función se encarga de escribir el tipo MIME de la página WML, es decir, sutituye a la línea:

  ....
  print "Content-type: text/vnd.wap.wml\n\n";
  ....
  		

• start_wml(): Esta función se usa para crear una baraja (deck) WML, se le puede especificar un DTD, pero si no se le pasa ninguno (lo más normal), por defecto usa WML 1.1. Por tanto sustituye a la línea:

  ....
  <?xml version="1.0"?>
  <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
  <wml>
  ....
  		

• end_wml(); Con esta función marcamos el final de la baraja (deck), es decir, equivale a </wml>

Veamos el ejemplo que mostraba la hora, utilizando las funciones de CGI::WML que hemos visto:

#!/usr/bin/perl

#Ponemos que vamos a usar la librería CGI::WML
use CGI::WML;

# parte activa del programa
($s,$m,$h, @resto) = localtime(time);

#Creamos un objeto CGI
my $mi_cgi=new CGI::WML;

#Cabecera con el tipo MIME de WML
print $mi_cgi->header();                           

#Principio de la página WML  
print $mi_cgi->start_wml();                        

#Creamos una carta en la página WML que ponga la hora
print<<"carta_wml";
	<card id="ejemplo_hora" title="La Hora">
		<p>La hora actual es $h:$m:$s</p>
	</card>
carta_wml

#Cerramos la página WML
print $mi_cgi->end_wml();                          


	

2.3 Funciones para crear elmentos de una página WML

Veamos las funciones para constrir elementos de WML en un CGI usando CGI::WML :

• card():Las cartas (cards) con creadas enteras, es decir, usando sólo la función card(), se le pueden añadir tantos atributos como la etiqueta card soporte, sólo los atributos id y content son obligatorios. Veamos un ejemplo:

  $mi_cgi->card(-id=>``card_id'', 
                   -title=>``First Card'',
                   -ontimer=>``#next_card'', 
                   -timer=>$mi_cgi->timer(-name=>``timer1'',-value=>``30''), 
                   -newcontext=>``true'',
                   -onenterforward=>``#somecard'', 
                   -onenterbackward=>``#othercard'',
                   -content=>``<p>Hello WAP world</p>'');
  		
  		

• timer():Esta función nos va servir para lanzar un acción. Se usa dentro del método card() y tomas dos argumentos, el nombre y el tiempo en milisegundos. Ejemplo:

  		
  ....		
  $query->timer(-name=>``mytimer'', -value=>``30'');		
  ....
  		

• go():Este método nos permite crar bloques con la etiqueta go

  .... 	
  %pfs = ('var1'=>'1', 'var2'=>'2', 'varN'=>'N');
  ....
  $mi_cgi->go(-method=>``post'', -href=>``http://www.example.com/'', -postfields=>\%pfs);
  ....
  
  	

• do():Nos sirve para crear etiquetas do. Ejemplo:

  ....	
  $mi_cgi->do(-type=>``options'', 
  		       -label=>``Menu'',
  			   -content=>qq(go href=``#menu''/>));
  ....	
  	

• input():Este método sirve para crear un campo de entrada (input). Ejemplo:

  ....
  $mi_cgi->input(-name=>``pin'',  -value=>``1234'',
  		          -type=>``text'', -size=>4, 
  		          -title=>``Enter PIN'',
                    -format=>``4N'', -maxlength=>4, 
                    -emptyok=>``false'');
  
  ....	
  	

• img():Con CGI::WML también se pueden crear imágenes con los siguientes atributos:
  • alt: Texto que se cuando la imagen no se muestra
  • align: puede ser top, middle, bottom
  • src: Dirección absoluta o relativa de la imagen
  • localsrc: Una variable (declarada usando la etiqueta setvar)que se refiere a una imagen. Este atributo tiene precedencia sobre la etiqueta <src>.
  • vspace, hspace: Cantidad de espacio en blanco qeu se deja a la izquierda y derecha de la imagen [hspace] o arriba y abajo de la imagen [vspace]
  • height,width: Estos atributos le indican al terminal el tamaño de la imagen, mientras este las muestra por la pantalla. EStos atributos pueden ser ignorados.

  Ejemplo:

  ....
  my $mi_cgi = $query->img( -src => '/icons/blue_boy.wbmp',
                               -alt => 'Blue Boy', 
                               -localsrc => '$var', 
                               -vspace => '25', 
                               -hspace=> '30,
                               -align => 'bottom', 
                               -height => '15', 
                               -width => '10');
  ....           
             

2.4 Acceso a los parámetros de un CGI

En la librería CGI.pm y, por ende, en la librería CGI::WML la captura de parámetros se hace igual: utilizando el método param, d´ndole como atributo el nombre del parámetro del CGI qeu queremos coger. Veamos un ejemplo:

  .... 
  $nombre=$mi_cgi->param('NOMBRE');
  ....

3.- Ejercicios

Hora y fecha

Contador

Libro de visitas