доброе время суток, вот возникла необходимость сделать чтоб с сайта можно было посылать предварительный заказ на рассмотрение.
с помощью скрипта вызывается окно, заполняя которое человек жмет ок и письмо посылается на определенный ранее имейл. Но поскольку я не являюсь создателем сайта, и мне он достался уже от третьего администратора, соответственно особо конструкцию его написания мне никто не растолковывал. Я ранее такие формы не делал, подскажите как этот механизм работает?
В окне формы которую нужно заполнять, есть упоминание на файл с расширением - "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='webmaster@100mb.ru';
#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";
|
обьясните что это такое пожалуйста. |