Подробнее о сценарии языка Perl PackageHDML.pl

Как было сказано выше, после ввода пользователем номера посылки в файлеPtracker.hdml, приложение передает данные сценарию языка Perl PackageHDML.pl.Очевидно, что для отображения информации о статусе посылки в этом сценариииспользуются практически идентичные элементы, что и в описанном выше вэтой главе сценарии. Если пользователь вводит номер посылки AD12345, сценарий загружает файл AD12345.hdml, который имеет следующий исходный код:

&ltHDML Version=3.0 TTL=0&gt

&ltDisplay&gt

&ltACTION Type=Accept Task=GO Dest=../PackageTracker/PTracker.hdml Vars=ABNum=&gt

&ltCenter&gtPackage&ltBR&gt &ltCenter&gtTracker&ltBR&gt

&ltLine&gtPackage AD12345&ltBR&gt &ltLine&gtPickup LAS 11/13/99 12:30 &ltLine&gtLeft LAS 11/13/99 15:00 &ltLine&gtArrive HOU 11/13/99 21:00 &ltLine&gtDelivered 11/14/99 09:00

&lt/Display&gt

&lt/HDML&gt

В исходном коде просто используются элементы <Line> для отображения информации о посылке. После просмотра пользователем выведенной информации,элемент <Action> в коде позволяет пользователю вернуться в начало приложения PackageTracker.

Как и в предыдущем случае, если пользователем введен неправильный номер посылки, сценарий языка Perl загружает файл BadlD.hdml, исходный код которогоприведен ниже:

&ltHDML Version=3.0 TTL=0&gt

&ltDisplay&gt

&ltACTION Type=Accept Task=GO Dest=../PackageTracker/PTracker.hdml Vars=ABNum=&gt

&ltCenter&gtPackage&ltBR&gt &ltCenter&gtTracker&ltBR&gt

&ltBR&gtUnknown Package ID. Try again. &ltBR&gt&ltBR&gtFor this demo the only valid Package ID is AD12345

&lt/Display&gt

&lt/HDML&gt

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