Подробнее о приложении WapMail.hdml

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

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

&ltEntry Name=Start Format=*m Key=ReplyTo Default="">

&ltAction Type=Accept Task=GO Dest=#GetTo>

&ltCenter>WAP Mail &ltbr>&ltbr>Reply To:

&lt/Entry>

&ltEntry Name=GetTo Format=*m Key=SendTo Default="">

&ltAction Type=Accept Task=GO Dest=#GetSubject>

&ltCenter>WAP Mail &ltbr>&ltbr>Send To:

&lt/Entry>

&ltEntry Name=GetSubject Format=*M Key=MsgSubject Default="">

&ltAction Type=Accept Task=GO Dest=#GetText>

&ltCenter>WAP Mail &ltbr>&ltbr>Subject:

&lt/Entry>

&ltEntry Name=GetText Format=*M Key=MsgText Default="">

&ltAction Type=Accept Task=GO Dest=#Confirm>

&ltCenter>WAP Mail &ltbr>&ltbr>Message:

&lt/Entry>

&ltDisplay Name=Confirm>

&ltAction Type=Accept Task=GO Label=Send Method=Post PostData=$(ReplyTo:noesc)&$(SendTo:noesc) &$(MsgSubject:noesc)&$(MsgText:noesc) Dest=../waplibcgi/WapMailHDML.pl>

&ltCenter>WAP Mail &ltbr>Reply-To: $(ReplyTo) &ltbr>To: $(SendTo) &ltbr>Subject: $(MsgSubject) &ltbr>Text: $(MsgText)

&lt/Display>

&lt/HDML&gt

Первый элемент внутри деки сообщает браузеру (или другим программистам),какая версия языка HDML используется приложением. Далее, выражение Markable=True сообщает браузеру, что он может установить закладку в исходной деке,a TTL=0 сообщает о невозможности кэширования (таким образом, браузер должен перезагружать эту деку каждый раз при обращении к нему пользователя).

Дека использует те же имена переменных, что и дека формата WML - SendTo, ReplyTo, MsgSubject и MsgText. Для обеспечения пользователю ввода информациииспользуется элементы <Entry>, которые также определяют формат вводимыхданных.

Снова форматы *м и *т позволяют вводить любые символы, числа и алфавитно-цифровые знаки, причем *М - по умолчанию считает первый символ символомверхнего регистра, *т - по умолчанию символом нижнего регистра.

После того как пользователь введет данные, приложение передает управлениекарте Confirm, которая отображает приглашение нажать кнопку Send. Если Sendнажата, приложение запускает сценарий языка Perl WapMailHDML.pl, который ивыполняет основную обработку данных.

Подробнее о приложении WapMail.wml

Когда вы запустите приложение WapMail, дека WapMail.wml отобразит пользователю приглашение ввести адрес для ответа, электронный адрес получателя, темусообщения и сам текст сообщения. После того как пользователь введет всю этуинформацию, приложение запустит сценарий языка Perl WapMailWML.pl, которыйи перешлет это сообщение электронной почты. Дека WapMail.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="WAPMail" title="WAP Mail"&gt

&ltonevent type="onenterforward"&gt

&ltrefresh&gt &ltsetvar name="SendTo" value="" /&gt &ltsetvar name="MsgSubject" value="" /&gt &ltsetvar name="MsgText" value="" /&gt &lt/refresh&gt

&lt/onevent&gt

&ltonevent type="onenterbackward"&gt

&ltrefresh&gt &ltsetvar name="SendTo" value="" /&gt &ltsetvar name="MsgSubject" value="" /&gt &ltsetvar name="MsgText" value="" /&gt &lt/refresh&gt

&lt/onevent&gt

&ltdo type="accept"&gt &ltgo href="#Confirm" /&gt &lt/do&gt

&ltp align="center"&gt

WAP Mail&ltbr/&gt

&lt/p&gt

