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


Рассмотрение приложения Restaurant - часть 8


Сценарий, в свою очередь, находит название ресторана и формирует для ресторана

#!/usr/bin/perl

$RestName = $ENV{'QUERY_STRING'};

if ($RestName eq "Marios")

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

&ltdo type=\"options\" label=\"Back\"&gt &ltgo href=\"RestCallTypeWML.pl?Italian\" /&gt &lt/do&gt

&ltp align=\"center\"&gt

Restaurants&ltbr/&gt Italian&ltbr/&gt

&lt/p&gt

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

Mario's&ltbr/&gt 111 North Rainbow&ltbr/&gt Las Vegas, NV&ltbr/&gt &lta href=\"wtai://wp/mc;7025551212\" title=\"Call\"&gt702-555-1212&lt/a&gt

&lt/p&gt

&lt/card&gt

&lt/wml&gt";

}

elsif ($RestName eq "OliveGarden")

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

&ltdo type=\"options\" label=\"Back\"&gt &ltgo href=\"RestCallTypeWML.pl?Italian\" /&gt &lt/do&gt

&ltp align=\"center\"&gt

Restaurants&ltbr/&gt Italian&ltbr/&gt

&lt/p&gt

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




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



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