База данных реализована при помощи СУБД MySQL. Это быстрая, надежная и простая в использовании СУБД.

База данных состоит из пяти таблиц:

goods - все товары в базе данных

ordergoods - заказанные товары пользователями

sessions - информация о сессиях работы

settings - хранит дату последнего обновления прайс-листа и количество распечатанных счетов

users - информация о пользователях

Таблица goods состоит из семи столбцов:

name - наименование позиции

cost - текущая цена

oldcost - предыдущая цена

isgoods - содержит информацию о том, является ли позиция товаром или категорией товара

id - индентификационный номер позиции

pid - идентификационный номер категории товара

seller - информация о поставщике товара

Таблица ordergoods состоит из восьми столбцов:

id - идентификационный номер товара

uid - идентификационный номер пользователя

gid - артикул товара

pid - идентификационный номер категории товара

seller - информация о поставщике товара

createdate - дата и время добавления товара

number - количество добавленного товара

oldname - наименование товара

Таблица sessions состоит из четырех столбцов:

id - идентификационный номер сессии

uid - идентификационный номер пользователя

createdate - дата и время начала сессии пользователем

accessdate - дата и время доступа пользователем

Таблица settings состоит из трех столбцов:

id - идентификационный номер строки "настройки”

name - наименование "настройки”

value - значение "настройки”

Таблица users состоит из восьми столбцов:

id - идентификационный номер пользователя

name - входное имя пользователя

phone - номер телефона пользователя

password - пароль пользователя

createdate - дата и время создания пользователя

accessdate - дата и время первого доступа пользователя

admin - хранит информацию об администраторских правах пользователя

email - E-mail пользователя

Создание таблиц на сервере:

CREATE TABLE `goods` (`name` varchar (200) NOT NULL default '',

`cost` float NOT NULL default '0',

`oldcost` float NOT NULL default '0',

`isgoods` tinyint (4) NOT NULL default '0',

`id` int (11) NOT NULL default '0',

`pid` int (11) NOT NULL default '0',

`seller` char (1) NOT NULL default '',

PRIMARY KEY (`id`,`pid`,`seller`)

);

CREATE TABLE `ordergoods` (

`id` int (11) NOT NULL auto_increment,

`uid` varchar (64) NOT NULL default '',

`gid` int (11) NOT NULL default '0',

`pid` int (11) NOT NULL default '0',

`seller` char (1) NOT NULL default '',

`createdate` datetime NOT NULL default '0000-00-00 00: 00: 00',

`number` int (11) NOT NULL default '1',

`oldname` varchar (200) NOT NULL default '',

PRIMARY KEY (`id`)

);

CREATE TABLE `sessions` (

`id` varchar (32) NOT NULL default '',

`uid` int (11) NOT NULL default '0',

`createdate` datetime NOT NULL default '0000-00-00 00: 00: 00',

`accessdate` datetime NOT NULL default '0000-00-00 00: 00: 00'

);

CREATE TABLE `settings` (

`id` int (11) NOT NULL auto_increment,

`name` varchar (64) NOT NULL default '',

`value` varchar (128) NOT NULL default '',

PRIMARY KEY (`id`)

);

CREATE TABLE `users` (

`id` int (11) NOT NULL auto_increment,

`name` varchar (32) NOT NULL default '',

`phone` varchar (32) NOT NULL default '',

`password` varchar (32) NOT NULL default '',

`createdate` datetime NOT NULL default '0000-00-00 00: 00: 00',

`accessdate` datetime NOT NULL default '0000-00-00 00: 00: 00',

`admin` char (1) NOT NULL default '',

`email` varchar (64) NOT NULL default '',

PRIMARY KEY (`id`)

);

Добавление пользователя в базу данных осуществлется подпрограммой AddUser, входящей в программу stoik. pl

