From 8526cf2b23162d75ad55a4ee7587224a921b9ec2 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 7 May 2016 18:44:29 +0100
Subject: [PATCH] Send email when an order is placed

---
 Makefile.PL        |  2 ++
 README             |  4 ++++
 lib/App/Web/Oof.pm | 10 ++++++++++
 3 files changed, 16 insertions(+)

diff --git a/Makefile.PL b/Makefile.PL
index ffc13b0..fb896ce 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -13,6 +13,8 @@ WriteMakefile(
 		qw/Plack::App::File       0
 		   Plack::Builder         0
 		   DBIx::Simple           0
+		   Email::Sender::Simple  0
+		   Email::Simple          0
 		   File::Slurp            0
 		   HTML::TreeBuilder      0
 		   HTML::Element::Library 0
diff --git a/README b/README
index db4dc62..b316bf1 100644
--- a/README
+++ b/README
@@ -23,9 +23,13 @@ This module requires these other modules and libraries:
 
 * Plack
 * DBIx::Simple
+* Email::Simple
+* Email::Sender::Simple
+* File::Slurp
 * HTML::Element
 * HTML::Element::Library
 * JSON::MaybeXS
+* Try::Tiny
 
 COPYRIGHT AND LICENCE
 
diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index fa256a6..405ffb5 100644
--- a/lib/App/Web/Oof.pm
+++ b/lib/App/Web/Oof.pm
@@ -9,6 +9,8 @@ use parent qw/Plack::Component/;
 our $VERSION = '0.000_005';
 
 use DBIx::Simple;
+use Email::Sender::Simple 'sendmail';
+use Email::Simple;
 use File::Slurp;
 use HTML::TreeBuilder;
 use HTML::Element::Library;
@@ -208,6 +210,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: $_"]]
-- 
2.39.2