Помогите с wap-сайтом
Поставил себе TopServer.
Ниже представлен состав TopServer 2.1:
-----------------------------------------
Версия сервера приложений: TopServer 2.1
Веб-сервер: Apache 2.0.59
PHP: PHP 5.1.6
PERL: PERL 5.6.1
MySQL: MySQL 5.0.18-nt-max
phpMyAdmin: phpMyAdmin 2.6.1
SQLite: SQLite 2.8.17
SQLiteManager: SQLiteManager 1.2.0
FTP: SlimFTPd 3.17
Хочу написать WAPсайт, с использованием cgi скриптов на perl.
Создал файлик index.wml с текстом:
-----------------------------------------------------------------------
<?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="Login" title="Login">
<do type="accept" name="10" label="далее">
<go href="http://localhost/cgi-bin/1/wr.cgi"></go>
</do>
</card>
</wml>
--------------------------------------------------------------------------
Содержимое файла wr.cgi в котором есть поле вода и кнопка далее: (по задумке планировалось что, то что введено в поле, передастся следующему скрипту):
--------------------------------------------------------------------------
#!/usr/bin/perl.exe
use CGI qq(:all);
print "Content-Type: text/vnd.wap.wml\n\n";
qq~
<wml>
<card id="text" title="text">
<p>
Text: <input type="text" name="t"/>
</p>
<do type="accept" name="1" label="Далее">
<go href="http://localhost/cgi-bin/1/write.cgi?a=$(t)"></go>
</do>
</card>
</wml>
~;
--------------------------------------------------------------------------
Содержимое файла write.cgi:
--------------------------------------------------------------------------
#!/usr/bin/perl.exe
use CGI qw(:all);
my $a=param("a");
print "Content-Type: text/wml\n\n";
qq~
<wml>
<card id="card1" title='результат'>
<p>
Результат: $a
</p>
</card>
</wml>
~;
--------------------------------------------------------------------------
Значение переменной не передается. Например, если я введу: “трансформатор”
То write.cgi мне выдаст на экран 0t). Т.е. он не понимает что &(t) это переменная (и равна она= трансформатор) и воспринимает её как текст: “0t)”.
Помогите пожалуйста разобраться.