int main(int argc, char **argv)
{
int i, use_stdin, use_mbox;
char *configfile = NULL;
char **tlang, *locale_code;
int cmd_show_variables;
int print_usage;
int amount_old = 0; /* number of old mails */
int amount_new = 0; /* number of new mails */
#ifdef HAVE_LOCALE_H
setlocale(LC_ALL, "");
#endif
lockfile[0] = '\0';
use_stdin = 0;
print_usage = 0;
use_mbox = 0;
firstdatenum = lastdatenum = 0;
configfile = strsav(CONFIGFILE);
cmd_show_variables = 0;
opterr = 0;
#define GETOPT_OPTSTRING ("a:Ab:c:d:gil:L:m:n:o:ps:tTuvVxX0:1M?")
/* get pre config options here */
while ((i = getopt(argc, argv, GETOPT_OPTSTRING)) != -1) {
switch ((char)i) {
case 'c':
configfile = strreplace(configfile, optarg);
break;
case 'v':
cmd_show_variables = TRUE;
break;
case 'V':
version();
/*NOTREACHED*/ case 'a':
case 'A':
case 'b':
case 'd':
case 'g':
case 'i':
case 'l':
case 'L':
case 'm':
case 'n':
case 'o':
case 'p':
case 's':
case 't':
case 'T':
case 'u':
case 'x':
case 'X':
case '0':
case '1':
case 'M':
break;
case '?':
default:
/*
* Because we need to setup the language support,
* printing of the usage message must be deferred
* until the proper language is determined.
*/
print_usage = 1;
break;
}
}
/*
* ...then read the configuration file.
*/
readconfigs(configfile, cmd_show_variables);
/* reset the getopt() index variable */
optind = 1;
/* now get the post-config options! */
while ((i = getopt(argc, argv, GETOPT_OPTSTRING)) != -1) {
switch ((char)i) {
case 'A':
set_append = 1;
break;
case 'a':
set_archives = strreplace(set_archives, optarg);
break;
case 'b':
set_about = strreplace(set_about, optarg);
break;
case 'c':
/* config file from pre-config options */
break;
case 'd':
set_dir = strreplace(set_dir, optarg);
break;
case 'g':
set_usegdbm = 1;
break;
case 'i':
use_stdin = TRUE;
break;
case 'l':
set_label = strreplace(set_label, optarg);
break;
case 'L':
set_language = strreplace(set_language, optarg);
break;
case 'm':
set_mbox = strreplace(set_mbox, optarg);
break;
case 'n':
set_hmail = strreplace(set_hmail, optarg);
break;
case 'o':
ConfigAddItem(optarg);
break;
case 'p':
set_showprogress = TRUE;
break;
case 's':
set_htmlsuffix = strreplace(set_htmlsuffix, optarg);
break;
case 't':
set_usetable = TRUE;
break;
case 'T':
set_indextable = TRUE;
break;
case 'u':
set_increment = TRUE;
break;
case 'v':
cmd_show_variables = TRUE;
break;
case 'x':
set_overwrite = TRUE;
break;
case 'X':
set_writehaof = TRUE;
break;
case '0':
set_delete_msgnum = add_list(set_delete_msgnum, optarg);
break;
case '1':
set_readone = TRUE;
break;
case 'M':
set_usemeta = TRUE;
break;
case 'N':
set_nonsequential = TRUE;
break;
case '?':
default:
break;
}
}
#ifdef DEBUG
dump_config();
exit(0);
#endif
/*
* Now override the configuration file variables with any explicitly
* passed on the command line. This way you need not change the
* configuration file settings for a minor change in a single run.
*/
/*
* Check and make sure that the supplied language is a
* valid language. Otherwise strange things happen quickly.
*/
if (strlen(set_language) > 2) {
locale_code = strsav(set_language);
set_language[2] = 0; /* shorten to 2-letter code */
}
else
locale_code = NULL;
if ((tlang = valid_language(set_language, &locale_code)) == NULL) {
snprintf(errmsg, sizeof(errmsg), "\"%s\" %s.", set_language, lang[MSG_LANGUAGE_NOT_SUPPORTED]);
cmderr(errmsg);
}
#ifdef HAVE_LOCALE_H
if (!setlocale(LC_ALL, locale_code)) {
snprintf(errmsg, sizeof(errmsg), "WARNING: locale \"%s\", not supported.\n", locale_code);
fprintf(stderr, "%s", errmsg);/* AUDIT biege: avoid format-bug warning */
}
#endif
lang = tlang; /* A good language, make it so. */
if (print_usage) /* Print the usage message and terminate */
usage();
#ifndef GDBM
if (set_usegdbm) {
fprintf(stderr, "%s: %s\n", PROGNAME, lang[MSG_OPTION_G_NOT_BUILD_IN]);
usage();
}
#endif
#ifndef HAVE_LIBFNV
if (set_nonsequential)
progerr("Hypermail isn't built with the libfnv hash library.\n"
"You cannot use the nonsequential option.\n");
#endif /* HAVE_LIBFNV */
if (set_mbox && !strcasecmp(set_mbox, "NONE")) {
use_stdin = TRUE;
}
/* the list of headers that we always show and that we want to avoid
showing twice when printing the body */
set_skip_headers = add_list(set_skip_headers, "from");
set_skip_headers = add_list(set_skip_headers, "date");
set_skip_headers = add_list(set_skip_headers, "subject");
/*
* Did they decide to use stdin by specifying it on the command line ?
* If not then check and see if that is the default they wanted from
* the options.h or environment values.
*/
if (!use_stdin) {
if (optind < argc && set_increment == -1 && !set_mbox) {
set_mbox = strsav(argv[optind]);
}
else if (!set_mbox || !strcasecmp(set_mbox, "NONE"))
use_stdin = TRUE;
else
use_stdin = FALSE;
}
else {
if (set_mbox)
free(set_mbox);
set_mbox = NULL;
}
/*
** Deprecated options
*/
if (set_showhr) {
fprintf (stderr, "The \"showhr\" option has been deprecated. Ignoring it.\n");
set_showhr = FALSE;
}
if (set_usetable) {
fprintf (stderr, "The \"usetable\" option has been deprecated. Ignoring it.\n");
set_usetable = FALSE;
}
/*
* Read the contents of the file into the variables to be used
* in printing out the pages.
*/
ihtmlheaderfile = expand_contents(set_ihtmlheader);
ihtmlfooterfile = expand_contents(set_ihtmlfooter);
ihtmlheadfile = expand_contents(set_ihtmlhead);
ihtmlhelpupfile = expand_contents(set_ihtmlhelpup);
ihtmlhelplowfile = expand_contents(set_ihtmlhelplow);
ihtmlnavbar2upfile = expand_contents(set_ihtmlnavbar2up);
mhtmlheaderfile = expand_contents(set_mhtmlheader);
mhtmlfooterfile = expand_contents(set_mhtmlfooter);
if (set_dir)
set_dir = strreplace(set_dir, dirpath(set_dir));
/*
* Default names for directories and labels need to be figured out.
*/
if (use_stdin && (!set_dir || !strcasecmp(set_dir, "NONE")))
set_dir = strreplace(set_dir, DIRNAME);
if (!set_dir || !strcasecmp(set_dir, "NONE"))
set_dir = strreplace(set_dir, (strrchr(set_mbox, '/')) ? strrchr(set_mbox, '/') + 1 : set_mbox);
if (set_dir[strlen(set_dir) - 1] != PATH_SEPARATOR)
trio_asprintf(&set_dir, "%s%c", set_dir, PATH_SEPARATOR);
if (!set_label || !strcasecmp(set_label, "NONE"))
set_label = set_mbox ? (strreplace(set_label, (strrchr(set_mbox, '/')) ? strrchr(set_mbox, '/') + 1 : set_mbox)) : "stdin";
/*
* Which index file will be called "index.html"?
*/
index_name[1][DATE_INDEX] = setindex(set_defaultindex, "date", set_htmlsuffix);
index_name[1][THREAD_INDEX] = setindex(set_defaultindex, "thread", set_htmlsuffix);
index_name[1][SUBJECT_INDEX] = setindex(set_defaultindex, "subject", set_htmlsuffix);
index_name[1][AUTHOR_INDEX] = setindex(set_defaultindex, "author", set_htmlsuffix);
if (set_attachmentsindex) {
index_name[1][ATTACHMENT_INDEX]
= setindex(set_defaultindex, "attachment", set_htmlsuffix);
}
if (set_folder_by_date || set_msgsperfolder) {
index_name[0][DATE_INDEX] = setindex(set_default_top_index, "date", set_htmlsuffix);
index_name[0][THREAD_INDEX] = setindex(set_default_top_index, "thread", set_htmlsuffix);
index_name[0][SUBJECT_INDEX] = setindex(set_default_top_index, "subject", set_htmlsuffix);
index_name[0][AUTHOR_INDEX] = setindex(set_default_top_index, "author", set_htmlsuffix);
if (set_attachmentsindex) {
index_name[0][ATTACHMENT_INDEX] = setindex(set_default_top_index, "attachment", set_htmlsuffix);
}
index_name[0][FOLDERS_INDEX] = setindex(set_default_top_index, "folders", set_htmlsuffix);
}
else {
index_name[0][DATE_INDEX] = index_name[1][DATE_INDEX];
index_name[0][THREAD_INDEX] = index_name[1][THREAD_INDEX];
index_name[0][AUTHOR_INDEX] = index_name[1][AUTHOR_INDEX];
index_name[0][SUBJECT_INDEX] = index_name[1][SUBJECT_INDEX];
index_name[0][ATTACHMENT_INDEX] = index_name[1][ATTACHMENT_INDEX];
}
init_index_names();
if (set_msgsperfolder && set_folder_by_date) {
progerr("msgsperfolder and folder_by_date may not be used at the same time!");
}
/*
* General settings for mail command and rewriting.
*/
if (!set_domainaddr || !strcasecmp(set_domainaddr, "NONE"))
use_domainaddr = 0;
else
use_domainaddr = 1;
if (!set_mailto || !strcasecmp(set_mailto, "NONE"))
use_mailto = 0;
else
use_mailto = 1;
if (!set_mailcommand || !strcasecmp(set_mailcommand, "NONE"))
use_mailcommand = 0;
else
use_mailcommand = 1;
#ifndef HAVE_LIBFNV
/* the nonsequential mode won't work unless we compiled the FNV hash library
(./configure --enable-libfnv) */
if (set_nonsequential)
progerr("the nonsequential mode is only available if you enabled the\n compilation" "of the fnv hash library. Try doing a\n\t./configure --enable-libfnv\n" "and recompile if you want to use this option.");
#endif /* HAVE_LIBFNV */
/*
* A little performance speed up. The following was being done
* over and over in the write functions. This way it is done once.
* A bigger win on larger archives.
*/
if (set_hmail && !strcasecmp(set_hmail, "NONE")) {
free(set_hmail);
set_hmail = NULL;
}
if (set_archives && !strcasecmp(set_archives, "NONE")) {
free(set_archives);
set_archives = NULL;
}
if (set_custom_archives && !strcasecmp(set_custom_archives, "NONE")) {
free(set_custom_archives);
set_custom_archives = NULL;
}
if (set_about && !strcasecmp(set_about, "NONE")) {
free(set_about);
set_about = NULL;
}
/* Simply show what the values of the variables are and exit */
if (cmd_show_variables) {
if (!set_mbox)
set_mbox = "NONE";
MakeConfig(TRUE);
free(configfile);
return (0);
}
/* Injecting a little sanity... */
if (use_mbox && use_stdin) {
cmderr(lang[MSG_CANNOT_READ_FROM_BOTH_FILE_AND_STDIN]);
}
if (set_append && use_mbox) {
cmderr(lang[MSG_CANNOT_BOTH_READ_AND_WRITE_TO_MBOX]);
}
gettimezone();
getthisyear();
/*
* MIME processing requires the files be created as they
* are read in loadheaders() so assure the directories are
* there first...
*/
checkdir(set_dir);
/*
* Let's do it.
*/
if (set_uselock)
lock_archive(set_dir);
if (set_increment == -1) {
int save_append = set_append;
set_append = 0;
if (set_mbox_shortened)
progerr("can not use increment = -1 option with mbox_shortened option\n");
amount_new = parsemail(set_mbox, use_stdin, 1, -1, set_dir, set_inlinehtml, 0);
set_increment = !matches_existing(set_startmsgnum);
if (set_increment && set_folder_by_date && !set_usegdbm)
progerr("folder_by_date with incremental update requires usegdbm option");
reinit_structs();
set_append = save_append;
}
if (set_increment) {
int num_displayable;
if (set_linkquotes)
replylist = NULL;
/* we have to start with the msgnum - 1 so that the rest of the
code works ok when there are no old headers. */
max_msgnum = set_startmsgnum - 1;
num_displayable = loadoldheaders(set_dir);
amount_old = max_msgnum + 1; /* counts gaps as messages */
/* start numbering at this number */
amount_new = num_displayable + parsemail(set_mbox, use_stdin, set_readone, set_increment, set_dir, set_inlinehtml, amount_old);
if (set_linkquotes)
analyze_headers(max_msgnum + 1);
/* write the index of msgno/msgid_hash filenames */
if (set_nonsequential)
write_messageindex(0, max_msgnum + 1);
writearticles(amount_old, max_msgnum + 1);
/* JK: in function of other hypermail configuration options,
delete_incremental will continuous escape and add more markup
to non-deleted messages that are replies to deleted messages.
Thus, a setup option to disable it */
if (set_delete_incremental && deletedlist)
update_deletions(amount_old);
if (set_show_msg_links) {
fixnextheader(set_dir, amount_old, -1);
for (i = amount_old; i <= max_msgnum; ++i) {
if (set_showreplies)
fixreplyheader(set_dir, i, 0, amount_old);
fixthreadheader(set_dir, i, amount_old);
}
}
}
else {
if (set_mbox_shortened) {
if (!set_usegdbm) progerr("mbox_shortened option requires that the usegdbm option be on");
max_msgnum = set_startmsgnum - 1;
loadoldheaders(set_dir);
}
amount_new = parsemail(set_mbox, use_stdin, set_readone, set_increment, set_dir,
set_inlinehtml, set_startmsgnum); /* number from 0 */
if (!set_mbox_shortened && !matches_existing(0)) {
progerr("First message in mailbox does not "
"match first message in archive\n"
"or obsolete gdbm file present.\n"
"Maybe you want to enable the mbox_shortened option?\n");
}
if (set_linkquotes)
analyze_headers(max_msgnum + 1);
/* write the index of msgno/msgid_hash filenames */
if (set_nonsequential)
write_messageindex(0, max_msgnum + 1);
writearticles(0, max_msgnum + 1);
}
if (amount_new) { /* Always write the index files */
if (set_linkquotes) {
threadlist = NULL;
threadlist_end = NULL;
printedthreadlist = NULL;
for (i = 0; i <= max_msgnum; ++i) {
struct emailinfo *ep;
if (hashnumlookup(i, &ep)) {
ep->flags &= ~USED_THREAD;
#ifdef FASTREPLYCODE
ep->isreply = 0;
#endif
}
threadlist_by_msgnum[i] = NULL;
} /* redo threading with more complete info than in 1st pass */
crossindexthread1(datelist);
for (i = 0; i <= max_msgnum; ++i) {
struct emailinfo *ep, *etmp;
hashnumlookup(i, &ep);
etmp = nextinthread(i);
if (etmp && ep->initial_next_in_thread != etmp->msgnum)
fixthreadheader(set_dir, etmp->msgnum, amount_new);
/* if (ep->flags & THREADING_ALTERED) */
}
}
count_deleted(max_msgnum + 1);
if (show_index[0][DATE_INDEX])
writedates(amount_new, NULL);
if (show_index[0][THREAD_INDEX])
writethreads(amount_new, NULL);
if (show_index[0][SUBJECT_INDEX])
writesubjects(amount_new, NULL);
if (show_index[0][AUTHOR_INDEX])
writeauthors(amount_new, NULL);
if (set_attachmentsindex) {
writeattachments(amount_new, NULL);
}
if (set_writehaof)
writehaof(amount_new, NULL);
if (set_folder_by_date || set_msgsperfolder)
write_toplevel_indices(amount_new);
if (set_monthly_index || set_yearly_index)
write_summary_indices(amount_new);
if (set_latest_folder)
symlink_latest();
}
else {
printf("No mails to output!\n");
}
if (set_uselock)
unlock_archive();
if (configfile)
free(configfile);
if (ihtmlheaderfile)
free(ihtmlheaderfile);
if (ihtmlfooterfile)
free(ihtmlfooterfile);
if (ihtmlheadfile)
free(ihtmlheadfile);
if (ihtmlhelpupfile)
free(ihtmlhelpupfile);
if (ihtmlhelplowfile)
free(ihtmlhelplowfile);
if (ihtmlnavbar2upfile)
free(ihtmlnavbar2upfile);
if (mhtmlheaderfile)
free(mhtmlheaderfile);
if (mhtmlfooterfile)
free(mhtmlfooterfile);
return (0);
}
static void _pascal parseconfig(FILE *fp)
{
char buffer[TEXTLEN];
char *keyword = NULL;
char *value = NULL;
char *s = NULL;
memset(buffer, 0, TEXTLEN);
while (!feof(fp)) {
if (fgets(buffer, TEXTLEN, fp) == NULL)
return;
keyword = strtok(buffer, " \t\n\r");
if (keyword) strlwr(keyword); else continue;
if ((*keyword) == ';')
continue;
value = strtok(NULL, ";\n\r");
if (value != NULL) {
s = value + strlen(value) - 1;
while ((s > value) && isspace(*s))
*s-- = '\0';
}
while (value && *value && isspace(*value))
if ((*value == '\n') || (*value == ';'))
break;
else
value++;
if (strcmp("attribution", keyword) == 0) {
free(attribline);
if (value)
attribline = strdup(value);
else
attribline = NULL;
continue;
}
if (!value) continue;
if (strcmp("name",keyword) == 0) {
check(value);
username = strdup(value);
check(username);
}
else if (strcmp("include", keyword) == 0) {
FILE *ifp;
if ((ifp = fopen(value,"rt")) != NULL) {
parseconfig(ifp);
fclose(ifp);
}
}
else if (strcmp("outfile", keyword) == 0) {
free(outfile);
outfile = strdup(value);
}
else if (strcmp("uucp", keyword) == 0) {
uucp_gate = parsenode(value);
uucp_gate.notfound = 0;
}
else if (strcmp("lastread", keyword) == 0) {
free(lastread);
lastread = strdup(value);
}
else if (strcmp("tosslog", keyword) == 0) {
free(confmail);
confmail = strdup(value);
}
#ifndef NOSPELL
else if (strcmp("speller", keyword) == 0) {
free(speller);
speller = strdup(value);
}
#endif
else if (strcmp("quickbbs", keyword) == 0) {
int i;
if (quickbbs != NULL)
free(quickbbs);
quickbbs = strdup(value);
i = strlen(quickbbs);
if ((*(quickbbs + i - 1) != '\\') &&
(*(quickbbs + i - 1) != '/')) {
char *s = calloc(1,i+2);
strcat(strcpy(s,quickbbs),"/");
free(quickbbs);
quickbbs = strdup(s);
free(s);
}
}
else if (strcmp("video",keyword) == 0) {
if (value) strlwr(value);
if (strncmp(value,"direct",6) == 0)
videomethod = DIRECT;
else if (strncmp(value,"bios",4) == 0)
videomethod = BIOS;
else if (strncmp(value,"fossil",6) == 0)
videomethod = FOSSIL;
else if (strncmp(value,"ansi",4) == 0)
videomethod = ANSI;
}
else if (strcmp("gate",keyword) == 0) {
if (gate == 7)
gate = 0;
if (value) strlwr(value);
if (strncmp(value,"zones",5) == 0)
gate |= GZONES;
else if (strncmp(value,"domains",7) == 0)
gate |= GDOMAINS;
else if (strncmp(value,"both",4) == 0)
gate = GDOMAINS | GZONES;
else if (strncmp(value,"none",4) == 0)
gate = 0;
}
else if (strcmp("function",keyword) == 0) {
int i;
char *s;
i = (int) strtol(value,&s,0);
s = striplwhite(s);
if ((i >= 0) && (i <= 40))
macros[i] = parse_macro(s);
}
else if (strcmp("userlist", keyword) == 0) {
fidolist = strdup(strtok(value,",\n"));
if ((userlist = strtok(NULL,",\n")) != NULL)
userlist = strdup(userlist);
}
else if (strcmp("address", keyword) == 0) {
if (alias == NULL) {
alias = (ADDRESS *) calloc(1, sizeof(ADDRESS));
aliascount = 1;
}
else
alias = (ADDRESS *) realloc(alias,++aliascount * sizeof(ADDRESS));
alias[aliascount - 1] = parsenode(value);
}
else if (strcmp("videoseg", keyword) == 0)
vbase = (int) strtol(value,NULL,0);
else if (strcmp("privatenet", keyword) == 0)
pointnet = (int) strtol(value,NULL,0);
else if (strcmp("maxx", keyword) == 0)
maxx = (int) strtol(value,NULL,0);
else if (strcmp("maxy", keyword) == 0)
maxy = (int) strtol(value,NULL,0);
else if (strcmp("tabsize", keyword) == 0)
tabsize = (int) strtol(value,NULL,0);
else if (strcmp("right", keyword) == 0)
rm = (int) strtol(value,NULL,0);
else if (strcmp("quoteright", keyword) == 0)
qm = (int) strtol(value,NULL,0);
else if (strcmp("no",keyword) == 0) {
if (value) strlwr(value);
softcr ^= (strcmp("softcr", value) == 0);
seenbys ^= (strcmp("seen-bys", value) == 0);
tearline ^= (strcmp("tearline", value) == 0);
shownotes ^= (strcmp("shownotes", value) == 0);
confirmations ^= (strcmp("confirm", value) == 0);
msgids ^= (strcmp("msgids",value) == 0);
stripnotes ^= (strcmp("strip",value) == 0);
opusdate ^= (strcmp("opusdate",value) == 0);
swapping ^= (strcmp("swapping",value) == 0);
}
else if (!(strcmp("editkey", keyword))||!(strcmp("readkey",keyword))) { /*WRA*/
int scancode;
if (value) {
strlwr(value);
scancode = (int) strtol(value,&value,0);
value = striplwhite(value);
}
if (*keyword == 'e')
e_assignkey(scancode,value);
else
r_assignkey(scancode,value);
}
else if (strcmp("quote", keyword) == 0) {
char *s;
if (quotestr != NULL)
free(quotestr);
s = quotestr = strdup(value);
while (*s) {
*s = (*s == (char) '_')?(char)' ':*s;
s++;
}
}
else if (strcmp("origin", keyword) == 0) {
if (origin != NULL)
free(origin);
origin = strdup(value);
}
else if ((strcmp("quick", keyword) == 0) ||
(strcmp("fido", keyword) == 0)) {
parsemail(keyword,value);
}
else if (strcmp("color", keyword) == 0) {
keyword = strtok(value," \t");
value = strtok(NULL,"\0");
set_colors(keyword,value);
}
memset(buffer, 0, TEXTLEN);
}
}