&ltp align="left"&gt

Reply To: &ltinput name="ReplyTo" type="text" format="*m" /&gt

&lt/p&gt

&ltp align="center"&gt

WAP Mail&ltbr/&gt

&lt/p&gt

&ltp align="left"&gt

Send To: &ltinput name="SendTo" type="text" format="*m" /&gt

&lt/p&gt

&ltp align="center"&gt

WAP Mail&ltbr/&gt

&lt/p&gt

&ltp align="left"&gt

Subject: &ltinput name="MsgSubject" type="text" format="*M" /&gt

&lt/p&gt

&ltp align="center"&gt

WAP Mail&ltbr/&gt

&lt/p&gt

&ltp align="left"&gt

Message: &ltinput name="MsgText" type="text" format="*M" /&gt

&lt/p&gt

&lt/card&gt

&ltcard id="Confirm"&gt

&ltdo type="accept" label="Send"&gt &ltgo method="post" href="../waplibcgi/WapMailWML.pl"&gt &ltpostfield name="ReplyTo" value="$(ReplyTo)&"/&gt &ltpostfield name="SendTo" value="$(SendTo)&"/&gt &ltpostfield name="MsgSubject" value="$(MsgSubject)&"/&gt &ltpostfield name="MsgText" value="$(MsgText)"/&gt &lt/go&gt &lt/do&gt

&ltp align="center"&gt

WAP Mail

&lt/p&gt

&ltp align="left" mode="wrap"&gt

Reply-To: $(ReplyTo) &ltbr/&gtTo: $(SendTo) &ltbr/&gtSubject: $(MsgSubject) &ltbr/&gtText: $(MsgText)

&lt/p&gt

&lt/card&gt

&lt/wml&gt

Так же как и во всех деках формата WML, первые два ее элемента сообщают браузеру, какую из версий спецификации WAP поддерживает данное приложение. Внашем случае WML-страница поддерживает версию 1.0 языка XML и версию 1.1описания типа документа (DTD), разработанного ассоциацией WAP Forum.

&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

Далее, за информацией о версиях, каждый WML-файл начинается с тега <wml>. Вконце каждого файла вводят </wml>, что означает окончание исходного кодаприложения.

За <wml> следуют теги <head> и </head>, внутри которых находитсяинформация о самом исходном коде, включая метаданные и информацию обуправлении доступом. Многие программисты называют метаданные «данными оданных». Другими словами, в этом случае метаданные, которые считывает и обрабатывает браузер, сообщают ему, как трактовать данные.

&lthead&gt

&ltmeta http-equiv="Cache-Control" content="max-age=0" forua="true"/&gt

&lt/head&gt

Элемент <meta> позволяет точно определить метаинформацию для исходногофайла. В нашем случае строка http-eguiv="Cache-Control" сообщает браузеруWAP, что эта часть метаинформации используется системой кэширования памяти. Аналогично, строка content=max-age=0 сообщает браузеру, что максимальноевремя, в течение которого будет кэшироваться этот файл, равно нулю секунд;значит, браузер не будет кэшировать данные, а загружать данные с сервера каждый раз, когда они будут запрошены. Для этой книги значение нуля было выбрано для содействия процессу обучения читателя. При выборе нуля каждый раз,когда будут происходить изменения, они будут передаваться на телефон. В реальном приложении статическое меню, подобное этому, можно использовать поумолчанию в течение 30 дней. Последняя строка forua="true" определяет, чтозначение Cache-Control предназначено для телефона и не может быть измененокаким-либо промежуточным агентом.

Для отслеживания пользовательской информации приложение использует четыре переменные: ReplyTo, SendTo, MsgSubject, MsgText. За информацией заголовка деки следуют два элемента <onevent> для очистки значений переменныхSendTo, MsgSubject, MsgText в случае, если пользователь будет двигаться впередили назад по приложению, используя команды <до> и <prev>. Приложение считает адрес ReplyTo неменяющимся и поэтому не производит очистку соответствующей переменной каждый раз.

