Пособие по написанию WAP-сайтов


              

Рассмотрение 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

&ltHDML Version=3.0 Markable=True TTL=0&gt

&ltDisplay Name=Results1&gt

&ltAction Type=Accept Task=GO Dest=#Results2 Label=Next&gt &ltAction Type=Soft1 Label=Call Task=Call Number=1-435-555-1212&gt &ltLine&gtBridget's Boutique&ltbr&gt 1234 Main Street&ltbr&gt Cedar City, UT&ltbr&gt 1-435-555-1212

&lt/Display&gt

&ltDisplay Name=Results2&gt

&ltAction Type=Accept Task=GO Dest=#Last Label=Next&gt &ltAction Type=Soft1 Label=Call Task=Call Number=1-435-555-1212&gt &ltLine&gtAbigail's Antiques&ltbr&gt 1234 Main Street&ltbr&gt Cedar City, UT&ltbr&gt 1-435-555-1212

&lt/Display&gt

&ltDisplay Name=Last&gt

&ltAction Type=Accept Task=GO Label=Done Dest=http://waplib.com/YellowPages/YellowPages.hdml Vars=BizName=&ZipCode=&CityName=&StateName=&Online=&gt

For purposes of this example all lookups return the same results.

&lt/Display&gt

&lt/HDML&gt";

print $Deck;

Сценарий создает три информационных модуля Resultl (Результат!), Result2 иLast (Последний). Если вы рассмотрите элемент <Action>, присутствующийвнутри каждого информационного модуля, то обнаружите метку Next (Далее), спомощью которой выполняется передача управления на последующую карту.Внутри информационного модуля Last вы обнаружите метку Done (Выполнено),которая служит для повторной загрузки приложения YellowPages.





Содержание  Назад