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

       

Пoдрoбнee o WapPageHDML.pl



Пoдрoбнee o WapPageHDML.pl

Когда пользователь вводит информацию ReplyTo, SendTo и MsgText в приложении WapPageHDML.pl, оно передает данные сценарию WapPageHDML.pl, который,в свою очередь, передает сообщение электронной почты центру сообщенийSprint PCS, непосредственно доставляющему сообщение получателю. Как вы, наверное, уже поняли, элементы передачи сообщения в сценарии WapPageHDML.plпрактически идентичны элементам в сценарии, описанным в этой главе выше.Исходный код сценарий приведен ниже:

#!/usr/bin/perl

$mailprog = "/bin/sendmail";

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

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

$ReplyTo = $data[0]; $SendTo = $data[1]; $SendTo =~ s/-//g; $SendTo .= "\@messaging.sprintpcs.com"; $MsgText = $data[2];

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

print MAIL "From: Demo\@WapLib.com\n"; print MAIL "To: $SendTo\n"; print MAIL "Subject: $ReplyTo\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=../WapPage/WapPage.hdml"; print " Vars=SendTo=&MsgSubject=&MsgText=&gt"; print "Message has been sent to: $SendTo\n"; print "&lt/Display&gt\n"; print "&lt/HDML&gt\n";

Если вы сравните эти два сценария языка Perl, вы увидите, что каждый из ниханализирует переданные параметры по-своему. Это происходит в связи с тем, чтоpostfield из языка WML работает несколько иначе по сравнению с postdata изязыка HDML Postfield передает пары имя/значение, a postdata передает только значения данных, поэтому приложение должно знать их порядок.



Содержание раздела