/*
Fichier cremail.c
Auteur Bernard Chardonneau
Logiciel libre, droits d'utilisation précisés en français
dans le fichier : licence-fr.txt
Traductions des droits d'utilisation dans les fichiers :
licence-de.txt , licence-en.txt , licence-es.txt ,
licence-it.txt , licence-nl.txt , licence-pt.txt ,
licence-eo.txt , licence-eo-utf.txt
Droits d'utilisation également sur la page web :
http://libremail.tuxfamily.org/voir.php?page=droits
Ce programme permet de saisir un Email
On peut choisir les destinataires à partir du carnet d'adresses
ou en saisir de nouveaux
Le fichier obtenu est ensuite stoqué dans le répertoire des mails à envoyer
Pour que cela soit possible, il faut :
- soit que la commande cremail soit lancée depuis la chaine vmail...
- soit préciser le nom du répertoire de l'arborescence des mails
*/
#define appli // pour la déclaration de variables globales à l'application
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <unistd.h>
#include "messages.h"
#include "buflect.h"
#include "numail.h"
#include "genentete.h"
#include "modepage.h"
#include "carspe.h"
/* prototypes */
void gene_entete (char *sujetmail, char *nomfic);
/* variable globale au source
(pour éviter des passages de paramètres) */
long numail; // numéro que prendra le mail généré
/* programme principal */
int main (int nbarg, char *varg[])
{
char ficmail [szchemin]; // fichier mail de réponse
char fentete [szchemin]; // fichier contenant l'entete du message
char sujet [200]; // sujet du mail
char commande [szchemin + 13]; // pour saisir le message
char *editeur; // éditeur utilisé pour saisir les mails
unsigned long heuredeb; // pour détecter si on appelle un éditeur graphique
// récupération du nom de l'exécutable
memcom (*varg);
// on démarre avec la configuration standard du clavier
mode_normal ();
// si nombre d'arguments correct
if (nbarg <= 2)
// récupérer le nom du répertoire des mails à envoyer
recupdirenv (nbarg, varg [1]);
else
// sinon, rappel de la syntaxe de la commande
// "Syntaxe : %s [répertoire_emails]"
psyntaxe ("SYNT_CREMAIL");
// saisir le sujet du mail
// "Sujet du mail : "
affiche_msg_nocr ("SUJET_NOUVMAIL");
fgets (sujet, sizeof (sujet), stdin);
// si sujet trop long pour rentrer dans le buffer
if (sujet [strlen (sujet) - 1] != '\n')
{
// mettre le passage à la ligne manquant
sujet [strlen (sujet) - 1] = '\n';
// et ignorer la fin de ligne
fflush (stdin);
}
// créer un nom de fichier temporaire pour le message
// il a toujours le même nom pour éviter de polluer le
// répertoire d'envoi en cas de fausse manoeuvre opérateur
sprintf (ficmail, "%s/tmp-mes", direnv);
// Choix de l'éditeur de textes
editeur = getenv ("EDITOR");
if (! editeur)
editeur = "vi";
// saisir le message
// fabriquer la commande à éxécuter
sprintf (commande, "%s %s", editeur, ficmail);
// récupérer l'heure courante
heuredeb = time (0);
// lancer la commande
system (commande);
// si la commande a rendu la main très rapidement
if (time (0) <= heuredeb + 1)
{
// "Tapez sur la touche entrée en cas d'erreur de lancement de"
// "l'éditeur ou après avoir sauvé le mail depuis un éditeur graphique"
affiche_msg ("ATTENTE_ENTREE1");
affiche_msg_nocr ("ATTENTE_ENTREE2");
// attendre confirmation de l'opérateur
while (getchar () != '\n')
;
}
// sortie si arrêt de la saisie
if (access (ficmail, 0) < 0)
// "Arrêt de la saisie par l'opérateur"
errfatale ("ARRET_SAISIE", 0);
// charger le carnet d'adresses
charge_carnet_adr ();
// créer un nom de fichier temporaire pour l'entête du mail
sprintf (fentete, "%s/tmp-ent", direnv);
// fabriquer l'entête du mail de réponse
gene_entete (sujet, fentete);
// mémoriser les dates et heure d'envoi du message
ajout_date (fentete);
// on va regrouper l'entête et le message dans un fichier numéroté définitif
fusionner (fentete, numail, ficmail);
// ajouter la signature au message, si elle existe
ajout_sign (ficmail);
// mettre à jour le fichier numail du répertoire de sortie
sauv_num_dermail (direnv, numail);
// pour faire plaisir à gcc qui veut une fonction main de type int
return (0);
}
/* génère l'entête du mail que l'on transfère */
void gene_entete (char *sujetmail, char *nomfic)
{
// fabriquer et ouvrir en écriture le fichier d'entête
fdest = fopen (nomfic, "w");
if (! fdest)
// "Impossible de créer un fichier d'entête %s"
errfatale ("IMPOS_CRE_ENTETE", nomfic);
// récupérer l'adresse de l'expéditeur
lire_exped ();
// chercher le numéro du mail que l'on va créer
numail = num_dermail (direnv) + 1;
// génération du champ Message-Id
gen_mes_id (fdest, numail, buf_lect);
// y copier l'expéditeur du message
ajouts = 0;
ajout_adr (buf_lect, "From");
fputc ('\n', fdest);
// configurer la liaison clavier pour lecture directe avec timeout
mode_raw ();
// Choix des destinataires
debpage ();
effpage ();
// "Destinataires principaux"
affiche_msg_nocr ("PRINCIP_DEST");
attendre (1);
choixdest ("To");
effpage ();
// "Voulez vous mettre des destinataires en copie ? "
affiche_msg_nocr ("ACCEPT_DEST_CC");
if (tolower (leccar ()) != 'n')
{
putchar ('\n');
choixdest ("Cc");
}
else
putchar ('\n');
effpage ();
// "Voulez vous mettre des destinataires en copie cachée ? "
affiche_msg_nocr ("ACCEPT_DEST_BCC");
if (tolower (leccar ()) != 'n')
{
putchar ('\n');
choixdest ("Bcc");
}
putchar ('\n');
effpage ();
// retour à la configuration standard du clavier
mode_normal ();
// génération du champ Subject
fprintf (fdest, "Subject: %s", sujetmail);
// jeu de caractères du message
fprintf (fdest, "Content-Type: text/plain; charset=");
if (util_utf8 ())
fprintf (fdest, "UTF-8;\n");
else
fprintf (fdest, "ISO-8859-15;\n");
// mode d'encodage
fprintf (fdest, "Content-Transfer-Encoding: 8bit\n");
// un copyright qui n'est pas celui d'Outlook ;-))
// "libremail : logiciel libre multilingue"
fprintf (fdest, "User-Agent: libremail : %s\n",
message ("QUALIF_LIBREMAIL"));
// permettra de relire ce fichier
fclose (fdest);
}