VPF::делаю форму предварительного запроса

Qwesa

Дата 11.3.2008, 00:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 96
Регистрация: 9.10.2007

Репутация: нет
Всего: нет

доброе время суток, вот возникла необходимость сделать чтоб с сайта можно было посылать предварительный заказ на рассмотрение.

с помощью скрипта вызывается окно, заполняя которое человек жмет ок и письмо посылается на определенный ранее имейл. Но поскольку я не являюсь создателем сайта, и мне он достался уже от третьего администратора, соответственно особо конструкцию его написания мне никто не растолковывал. Я ранее такие формы не делал, подскажите как этот механизм работает?

В окне формы которую нужно заполнять, есть упоминание на файл с расширением - "cgi" которое я вижу первый раз(( и находится он в папке - cgi-bin.

Сам файл содержит такой код:

Код


#!/usr/bin/perl
#zapros.cgi
#sprite13_4eva

use CGI::Carp qw(fatalsToBrowser);
use CGI;
my $q=new CGI;
$sendmail='/usr/sbin/sendmail';
$mail_to='***mail.ru';
$from='[email protected]';

#sub urldecode
# {
# local($val)=@_;
# $val=~s/\+/ /g;
# $val=~s/%([0-9a-hA-H]{2})/pack('C',hex($1))/ge;
# return $val;
#}

#$form_query=<STDIN>;
#@form_fields=split(/&/,$form_query);
#foreach(@form_fields)
# {
# if (/^company=(.*)/)                 {$company=&urldecode($1);}
# if (/^contact=(.*)/)                 {$contact=&urldecode($1);}
# if (/^address=(.*)/)                 {$address=&urldecode($1);}
# if (/^mail=(.*)/)                       {$mail=&urldecode($1);}
# if (/^tel_code=(.*)/)               {$tel_code=&urldecode($1);}
# if (/^tel_number=(.*)/)           {$tel_number=&urldecode($1);}
# if (/^fax_code=(.*)/)               {$fax_code=&urldecode($1);}
# if (/^fax_number=(.*)/)           {$fax_number=&urldecode($1);}
# if (/^interested_with=(.*)/) {$interested_with=&urldecode($1);}
# if (/^comments=(.*)/)               {$comments=&urldecode($1);}
# }

$company=$q->param('company');
$contact=$q->param('contact');
$address=$q->param('address');
$mail=$q->param('mail');
$tel_number=$q->param('tel_number');
$fax_number=$q->param('fax_number');
$interested_with=$q->param('interested_with');
$comments=$q->param('comments');


open(SENDMAIL, "|$sendmail $mail_to") or die ("mail :$!");
print SENDMAIL "From: $from\n" or die ("mail :$!");
print SENDMAIL "To: $mail_to\n" or die ("mail :$!");
print SENDMAIL "Subject: from $from\n" or die ("mail :$!");
print SENDMAIL "Êîìïàíèÿ : $company\n" or die ("mail :$!");
print SENDMAIL "Êîíòàêòû:$contact\n" or die ("mail :$!");
print SENDMAIL "Àäðåñ :$address\n" or die ("mail :$!");
print SENDMAIL "E-mail :$mail\n" or die ("mail :$!");
print SENDMAIL "Òåë. íîìåð : $tel_number\n" or die ("mail :$!");
print SENDMAIL "Ôàêñ : $fax_number \n" or die ("mail :$!");
print SENDMAIL "Èíòåðåñóþùèé òîâàð : $interested_with \n" or die ("mail :$!");
print SENDMAIL "Êîììåíòàðèè : $comments \n" or die ("mail :$!");
close(SENDMAIL) or die($!);
print "Location: http://****ok.htm \n\n";

обьясните что это такое пожалуйста.

FortMax

Дата 11.3.2008, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 485
Регистрация: 2.10.2006
Где: Россия, г. Бироби джан ЕАО

Репутация: 3
Всего: 5

с этим вопросом тебе сюда
это уже не верстка, а программирование, причем на perle

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Вёрстка веб-сайтов \| Следующая тема »