#!/usr/bin/perl -w
$list="tous";
###########################################################################
print "envoiMessage\n";
print "1999 - Gerard Blanchet\n";
print "envoi d'un message à la liste $list\n";
###########################################################################
###### message de bienvenue
open (MAIL, "| /usr/sbin/sendmail -t post,root");
print MAIL <<EndMail
To:tous
From:root
Subject: Bienvenue

Bienvenue dans la messagerie du lycée Jeanne d'Arc.
Vous pouvez dorénavant envoyer des messages:
- à tous les élèves ou professeurs de l'option informatique, leur adresse est:
	xxxxxx\@0630019D.ac-clermont.fr
- à l'extérieur
	vous écrivez normalement l'adresse de votre destinataire 
	et dans la partie Subject: ou Objet: (dans Outlook Express)
	vous écrivez   giraud: puis l'objet de votre message
	ceci pour l'utilisateur giraud
	il n'y a pas d'espace entre giraud et :
	Si votre expéditeur vous répond en faisant REPONDRE A L'AUTEUR
	la réponse vous parviendra dans votre boite
	Si votre correspondant vous écrit directement votre adresse est
	arcoit\@ac-clermont.fr et vous lui indiquez de mettre giraud:
	dans la ligne Subject:
Vous avez à votre disposition un outil intéressant.
Faites-en bon usage mais n'en abusez pas.

Bien cordialement.
Les administrateurs

EndMail
;
close MAIL; 
print "Message envoyé\n";