Рассмотрение Perl-сиенария YellowPagesHDML.pl
Рассмотрение Perl-сиенария YellowPagesHDML.pl
Как и в случае приложения на WML, сценарий YellowPagesHDML.pl не взаимодействует с базой данных, содержащей названия компаний. Не имея такой возможности, сценарий создает данные по ряду компаний, названия которых пользователь может прокручивать на экране. Так же, как и в случае приложения на WML,пользователь может выделять номер телефона компании и автоматически набирать номер. Peri-сценарий YellowPagesHDML.pl реализуется с помощью следующего программного кода:
#!/usr/bin/perl
read (STDIN, $Buffer, $ENV{'CONTENT_LENGTH'});
@data = split(/&/, $Buffer);
$BizName = $data[0]; $ZipCode = $data[1]; $CityName = $data[2]; $StateName = $data[3]; $Online = $data[4];
#Do processing here...
$Deck = "Content-type: text/x-hdml
<HDML Version=3.0 Markable=True TTL=0>
<Display Name=Results1>
<Action Type=Accept Task=GO Dest=#Results2 Label=Next> <Action Type=Soft1 Label=Call Task=Call Number=1-435-555-1212> <Line>Bridget's Boutique<br> 1234 Main Street<br> Cedar City, UT<br> 1-435-555-1212
</Display>
<Display Name=Results2>
<Action Type=Accept Task=GO Dest=#Last Label=Next> <Action Type=Soft1 Label=Call Task=Call Number=1-435-555-1212> <Line>Abigail's Antiques<br> 1234 Main Street<br> Cedar City, UT<br> 1-435-555-1212
</Display>
<Display Name=Last>
<Action Type=Accept Task=GO Label=Done Dest=http://waplib.com/YellowPages/YellowPages.hdml Vars=BizName=&ZipCode=&CityName=&StateName=&Online=>
For purposes of this example all lookups return the same results.
</Display>
</HDML>";
print $Deck;
Сценарий создает три информационных модуля Resultl (Результат!), Result2 иLast (Последний). Если вы рассмотрите элемент <Action>, присутствующийвнутри каждого информационного модуля, то обнаружите метку Next (Далее), спомощью которой выполняется передача управления на последующую карту.Внутри информационного модуля Last вы обнаружите метку Done (Выполнено),которая служит для повторной загрузки приложения YellowPages.
