/*
    Fichier chargexpedok.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 télécharge parmi les mail en attente sur le serveur
    de messagerie, ceux qui proviennent d'un expéditeur autorisé.

    La liste des expéditeurs autorisés est mémorisée dans un fichier.

    Un fichier de configuration est utilisé pour se connecter à la
    boite aux lettres et pour fixer le répertoire racine du système
    de messagerie.

    Les mail entrants sont stockés dans le sous répertoire "entree"
    de ce répertoire racine et se distinguent par leur numéro.
*/


#define appli   // pour la déclaration de variables globales à l'application

#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <sys/stat.h>
#include "messages.h"
#include "buflect.h"
#include "ficonf.h"
#include "pop.h"
#include "numail.h"
#include "testchamp.h"
#include "trtentete.h"
#include "szchemin.h"


/* constantes pour indiquer si l'on efface le(s) mail(s) téléchargé(s) */
#define OPTDEFAUT  0
#define EFFACE     1
#define CONSERVE   2


/* prototypes */
int testexped (int numes);
void chargemail (int numes, long numail, int effacement);


/* variable globale au source
   (pour éviter des tonnes de passages de paramètres) */


char **listexped;         // mémorise les destinataires autorisés
int  sz_listexped;        // nombre de destinataires mémorisés dans listexped
char dirmails [szchemin]; // répertoire de destination des messages

// chaines de caractères mémorisées pour éviter appels répétitifs à message ()
char mess_analys [50]; // message signalant l'analyse d'un mail
char mess_telech [50]; // message signalant le téléchargement d'un mail



/* programme principal */

int main (int nbarg, char *varg[])
{
    char ficonf [120];   // fichier de configuration du système de mail
    FILE *fconf;         // descripteur du fichier de configuration
    char fichliste [szchemin]; // fichier contenant liste des chaines à tester
    int  numes, nbmes;   // numéro du mail courant et nombre de mails
    int  nbrecup = 0;    // nombre de mails téléchargés
    long numail;         // numéro du mail dans le fichier téléchargé
    int  option;  // détermine si on conserve sur le serveur les mails récupérés


    // récupération du nom de l'exécutable
    memcom (*varg);

    // se positionner sur le premier argument de chargexpedok
    varg ++;
    nbarg --;

    // options de fonctionnement par défaut
    option = OPTDEFAUT;

    // récupération de l'option de fonctionnement éventuelle
    while (nbarg > 0 && **varg == '-')
    {
        switch (varg [0][1])
        {
            // option effacement du serveur des mails récupérés
            case 'd': if (option == CONSERVE)
                      {
                          // "Options -d et -k incompatibles"
                          affiche_err ("COMPAT_OPT_DK");
                          return (-1);
                      }
                      else
                          option = EFFACE;

                      break;

            // option conservation sur le serveur des mails récupérés
            case 'k': if (option == EFFACE)
                      {
                          // "Options -d et -k incompatibles"
                          affiche_err ("COMPAT_OPT_DK");
                          return (-1);
                      }
                      else
                          option = CONSERVE;

                      break;

                      // "Option %s incorrecte"
            default : aff_err_arg ("ERR_OPTION", *varg);
                      nbarg = 0;   // pour afficher la syntaxe de la commande
        }

        // décompter l'argument traité
        varg ++;
        nbarg --;
    }

    // controle du nombre d'arguments
    if (nbarg == 1)
    {
        // ouvrir le fichier de configuration
        fconf = ouvre_ficonf (varg [0]);

        if (fconf)
        {
            // connexion sur le compte mail du serveur pop
            if (connect_pop (fconf))
            {
                // récupérer le répertoire racine de la messagerie
                fgets (dirmails, sizeof (dirmails) - 7, fconf);
                dirmails [strlen (dirmails) - 1] = '\0';

                // si ce répertoire existe
                if (access (dirmails, 0) == 0)
                {
                    // chercher le nom du fichier contenant
                    // les expéditeurs autorisés
                    sprintf (fichliste, "%s/%s", dirmails,
                                                 ficdir ("FIC_ACCEPT_ADR"));

                    // charger en mémoire les expéditeurs autorisés
                    listexped = charge_valchamp (fichliste, &sz_listexped);

                    // si la liste n'est pas vide
                    if (sz_listexped)
                    {
                        // créer si nécessaire le sous repertoire d'entrée
                        strcat (dirmails, "/");
                        strcat (dirmails, ficdir ("DIR_ENTREE"));
                        mkdir (dirmails, 0755);

                        // récupération du nombre de mails
                        nbmes = nbmails ();

                        // si des mails peuvent être récupérés
                        if (nbmes)
                        {
                            // récupération du numéro du dernier fichier mail
                            numail = num_dermail (dirmails);

                            // Initialisation des messages à afficher à chaque
                            // analyse ou téléchargement de mail

                            // "\rAnalyse du mail n° %d       "
                            strcpy (mess_analys, message ("ANALYSE_MAIL_BL"));

                            // "\rTéléchargement du mail n° %d"
                            strcpy (mess_telech, message ("TELECH_MAIL"));

                            // pour chaque fichier mail du serveur
                            for (numes = 1; numes <= nbmes; numes++)
                            {
                                // si l'expéditeur du mail est autorisé
                                if (testexped (numes))
                                {
                                    // télécharger le mail correspondant
                                    chargemail (numes, ++numail, option);

                                    // on compte les mails téléchargés
                                    nbrecup ++;
                                }
                            }

                            // édition d'un récapitulatif
                            // "\n%d mails téléchargés sur %d\n"
                            printf (message ("TOTAL_TELECH"), nbrecup, nbmes);

                            // sauvegarde du numéro du dernier fichier mail
                            sauv_num_dermail (dirmails, numail);
                        }
                    }
                }
                else
                    // "répertoire de messagerie %s inexistant"
                    aff_err_arg ("REP_RACINE_ABSENT", dirmails);

                // se déconnecter proprement du serveur pop
                deconnect_pop ();
            }

            // on n'a plus besoin du fichier de configuration
            fclose (fconf);
        }
    }
    else
        // "Syntaxe : %s [-(k|d)] fichier_configuration"
        psyntaxe ("SYNT_CHARGEXPEDOK");

    // pour faire plaisir à gcc qui veut une fonction main de type int
    return (0);
}



