Собссно вот код:
Код |
<?xml version="1.0" encoding="windows-1251"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml"> <wml> <card id="home"> <p align="center"><a href="#card2"><br/>Вход</a><br/><br/></p> <p align="center"><a href="#card3"><br/>Помощь</a><br/><br/></p> </card> <card id="card2"> <p align="center"><br/>Введите пароль<br/><br/> <input name="psw" type="text" size="8" format="*m"/></p> <do type="accept" label="ok"><go href="http://localhost/cgi-bin/wap.pl"/> </do> </card> <card id="card3"> <p align="center"><br/>Здоровеньки булы.<br/><br/></p> <do type="accept" label="back"><go href="#home"/> </do> </card> </wml> |
Код |
use CGI::WML; my $query = new CGI::WML; use CGI; my $cgi = new CGI; my $param=$cgi->param("psw"); my $content = $query->p("$param =>"); print $query->header(), $query->start_wml(-encoding => 'windows-1251'), $query->card(-id=>"card1", -content=>"$content"), $query->end_wml(); |
Код |
my $param=$query->param("psw"); my $content = $query->p("$param"); print $query->header(), $query->start_wml(-encoding => 'windows-1251'), $query->card(-id=>"card1", -content=>$content), $query->end_wml(); |