sub AddUser {

my $user = shift;

my $phone = shift;

my $pass = shift;

my $email = shift;

my $cryptpass = crypt ($pass,substr ($pass,0,2));

my $sth;

$sth = $c->prepare ("insert into $tables:: users (id,name,phone,password,createdate,accessdate,email,admin)

values (null,?,?,?,now (),now (),?,0)");

$c->execute ($sth,$user,$phone,$cryptpass,$email);

}

Добавление товаров в базу данных осуществляется командой LoadPrice () из файла daemon. pl, который запускается с сервера автоматически в установленное время или вручную.

sub LoadPrice {

my $content = get ($loadurl);

}

$loadurl='http://адрес_сайта.ru/? cmd=loadprices&user=имя_пользователя&pass=пароль';

запускается команда loadprices из файла stoik. pl

$func{'loadprices'} = \&loadprices;

выполняется подпрограмма loadprices

sub loadprices {

my $user = $c->{cgi}->param ('user');

my $pass = $c->{cgi}->param ('pass');

my ($id,$admin) = checkPass ($user,$pass);

my $zip;

my $status;

print "Content-type: text/html\n";

print "\n";

if ($admin) {

load_price ('o');

load_price ('n');

my $t = time;

$t += 60*60*3;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime ($t);

$mon++;

$year += 1900;

setSettings ($settings:: pricedate,"$mday/$mon/$year $hour: $min: $sec");

} else {

print 'Only for ADMINISTRATORS! ';

}

}

Подпрограмма loadprices обращается к подпрограмме load_price программы stoik. pl (см. код в приложении 1).

Так же загрузка прайс-листов в базу данных возможна из администраторской части сайта при помощи формы, выполняющих комманды load_oldi, load_nix из подпрограммы load_price файла stoik. pl

Поиск товара по базе данных осуществляется при помощи подпрограммы search

sub search {

showgoods ('search');

}

Которая, в свою очередь, обращается к подпрограмме showgoods программы stoik. pl, осуществляющей выгрузку информации о товарах из базы данных (см. код в приложении 1).

Выгрузка информации о имени пользователя, количестве товаров добавленных в корзину и итоговой сумме осуществляется при помощи подпрограммы myaccountinfo, входящей в состав программы stoik. pl, которая обращается к подпрограммам getSumGoodByUser и getCountGoodByUser для получения информации о итоговой сумме и количестве товаров из базы данных (см. код в приложении 1).

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

Администраторская часть содержит инструменты управления прайс-листами Интернет - магазина.

В клиентской части архитектуры разрабатывается максимально удобная и доступная работа потенциального клиента на страницах Интернет - магазина.

Программная часть архитектуры Интернет - магазина рассматривается как взаимосвязь операционной и серверной части.

Серверная часть содержит в себе размещение Интернет - магазина на сайте провайдера, поддерживающие технологии, используемые при создании Интернет - магазина.

В операционной части рассматривается среда разработки Интернет - магазина.

Главная страница объединяет в себе четыре iFrame, прописанных в файле stoik_goods. htm:

myaccountinfoFrame;

menuhowFrame;

myaccountgoodsFrame;

goodsFrame.

Которые отображают в себе страницы myaccountinfo_frame. htm, menuhow. htm, myaccountgoods_frame. htm и goods_frame. htm при помощи комманд myaccountinfo, menuhow, myaccountgoods, welcome, вызываемых из файла stoik. pl

myaccountinfoFrame - iFrame с информацией о пользователе: входное имя, товары добавленные в корзину (количество и стоимость товаров). А так же с возможностью входа и регистрацией, если пользователь не авторизирован или не зарегистрирован

Выгрузка информации о имени пользователя, количестве товаров добавленных в корзину и итоговой сумме осуществляется при помощи подпрограммы myaccountinfo, входящей в состав программы stoik. pl, которая обращается к подпрограммам getSumGoodByUser и getCountGoodByUser для получения информации о итоговой сумме и количестве товаров из базы данных

menuhowFrame - iFrame, который содержит в себе меню сайта со ссылками на информационные страницы ресурса, такие как "главная", которая содержит в себе "горячие" товары магазина, "контакты" с номером телефона, графиком работы, адресом салона, схемой проезда, "оплата", где описаны способы опаты наличным и безналичным способом, "доставка" и "услуги" с дополнительной информацией об оказываемых услугах компьютерной фирмой, помимо продажи товара. Ссылки открываются во фрейме goodsFrame.

myaccountgoodsFrame - iFrame, содержащий в себе, прежде всего блок корзины, всегда отображаемый при условии наличия в корзине товара, а так же блоки регистрации, авторизации, смены пароля.

goodsFrame - iFrame, содержащий в себе список товаров определенной категории, выбираемой из прайс-листа фирмы, также отображающий в себе информационные страницы сайта, открываемые из фрейма с меню menuhowFrame.

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

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

daemon. pl осуществляет загрузку постоянно обновляемых прайс-листов компаний-поставщиков "НИКС” и "OLDI” с их серверов.

$nixfile = 'd: \nix. zip';

$nixprice = 'ftp: // ftp2. nix.ru/download/price/Nix3. ZIP';

$oldifile = 'd: \oldi. zip';

$oldiprice = 'http://www.oldi.ru/price/oldipr. zip';

print "-== - Загрузка прайсов - ==-\n";

print "NIX... ";

$res = getstore ($nixprice, $nixfile);

if ($res == RC_OK) {

print "OK \n";

} else {

die "Загрузка NIX\n";

}

print "OLDI.. ";

$res = getstore ($oldiprice, $oldifile);

if ($res == RC_OK) {

print "OK\n";

} else {

die "Загрузка OLDI\n";

}

В будущем список поставщиков будет расширен и планируется реализовать возможность интеграции сайта, прайс-листа и базы данных с компанией "Ф-центр”. Так же на данный момент разрабатывается внутренний прайс-лист компании "Стоик”, после окончания разработки которого он будет интегрирован с сайтом. После загрузки на сервер свежих Excel прайс-листов в zip-архиве происходит их распаковка

$extractpath = 'd: ';

print "-== - Распаковка прайсов - ==-\n";

$zipFile = Archive:: Zip->new ();

$status = $zipFile->read ($nixfile);

print "NIX... ";

if ($status! = AZ_OK) {

die "Распаковка прайсов\n";

} else {

print "OK\n";

}

$zipFile->extractTree ('','',$extractpath);

print "OLDI.. ";

$zipFile = Archive:: Zip->new ();

$status = $zipFile->read ($oldifile);

if ($status! = AZ_OK) {

die die "ОШИБКА4\n";

} else {

print "OK\n";

}

$zipFile->extractTree ('','',$extractpath);

Затем идет разборка прайс-листов (парсинг) из Excel-формата в txt.

print "-== - Разборка прайсов - ==-\n";

ParseNix ();

ParseOldi ();

$olditxt = $extractpath. '\oldi. txt';

$nixtxt = $extractpath. '\nix. txt';

sub ParseNix {

my $oExcel = new Spreadsheet:: ParseExcel;

my $oFmtR = Spreadsheet:: ParseExcel:: FmtUnicode->new (Unicode_Map => "CP1251");

my $oBook = $oExcel->Parse ($nixxls, $oFmtR);

my ($iR, $iC, $oWkS, $oWkC);

$oWkS = $oBook->Worksheet (0);

$kurs = $oWkS->{Cells} [3] [4] - >{Val};

my $price;

my $price1;

my $id;

my $pid;

my $name;

my $isGood;

my $parent;

open (FILE,'>',$nixtxt);

NEXTL: for (my $iR = 7; defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow}; $iR++) {

$pid = $oWkS->{Cells} [$iR] [5] - >{Val};

$price = $oWkS->{Cells} [$iR] [2] - >{Val};

$price1 = $oWkS->{Cells} [$iR] [2] - >Value;

$id = $oWkS->{Cells} [$iR] [0] - >{Val};

$price = $price*$kurs*1.05;

if ($pid) {

$parent = $pid;

$id = $parent;

$pid = 0;

$isGood = 0;

$name = $oWkS->{Cells} [$iR] [0] - >Value;

} else {

$id = $oWkS->{Cells} [$iR] [0] - >{Val};

$isGood = 1;

$pid = $parent;

$name = $oWkS->{Cells} [$iR] [1] - >Value;

}

print FILE "$isGood|$id|$pid|$name|$price\n";

}

close (FILE);

}

sub ParseOldi {

my $oExcel = new Spreadsheet:: ParseExcel;

my $oFmtR = Spreadsheet:: ParseExcel:: FmtUnicode->new (Unicode_Map => "CP1251");