X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FWeb%2FOof.pm;h=c3aeeb1883c5b07012a273a876da0a926bead690;hb=889f48be6eceea1099e58d1a092545a91b0d236c;hp=3e76325eda5509c2ce55d8f5c6031b1ca627b3ad;hpb=b66954a00daf8f8461626b52bee6030eac8843fd;p=app-web-oof.git

diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index 3e76325..c3aeeb1 100644
--- a/lib/App/Web/Oof.pm
+++ b/lib/App/Web/Oof.pm
@@ -6,9 +6,11 @@ use warnings;
 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;
@@ -35,6 +37,11 @@ sub HTML::Element::fclass { shift->look_down(class => qr/\b$_[0]\b/) }
 
 ##################################################
 
+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);
 
@@ -62,10 +69,32 @@ sub make_slug {
 	$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{subtitle},
+		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});
@@ -76,8 +105,10 @@ sub form_table_row {
 sub form_app {
 	my ($env) = @_;
 	$db{$$} //= DBIx::Simple->connect($ENV{OOF_DSN} // 'dbi:Pg:');
+	my $req = Plack::Request->new($env);
 
-	my $data = $db{$$}->select(products => '*', {}, 'product')->hashes;
+	local %highlight = map { $_ => 1 } $req->param('highlight');
+	my $data = $db{$$}->select(products => '*', {stock => {'>', 0}}, 'product')->hashes;
 	my $tree = $form->clone;
 	$tree->find('tbody')->find('tr')->iter3($data, \&form_table_row);
 
@@ -87,6 +118,7 @@ sub form_app {
 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});
 }
@@ -98,7 +130,7 @@ sub continue_app {
 	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->{$_};
@@ -114,6 +146,7 @@ sub continue_app {
 		}
 		$data->{subtotal} = $data->{price} * $data->{quantity};
 		$quant += $data->{quantity};
+		$quant_freepost += $data->{quantity} if $data->{freepost};
 		$total += $data->{subtotal};
 		push @data, $data
 	}
@@ -139,7 +172,8 @@ sub continue_app {
 	}
 	$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);
@@ -160,7 +194,8 @@ sub order_app {
 	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);
@@ -180,6 +215,14 @@ sub order_app {
 			}
 			$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: $_"]]
@@ -189,6 +232,25 @@ sub order_app {
 	}
 }
 
+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");
@@ -202,13 +264,20 @@ sub details_app {
 	$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});
+	my $summary_literal = HTML::Element::Library::super_literal $data{summary};
+	$tree->fid('summary')->replace_content($summary_literal);
 	$tree->look_down(rel => 'canonical')->attr(href => "/details/$id/$slug");
 	$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]]
 }
@@ -231,7 +300,7 @@ sub app {
 			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;
 			}
 		};