|
CGI que recupera los datos.
#!usr/bin/perl
require 'cgi-lib.pl' or die "no cgi-lib";
&ReadParse(*input);
$username = $FORM{'yourname'};$from = $ENV{'HTTP_REFERER'};
print "Content-type:text/vnd.wap.wml\n\n";
print <<EOP;
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml"><wml>
<card id="card1" title="Titulo">
<p>Test WMLClub
Nombre:$input{nombre}<br/>
E-mail:$input{email}<br/>
Sugerencia:$input{c1}
</p>
</card>
</wml>
EOP
1;
|