Как вы уже поняли по Главе 9, событие Onenterforward происходит, когдапользователь перемещается к карте деки с помощью команды <до>.

Аналогично,когда пользователь использует команду <prev>, происходит событие

пользователь использует команду <prev>, происходит событие Onenterbackward. После того как приложение передает сообщение сценарию языка Perl, сценарийиспользует элемент <до> для возврата в начало для того, чтобы пользовательсмог, если желает, послать еще одно сообщение.

Далее, в исходном коде деки следуют элементы <input> для определения формата четырех описанных выше переменных. Элементы <input> внутри деки записаны в том же порядке, в котором они появляются на дисплее. Заметьте также,что элементы <input> определяют формат для каждой из переменных. Формат*М позволяет вводить алфавитно-цифровые знаки смешанного регистра, числаили имена, начинающиеся, по умолчанию, со знака в верхнем регистре. Вообще,оба форматы *М и *т позволяют вводить имена, числа и алфавитно-цифровыезнаки, причем М - по умолчанию первый символ верхнего регистра, m - по умолчанию первый символ нижнего регистра.

После ввода пользователем всех данных, приложение передает управление картеConfirm (Подтверждение), которая отображает сообщение о данных, предназначенных для пересылки. После выбора пользователем опции Send, карта пересылает данные сценарию языка Perl WapMailWML.pl.

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

Как было сказано выше, когда пользователь выбирает опцию Send, приложениеWapMail.wml вызывает сценарий языка Perl, который и пересылает сообщениеэлектронной почты выбранному пользователю. Далее сценарий создает новуюдеку формата WML, которая запускается в браузере протокола WAP и отображаетсообщение об успешной пересылке сообщения. Как вы увидите, для пересылкисообщения сценарий просто использует программу пересылки почты ОС Unix.Исходный код сценария WapMailWML.pl приведен ниже:

#!/usr/bin/perl

require 'DeckUtils.pl';

$mailprog = "/bin/sendmail";

# Get the CGI variables. %cgiVars = &AppUtils::ParseCGIVars(); $ReplyTo = $cgiVars{"ReplyTo"}; $SendTo = $cgiVars{"SendTo"}; $MsgSubject = $cgiVars{"MsgSubject"}; $MsgText = $cgiVars{"MsgText"};

open(MAIL, "|$mailprog $SendTo");

print MAIL "Reply-To: $ReplyTo\n"; print MAIL "From: Demo\@waplib.com\n"; print MAIL "To: $SendTo\n"; print MAIL "Subject: $MsgSubject\n\n";

print MAIL "$MsgText\n";

close(MAIL);

print "Content-type: text/vnd.wap.wml\n\n"; print "&lt?xml version=\"1.0\"?&gt\n"; print "&lt!DOCTYPE wml PUBLIC \"- //WAPFORUM//DTD WML 1.1//EN\"\n"; print "\"http://www.wapforum.org /DTD/wml_1.1.xml\"&gt\n\n"; print "&ltwml&gt\n"; print "&ltcard&gt\n"; print "&ltdo type=\"accept\"&gt\n"; print "&ltgo href=\"../WapMail/WapMail.wml\" /&gt\n"; print "&lt/do&gt\n"; print "&ltp align=\"left\"&gt\n"; print "Message has been sent to:&ltbr/&gt\n"; print "$SendTo\n"; print "&lt/p&gt\n"; print "&lt/card&gt\n"; print "&lt/wml&gt\n";

Если вы внимательно проанализируете элемент open, вы увидите, что символуmailprog предшествует знак конвейера "|".

Имя mailprog является просто указателем на программу пересылки почты. Приложение использует знак конвейера"|", потому что открывает программу и передает ей данные по конвейеру посредством print

