#!/usr/bin/perl

<<DOC; 
Axel COURT & Marjorie SEIZOU
MAI 2010
 usage : perl Contactez-nous.pl
 
Merci de bien vouloir nourrir votre lama avant de lancer le script

DOC

print "\nBonjour, je suis le script Contactez-nous.pl, et mon but est de vous permettre de contacter les auteurs du projet.\n\n";
print "Merci de choisir votre option et d'entrer le mot-cle correspondant !\n\n";
print "	Question, remarque, probleme -> Oups\n	Message d'amour ou de soutien -> Love\n	Message de haine, insultes -> Chameaux\n\n";
print "Mot-cle :\n";	
my $cle = <STDIN>;
chomp($cle);
if ($cle !~ /^[Oo]ups$|^[Ll]ove$|^[Cc]hameaux$/) {
	print 	"\nJe n'ai pas compris votre mot-cle... C'etait pourtant pas bien complique ! Tant pis !\n";
	exit;
}
elsif ($cle =~ /^[Oo]ups$/) {
	print "\nBon, alors vous allez envoyer un mail a axelcourt\@gmail.com et a marjorie.seizou\@gmail.com, en precisant dans le sujet du mail \"Remarque - projet BaO\". Ils vous répondront avec grand plaisir !\n\n";
}

elsif ($cle =~ /^[Ll]ove$/) {
	print "\nOoouh, comme c'est gentil ! Envoyez donc votre poeme a axelcourt\@gmail.com et marjorie.seizou\@gmail.com en precisant dans le sujet \"Vous etes geniaux, je vous aime !\".\n\n";
}

elsif ($cle =~ /^[Cc]hameaux$/) {
	print "\nTsss... Vile creature ! Allez-y, envoyez votre torchon a axelcourt\@gmail.com et marjorie.seizou\@gmail.com. Chameau !\n\n";
}

print "Merci de m'avoir utilise ! A bientot peut-etre !\n\n";

exit;