/* lit l'entête d'un mail et vérifie si son expéditeur est autorisé */

int testexped (int numes)
{
    char bufw [120];      // buffer d'envoi d'une requête
    char bufFrom [120];   // buffer contenant l'expéditeur du mail
    int  i;               // simple compteur


    // message de suivi de déroulement
    // "\rAnalyse du mail n° %d       "
    printf (mess_analys, numes);
    fflush (stdout);

    // initialisation
    bufFrom [0] = '\0';

    // demande de lecture de l'entête du message
    sprintf (bufw, "TOP %d 1", numes);
    env_pop (bufw);

    // lire la première ligne de l'entête du message
    lire_pop ();

    // terminé pour ce mail si erreur d'envoi coté serveur
    if (memcmp (buf_lect, "-ERR ", 5) == 0)
    {
        // Erreur serveur pour l'accès au mail
        aff_err_argnum ("ERREUR_SERVEUR", numes);
        return 0;
    }

    // lecture entête du message et mémorisation de l'expediteur du mail
    do
    {
        // si on a trouvé le champ expediteur
        if (start ("From"))
        {
            // convertir les caractères spéciaux de la ligne
            majlignentete ();

            // initialisation
            i = 5;

            // recherche du début de l'expediteur
            while (buf_lect [i] == ' ')
                i++;

            // tronquer si nécessaire l'expediteur (pour éviter un plantage)
            if (strlen (buf_lect + i) > sizeof (bufFrom))
                 buf_lect [i + sizeof (bufFrom) - 1] = '\0';

            // mémorisation de l'expediteur
            strcpy (bufFrom, buf_lect + i);
        }

        // lire la ligne suivante de l'entête du message
        lire_pop ();
    }
    // lecture terminée si ligne limitée à un .
    while (buf_lect [0] != '.' || buf_lect [1] != '\0');

    // vérifier si l'expéditeur du mail est autorisé
    return trouve_valchamp (bufFrom, listexped, sz_listexped);
}



/* télécharge le mail choisi et l'enlève du serveur si c'est demandé */

void chargemail (int numes, long numail, int effacement)
{
    char bufw [120];    // buffer d'envoi d'une requête
    char ficmail [sizeof (dirmails) + 9];
    FILE *fmail;


    // création du fichier mail
    sprintf (ficmail, "%s/r%07ld.n", dirmails, numail);

    fmail = fopen (ficmail, "w");

    if (fmail)
    {
        // message de suivi du déroulement
        // "\rTéléchargement du mail n° %d"
        printf (mess_telech, numes);
        fflush (stdout);

        // demande de lecture du message et réception de l'acquittement
        sprintf (bufw, "RETR %d", numes);
        env_pop (bufw);
        lire_pop ();

        // terminé pour ce mail si erreur d'envoi coté serveur
        if (memcmp (buf_lect, "-ERR ", 5) == 0)
        {
            // Erreur serveur pour l'accès au mail
            aff_err_argnum ("ERREUR_SERVEUR", numes);
            fclose (fmail);
            unlink (ficmail);
            return;
        }

        // lire la première ligne de l'entête du mail
        lire_pop ();

        // lecture et copie du message jusqu'à une ligne limitée a un .
        while (buf_lect [0] != '.' || buf_lect [1] != '\0')
        {
            // copie de la ligne lue dans le fichier mail
            fputs (buf_lect, fmail);
            fputc ('\n', fmail);     // nécessaire car supprimé de buf_lect

            // et lecture de la suivante
            lire_pop ();
        }

        // fermer le fichier contenant le mail
        fclose (fmail);

        // et supprimer si nécessaire le mail du serveur
        if (effacement != CONSERVE)
        {
            sprintf (bufw, "DELE %d", numes);
            env_pop (bufw);
            lire_pop ();
        }
    }
    else
        // "Impossible d'écrire dans le fichier %s"
        aff_err_arg ("IMPOS_ECR_FICH", ficmail);
}