X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FWeb%2FOof.pm;h=637f3935180bd294206ca02aec1c83a676c70ed4;hb=c51bcbe6a3d80499a2806c7a45c3f871b71bdb3b;hp=d74eca7b7ba727d3016bc7c67b0c240fb91152e8;hpb=fc536c37d2613d680e34b28e6c4595ca4cc772a7;p=app-web-oof.git

diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index d74eca7..637f393 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_004';
+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,6 +69,25 @@ 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{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) = @_;
@@ -146,7 +172,7 @@ sub continue_app {
 	}
 	$tree->look_down(name => 'discount')->detach unless $dvalue;
 	$tree->fid('discount_tr')->detach unless $dvalue;
-	my $postage = 220 + 50 * ($quant - $quant_freepost);
+	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;
@@ -189,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: $_"]]
@@ -230,14 +264,15 @@ 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, $summary) = $db{$$}->select(products => [qw/title summary/], {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);
-	$tree->fid('summary')->replace_content($summary);
+	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')->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 '/';