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



Рассмотрение Peri-сценария RealEstateHDML.pl



Рассмотрение Peri-сценария RealEstateHDML.pl

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

#!/usr/bin/perl

read (STDIN, $Buffer, $ENV{'CONTENT_LENGTH'});

@data = split(/&/, $Buffer);

$PriceLow = $data[0]; $PriceHigh = $data[1];

$Price1 = 99500; $Price2 = 149995; $Price3 = 249995; $Price4 = 500000; $Price5 = 1500000;

if (($PriceLow &lt= 0) ($PriceHigh &lt= 0) ($PriceLow &gt $PriceHigh))

{ $Deck = "Content-type: text/x-hdml

&ltHDML Version=3.0 Markable=True TTL=0&gt

&ltDisplay Name=Error&gt

&ltAction Type=Accept Label=Back Task=GO Dest=../RealEstate/RealEstate.hdml&gt

&ltWrap&gtError in price range. Please enter a minimum price and a maximum price.

&lt/Display&gt

&lt/HDML&gt";

}

else

{

$Option = "";

if (($Price1 &gt= $PriceLow) && ($Price1 &lt= $PriceHigh)) { $Option = $Option . "&ltCE Task=GO Dest=../RealEstate/GV01234.hdml&gtGV01234 &dol;99,500"; }

if (($Price2 &gt= $PriceLow) && ($Price2 &lt= $PriceHigh)) { $Option = $Option . "&ltCE Task=GO Dest=../RealEstate/LV01234.hdml&gtLV01234 &dol;149,995"; }

if (($Price3 &gt= $PriceLow) && ($Price3 &lt= $PriceHigh)) { $Option = $Option . "&ltCE Task=GO Dest=../RealEstate/LV77711.hdml&gtLV77711 &dol;249,995"; }

if (($Price4 &gt= $PriceLow) && ($Price4 &lt= $PriceHigh)) { $Option = $Option . "&ltCE Task=GO Dest=../RealEstate/BC01234.hdml&gtBC01234 &dol;500,000"; }

if (($Price5 &gt= $PriceLow) && ($Price5 &lt= $PriceHigh)) { $Option = $Option . "&ltCE Task=GO Dest=../RealEstate/LV11711.hdml&gtLV11711 &dol;1,500,000"; }




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