Первая строка сценария является всего лишь комментарием, сообщающим интерпретатору командной строки, где находится интерпретатор языка Perl. Втораястрока сообщает этому интерпретатору, что исходный сценарий требует другойсценарий DeckUtils.pl из SDK и содержит функцию ParseCGIVars, которая извлекает пары данных имя/значение, передаваемые сценарию из карты Confirm. Далее сценарий для сокращения записи присваивает переменной mailprog строковое значение полного пути к программе

Приложение анализирует список параметров (которые передаются из картыConfirm) и присваивает извлеченные значения переменным SendTo, ReplyTo,MsgSubject и MsgText. Далее, приложение запускает почтовую программу и использует print для адресации сообщения, ввода текста сообщения и так далее.Как вы видите, приложение присваивает значение ReplyTo заодно и значениюFrom сообщения. Значение From сообщает приложению, что оно было послано отDemo@waplib.com (вы можете изменить это значение, ссылаясь на свой собственный сайт в Сети). Значение ReplyTo, в отличие от From, определяет адрес, покоторому будет передан ответ, если получатель сообщения захочет на него ответить (значение ReplyTo соответствует значению, введенному пользователем призапуске приложения).

После того как сценарий закрывает почтовую программу, она пересылает сообщение получателю. Далее, сценарий создает новую деку, сообщающую об успешной пересылке сообщения.

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

После того как пользователь введет все данные для посылки сообщения электронной почты внутри приложения WapMail.hdml, оно пересылает данные сценариюWapMailHDML.pl, который и осуществляет посылку сообщения. Очевидно, что элементы для пересылки сообщения в сценарии WapMailHDML.pl аналогичны использующимся в сценарии, описанном выше в этой главе. Они приведены ниже:

#!/usr/bin/perl

$mailprog = "/bin/sendmail";

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

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

$ReplyTo = $data[0]; $SendTo = $data[1]; $MsgSubject = $data[2]; $MsgText = $data[3];

open(MAIL, "|$mailprog $SendTo");

print MAIL "Reply-To: $ReplyTo\n"; print MAIL "From: Demo\@waplib.com\n"; print MAIL "To: $SendTo\n"; print MAIL "Subject: $MsgSubject\n\n";

print MAIL "$MsgText\n";

close(MAIL);

print "Content-type: text/x-hdml\n\n"; print "&ltHDML Version=3.0 Markable=True TTL=0&gt\n\n"; print "&ltDisplay&gt\n"; print "&ltAction Type=Accept Task=GO Dest=../WapMail /WapMail.hdml"; print " Vars=SendTo=&MsgSubject=&MsgText=&gt"; print "Message has been sent to:&ltbr&gt\n"; print "$SendTo\n"; print "&lt/Display&gt\n"; print "&lt/HDML&gt\n";

Если вы сравните описанные сценарии, то, как и в Главе 9, вы увидите, что онипо-разному анализируют данные передаваемых им параметров. Это происходитпотому, что элемент postf ield языка WML работает не так, как элемент postdataязыка HDML. Как было сказано в Главе 9, postf ield передает параметры парамиимя/значение. В отличие от него элемент postdata передает только значенияданных. Это означает, что приложение должно знать, в какой последовательности передаются данные. Как вы можете видеть, сценарий просто анализируетданные параметров, создает и пересылает сообщения электронной почты, и после этого создает новую деку формата HDML, которая информирует пользователяоб успешной передаче сообщения.

Приглашение к вводу адресадля ответа

Рисунок 10.1. Приглашение к вводу адресадля ответа

Ввод адреса электронной почтиполучателя

Рисунок 10.2. Ввод адреса электронной почтиполучателя

Ввод текста сообщения

Рисунок 10.4. Ввод текста сообщения

Для того чтобы запустить приложение WapMail из своей собственной системы, вы должны использовать операционную систему Unixили Linux. Вы можете также запустить это приложение с сайтаwaplib.com.