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


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


if ($Office eq 0) { $OptionOffice = "&ltoption onpick=\"UpdateHouseWML.pl? $Bedroom\&$Kitchen\&$Living\&1\&$Outside\"&gt"; $OptionOffice = $OptionOffice . "Office is OFF&lt/option&gt"; } else { $OptionOffice = "&ltoption onpick=\"UpdateHouseWML.pl? $Bedroom\&$Kitchen\&$Living\&0\&$Outside\"&gt"; $OptionOffice = $OptionOffice . "Office is ON&lt/option&gt"; }

if ($Outside eq 0) { $OptionOutside = "&ltoption onpick=\"UpdateHouseWML.pl? $Bedroom\&$Kitchen\&$Living\&$Office\&1\"&gt"; $OptionOutside = $OptionOutside . "Outside is OFF&lt/option&gt"; } else { $OptionOutside = "&ltoption onpick=\"UpdateHouseWML.pl? $Bedroom\&$Kitchen\&$Living\&$Office\&0\"&gt"; $OptionOutside = $OptionOutside . "Outside is ON&lt/option&gt"; }

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

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

&ltp align=\"center\"&gt

Smart House

&lt/p&gt

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

&ltselect&gt

$OptionBedroom $OptionKitchen $OptionLiving $OptionOffice $OptionOutside

&lt/select&gt

&lt/p&gt

&lt/card&gt

&lt/wml&gt";

print $Deck;


Как было сказано выше, когда приложение вызывает сценарий языка Perl, емупередаются параметры, которые соответствуют установкам в доме.


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