в свою очередь, находит название
Сценарий, в свою очередь, находит название ресторана и формирует для ресторана
#!/usr/bin/perl
$RestName = $ENV{'QUERY_STRING'};
if ($RestName eq "Marios")
{ $Deck = "Content-type: text/vnd.wap.wml
<?xml version=\"1.0\"?> <!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">
<wml>
<head>
<meta http-equiv=\"Cache-Control\" content=\"max-age=0\" forua=\"true\"/>
</head>
<card id=\"Marios\">
<do type=\"options\" label=\"Back\"> <go href=\"RestCallTypeWML.pl?Italian\" /> </do>
<p align=\"center\">
Restaurants<br/> Italian<br/>
</p>
<p align=\"left\" mode=\"nowrap\">
Mario's<br/> 111 North Rainbow<br/> Las Vegas, NV<br/> <a href=\"wtai://wp/mc;7025551212\" title=\"Call\">702-555-1212</a>
</p>
</card>
</wml>";
}
elsif ($RestName eq "OliveGarden")
{ $Deck = "Content-type: text/vnd.wap.wml
<?xml version=\"1.0\"?> <!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\">
<wml>
<head>
<meta http-equiv=\"Cache-Control\" content=\"max-age=0\" forua=\"true\"/>
</head>
<card id=\"OliveGarden\">
<do type=\"options\" label=\"Back\"> <go href=\"RestCallTypeWML.pl?Italian\" /> </do>
<p align=\"center\">
Restaurants<br/> Italian<br/>
</p>
<p align=\"left\" mode=\"nowrap\">
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий