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


Рассмотрение Peri-сценария YellowPagesWML.pl



Рассмотрение Peri-сценария YellowPagesWML.pl


После того как пользователь указывает данные о компании в приложенииYellowPages, программа запускает Peri-сценарий для поиска и нахождения компаний, отвечающих введенным требованиям. В реальном приложении сценарийвзаимодействовал бы с базой данных для получения компаний, данные которыхсоответствуют условиям поиска. Затем сценарий создавал бы WML-карты, обеспечивающие отображение на экране результатов поиска в удобном виде. Следующий сценарий, YellowPagesWML.pl, формирует одни и те же результаты поиска, независимо от данных запроса (из-за отсутствия доступной базы данных с адресами компаний). Тем не менее, вы должны отметить для себя, что сценарийсоздает карты, которые для обеспечения возможности автоматического звонка вкомпанию, отображаемую на экране сотового телефона пользователя, используют функции интерфейса приложений для беспроводной телефонной связи(WTAI - Wireless Telephony Application Interface). Кроме того, при просмотре информации по нескольким компаниям приложение может выполнять циклические перемещения, во многом напоминающие навигацию по списку с гиперсвязями. Peri-сценарий YellowPagesWML.pl реализуется с помощью следующего программного кода:

#!/usr/bin/perl

require 'DeckUtils.pl';

%cgiVars = &AppUtils::ParseCGIVars(); $BizName = $cgiVars{"BizName"}; $ZipCode = $cgiVars{"ZipCode"}; $CityName = $cgiVars{"CityName"}; $StateName = $cgiVars{"StateName"}; $Online = $cgiVars{"Online"};

#Do processing here...

$Deck = "Content-type: text/vnd.wap.wml

&lt?xml version=\"1.0\"?&gt &lt!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\"&gt

&ltwml&gt

&lthead&gt

&ltmeta http-equiv=\"Cache-Control\" content=\"max-age=0\" forua=\"true\"/&gt

&lt/head&gt

&ltcard id=\"Result1\"&gt

&ltdo type=\"accept\" label=\"Next\"&gt &ltgo href=\"#Result2\" /&gt &lt/do&gt




Начало  Назад  Вперед



Книжный магазин