Создаем собственный интернет магазин
Итак, у вас много всякого товара, который вы хотите спихнуть, но спрашивается каким образом??? Ну конечно, можно дать объявление в местную газету или еще куда-нибудь, но если у вас есть сайт то можно просто создать свой интернет магазин. Конечно причины создания интернет shop'инга могут быть различные, но для примера мы будем продавать скажем сотовые телефоны. Все, хватит теории, приступим к практике... :-)
Так, как уже было сказано мы продаем сотовый телефон, например у нас в наличии телефон SIEMENS M50. На своем сайте вы размещаете о нем информацию, например:
Код товара: 001
Наименование товара: Сотовый телефон стандарта GSM Siemens M50
Цена: 90$
Итак, теперь самое главное, мы должны сделать правильную форму заявки и скрипт который будет "анализировать" всю информацию и который будет вычислять IP адрес заказчика... Ну все по порядку, начнем с
формы отправки заявки...
с левой стороны вы видите типичную форму отправки заявки на покупку товара, конечно можно ей улучшить, но так как мы только учимся создавать интернет магазин то я не буду писать скрипт который улучшит эту форму, я только скажу что
улучшение заключается в том, что если ваш посетитель, который не заполнил одну из строк, при нажатии на кнопку Отправить форму получит "Уведомление" о не заполнении данной строки...
Вообще-то если вы хоть немного продвинутый web-дизайнер то вы знаете как это сделать... Ну а теперь как всегда html форма этой Формы отправки
Здесь видно, что заявка отправляется не на html файл а на cgi . Файл cgi в свою очередь отправляет данные на html файл. Здесь все понятно, только низабудь поменять FORM action="http://
you_address/cgi-bin/buy.cgi" на свой адрес, в противном случаи работать не будет...
Теперь займемся cgi документом. Напоминаю что chmod файла cgi равен 755. Имя данного cgi (!) файла должно быть buy.cgi . Вот что должно быть в нем:
#! /usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$value =~ s/<([^>]|\n)*>//g;
$FORM{$name} = $value;
}
$logfile = "/home/s/you_address/WWW/clients.html";
&get_date;
open (FILE, ">>$logfile");
print FILE "
Покупатель:
";
print FILE "IP адрес: $ENV{'REMOTE_ADDR'}\n\n";
print FILE "
\n\n";
print FILE "Заказал товар в $date
\n\n";
print FILE "C кодом: $FORM{'code'}\n\n
";
print FILE "Имя товара: $FORM{'name'}\n\n
";
print FILE "Емайл: $FORM{'email'}\n\n
";
print FILE "Адрес: $FORM{'addr'}\n\n";
print FILE " |
\n\n";
close(FILE);
print "Content-type: text/html\n\n";
print "
Ваш заказ был отправлен на сервер компании!
";
exit;
sub get_date
{
@days = ('Воскресенье','Понедельник','Вторник','Среду',
'Четверг','Пятницу','Субботу');
@months = ('Января','Февраля','Марта','Апреля','Мая','Июня','Июля',
'Августа','Сентября','Октября','Ноября','Декабря');
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$year += 1900;
$date = "$days[$wday], $mday $months[$mon], $year at $time";
}
Вот этот скрипт анализирует всю информацию, теперь рассказываю о html документе ( chmod на html файл равен 777 ) и на этом статья будет закончена, так как больше нечего про него сказать... Вообщем вот все что должно быть в html документе, имя данного html(!)документа должно быть clients.html:
Вы просматриваете файл заказов частного интернет магазина
<>CENTER>
Ну вот и все, удачного вам использования скрипта, побольше покупателей вот и все...
P.S. - данный скрипт можно использовать не только для интернет магазина но и для другой информации...
Оглавление
| ?? ????
