/*
Fichier listesimexped.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 liste les mails du serveur dont le nom de l'expéditeur
indiqué diffère d'un petit nombre de caractères d'un nom d'expéditeur
figurant dans une liste.
La liste des noms d'expéditeurs à tester est mémorisée dans un
fichier.
Un fichier de configuration est utilisé pour se connecter à la
boite aux lettres.
*/
#define appli // pour la déclaration de variables globales à l'application
/* variables globales au source
(pour éviter des tonnes de passages de paramètres) */
char **listexped; // mémorise les noms d'expéditeurs à tester
int sz_listexped; // nombre d'expéditeurs mémorisés dans listexped
/* programme principal */
int main (int nbarg, char *varg[])
{
// fichier contenant la liste des chaines à tester
char fichliste [szchemin + 12];
char *car_fichliste; // pointeur sur un caractère de ce fichier
FILE *fconf; // descripteur du fichier de configuration
int numes, nbmes; // muméro du mail courant et nombre de mails
int nbdiff; // nombre de différences dans le nom d'expéditeur
int nbmaxdiff; // nombre max de différences dans le nom d'expéditeur
char bufFrom [120]; // buffer contenant l'expéditeur du mail
// récupération du nom de l'exécutable
memcom (*varg);
// se positionner sur le premier argument de listesimexped
nbarg --;
varg ++;
// si nombre de différence maximal passé en paramètre
if (nbarg == 2 && atoi (*varg) > 0)
{
// récupérer ce nombre
nbmaxdiff = atoi (*varg);
// sauter l'argument traité
nbarg --;
varg ++;
}
// sinon
else
// une seule différence par défaut
nbmaxdiff = 1;
// contrôle du nombre d'arguments restants
if (nbarg == 1)
{
// ouvrir le fichier de configuration
fconf = ouvre_ficonf (*varg);
if (fconf)
{
// connexion sur le compte mail du serveur pop
if (connect_pop (fconf))
{
// récupérer le nom du répertoire racine de la messagerie
fgets (fichliste, szchemin, fconf);
// fabriquer le chemin d'accès au fichier contenant les
// noms d'expéditeurs à tester : <racine>/simexped
car_fichliste = fichliste + strlen (fichliste);
*(car_fichliste - 1) = '/';
strcpy (car_fichliste, ficdir ("FIC_SIMEXPED"));
// charger en mémoire les noms d'expéditeurs à tester
listexped = charge_valchamp (fichliste, &sz_listexped);
// si la liste n'est pas vide
if (sz_listexped)
{
// récupération du nombre de mails
nbmes = nbmails ();
// vérification des différents mails
for (numes = 1; numes <= nbmes; numes++)
{
// recupérer l'expéditeur du mail
recup_exped (numes, bufFrom);
// compter les différences par rapport
// au nom d'expéditeur le plus proche
nbdiff = simexped (bufFrom, listexped, sz_listexped);
// s'il y a des différences, mais pas trop
if (nbdiff && nbdiff <= nbmaxdiff)
// afficher le nombre de différences et l'expéditeur
printf ("%d %s\n", nbdiff, bufFrom);
}
}
// se déconnecter proprement du serveur pop
deconnect_pop ();
}
// on n'a plus besoin du fichier de configuration
fclose (fconf);
}
}
else
// "Syntaxe : %s [nbmaxdiff] fich_configuration"
psyntaxe ("SYNT_LISTESIMEXP");