Подробнее о сценарии языка Perl PackageHDML.pl
Подробнее о сценарии языка Perl PackageHDML.pl
Как было сказано выше, после ввода пользователем номера посылки в файлеPtracker.hdml, приложение передает данные сценарию языка Perl PackageHDML.pl.Очевидно, что для отображения информации о статусе посылки в этом сценариииспользуются практически идентичные элементы, что и в описанном выше вэтой главе сценарии. Если пользователь вводит номер посылки AD12345, сценарий загружает файл AD12345.hdml, который имеет следующий исходный код:
<HDML Version=3.0 TTL=0>
<Display>
<ACTION Type=Accept Task=GO Dest=../PackageTracker/PTracker.hdml Vars=ABNum=>
<Center>Package<BR> <Center>Tracker<BR>
<Line>Package AD12345<BR> <Line>Pickup LAS 11/13/99 12:30 <Line>Left LAS 11/13/99 15:00 <Line>Arrive HOU 11/13/99 21:00 <Line>Delivered 11/14/99 09:00
</Display>
</HDML>
В исходном коде просто используются элементы <Line> для отображения информации о посылке. После просмотра пользователем выведенной информации,элемент <Action> в коде позволяет пользователю вернуться в начало приложения PackageTracker.
Как и в предыдущем случае, если пользователем введен неправильный номер посылки, сценарий языка Perl загружает файл BadlD.hdml, исходный код которогоприведен ниже:
<HDML Version=3.0 TTL=0>
<Display>
<ACTION Type=Accept Task=GO Dest=../PackageTracker/PTracker.hdml Vars=ABNum=>
<Center>Package<BR> <Center>Tracker<BR>
<BR>Unknown Package ID. Try again. <BR><BR>For this demo the only valid Package ID is AD12345
</Display>
</HDML>