Показать сообщение отдельно
Старый 14.11.2001, 14:16
gOloVasTicK  '~ вне форума Посмотреть профиль Отправить личное сообщение для gOloVasTicK  '~ Посетить домашнюю страницу gOloVasTicK  '~ Найти все сообщения от gOloVasTicK  '~
  № 2  
gOloVasTicK '~
виртуальное земноводное
 
Аватар для gOloVasTicK  '~

Регистрация: Mar 2001
Адрес: на работе
Сообщений: 1,779
Отправить сообщение для gOloVasTicK  '~ с помощью ICQ Отправить сообщение для gOloVasTicK  '~ с помощью AIM Отправить сообщение для gOloVasTicK  '~ с помощью Yahoo
Все довольно просто. Ежели 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;
}
Называешь скрипт email.cgi и кидаешь его в папку cg-bin на сервере, если таковая имеется.

Во флеше на кнопку отправки вешаешь акшен:
Код:
on(release){
  getURL("http://www.somehost.jp/email.cgi?name"+name+"&content="+content, "windowname");
}
windowname это имя окна в котором будет выдаваться сообщение "Все ОК".

Усе.
__________________
Дешевый критикан


Последний раз редактировалось gOloVasTicK '~; 14.11.2001 в 14:18.