#!/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;
use HTML::Entities;

use Encode qw(encode decode);

my ($email, $secretaryEmail, $demand, $vin, $vehicleCondition, $priceOffer1, $dateOffer1, $mileageOffer1, $priceOffer2, $dateOffer2, $mileageOffer2, $comments) = @ARGV;

use constant DB_NAME => "tradin_porsche_fr";

binmode(STDOUT, ":utf8");
$| = 1; # Makes the print being displayed ASAP

my $dbh = undef;

if (defined($email) && defined($demand))
{
  my $to = $email;
  my $from = 'dimitri.petsitis@porsche.fr';
  my $cc = $secretaryEmail;
  my @date1 = split('-', $dateOffer1);
  my @date2 = split('-', $dateOffer2);
  my @vehicleCondition = split('-', $vehicleCondition);

  my $subject = 'Trad\'In - '.$demand;
  my $message .= 'Bonjour !\n'.$demand.'\n';
  $message .= decode("utf-8", "Offre de reprise n°1 validée à $priceOffer1 € si reprise effectuée avant le " . $date1[2] . "/" . $date1[1] . "/" . $date1[0] . " pour $mileageOffer1 km.");
  if ($priceOffer2 != 0)
  {
    $message .= "Offre de reprise n°2 validée à $priceOffer2 € si reprise effectuée avant le " . $date2[2] . "/" . $date2[1] . "/" . $date2[0] . " pour $mileageOffer2 km.";
  }
  else
  {
    $message .= "\n";
  }
  $message .= "Informations véhicule:\n";
  $message .= "VIN: ".$vin."\n";
  $message .= "Éléments endommagés:";
  $message .= "Jantes:".$vehicleCondition[0]."\n";
  $message .= "Carrosserie:".$vehicleCondition[1]."\n";
  $message .= "Pneus:".$vehicleCondition[2]."\n";
  if ($vehicleCondition[3] eq '1')
  {
    $message .= "Entretien à faire\n";
  }
  else
  {
    $message .= "Entretien OK\n";
  }
  $message .= "Commentaire: $comments\n";
  $message .= "Valable sous réserve d’expertise dans l’état décrit.\n";
  $message .= "Merci\n";
  $message .= "Dimitri Petsitis\n";
  $message .= "";

  print $message;

  open(MAIL, "|/usr/sbin/sendmail -t");

  # Email Header
  print MAIL "To: $to\n";
  print MAIL "From: $from\n";
  print MAIL "Cc: $cc\n";
  print MAIL "Subject: $subject\n";
  print MAIL "Content-type: text/html\n\n";
  # Email Body
  print MAIL $message;

  close(MAIL);
  print "Email Sent Successfully\n";
}
else
{
  print "Missing parameter\n";
}

sub initDB
{
  my ($dbName) = @_;

  $dbh = connectToDB($dbName);
}

__END__