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


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


&ltwml&gt

&lthead&gt

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

&lt/head&gt

&ltcard&gt

&ltdo type=\"accept\"&gt &ltgo href=\"../CatalogOrder/CatalogItem.wml\" /&gt &lt/do&gt

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

Input data:&ltbr/&gt&ltbr/&gt

\$ItemNum&ltbr/&gt \$ItemDesc&ltbr/&gt \$ShipName&ltbr/&gt \$ShipAddr1&ltbr/&gt \$ShipAddr2&ltbr/&gt \$ShipCity&ltbr/&gt \$ShipState&ltbr/&gt \$ShipZip&ltbr/&gt \$ShipPhone&ltbr/&gt \$BillName&ltbr/&gt \$BillAddr1&ltbr/&gt \$BillAddr2&ltbr/&gt \$BillCity&ltbr/&gt \$BillState&ltbr/&gt \$BillZip&ltbr/&gt \$BillPhone&ltbr/&gt \$CardType&ltbr/&gt \$CardNum

&lt/p&gt

&lt/card&gt

&lt/wml&gt";

print $Deck;


Первая строка сценария представляет собой комментарий, сообщающий интерпретатору командной строки, где находится интерпретатор языка Perl. Втораястрока сообщает интерпретатору языка, что сценарий использует в своей работедругой сценарий языка Perl DeckUtils.pl, в котором определены процедуры дляанализа параметров. После анализа параметров сценарий создает и печатаетпростую деку формата WML, перехватывая которую браузер отображает итоговуюинформацию по сделанному заказу. Как минимум, сценарий должен проверить,введены ли пользователем имя, адрес, номер товара, номер кредитной карты итак далее. Для выполнения этих действий он просто проверяет переменные наналичие нулевого значения, и если значение какой-либо из переменных равнонулю, передает управление обратно соответствующей карте, открывая и выводядеку формата WML:





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



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