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


Подробнее о сценарии языка Perl FlightScheduleWML.pl



Подробнее о сценарии языка Perl FlightScheduleWML.pl


Как было сказано выше, каждый раз, когда пользователь производит выбор авиакомпании и определяет номер рейса, приложение FlightSchedule.wml запускаетсценарий языка Perl, который отображает информацию о текущем состояниирейса или выдает сообщение об ошибке, если такой рейс не существует. Сценарий FlightScheduleWML.pl имеет следующий исходный код: #!/usr/bin/perl

require 'DeckUtils.pl';

%cgiVars = &AppUtils::ParseCGIVars(); $AirCode = $cgiVars{"AirCode"}; $FlightNum = $cgiVars{"FlightNum"};

if ($AirCode eq "SU") { $AirName = "Aeroflot";

if ($FlightNum eq "1") { $ArriveCity = "Moscow"; $ArriveTime = "8:30 pm"; } elsif ($FlightNum eq "2") { $ArriveCity = "New York"; $ArriveTime = "6:45 am"; } else { $ArriveCity = "Unknown"; } }

elsif ($AirCode eq "AC")

{ $AirName = "Air Canada";

if ($FlightNum eq "1") { $ArriveCity = "New York"; $ArriveTime = "10:30 pm"; } elsif ($FlightNum eq "2") { $ArriveCity = "Boston"; $ArriveTime = "9:45 am"; } else { $ArriveCity = "Unknown"; } }

elsif ($AirCode eq "AF")

{ $AirName = "Air France";

if ($FlightNum eq "1") { $ArriveCity = "Paris"; $ArriveTime = "9:45 pm"; } elsif ($FlightNum eq "2") { $ArriveCity = "London"; $ArriveTime = "11:45 am"; } else { $ArriveCity = "Unknown"; } }

elsif ($AirCode eq "NZ")

{ $AirName = "Air New Zealand";

if ($FlightNum eq "1") { $ArriveCity = "Auckland"; $ArriveTime = "8:50 pm"; } elsif ($FlightNum eq "2") { $ArriveCity = "Sydney"; $ArriveTime = "9:00 am"; } else { $ArriveCity = "Unknown"; } }

elsif ($AirCode eq "AS")

{ $AirName = "Alaska Airlines";




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