#!/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 - '.decode("utf-8", $demand);
  my $message .= "Bonjour !\n\n" . decode("utf-8", $demand) . "\n\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 .= decode("utf-8", "Offre de reprise n°2 validée à $priceOffer2 € si reprise effectuée avant le ") . $date2[2] . "/" . $date2[1] . "/" . $date2[0] . " pour $mileageOffer2 km.";
  }
  $message .= 'Informations véhicule:'."\n";
  $message .= "VIN: " . $vin . "\n";
  $message .= "Éléments endommagés:\n";
  $message .= "Jantes: " . $vehicleCondition[0] . "\n";
  $message .= "Carrosserie: " . $vehicleCondition[1] . "\n";
  $message .= "Pneus: " . $vehicleCondition[2] . "\n";
  if ($vehicleCondition[3] eq '1')
  {
    # $message .= "<p>".decode("utf-8", "Entretien à faire</p><br>");
    $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\n";
  $message .= "Merci";
  $message .= "Dimitri Petsitis";

  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";
  # 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__