rohrpost

scan.c (4377B)

---

 /*
  * Copy me if you can.
  * by 20h
  */
 
 #include <unistd.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <time.h>
 #include <string.h>
 
 #include "ind.h"
 #include "arg.h"
 #include "cfg.h"
 #include "llist.h"
 #include "folder.h"
 #include "imap.h"
 #include "pager.h"
 #include "mime.h"
 #include "scan.h"
 
 void
 scan_print(char *id, char *date, char *from, char *subject)
 {
 	printf("%s\t%s\t%s\t%s\n", id, date, from, subject);
 }
 
 void
 scanusage(char *argv0)
 {
 	die("usage: %s [-h] [-c cfg] [-m folder] msgs\n", argv0);
 }
 
 int
 scanmain(int argc, char *argv[])
 {
 	config_t *cfg;
 	imap_t *imap;
 	int filelen;
 	char *user, *pass, *netspec, *selected, *date, *subject, *from,
 	     *id, *filec, *cfgn, *argv0;
 	llist_t *ids, *msgs;
 	llistelem_t *elem, *msg, *datee, *subjecte, *frome, *ide;
 	mime_t *mime;
 	struct tm *tim;
 
 	selected = NULL;
 	cfgn = NULL;
 
 	ARGBEGIN(argv0) {
 	case 'c':
 		cfgn = EARGF(scanusage(argv0));
 		break;
 	case 'm':
 		selected = EARGF(scanusage(argv0));
 		break;
 	default:
 		scanusage(argv0);
 	} ARGEND;
 
 	filelen = 0;
 	if (argc < 1) {
 		filec = readtoeoffd(0, &filelen);
 		if (filec == NULL)
 			edie("readtoeoffd");
 	} else {
 		filec = NULL;
 	}
 
 	cfg = config_init(cfgn);
 	if (filec == NULL) {
 		user = config_checkgetstr(cfg, "imapuser");
 		pass = config_checkgetstr(cfg, "imappass");
 		netspec = config_checkgetstr(cfg, "imapnet");
 		if (selected == NULL) {
 			selected = config_checkgetstr(cfg, "selected");
 		} else {
 			selected = memdup(selected, strlen(selected)+1);
 		}
 	}
 	if (cfg->name != NULL) {
 		cfgn = memdup(cfg->name, strlen(cfg->name)+1);
 	} else {
 		cfgn = memdup(cfgn, strlen(cfgn)+1);
 	}
 
 	config_free(cfg);
 
 	if (filec != NULL) {
 		scan_print("ID", "Date", "From", "Subject");
 
 		mime = mime_parsebuf(filec, filelen);
 		free(filec);
 		if (mime == NULL)
 			die("Input does not seem to be valid MIME.\n");
 
 		subjecte = llist_ciget(mime->hdrs, "subject");
 		datee = llist_ciget(mime->hdrs, "date");
 		frome = llist_ciget(mime->hdrs, "from");
 
 		if (subjecte != NULL) {
 			subject = mime_guessheader((char *)subjecte->data);
 		} else {
 			subject = "<empty>";
 		}
 
 		if (datee != NULL) {
 			tim = mime_parsedate((char *)datee->data);
 			if (tim != NULL)
 				date = smftime("%F/%H:%M", tim);
 			else
 				date = smprintf("invalid");
 			free(tim);
 		} else {
 			date = "<empty>";
 		}
 
 		if (frome != NULL) {
 			from = mime_guessheader((char *)frome->data);
 		} else {
 			from = "<empty>";
 		}
 
 		scan_print("", date, from, subject);
 
 		if (subjecte != NULL)
 			free(subject);
 		if (datee != NULL)
 			free(date);
 		if (frome != NULL)
 			free(from);
 
 		mime_free(mime);
 
 		goto scancleanup;
 	}
 
 	imap = imap_new(netspec, user, pass);
 	free(user);
 	free(pass);
 	free(netspec);
 
 	if (imap_init(imap))
 		imap_die(imap, "imap_init");
 	if (imap_select(imap, selected))
 		imap_die(imap, "imap_select");
 
 	ids = imap_argv2ids(cfgn, selected, argc, argv);
 	if (ids == NULL)
 		die("No msgids selected. Aborting.\n");
 
 	msgs = imap_fetchheaders(imap, ids);
 	if (msgs == NULL)
 		imap_die(imap, "imap_fetchheaders");
 	llist_free(ids);
 
 	scan_print("ID", "Date", "From", "Subject");
 	forllist(msgs, msg) {
 		elem = llist_get((llist_t *)msg->data, "literal");
 		if (elem == NULL)
 			continue;
 		mime = mime_parsebuf((char *)elem->data, elem->datalen);
 		if (mime == NULL)
 			continue;
 
 		ide = llist_get((llist_t *)msg->data, "id");
 		subjecte = llist_ciget(mime->hdrs, "subject");
 		datee = llist_ciget(mime->hdrs, "date");
 		frome = llist_ciget(mime->hdrs, "from");
 
 		if (subjecte != NULL) {
 			subject = mime_guessheader((char *)subjecte->data);
 		} else {
 			subject = "<empty>";
 		}
 
 		if (datee != NULL) {
 			tim = mime_parsedate((char *)datee->data);
 			if (tim != NULL)
 				date = smftime("%F/%H:%M", tim);
 			else
 				date = smprintf("invalid");
 			free(tim);
 		} else {
 			date = "<empty>";
 		}
 
 		if (frome != NULL) {
 			from = mime_guessheader((char *)frome->data);
 		} else {
 			from = "<empty>";
 		}
 
 		id = smprintf("rp:/%s/%s/%s",
 			(!strcmp(cfgn, "default")? "" : cfgn),
 			selected,
 			(char *)ide->data);
 
 		scan_print(id, date, from, subject);
 
 		free(id);
 
 		if (subjecte != NULL)
 			free(subject);
 		if (datee != NULL)
 			free(date);
 		if (frome != NULL)
 			free(from);
 
 		mime_free(mime);
 	}
 	llist_efree(msgs);
 
 scancleanup:
 	free(cfgn);
 	if (filec == NULL) {
 		free(selected);
 		imap_close(imap);
 		imap_free(imap);
 	}
 	return 0;
 }