#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; use HTML::Entities; 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 !

'.encode_entities($demand).'

'; $message .= "

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 .= "

"; } $message .= "

Informations véhicule:
"; $message .= "VIN: ".$vin."

"; $message .= "

Éléments endommagés:
"; $message .= "Jantes:".$vehicleCondition[0]."
"; $message .= "Carrosserie:".$vehicleCondition[1]."
"; $message .= "Pneus:".$vehicleCondition[2]."

"; if ($vehicleCondition[3] eq '1') { $message .= "

Entretien à faire


"; } else { $message .= "

Entretien OK


"; } $message .= "

Commentaire: ".encode_entities($comments)."

"; $message .= "

Valable sous réserve d'expertise dans l'état décrit.

"; $message .= "

Merci

"; $message .= "

Dimitri Petsitis

"; $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; charset=UTF-8\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__