Душ алексеева при остеохондрозе

«;

undef $sum, $price;
print «

«;
my $sth = $dbh->prepare («SELECT caser.id, caser.cid, caser.size, catalog.category, catalog.subcategory, catalog.name, catalog.model, catalog.describ, catalog.sex, catalog.price, catalog.price2 FROM caser, catalog WHERE session=? and catalog.id=caser.cid»);
$sth->execute($session);
while (my @val = $sth->fetchrow_array()) {

$price = $val[9] * $val[2] if(!$val[10]);
$price = $val[10] * $val[2] if($val[10]);
$sum+= $price;
$image = &get_image($val[1], undef, «s»);
$image = «»;

print «

«;
print »

«;
print «

«;
}
$sth->finish;

if($all) {
print «

«;
print «

«;
print «

«;
}
else {
print »

«;
}

print «»;
print «

«; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » $image «; print » «; print » «; print » «; print »

Итого к оплате: $sum руб.

Ваша корзина пуста. Добавьте товар из каталога.

«;

}

sub order {
my $error = $cgi->param(‘error’);

$all = $dbh->selectrow_array («SELECT COUNT(*) FROM caser WHERE session=?», undef, $session);
print «

«;
print «

«;
print «

«;

if($error eq 1) {
print »

«;
print »

«;
}
# elsif($error eq 2) {
# print »

«;
# print »

«;
# }

if($all) {

print «

«;
print «

«;
print «

«;
}
else {
print »

«;
}

print «»;
print «

«;
print «

ОФОРМЛЕНИЕ ЗАКАЗА НА ПОКУПКУ

Ошибка, проверьте правильность заполнения полей.

Ошибка, пользователь с таким e-mail уже существует. Чтобы сделать заказ «авторизуйтесь»

«; print « «; print » «; my $sth = $dbh->prepare («SELECT caser.id, caser.cid, caser.size, catalog.category, catalog.subcategory, catalog.name, catalog.model, catalog.describ, catalog.sex, catalog.price, catalog.price2 FROM caser, catalog WHERE session=? and caser.cid=catalog.id»); $sth->execute($session); while (my @val = $sth->fetchrow_array()) { $image = «https://» . $domain . &get_image($val[1], undef, «s»); $image = «»; $price = $val[9] * $val[2] if(!$val[10]); $price = $val[10] * $val[2] if($val[10]); $sum+= $price; $out = qq( ); print $out; $order .= $out; } $sth->finish; print «  СПИСОК ЗАКАЗАНОЙ ПРОДУКЦИИ $image $val[3] $val[4] — $val[5] $val[6] $val[8] $val[2] шт. $price руб. «; print « «; print « «; print » «; print » «; print « «; print » «; print « Итоговая стоимость: $sum руб. «; print «

Ваша корзина пуста. Добавьте товар из каталога.

«;
}

###########################################################################################################################################
###########################################################################################################################################
sub order_generate {

my $sum = $cgi->param(‘sum’);
my $order = $cgi->param(‘order’);
my $pay = $cgi->param(‘pay’);
my $delivery = $cgi->param(‘delivery’);
my $org = $cgi->param(‘org’);
my $name = $cgi->param(‘name’);
my $addr = $cgi->param(‘addr’);
my $phone = $cgi->param(‘phone’);
my $dop = $cgi->param(‘dop’);
my $mail = $cgi->param(‘mail’);
my $country = $cgi->param(‘country’);
my $city = $cgi->param(‘city’);
my $postindex = $cgi->param(‘postindex’);
my $delivery_time = $cgi->param(‘delivery_time’);
my $subscribe = $cgi->param(‘subscribe’) || «Нет»;

my $all = $dbh->selectrow_array («SELECT COUNT(*) FROM caser WHERE session=?», undef, $session);
if(!$name || !$phone || !$mail) { &go(«/order/&name=$name&phone=$phone&dop=$dop&error=1»); }

$num_zak = $dbh->selectrow_array («SELECT value FROM setup WHERE name=’num_zak'»);
$dbh->do(«UPDATE setup SET value=value+1 WHERE name=’num_zak'»);

$n = «
n»;
### формируем body ————————————————————————————————————
$body = «»;
$body .= «

«;

$body .= «

«;
$body .= «

«;
$body .= «

«;

$body .= «

«;
$body .= «

«;
$body .= «

«;

$body .= «

» if($delivery_time);
$body .= «

» if($postindex);
$body .= «

» if($country);
$body .= «

» if($city);
$body .= «

» if($addr);
$body .= «

» if($dop);
$body .= «

«;
$body .= «

«;
$body .= «

ЗАКАЗ: №	$num_zak
ФОРМА ОПЛАТЫ:	$pay
ТИП ДОСТАВКИ:	$delivery
Контактное лицо:	$name
Телефон:	$phone
E-mail:	$mail
Время доставки:	$delivery_time
Индекс:	$postindex
Страна:	$country
Город:	$city
Адрес доставки:	$addr
Доп. информация:	$dop
Подписка на рассылку:	$subscribe
Всего к оплате:	$sum руб.

«;

$body .= «

» . $order . «

ПЕРЕЧЕНЬ ЗАКАЗА:

«;
$body .= «»;
### —————————————————————————————————————————

$mail_manager = $dbh->selectrow_array («SELECT mail FROM delivery WHERE text=?», undef, $delivery);

# пишем администратору, менеджеру и клиенту —————————————————————-
if($mailer) { &send_html («Интернет-магазин «, $mailer, «Заказ №$num_zak с сайта https://$domain», $body); }
if($mailer2) { &send_html («Интернет-магазин «, $mailer2, «Заказ №$num_zak с сайта https://$domain», $body); }
if($mail_manager) { &send_html («Интернет-магазин «, $mail_manager, «Заказ №$num_zak с сайта https://$domain», $body); }
if(&TrueMail($mail)) { &send_html («Интернет-магазин «, $mail, «Заказ №$num_zak с сайта https://$domain», $body); }
### ———————————————————————————————————

# удаляем ненужные данные —————————————————————————————
$dbh->do(«DELETE FROM caser WHERE session=?», undef, $session);
### ———————————————————————————————————

$num_zak = $num_zak . «-» .int(rand(12));
&go(«/accept/&zakaz=$num_zak»);
}

###########################################################################################################################################
###########################################################################################################################################
sub title {
my($sth, $row);

if(($act eq ‘show’ && param(‘id’)) || ($act eq ‘catalog’ && !param(‘subcategory’))) {
$sth = $dbh->prepare («SELECT category, subcategory, name, model FROM catalog where id=?»);
$sth->execute(param(‘id’));
$row = $sth->fetchrow_hashref;
my $category = $row->{category};
my $subcategory = $row->{subcategory};
my $name = $row->{name};
my $model = $row->{model};
$sth->finish;

$title2 .= «$category $subcategory — $model»;
if($act ne ‘catalog’) {
$title = $title2;
}
}
elsif($act eq ‘catalog’ && param(‘subcategory’)) {

$sth = $dbh->prepare («SELECT category, subcategory FROM catalog where translator=?»);
$sth->execute(param(‘subcategory’));
$row = $sth->fetchrow_hashref;
my $category = $row->{category};
my $subcategory = $row->{subcategory};
$sth->finish;

$title = «$category $subcategory — https://$domain/catalog/». param(‘subcategory’) . «/»;
}
else {
my($id) = $cgi->param(‘id’);
$id = &translator if(!$id);

($title2, $describ2, $keywords2) = $dbh->selectrow_array («SELECT title, describ, keywords FROM content WHERE id=?», undef, $id);
$title = $title2 if($title2);
$describ = $describ2 if($describ2);
$keywords = $keywords2 if($keywords2);
}

print «n»;
print » $titlen»;
print » n»;
print » n»;
print » n»;
print «»;
}

###########################################################################################################################################
###########################################################################################################################################
sub top_text {
my $text = &text(«7»);

if($text) {
print $text;
}

}

###########################################################################################################################################
###########################################################################################################################################
sub top_text_describ {
my $text = &text(«8»);

if($text) {
print «

«;
print »

«;
print »

«;
print »

«;
print «

$text

«;
print «»;
}

}

###########################################################################################################################################
###########################################################################################################################################
sub catalog_list {
my($id, $categoryName, $sth, $sth2, $category, $subcategory);

my $category = $cgi->param(‘category’);
my $subcategory = $cgi->param(‘subcategory’);

if($dbh->selectrow_array («SELECT COUNT(*) FROM catalog»)) {
print «

«;
print «

«;
print «

«;
print «

«;
print »

«;
print «

«;
print «

КАТАЛОГ ТОВАРОВ

«; print «»; print »

«;
print «»;

# поисковая форма
&call_form;
}

}

###########################################################################################################################################
###########################################################################################################################################
sub text_list {

if($dbh->selectrow_array («SELECT COUNT(*) FROM content»)) {
print «»;
print «»;
}

}

sub num_subcategory {
my($num);

my $sth = $dbh->prepare(«SELECT id, translator FROM catalog WHERE category=?»);
$sth->execute($_[0]);
while (my @box = $sth->fetchrow_array) {

if(!$flag) {
$num = $box[1];
$flag =1;
}
else {
if($num eq $box[1]) { return 1; }
}

}

return 0;
}

###########################################################################################################################################
###########################################################################################################################################
sub call_form {
print «

«;
print »

«;
print »

«;
print »

«;
print «

ЗАКАЗ ОБРАТНОГО ЗВОНКА

Мы перезвоним Вам сами в течении 30 минут, где бы Вы не находились!

«;
}

###########################################################################################################################################
###########################################################################################################################################
sub registration {

my $org = $cgi->param(‘org’);
my $name = $cgi->param(‘name’);
my $addr = $cgi->param(‘addr’);
my $dop = $cgi->param(‘dop’);
my $mail = $cgi->param(‘mail’);
my $login = $cgi->param(‘login’);
my $error = $cgi->param(‘error’);

print «

«;
print »

«;
print »«;
print «

«; print » «; print » «; print » «; print » «; print » » if($error eq 1); print » » if($error eq 2); print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » «; print » Зарегистрируйтесь на Нашем сайте и Вы сможете купить продукцию. Ошибка, проверьте правильность заполнения полей. Ошибка, пользователь уже существует. Если Вы забыли пароль обратитесь к администратору. Организация:  (если есть) Контактное лицо (*):  (Ф.И.О.) Адрес, телефон (*):  (точный адрес доставки и контактный телефон) Доп, информация:  (код домофона, удобное время доставки и прочее…) E-mail:  Логин (*):  Пароль (*):  Повтор пароля (*):  «; print »

«;
}

###########################################################################################################################################
###########################################################################################################################################
sub pay {
my $id = $cgi->param(‘id’);
#my $size = 1; #$cgi->param(‘size’);

my $add = $dbh->prepare («SELECT cid FROM caser WHERE cid=? and session=?»);
$add->execute($id, $session);
$row = $add->fetchrow_hashref();
$add->finish;

if(defined $row->{cid}) {
$dbh->do(«UPDATE caser SET size=size+1 WHERE cid=? and session=?», undef, $id, $session);
}
else {
$dbh->do(«INSERT INTO caser (cid, session, size, time) VALUES (‘$id’, ‘$session’, ‘1’, NOW())»);
}

#&go(«$ENV{‘HTTP_REFERER’}»);
&go(«/caser»);
}

###########################################################################################################################################
###########################################################################################################################################
sub text {
my($id) = $_[0];
if(!$id) { $id = $cgi->param(‘id’); }
if(!$id) { $id = &translator; }

return $dbh->selectrow_array («SELECT text FROM content WHERE id=?», undef, $id);
}

###########################################################################################################################################
###########################################################################################################################################
sub translator {
return $dbh->selectrow_array («SELECT id FROM content WHERE translator=?», undef, param(‘act’));
}

###########################################################################################################################################
###########################################################################################################################################
sub logo {
$value = $dbh->selectrow_array («SELECT file FROM logo WHERE type=’logo'»);
$value =~ s/../files/https://$domain/files/g;
print «

«;
}

###########################################################################################################################################
###########################################################################################################################################
sub background {
$value = $dbh->selectrow_array («SELECT file FROM logo WHERE type=’background'»);
$value =~ s/../files/https://$domain/files/g;

print qq(

);
}

###########################################################################################################################################
###########################################################################################################################################
sub icons {
print «»;
}

###########################################################################################################################################
###########################################################################################################################################
sub caser_status {
my($sum);

my $sth = $dbh->prepare («SELECT caser.size, catalog.price FROM caser, catalog WHERE caser.session=? and catalog.id=caser.cid»);
$sth->execute($session);
while (my @val = $sth->fetchrow_array) {
$all+=$val[0];
$sum+=$val[1]*$val[0];
}
$sth->finish;
$sum = $sum . » руб.»;

if($all) {
print «

«;
print » «;
print » В корзине товаров:  «;
print »

«;
print » $all на сумму:
«;
print » $sum
«;
print » «;
print «

«;
}
else {
print «

«;
print » В корзине
нет товаров:

перейти в каталог
«;
print «

«;
}

}

###########################################################################################################################################
###########################################################################################################################################
sub accept {
my($zakaz) = $cgi->param(‘zakaz’);

print «

«;
print «

«;
print «

«;
print »

«;
print «

ВАШ ЗАКАЗ ПРИНЯТ!

«;
}

###########################################################################################################################################
###########################################################################################################################################
sub banner {

if($dbh->selectrow_array («SELECT COUNT(*) FROM banners WHERE visible=’1′»)) {
my $sth = $dbh->prepare («SELECT id, code FROM banners WHERE visible=1 ORDER BY RAND() LIMIT 1»);
$sth->execute;
my $row = $sth->fetchrow_hashref;
my $code = $row->{code};
my $id = $row->{id};
$sth->finish;

if($code) {
# print «»;
# print «»;
print «»;

$dbh->do(«UPDATE banners SET host=host+1 WHERE id=?», undef, $id);
}

}
}

###########################################################################################################################################
###########################################################################################################################################
sub click {
my($id) = $cgi->param(‘id’);
$link = $dbh->selectrow_array («SELECT link FROM banners WHERE id=?», undef, $id);

if($link) {
$dbh->do(«UPDATE banners SET hit=hit+1 WHERE id=?», undef, $id);
&go(«$link»);
}
else {
&go(«$ENV{‘HTTP_REFERER’}»);
}
}

###########################################################################################################################################
###########################################################################################################################################
sub call {

print «

«;
print «»;
print «»;
print qq(

);

print »

«;
print »

«;
print »

«;
print »

«;
print «»;

print «

Сообщите как Вас зовут и свой номер телефона, и мы обязательно сами перезвоним Вам в течении 30 минут, где бы Вы не находились! Служба «Обратный звонок» работает семь дней в неделю, с 7.30 до 21.30 по московскому времени. По возможности, пожалуйста, указывайте желаемое время звонка, особенно если часовой пояс в Вашем регионе отличается от московского. Нам будет трудно совершить звонок в следующих случаях: — троекратное получение сигнала «занято» или «недоступен» в течение 15 минут; — номер, указанный в заявке, не существует или заблокирован; Поля, отмеченные звёздочкой *, являются обязательными для заполнения.

ФАМИЛИЯ И ИМЯ *:

ТЕЛЕФОН *:

ПРИМЕЧАНИЕ:

«;
}

###########################################################################################################################################
###########################################################################################################################################
sub call_send {
my $name = $cgi->param(‘name’);
my $phone = $cgi->param(‘phone’);
my $subject = «Обратный звонок $domain»;
my $dop = $cgi->param(‘dop’);

$n = «
«;
### формируем body ————————————————————————————————————
$text .= «

«;

$text .= «

«;
$text .= «

«;
$text .= «

«;
$text .= «

Здравствуйте!

Этот вопрос пришел с сайта https://$domain, следующего содержания: Имя: $name Телефон: $phone Примечание: $dop

«;
### —————————————————————————————————————————

# пишем письмо ———————————————————————————————
&send_html(«Интернет-магазин «, $mailer, $subject, $text);
### ———————————————————————————————————

&go(«/call_accept»);
}

###########################################################################################################################################
###########################################################################################################################################
sub call_accept {
print qq(

Спасибо. Ваша заявка принята.

Ожидайте пожалуйста звонка.

вернуться на главную

);
}