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


Подробнее о сценарии языка Perl WapMail.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 предшествует знак конвейера "|".


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



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