Душ алексеева и шейный остеохондроз
undef $sum, $price;
print «
| «; print »
«; | |||||||
| Итого к оплате: $sum руб. | |||||||
Ваша корзина пуста. Добавьте товар из каталога. | |||||||
«;
}
sub order {
my $error = $cgi->param(‘error’);
$all = $dbh->selectrow_array («SELECT COUNT(*) FROM caser WHERE session=?», undef, $session);
print «
| ОФОРМЛЕНИЕ ЗАКАЗА НА ПОКУПКУ | |||||||||||||||||||||||||||||||||||||||||||||||||
| Ошибка, проверьте правильность заполнения полей. | |||||||||||||||||||||||||||||||||||||||||||||||||
| Ошибка, пользователь с таким e-mail уже существует. Чтобы сделать заказ «авторизуйтесь» | |||||||||||||||||||||||||||||||||||||||||||||||||
| «; print «
«; print «
«; 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 .= «
| ЗАКАЗ: № | $num_zak |
| ФОРМА ОПЛАТЫ: | $pay |
| ТИП ДОСТАВКИ: | $delivery |
| Контактное лицо: | $name |
| Телефон: | $phone |
| E-mail: | |
| Время доставки: | $delivery_time |
| Индекс: | $postindex |
| Страна: | $country |
| Город: | $city |
| Адрес доставки: | $addr |
| Доп. информация: | $dop |
| Подписка на рассылку: | $subscribe |
| Всего к оплате: | $sum руб. |
«;
$body .= «
| ПЕРЕЧЕНЬ ЗАКАЗА: |
«;
$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 «
| $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 «»;
# поисковая форма
&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 «
| ЗАКАЗ ОБРАТНОГО ЗВОНКА |
| Мы перезвоним Вам сами в течении 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 » | ||||||||||||||||||||
«;
}
###########################################################################################################################################
###########################################################################################################################################
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 «
| ВАШ ЗАКАЗ ПРИНЯТ! | |||||||||||||||||||||||||||||||||||||||||||||||||
«;
}
###########################################################################################################################################
###########################################################################################################################################
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 «
| Сообщите как Вас зовут и свой номер телефона, и мы обязательно сами перезвоним Вам в течении 30 минут, где бы Вы не находились! Служба «Обратный звонок» работает семь дней в неделю, с 7.30 до 21.30 по московскому времени. Нам будет трудно совершить звонок в следующих случаях: Поля, отмеченные звёздочкой *, являются обязательными для заполнения. | |
| ФАМИЛИЯ И ИМЯ *: | |
| ТЕЛЕФОН *: | |
| ПРИМЕЧАНИЕ: | |
«;
}
###########################################################################################################################################
###########################################################################################################################################
sub call_send {
my $name = $cgi->param(‘name’);
my $phone = $cgi->param(‘phone’);
my $subject = «Обратный звонок $domain»;
my $dop = $cgi->param(‘dop’);
$n = «
«;
### формируем body ————————————————————————————————————
$text .= «
| Здравствуйте! |
| Этот вопрос пришел с сайта https://$domain, следующего содержания: Имя: $name |
«;
### —————————————————————————————————————————
# пишем письмо ———————————————————————————————
&send_html(«Интернет-магазин «, $mailer, $subject, $text);
### ———————————————————————————————————
&go(«/call_accept»);
}
###########################################################################################################################################
###########################################################################################################################################
sub call_accept {
print qq(
Спасибо. Ваша заявка принята. |
| Ожидайте пожалуйста звонка. |
| вернуться на главную |
);
}
Источник
| Çàïîìíèòü
Ïîñëåäíèå íîâîñòè
Ñåðâèñû Êàëåíäàðü ñîáûòèé
Âàøå ìíåíèå î ñòðàíèöå: Äëÿ òîãî, ÷òîáû ïðîãîëîñîâàòü çà òåìó, âàì íåîáõîäèìî àâòîðèçèðîâàòüñÿ èëè çàðåãèñòðèðîâàòüñÿ | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Источник