#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my ($email, $url) = @ARGV; if (defined($email) && defined($url)) { my $to = $email; my $from = 'dimitri.petsitis@porsche.fr'; my $subject = 'Trad\'In - Réinitialisation du mot de passe.'; my $message .= '

Bonjour !

Voici le lien de remise à zéro de votre mot de passe:
'; $message .= "Réinitialiser mon mot de passe !

"; $message .= "

Une fois cliqué, vous recevrez une notification sur votre application et n'aurez plus qu'à suivre les instructions !

"; $message .= "

L'équipe Porsche Trad'In

"; $message .= ""; open(MAIL, "|/usr/sbin/sendmail -t"); # Email Header print MAIL "To: $to\n"; print MAIL "From: $from\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"; }