Рассмотрение Perl-сиенария HotelAvailWML.pl

После того как пользователь выберет гостиницу, программный код приложенияHotellnfo запускает Peri-сценарий, создающий WML-страницу, которая выводитприглашение пользователю на ввод регистрационных данных. Для приема данной информации приложение могло бы использовать или WML-страницу, илиPeri-сценарий; однако, чтобы облегчить проверку вводимой пользователем информации, предпочтение отдается Peri-сценарию. Peri-сценарий HotelAvailWML.plреализуется с помощью следующего программного кода:

#!/usr/bin/perl

$HotelCode = $ENV{'QUERY_STRING'};

$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=\"Avail\"&gt

&ltdo type=\"accept\" label=\"Edit\"&gt &ltnoop /&gt &lt/do&gt

&ltdo type=\"options\" label=\"Check\"&gt &ltgo method=\"post\" href=\"CheckAvailWML.pl\"&gt &ltpostfield name=\"HotelCode\" value=\" \$(HotelCode)&\"/&gt &ltpostfield name=\"CheckInDate\" value=\" \$(CheckInDate:noesc)&\"/&gt &ltpostfield name=\"CheckOutDate\" value=\" \$(CheckOutDate:noesc)&\"/&gt &ltpostfield name=\"NumGuests\" value=\" \$(NumGuests)\"/&gt &lt/go&gt &lt/do&gt

&ltp align=\"center\"&gt

Web Inns&ltbr/&gt $HotelCode

&lt/p&gt

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

&ltselect&gt

&ltoption onpick=\"#GetCheckIn\"&gtCheck In (mm/dd/yy): \$(CheckInDate)&lt/option&gt &ltoption onpick=\"#GetCheckOut\"&gtCheck Out (mm/dd/yy): \$(CheckOutDate)&lt/option&gt &ltoption onpick=\"#GetNumber\"&gtNumber of guests: \$(NumGuests)&lt/option&gt

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

---

---

---

---