![]() |
|
||||||||||
|
|||||
|
виртуальное земноводное
|
Все довольно просто. Ежели Webservice поддерживает Перл :)
По первости именнуешь свои поля. Нпрм: name, content. Потом пишешь скрипт Перл типа: #!/usr/bin/perl
$query=$ENV{'QUERY_STRING'};
@formfields=split(/&/,$query);
foreach(@formfields){
if(/^name=(.*)/){$name=&urldecode($1);}
if(/^content=(.*)/){$content=&urldecode($1);}
}
$mailbody="Name=$name\nContent=$content\n";
$from="MySiteForm";
$sendto="my@email.jp";
$subject="MySubject";
open(MAIL, '| /usr/sbin/sendmail -t -oi');
print MAIL <<EOF;
To: $sendto
From: $from
Subject: $subject
$mailbody
EOF
close MAIL;
print "Content-Type: text/html\n\n";
print "Message successfully sent!!!\n";
sub urldecode{
local($val)=@_;
$val=~s/\+/ /g;
$val=~s/%([0-9A-H]{2})/pack('C',hex($1))/ge;
return $val;
}
Во флеше на кнопку отправки вешаешь акшен: on(release){
getURL("http://www.somehost.jp/email.cgi?name"+name+"&content="+content, "windowname");
}
Усе.
__________________
Дешевый критикан Последний раз редактировалось gOloVasTicK '~; 14.11.2001 в 14:18. |
![]() |
Часовой пояс GMT +4, время: 06:38. |
|
|
« Предыдущая тема | Следующая тема » |
|
|