| |
Esta es la primera parte, de una serie de programas, donde intentaremos
integrar el wml y scripts en Perl para simular la compra a través
de un terminal móvil.
El código fuente de la aplicación es el siguiente:
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//PHONE.COM//DTD WML 1.1//EN"
"http://www.phone.com/dtd/wml11.dtd" >
<!-- Ejemplo de aplicacion de compra donde se introduce
el numero de tarjeta, fecha de caducidad y el cargo-->
<wml>
<!-- Primera pantalla -->
<card title="Compra Virtual" id="uno">
<p align="center">
<strong>Bienvenidos a Compra Virtual</strong><br/>por
favor introduzca su
numero de tarjeta de Credito:<br/>
<input name="tar"
size="17" maxlength="16" format="NNNNNNNNNN*N"/>
<a href="#dos">continuar</a>
</p>
</card>
<card id="dos" title="Fecha Caducidad">
<do type="accept">
<go href="#tres"/>
</do>
<p>
Tarjet de Credito: [MM-AA]:
<input name="cadu" size="6"
maxlength="5" format="NN\-NN"/>
</p>
</card>
<!-- Tercera pantalla -->
<card id="tres" title="Forma de Compra">
<do type="accept">
<go href="#cuatro"/>
</do>
<p mode="nowrap">
Envio:
<select name="cargo">
<option value="2.35">Creembolso
-- 2.35 Euros</option>
<option value="3.45">Correo
-- 3.45 Euros</option>
<option value="4.55">Urgente
-- 4.55 Euros</option>
</select>
</p>
</card>
<card id="cuatro" title="Aceptacion">
<do type="accept" label="Si">
<go href="#final"/>
</do>
<do type="options" label="No">
<go href="#uno"/>
</do>
<p>
Desea realizar la compra?
</p>
</card>
<card id="final" title="Compra realizada">
<p>
La compra finalizó correctamente.
</p>
</card>
|
|
