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


Подробнее о сценарии языка Perl FlightScheduleWML.pl - часть 6


Для простоты в нашем приложении код поддерживает только номер рейса 1 для всехавиалиний, в некоторых случаях и номер рейса 2. В реальном приложении сценарий должен получать номера рейсов из базы данных, которая позволит обрабатывать неограниченное число рейсов.


Если сценарий идентифицирует соответствующие авиакомпанию и номер рейса,он создает новую деку формата WML, которая отображает информацию о рейсе изатем позволяет пользователю вернуться в начало приложения:

$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&gt

&ltdo type=\"accept\" label=\"Done\"&gt &ltgo href=\"../FlightSchedule /FlightSchedule.wml\" /&gt &lt/do&gt

&ltp align=\"left\" mode=\"wrap\"&gt

$AirName flight $FlightNum is not in the database. Try again.

&lt/p&gt

&lt/card&gt

&lt/wml&gt";

print $Deck;


Если приложение не может найти номер рейса, сценарий создает деку форматаWML, которая отображает сообщение о том, что этого номера рейса нет в базеданных, и пользователю предоставляется возможность вернуться в начало приложения





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