use utf8;
use parent qw/Plack::Component/;
-our $VERSION = '0.000_003';
+our $VERSION = '0.000_006';
use DBIx::Simple;
+use Email::Sender::Simple 'sendmail';
+use Email::Simple;
use File::Slurp;
use HTML::TreeBuilder;
use HTML::Element::Library;
##################################################
+my $postage_base = $ENV{OOF_POSTAGE_BASE} // 225;
+my $postage_per_item = $ENV{OOF_POSTAGE_PER_ITEM} // 50;
+
+##################################################
+
my %db;
my ($form, $continue, $order, $details, $pay);
$slug
}
+sub product_to_schemaorg {
+ my ($include_url, %data) = @_;
+ my $stock = $data{stock} > 0 ? 'InStock' : 'OutOfStock';
+ +{
+ '@context' => 'http://schema.org/',
+ '@type' => 'Product',
+ name => $data{title},
+ image => "/static/fullpics/$data{product}-1.jpg",
+ description => $data{summary},
+ offers => {
+ '@type' => 'Offer',
+ price => ($data{price} =~ s/(..)$/\.$1/r),
+ priceCurrency => 'GBP',
+ availability => "http://schema.org/$stock",
+ ($include_url ? (url => "/details/$data{product}/" . make_slug $data{title}) : ())
+ }
+ }
+}
+
+our %highlight;
sub form_table_row {
my ($data, $tr) = @_;
+ $tr->attr(class => 'highlight') if $highlight{$data->{product}};
$tr->fclass($_)->replace_content($data->{$_}) for qw/title subtitle stock/;
$tr->fclass('price')->replace_content(stringify_money $data->{price});
+ $tr->fclass('freepost')->detach unless $data->{freepost};
$tr->fclass('title')->attr('data-product', $data->{product});
$tr->fclass('title')->attr('href', '/details/'.$data->{product}.'/'.make_slug $data->{title});
# $tr->fclass('title')->attr('data-summary', $data->{summary});
sub form_app {
my ($env) = @_;
$db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
+ my $req = Plack::Request->new($env);
+ local %highlight = map { $_ => 1 } $req->param('highlight');
my $data = $db{$$}->select(products => '*', {}, 'product')->hashes;
my $tree = $form->clone;
$tree->find('tbody')->find('tr')->iter3($data, \&form_table_row);
sub continue_table_row {
my ($data, $tr) = @_;
$tr->fclass($_)->replace_content($data->{$_}) for qw/title subtitle quantity/;
+ $tr->fclass('freepost')->detach unless $data->{freepost};
$tr->fclass('price')->replace_content(stringify_money $data->{subtotal});
$tr->fclass('title')->attr('data-product', $data->{product});
}
my $req = Plack::Request->new($env);
my $params = $req->body_parameters;
- my ($quant, $total, @data, @notes);
+ my ($quant, $quant_freepost, $total, @data, @notes) = (0) x 3;
for (sort keys %$params) {
next unless /^quant/;
next unless $params->{$_};
}
$data->{subtotal} = $data->{price} * $data->{quantity};
$quant += $data->{quantity};
+ $quant_freepost += $data->{quantity} if $data->{freepost};
$total += $data->{subtotal};
push @data, $data
}
}
$tree->look_down(name => 'discount')->detach unless $dvalue;
$tree->fid('discount_tr')->detach unless $dvalue;
- my $postage = 220 + 50 * $quant;
+ my $postage = $postage_base + $postage_per_item * ($quant - $quant_freepost);
+ $postage = 0 if $quant == $quant_freepost;
$tree->fid('postage')->replace_content(stringify_money $postage);
$total += $postage;
$tree->fid('total')->replace_content(stringify_money $total);
my $req = Plack::Request->new($env);
my ($id) = $env->{PATH_INFO} =~ m,^/([0-9A-F]+),;
if ($id) {
- my $total = $db{$$}->select(orders => 'total', {id => $id})->list;
+ my $total = $db{$$}->select(orders => 'total', {id => $id})->list or
+ return [500, ['Content-type', 'text/plain'], ['Order not found']];
$tree->fid('orderid')->replace_content($id);
$tree->look_down(name => 'order')->attr(value => $id);
$tree->fid('total')->replace_content(stringify_money $total);
}
$db{$$}->insert(orders => {id => $id, %parms});
$db{$$}->commit;
+ sendmail (Email::Simple->create(
+ header => [
+ From => $ENV{OOF_EMAIL_FROM},
+ To => $ENV{OOF_EMAIL_TO},
+ Subject => "Order $id placed",
+ ],
+ body => 'A new order was placed.',
+ )) if $ENV{OOF_EMAIL_TO};
} catch {
$db{$$}->rollback;
$err = [500, ['Content-type', 'text/plain'], ["Error: $_"]]
}
}
+sub cancel {
+ my ($order) = @_;
+ $db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
+ $order = $db{$$}->select(orders => '*', {id => $order})->hash;
+ my $products = decode_json $order->{products};
+ $db{$$}->begin_work;
+ try {
+ for my $prod (@$products) {
+ my $stock = $db{$$}->select(products => 'stock', {product => $prod->{product}})->list;
+ $db{$$}->update(products => {stock => $stock + $prod->{quantity}}, {product => $prod->{product}});
+ }
+ $db{$$}->delete(orders => {id => $order->{id}});
+ $db{$$}->commit;
+ } catch {
+ $db{$$}->rollback;
+ die $_
+ }
+}
+
sub details_list_element {
my ($data, $li) = @_;
$li->find('a')->attr(href => "/$data");
$db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
my $tree = $details->clone;
my ($id) = $env->{PATH_INFO} =~ m,^/(\d+),;
- my $title = $db{$$}->select(products => 'title', {product => $id})->list;
+ my %data = %{$db{$$}->select(products => '*', {product => $id})->hash};
my @pics = <static/fullpics/$id-*>;
- my $slug = make_slug $title;
- $tree->find('title')->replace_content("Pictures of $title | ledparts4you");
- $tree->find('h2')->replace_content($title);
+ my $slug = make_slug $data{title};
+ $tree->find('title')->replace_content("$data{title} | ledparts4you");
+ $tree->find('h2')->replace_content($data{title});
+ $tree->fid('summary')->replace_content($data{summary});
$tree->look_down(rel => 'canonical')->attr(href => "/details/$id/$slug");
- $tree->fid('pictures')->iter3(\@pics, \&details_list_element);
+ $tree->fid('pictures')->find('li')->iter3(\@pics, \&details_list_element);
+ $tree->fid('jsonld')->replace_content(encode_json product_to_schemaorg '', %data);
+
+ for my $ahref ($tree->find('a')) {
+ $ahref->attr(href => "/form?highlight=$id") if $ahref->attr('href') eq '/';
+ }
[200, ['Content-type' => 'text/html; charset=utf-8'], [$tree->as_HTML]]
}
my $app = shift;
sub {
my $res = $app->(@_);
- push @{$res->[2]}, $footer if $res->[0] == 200;
+ $res->[2][0] =~ s,</body>,$footer</body>, if $res->[0] == 200;
$res;
}
};
projects / app-web-oof.git / blobdiff