Fichier source vmailfic.c :logiciel libre francophone

Als u zich niet tot het eind van de tekst kunt verplaatsen hieronder, klikt hier.

/* Fichier vmailfic.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 affiche le contenu d'un fichier mail passé en paramètre Le chemin d'accès au fichier peut être absolu ou relatif. On peut utiliser les flèches et les autres touches de déplacement pour parcourir le contenu du mail si celui ci tient sur plus d'une page. Cet outil peut être lancé automatiquement par l'outil vmailsj (lui même lancé par vmaildir) lorsqu'on sélectionne un répertoire de l'arborescence des mails, puis un mail particulier. */ #define appli // pour la déclaration de variables globales à l'application #include <ctype.h> #include <stdio.h> #include <string.h> #include <stdlib.h> #include <unistd.h> #include <sys/stat.h> #include "messages.h" #include "buflect.h" #include "fmail.h" #include "encodage.h" #include "trtentete.h" #include "trtligne.h" #include "groupeligne.h" #include "trtbordure.h" #include "trtsection.h" #include "modepage.h" #include "carspe.h" #include "szchemin.h" #include "tradmail.h" #define maxligini 500 // nombre max initial de lignes de texte pour le mail /* prototypes */ void mem_entete (); void memchamp (long pos_deblig, int conversion); void mem_corpsmail (); void memo_mail (int typetexte); void memo_texte (); void genligne (char *buffer); int ajoutlignepossible (); void rechargemail (char *nomfic, int mode_affich); void navigation (char *nomfic); void affligne (int numlig); void cop_mail (); void recherche (int sens); int dansligne (char *chaine, int numlig); /* variable globale au source (pour éviter des tonnes de passages de paramètres) */ char **ligne; // les lignes de texte du mail int maxlig; // nombre maximum de lignes mémorisées int colonsaut; // nombre de colonnes avant un passage à la ligne souhaitable int opthb = 0; // options d'affichage relatives aux balises HTML int lig_nonvide; // mémorise s'il y a des caractères significatifs dans la ligne /* programme principal */ int main (int nbarg, char *varg[]) { // récupération du nom de l'exécutable memcom (*varg); // controle du nombre d'arguments if (--nbarg == 1) { // ouvrir le fichier mail fmail = fopen (varg [1], "r"); // si le fichier a pu être ouvert if (fmail) { // fixer la taille initiale de la liste des fichiers mail maxlig = maxligini; // allouer la liste des fichiers mail ligne = malloc (maxlig * sizeof (char *)); // vérification allocation if (! ligne) // "Manque de place mémoire, le logiciel %s ne peut fonctionner" errfatale ("MANQUE_MEMOIRE", nomcom ()); // mémoriser l'entête du mail mem_entete (); // puis son contenu mem_corpsmail (TextPlain); // fermer ce fichier fclose (fmail); // afficher le mail navigation (varg [1]); } else // "Fichier %s non trouvé" aff_err_arg ("FICH_ABSENT", varg [1]); } else // "Syntaxe : %s nom_fichier_mail" psyntaxe ("SYNT_GENE_FICMAIL"); // pour faire plaisir à gcc qui veut une fonction main de type int return (0); } /* lit le message choisi et mémorise les champs importants de son entête */ void mem_entete () { long pos_deblig; // position dans le fichier en début de ligne // position dans le fichier mail des principaux champs de l'entête long posDate, posFrom, posXorig, posTo, posCc, posReply, posSubject, posContent; char *varenv_xorig; // variable d'environnement libremail_xorig char xorig; // information utile de libremail_xorig // initialisation posDate = -1; posFrom = -1; posXorig = -1; posTo = -1; posCc = -1; posReply = -1; posSubject = -1; posContent = -1; nb_lignes = 0; // récupérer la partie significative de la variable libremail_xorig varenv_xorig = getenv ("libremail_xorig"); if (varenv_xorig) xorig = tolower (*varenv_xorig); else xorig = '\0'; // déterminer la largeur d'affichage lig_col (); // et la largeur après laquelle un passage à la ligne est souhaitable if (colonpage < defaut_colon) colonsaut = colonpage; else colonsaut = defaut_colon; // lecture de l'entête et mémorisation de la position des champs importants do { // récupérer la position en début de ligne pos_deblig = ftell (fmail); // lire une ligne de l'entête du message lire_fmail (); // repérage des champs importants et mémorisation de leur position if (start ("X-Mailer") || start ("User-Agent")) // pour le fun genligne (buf_lect); // le mailer est mémorisé directement else if (start ("Date")) posDate = pos_deblig; else if (start ("From")) posFrom = pos_deblig; else if (start ("X-Original-From") && xorig != 'n') posXorig = pos_deblig; else if (start ("To")) posTo = pos_deblig; else if (start ("Cc")) posCc = pos_deblig; else if (start ("Reply-To")) posReply = pos_deblig; else if (start ("Subject")) posSubject = pos_deblig; else if (start ("Content-Type")) posContent = pos_deblig; else if (start ("Content-Transfer-Encoding")) mem_encodage (); } while (buf_lect [0] != '\0'); // lecture entête terminée si ligne vide // affichage ordonné des champs principaux de l'entête if (posDate >= 0) memchamp (posDate, 0); if (posFrom >= 0 && (posXorig < 0 || xorig == '2')) memchamp (posFrom, 1); if (posXorig >= 0) memchamp (posXorig, 1); if (posTo >= 0) memchamp (posTo, 1); if (posCc >= 0) memchamp (posCc, 1); if (posReply >= 0) memchamp (posReply, 1); if (posSubject >= 0) memchamp (posSubject, 1); // récupérer le type principal du message et ses caractéristiques recup_typeorig (posContent); // revenir au début du corps du message fseek (fmail, pos_deblig, SEEK_SET); } /* mémorise un champ de l'entête d'une ou plusieurs lignes repéré à partir de sa position dans le fichier mail */ void memchamp (long pos_deblig, int conversion) { // se positionner sur la ligne contenant le champ fseek (fmail, pos_deblig, SEEK_SET); // lire cette ligne lire_fmail (); // interpréter si nécessaire les caractères spéciaux if (conversion) majlignentete (); // forcer le premier caractère de la ligne en majuscules // bien qu'il doit l'être déjà *buf_lect = *buf_lect & 0x5F; // et afficher la ligne genligne (buf_lect); // lire la ligne suivante lire_fmail (); // tant qu'elle fait partie du même champ while (*buf_lect == ' ' || *buf_lect == '\t') { // interpréter si nécessaire les caractères spéciaux if (conversion) majlignentete (); // et afficher la ligne genligne (buf_lect); // lire la ligne suivante lire_fmail (); } } /* lit le corps du mail et mémorise son contenu dans un mail multi section, c'est la section du type passée en paramètre (text/plain si appel depuis le programme principal) qui est affichée */ void mem_corpsmail (int typesection) { // sauter la ligne blanche entre l'entête et le corps du mail lire_fmail (); // mémorisation du contenu du mail if (ctypeorig & Multipart) // il faudra analyser les sections memo_mail (typesection); else // une simple mémorisation du texte suffit memo_texte (); // si aucune ligne utile mémorisée if (nb_lignes < 2) // "Aucun texte récupéré : ce n'est pas un fichier mail" genligne (message ("NON_FICMAIL")); } /* suppression des balises html et affichage du reste */ void filtre_balhtm () { // supprimer les balises html sup_balhtm (); // réduit à un les blancs multiples et les supprime en fin de ligne sup_multiblancs (); // et convertir les caractère sous la forme &...; conv_carhtm (); // si la dernière ligne lue n'est pas vide if (*buf_lect && *buf_lect != '\n') { // l'afficher genligne (buf_lect); // et mémoriser le fait qu'elle n'est pas vide lig_nonvide = 1; } // sinon si la précédente n'était pas vide ou pas d'option -H else if (lig_nonvide) { // l'afficher genligne (""); // et mémoriser le fait qu'elle est vide lig_nonvide = 0; } } /* mémorisation du contenu d'un mail en mode multipart */ void memo_mail (int typetexte) { // mémorisation des modes multipart trouvés int multipmixed = 0, multipalter = 0, multiprel = 0, multiprep = 0; // mémoriser tous les modes multipart imbriqués do { switch (ctype) { case MultipMixed : multipmixed = 1; break; case MultipAlter : multipalter = 1; break; case MultipRep : multiprep = 1; break; case MultipRel : multiprel = 1; } // passer à la section suivante prochaine_section (); // récupérer ses caractéristiques recup_infos_section (); } while ((ctype & Multipart) && lire_fmail ()); // indiquer si le mail peut contenir des pièces jointes if (multipmixed) // "Pièce(s) jointes(s) probable(s)" genligne (message ("PJ_PROBABLE")); // si une section multipart/alternative a été trouvée, se positionner // (si l'on n'y est pas) sur la section text/plain ou text/html du mail if (multipalter) posit_section (typetexte); // générer une ligne de séparation avec l'entête genligne (""); // si structure du mail non conforme, message d'erreur if (! lire_fmail ()) { if (typetexte == TextPlain) // "Pas de zone texte dans ce mail !!!" genligne (message ("MANQUE_ZONE_TEXTE")); else // "Pas de zone texte html dans ce mail !!!" genligne (message ("MANQUE_ZONE_HTML")); } // si on doit supprimer la partie html avant <body if (opthb & 4) // le mémoriser avantbody = 1; else avantbody = 0; // lecture et mémorisation du corps du message do { // mise en forme de la dernière ligne lue majligne (); // si on est dans l'entête html qu'on doit supprimer if (avantbody) // le faire supavantbody (); // si option de suppression des balises html if (opthb & 2) // les supprimer filtre_balhtm (); // sinon else { // on pourra éventuellement regrouper des lignes if (buf_lect [strlen (buf_lect)-1] == '\n') genligne (buf_lect); else regroupeligne (buf_lect); } // et lecture de la suivante if (! lire_fmail ()) return; // on sort en fin de fichier // si mode multipart/report, on saute les entêtes de section if (multiprep && nbordures && surbordure ()) { // aller à la prochaine ligne vide while (lire_fmail () && *buf_lect) ; } } // on s'arrête en fin de fichier, si trop de lignes // ont été mémorisées ou sur la prochaine bordure while (nb_lignes < maxlig && (nbordures == 0 || ! surbordure ())); // si mode multipart mixed on va lister les pièces jointes if (multipmixed) liste_pj (); } /* lecture et mémorisation d'un mail de type text/plain */ void memo_texte () { // si texte encodé base 64 if (encodage_texte == Base64) // générer une ligne de séparation avec l'entête genligne (""); // si on doit supprimer la partie html avant <body if (opthb & 4) // le mémoriser avantbody = 1; else avantbody = 0; // répéter do { // mise en forme de la dernière ligne lue majligne (); // si on est dans l'entête html qu'on doit supprimer if (avantbody) // le faire supavantbody (); // si option de suppression des balises html if (opthb & 2) // les supprimer filtre_balhtm (); // sinon else { // on pourra éventuellement regrouper des lignes if (buf_lect [strlen (buf_lect)-1] == '\n') genligne (buf_lect); else regroupeligne (buf_lect); } // et lecture de la suivante } // on s'arrête en fin de fichier ou si trop de lignes ont été mémorisées while (lire_fmail () && nb_lignes < maxlig); } /* mémorise une ligne du mail */ void genligne (char *buffer) { char * nouvligne; // tableau alloué dynamiquement pour mémoriser la ligne static char pb_alloc [50]; // message d'erreur si allocation impossible int taille_ligne; // longueur de la ligne mémorisée int taille_utile; // longueur de la ligne sans le \n éventuel int i; // compteur // récupérer la longueur de la ligne taille_ligne = strlen (buffer); // si ligne longue if (taille_ligne > colonsaut) { // on tente de la tronquer à moins de 'colonsaut' car i = colonsaut; // chercher un blanc pour passer à la ligne while (i > 0 && buffer [i] != ' ') i--; // si pas de blanc trouvé if (i == 0) { // on en cherche un dans l'autre sens i = colonsaut; while (i < taille_ligne && i < colonpage && buffer [i] != ' ') i++; } // mémoriser la taille de la ligne tronquée taille_ligne = i; } // tenir compte d'un '\n' éventuel en cours de ligne ! // (dans le cas d'un encodage quoted-printable non conforme // ou d'un encodage base64) for (i = 0; i < taille_ligne - 1; i++) if (buffer [i] == '\n') taille_ligne = i; // ne pas compter le passage à la ligne en fin de buffer if (taille_ligne && buffer [taille_ligne - 1] == '\n') taille_utile = taille_ligne - 1; else taille_utile = taille_ligne; // allouer un tableau pour mémoriser la ligne nouvligne = (char *) malloc (taille_utile + 1); // si le tableau a pu être alloué et on peut mémoriser cette ligne de texte if (nouvligne && ajoutlignepossible ()) { // recopier les données dans ce tableau for (i = 0; i < taille_utile; i++) nouvligne [i] = buffer [i]; // terminer la chaine nouvligne [taille_utile] = '\0'; // rajouter la ligne mémorisée dans le texte ligne [nb_lignes++] = nouvligne; // si la ligne a été tronquée, traiter la suite if (taille_ligne < strlen (buffer) && nb_lignes < maxlig) genligne (buffer + taille_ligne + 1); } else { // sinon avertir d'un manque de mémoire // "** MANQUE D'ESPACE MEMOIRE ==> TEXTE TRONQUE **" strcpy (pb_alloc, message ("TEXTE_TRONQUE")); ligne [nb_lignes++] = ""; ligne [nb_lignes++] = pb_alloc; // et aller en fin de fichier pour arrêter sa lecture fseek (fmail, 0, SEEK_END); } } /* vérifie si l'on peut insérer un élément de plus dans le tableau ligne, et redimensionne ce tableau si nécessaire */ int ajoutlignepossible () { char **nouvtableau; // adresse du tableau de remplacement int nouvtaille; // et sa taille int element; // compteur : numéro d'élément dans les tableaux // cas simple : il reste au moins une place de libre dans le tableau if (nb_lignes + 1 < maxlig) return (1); // calculer la nouvelle taille du tableau // l'augmentation est alternativement de 50 % ou 33 % de manière // à ce que la taille double après 2 réallocations if (maxlig % 3) nouvtaille = maxlig + (maxlig / 2); else nouvtaille = maxlig + (maxlig / 3); // allocation mémoire nouvtableau = malloc (nouvtaille * sizeof (char *)); // vérification allocation if (nouvtableau) { // copie du contenu de l'ancien tableau dans le nouveau for (element = 0; element < maxlig; element ++) nouvtableau [element] = ligne [element]; // destruction de l'ancien tableau free (ligne); // que l'on remplace par le nouveau ligne = nouvtableau; maxlig = nouvtaille; } // retourne le résultat de la possibilité d'insertion d'éléments return (nb_lignes + 1 < maxlig); } /* recharge le mail en mémoire Cette fonction prend en compte un changement de la longueur maximale des lignes, ou du mode d'affichage */ void rechargemail (char *nomfic, int mode_affich) { // libérer la mémoire pour les lignes mémorisées while (nb_lignes > 0) free (ligne [--nb_lignes]); // on va relire le fichier mail fmail = fopen (nomfic, "r"); // mémoriser l'entête du mail mem_entete (); // avec le nouveau mode d'affichage mem_corpsmail (mode_affich); // lecture terminée fclose (fmail); // si numéro de ligne courant trop grand if (lignecour >= nb_lignes) // le corriger lignecour = nb_lignes - 1; // idem pour la position à l'écran if (lignecran > nb_lignes) lignecran = nb_lignes; } /* affiche la liste des mails du répertoire et permet de la parcourir même si elle tient sur plusieurs pages */ void navigation (char *nomfic) { int car; // caractère tapé au clavier int erreurs; // nombre frappes caractères inconnus comme commandes char curdir [szchemin]; // répertoire courant char nouvnom [szchemin + 12]; // pour rebaptiser le fichier après première // visualisation ou le mettre à la poubelle char ficimpr [20]; // fichier d'impression char fic_mailtrad [20] = ""; // fichier contenant le mail traduit FILE *tmpfic; // descripteur du fichier d'impression char *editeur; // éditeur utilisé pour modifier les mails int colonprec; // nombre de colonnes d'affichage avant un ^L int i; // compteur de lignes (pour générer fichier d'impression) int opthb_prec; // valeur précédente de opthb int mode_affich; // mémorise le mode d'affichage de la section texte int traduit; // mémorise si mail affiché dans langue origine ou traduit // configurer la liaison clavier pour lecture directe avec timeout mode_raw (); // initialisation mode_affich = TextPlain; lignecran = 1; lignecour = 0; erreurs = 0; traduit = 0; affpage (); // récupérer aussi le répertoire courant getcwd (curdir, szchemin); do { // lire et traiter une touche du clavier car = leccar (); switch (car) { // déplacement dans le texte du mail case MONTE : monte (1); erreurs = 0; break; case DESCEND : descend (1); erreurs = 0; break; case PAGEUP : monte (lignepage + lignecran - 2); erreurs = 0; break; case PAGEDOWN: descend (2 * lignepage - lignecran - 2); erreurs = 0; break; case HOME : case HOMEg : monte (lignecour); erreurs = 0; break; case FIN : case FINg : descend (nb_lignes - lignecour - 1); erreurs = 0; break; case 0 : // aide si trop d'erreurs ou à la demande case F1 : effpage (); // "Touches utilisables :\n" // "flèches Pageup, Pagedown, Home et Fin" // "pour se déplacer d'une ou plusieurs lignes" // "i pour Identifier le fichier mail" // "r pour Répondre au mail, t pour le Transférer" // "s pour le Supprimer, m pour Modifier avant envoi" // "u pour restaurer un mail dans la poubelle" // "j pour Joindre des fichiers à un mail à envoyer" // "c pour Copier le mail ou l'adresse d'expéditeur" // "/ ou ? pour rechercher une chaine dans le mail" // "p pour l'imPrimer" // "h pour afficher la section Html sans modification" // "H pour afficher la section Html sans les balises Html" // B pour afficher à partir de la balise <Body ...> sans les balises Html" // "l pour spécifier une Langue, T pour Traduire le mail" // "entrée pour récupérer les fichiers joints" // "Control L pour réafficher la page" affiche_msg ("AIDE_CHOIX_ADR-1"); affiche_msg ("AIDE_CHOIX_ADR-2"); affiche_msg ("AIDE_CHOIX_ADR-3"); affiche_msg ("AIDE_VMAILFIC_SJ1"); affiche_msg ("AIDE_VMAILFIC-1"); affiche_msg ("AIDE_VMAILFIC-2"); affiche_msg ("AIDE_VMAILFIC-3"); affiche_msg ("AIDE_VMAILFIC_SJ2"); affiche_msg ("AIDE_VMAILFIC-4"); affiche_msg ("AIDE_VMAILFIC-5"); affiche_msg ("AIDE_VMAILFIC-6"); affiche_msg ("AIDE_VMAILFIC-7"); affiche_msg ("AIDE_VMAILFIC-8"); affiche_msg ("AIDE_VMAILFIC-9"); affiche_msg ("AIDE_VMAILFIC-10"); affiche_msg ("AIDE_VMAILFIC-11"); affiche_msg ("AIDE_VMAILFIC-12"); affiche_msg ("AIDE_CHOIX_ADR-7"); // variante pour la touche Esc if (util_systemd ()) // "q ou Esc (2 fois) pour Quitter ce programme" affiche_msg ("AIDE_VMAIL2"); else // "q ou Esc pour Quitter ce programme" affiche_msg ("AIDE_VMAIL"); // "Appuyer sur une touche pour continuer" affiche_msg ("ATTENTE_CLAVIER"); leccar (); affpage (); erreurs = 0; break; // réaffiche la page en tenant compte d'un // éventuel redimentionnement de la fenêtre // mémoriser la lageur précédente de la page case CTRL : colonprec = colonpage; // déterminer la nouvelle largeur d'affichage lig_col (); // si elle a changé if (colonpage != colonprec) { // recalculer la largeur après laquelle un // passage à la ligne est souhaitable if (colonpage < defaut_colon) colonsaut = colonpage; else colonsaut = defaut_colon; // recharger le mail rechargemail (nomfic, mode_affich); } // réafficher la page affpage (); erreurs = 0; break; // identifie le fichier mail (donne son nom) case 'i' : effpage (); // "\nFichier : %s/%s\n\n" // "Appuyer sur une touche pour continuer" printf (message ("AFF_CHEMFICH"), curdir, nomfic); affiche_msg_nocr ("ATTENTE_CLAVIER"); leccar (); affpage (); erreurs = 0; break; // réponse à un mail case 'r' : execom ("repmail", nomfic); // on revient à la liste des mails car = ESC; break; // transfert d'un mail case 't' : execom ("trsfmail", nomfic); // on revient à la liste des mails car = ESC; break; // impression du mail case 'p' : // on crée un fichier tampon dans le répertoire // /tmp pour éviter les problèmes lorsque le // répertoire courant est protégé en écriture sprintf (ficimpr, "/tmp/impr-mail-%04X", getpid ()); // ouvrir en écriture un fichier tampon tmpfic = fopen (ficimpr, "w"); // remplir de fichier d'impression for (i = 0; i < nb_lignes; i++) fprintf (tmpfic, "%s\n", ligne [i]); fclose (tmpfic); // imprimer le fichier généré execom ("lp", ficimpr); // et le supprimer unlink (ficimpr); // l'appel d'execom suppose de réafficher la page // Note : ça crée un léger clignottement qui permet // de visualiser la prise en compte de l'impression affpage (); erreurs = 0; break; // affichage de la section text/html si elle existe case 'h' : case 'H' : case 'b' : case 'B' : effpage (); // on efface la page // si mail multisection ou mail en HTML pur if (ctypeorig != TextPlain) { // récupérer la valeur précédente de opthb opthb_prec = opthb; // prendre en compte la demande de changement switch (car) { case 'h' : opthb = 1; break; case 'H' : opthb = 3; break; case 'b' : opthb = 5; break; case 'B' : opthb = 7; break; } // si on n'a pas changé d'option d'affichage if (opthb == opthb_prec) { // revenir à un affichage en mode texte opthb = 0; // "Retour de l'affichage en mode texte" affiche_msg_nocr ("AFFICH_TEXTE"); attendre (1); // on affichera la section text/plain mode_affich = TextPlain; } // sinon else // on affichera la section text/html mode_affich = TextHtml; // recharger le mail rechargemail (nomfic, mode_affich); } // sinon message d'erreur else { // "Ce mail ne contient qu'une section, commande sans effet" affiche_msg_nocr ("MAIL_MONOSECTION"); attendre (2); } // réafficher la page affpage (); erreurs = 0; break; // choix d'une langue pour traduction case 'l' : effpage (); fflush (stdout); // un fichier de traduction a des chances d'exister if (*fic_mailtrad) // le détruire s'il existe (traduction à refaire) unlink (fic_mailtrad); // selectionner la langue à traduire choixlangue (1); // réafficher la page affpage (); erreurs = 0; break; // traduction du mail case 'T' : // si on affichait la version traduite du mail if (traduit) { // recharger le mail d'origine rechargemail (nomfic, mode_affich); traduit = 0; } // sinon faire la traduction et la mémoriser else traduit = trad_mail (nomfic, mode_affich, fic_mailtrad, ligne); // réafficher la page affpage (); erreurs = 0; break; case SUPR : // suppression d'un mail case 's' : // récupérer le répertoire des mails supprimés if (getenv ("mailpoub")) strcpy (nouvnom, getenv ("mailpoub")); else *nouvnom = '\0'; // si on est dans ce répertoire if (strcmp (curdir, nouvnom) == 0) { // supprimer le fichier mail unlink (nomfic); // on revient à la liste des mails car = ESC; } // sinon (cas général) else if (*nouvnom) { // créer le répertoire poubelle si nécessaire mkdir (nouvnom, 0755); // et y mettre le fichier mail strcat (nouvnom, "/"); strcat (nouvnom, nomfic); // sans l'extention des fichiers à lire if (nouvnom [strlen (nouvnom) - 2] == '.') nouvnom [strlen (nouvnom) - 2] = '\0'; rename (nomfic, nouvnom); // on revient à la liste des mails car = ESC; } // sinon (racine des mails inconnue) else { effpage (); // "Racine des mails inconnue, pas de suppression" affiche_msg_nocr ("REP_RACINE_INCONNU"); attendre (2); affpage (); } erreurs = 0; break; // restauration d'un mail case 'u' : // si on est dans le répertoire poubelle if (strcmp (curdir, getenv ("mailpoub")) == 0) { // déplacer le fichier mail dans entree sprintf (nouvnom, "../%s/%s", ficdir ("DIR_ENTREE"), nomfic); rename (nomfic, nouvnom); // on revient à la liste des mails car = ESC; } // sinon, message d'erreur else { effpage (); // "Seuls les mails dans la poubelle peuvent être restaurés" affiche_msg_nocr ("MAIL_NON_RESTAUR"); attendre (2); } affpage (); erreurs = 0; break; // modification d'un mail à envoyer // ou rajout de pièces jointes au mail case 'm' : case 'j' : effpage (); fflush (stdout); // si on est dans le répertoire des mails à envoyer if (getenv ("mailenv") && strcmp (curdir, getenv ("mailenv")) == 0) { // traitement en fonction de la touche tapée if (car == 'm') { // modifier le mail editeur = getenv ("EDITOR"); if (editeur) execom (editeur, nomfic); else execom ("vi", nomfic); } else // joindre des fichiers execom ("joindre", nomfic); // on revient à la liste des mails car = ESC; } else { // sinon, message d'erreur // "Seuls les mails en attente d'envoi peuvent être modifiés" affiche_msg_nocr ("MAIL_NON_MODIF"); attendre (2); affpage (); } erreurs = 0; break; // copie de tout ou partie du mail case 'c' : effpage (); fflush (stdout); cop_mail (); erreurs = 0; affpage (); break; // extraction des pièces jointes // "-> Fichier joint : " case '\n' : if (memcmp (ligne [lignecour], message ("FICJOINT") , strlen (message ("FICJOINT"))) == 0) execom ("recuppj", nomfic); else { effpage (); // "Vous n'êtes pas positionné sur une pièce jointe" affiche_msg_nocr ("NON_POS_PJ"); attendre (2); } affpage (); erreurs = 0; break; case '/' : // recherche d'une chaine de caractères case '?' : recherche (car); erreurs = 0; case 'q' : // sortie du programme case ESC : break; // sortie aussi sur :q case ':' : car = leccar (); if (car == 'q') { car = ESC; break; } default : putchar (7); // bip // si trop d'erreurs, afficher l'aide if (++erreurs == 5) ungetc (0, stdin); // on ira sur l'aide } } while (car != 'q' && car != ESC); // si le fichier n'avait pas encore été visualisé if (nomfic[strlen (nomfic) - 2] == '.') { // on enlèvera le .n de l'ancien nom strcpy (nouvnom, nomfic); nouvnom [strlen (nouvnom) - 2] = '\0'; // et voila ! rename (nomfic, nouvnom); } // si on a appelé ce programme directement if (! getenv ("mailenv")) { // descendre en bas de page while (lignecran++ < lignepage && lignecour++ < nb_lignes) putchar ('\n'); // retour à la configuration standard du clavier mode_normal (); } // si un fichier de traduction du mail a été créé (ou si son nom existe) if (*fic_mailtrad) // détruire le fichier s'il est présent unlink (fic_mailtrad); } /* affiche une ligne du mail */ void affligne (int numlig) { char *maligne; // pour éviter de trop manipuler des indices de tableau int i; // simple compteur // initialisation i = 0; maligne = ligne [numlig]; // copie de la ligne sans déborder while (*maligne && i < colonpage) { // cas général, on recopie le caractère courant if (*maligne != '\t') putchar (*maligne); // si tabulation else // écrire des blancs do { putchar (' '); i++; } // sans déborder de la fenêtre d'affichage while (i % 8 && i < colonpage); // passer au caractère suivant maligne ++; } } /* copie de tout ou partie du fichier mail */ void cop_mail () { char nomfic [szchemin]; // nom du fichier résultat FILE *fcopy; // descripteur fichier utilisé pour une copie int choix; // choix de la zone à copier int ligFrom, ligXorig; // lignes du champ expéditeur int i; // compteur (pour copier le mail dans un fichier) // choix de la zone à copier // "1) copie du mail complet" // "2) copie du message seul" // "3) copie de l'adresse de l'expéditeur" // "4) rajout de l'expéditeur dans le carnet d'adresse" // "5) rajout de l'expéditeur dans les adresses refusées" // "6) rajout du nom de domaine de l'expéditeur dans les adresses refusées" affiche_msg ("MENU_COPIE-1"); affiche_msg ("MENU_COPIE-2"); affiche_msg ("MENU_COPIE-3"); affiche_msg ("MENU_COPIE-4"); affiche_msg ("MENU_COPIE-5"); affiche_msg ("MENU_COPIE-6"); do { // "Votre choix ? " affiche_msg_nocr ("VOTRE_CHOIX"); choix = leccar () - '0'; } while (choix < 1 || choix > 6); // si rajout dans le carnet d'adresse ou la liste des expéditeurs refusés if (choix >= 4 && getenv ("mailenv")) { // rechercher le répertoire racine de la messagerie strcpy (nomfic, getenv ("mailenv")); // à partir de la variable $mailenv on remonte au dernier / i = strlen (nomfic); while (nomfic [--i] != '/' && i) ; // ne rien faire, tout est dans la condition if (choix == 4) // rajout dans le carnet d'adresse strcpy (nomfic + i + 1, ficdir ("FIC_CARNET-ADR")); else // rajout dans la liste des expéditeurs refusés strcpy (nomfic + i + 1, ficdir ("FIC_REFUS_ADR")); // l'ouvrir en écriture en fin de fichier fcopy = fopen (nomfic, "a"); } // sinon : copie dans un nouveau fichier else { // afficher le répertoire courant getcwd (nomfic, szchemin); // "Répertoire courant : %s\n" printf (message ("REPERT_COURANT"), nomfic); // choix du fichier par l'opérateur // "Chemin d'accès au fichier qui contiendra la copie ? " affiche_msg_nocr ("CHEM_FIC_COPIE"); mode_normal (); fgets (nomfic, sizeof (nomfic), stdin); // suppression du '\n' parasite nomfic [strlen (nomfic) - 1] = '\0'; // création du fichier destinataire de la copie fcopy = fopen (nomfic, "w"); } // si ouverture du fichier réussie if (fcopy) { // on se positionne en début de mail i = 0; // si copie du message (avec ou sans entête) if (choix < 3) { // saut de l'entête ? if (choix == 2) { while (*ligne [i]) i++; i++; } // copie du mail complet ou du message while (i < nb_lignes) { fputs (ligne [i++], fcopy); fputc ('\n', fcopy); } } // copie de l'adresse de l'expéditeur else { // initialisation ligFrom = 0; ligXorig = 0; // recherche de la ligne contenant l'adresse do { strcpy (buf_lect, ligne [i]); if (start ("From")) ligFrom = i; else if (start ("X-Original-From")) ligXorig = i; i++; } while (!start ("To") && *buf_lect); // si expéditeur trouvé if (ligXorig || ligFrom) { // choisir le meilleur entre From: et X-Original-From: if (ligXorig) { strcpy (buf_lect, ligne [ligXorig]); i = 17; } else { strcpy (buf_lect, ligne [ligFrom]); i = 6; } // si ajout dans la liste des adresses refusées if (choix > 4) { // rechercher l'adresse dans le champ expéditeur while (buf_lect [i] != '@' && buf_lect [i]) i++; // si refus de l'adresse (et pas du nom de domaine complet) if (choix == 5) { // se positionner en début d'adresse while (buf_lect [i] != '<' && buf_lect [i] != ' ') i--; i++; } } // copier l'adresse dans le fichier do { // pour la lisibilité du carnet d'adresse if (buf_lect [i] == '<') buf_lect [i] = ' '; // copie d'un caractère et passage au suivant fputc (buf_lect [i++], fcopy); } while (buf_lect [i] != '>' && buf_lect [i]); // terminer la ligne fputc ('\n', fcopy); } else { // sinon message d'erreur // "Expéditeur non trouvé" affiche_msg_nocr ("EXPED_ABSENT"); attendre (2); } } // terminé, on ferme le fichier fclose (fcopy); } else { // sinon, message d'erreur // "Impossible de créer le fichier %s\n" printf (message ("IMPOS_CRE_FICH"), nomfic); montecurs (); attendre (2); } // reconfigurer la liaison clavier pour lecture directe avec timeout mode_raw (); } /* recherche d'une chaine de caractères dans le mail */ void recherche (int sens) { // chaine à rechercher, on utilise une variable statique // pour garder sa valeur aux appels suivants de la fonction static char chaine [120]; int car; // caractère lu au clavier int limite; // ligne marquant une extrémité du mail int trouve; // indicateur : ligne contenant la chaine trouvée int i, j; // compteurs // descendre en bas de page et effacer la dernière ligne baspage (); effligne (); // saisir la chaine à rechercher putchar (sens); car = leccar (); // si chaine vide, on conserve la précédente if (car != '\n') { // sinon on mémorise la nouvelle chaine i = 0; do { // cas particulier : caractère d'effacement if (car == RECULE || car == EFFCAR) { if (i > 0) { putchar (CTRH); putchar (' '); putchar (CTRH); i--; } } // cas général : affichage et mémorisation d'un caractère else if (i < sizeof (chaine)) { putchar (car); chaine [i++] = car; } // lire le caractère suivant car = leccar (); } // jusqu'à ce que chaine entièrement saisie while (car != '\n'); // terminer la chaine chaine [i] = '\0'; } // initialisation variables pour recherche if (sens == '/') { sens = 1; limite = nb_lignes - 1; } else { sens = -1; limite = 0; } // début de la recherche à partir d'une ligne voisine de la ligne courante i = lignecour; // répeter do { // si on n'a pas atteint l'extrémité du mail if (i != limite) // descendre ou remonter d'une ligne selon le sens de recherche i = i + sens; else // sinon aller à l'autre extrémité du mail i = nb_lignes - 1 - limite; // chercher si la chaine est présente dans la nouvelle ligne trouve = dansligne (chaine, i); } // jusque chaine de caractères trouvée ou tout le mail exploré while (! dansligne (chaine, i) && i != lignecour); // si chaine non trouvée if (! trouve) { // afficher un message d'erreur // " Chaine non trouvée" affiche_msg_nocr ("CHAINE_ABSENTE"); putchar (7); } // revenir en début de ligne putchar ('\r'); // remonter à la ligne sur laquelle on était j = lignepage; while (j-- > lignecran) montecurs (); // si chaine trouvée if (trouve) { // se positionner sur la ligne de la chaine s'il on n'y est pas déjà if (i < lignecour) monte (lignecour - i); else if (i > lignecour) descend (i - lignecour); // réafficher la ligne contenant la chaine en surbrillance clair (); affligne (lignecour); putchar ('\r'); lumnor (); } } /* vérification de la présence d'une chaine dans la numligième ligne */ int dansligne (char *chaine, int numlig) { char *maligne; // pour éviter de trop manipuler des indices de tableau int i, j; // simples compteurs // initialisation maligne = ligne [numlig]; i = 0; // tantque ligne non explorée en entier while (maligne [i]) { // si caractère courant = premier caractère de la chaine if (maligne [i] == *chaine) { // vérifier la concordance des caractères suivants j = 1; while (chaine [j] && (chaine [j] == maligne [i+j])) j++; // si chaine trouvée, sortir de la fonction if (! chaine [j]) return 1; } // sinon, essayer avec la suite de la ligne i++; } // chaine non trouvée dans la ligne return 0; }