/* * ======================================================================== * Copyright 2013-2022 Eduardo Chappa * Copyright 2006-2007 University of Washington * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * ======================================================================== */ /*====================================================================== init.c Routines for pine start up and initialization ====*/ #include "../pith/headers.h" #include "../pith/init.h" #include "../pith/conf.h" #include "../pith/status.h" #include "../pith/folder.h" /* * Internal prototypes */ int compare_sm_files(const qsort_t *, const qsort_t *); /*---------------------------------------------------------------------- Sets login, full_username and home_dir Args: ps -- The Pine structure to put the user name, etc in Result: sets the fullname, login and home_dir field of the pine structure returns 0 on success, -1 if not. ----*/ int init_username(struct pine *ps) { char *expanded; int rv; rv = 0; expanded = NULL; #if defined(DOS) || defined(OS2) if(ps->COM_USER_ID) expanded = expand_variables(tmp_20k_buf, SIZEOF_20KBUF, ps->COM_USER_ID, 0); if(!expanded && ps->vars[V_USER_ID].post_user_val.p) expanded = expand_variables(tmp_20k_buf, SIZEOF_20KBUF, ps->vars[V_USER_ID].post_user_val.p, 0); if(!expanded && ps->vars[V_USER_ID].main_user_val.p) expanded = expand_variables(tmp_20k_buf, SIZEOF_20KBUF, ps->vars[V_USER_ID].main_user_val.p, 0); if(!expanded) ps->blank_user_id = 1; ps->VAR_USER_ID = cpystr(expanded ? expanded : ""); #else ps->VAR_USER_ID = cpystr(ps->ui.login); if(!ps->VAR_USER_ID[0]){ fprintf(stderr, "Who are you? (Unable to look up login name)\n"); rv = -1; } #endif expanded = NULL; if(ps->vars[V_PERSONAL_NAME].is_fixed){ if(ps->FIX_PERSONAL_NAME){ expanded = expand_variables(tmp_20k_buf, SIZEOF_20KBUF, ps->FIX_PERSONAL_NAME, 0); } if(ps->vars[V_PERSONAL_NAME].main_user_val.p || ps->vars[V_PERSONAL_NAME].post_user_val.p){ ps_global->give_fixed_warning = 1; ps_global->fix_fixed_warning = 1; } else if(ps->COM_PERSONAL_NAME) ps_global->give_fixed_warning = 1; } else{ if(ps->COM_PERSONAL_NAME) expanded = expand_variables(tmp_20k_buf, SIZEOF_20KBUF, ps->COM_PERSONAL_NAME, 0); if(!expanded && ps->vars[V_PERSONAL_NAME].post_user_val.p) expanded = expand_variables(tmp_20k_buf, SIZEOF_20KBUF, ps->vars[V_PERSONAL_NAME].post_user_val.p, 0); if(!expanded && ps->vars[V_PERSONAL_NAME].main_user_val.p) expanded = expand_variables(tmp_20k_buf, SIZEOF_20KBUF, ps->vars[V_PERSONAL_NAME].main_user_val.p, 0); } if(!expanded){ expanded = ps->ui.fullname; #if defined(DOS) || defined(OS2) ps->blank_personal_name = 1; #endif } ps->VAR_PERSONAL_NAME = cpystr(expanded ? expanded : ""); dprint((1, "Userid: %s\nFullname: \"%s\"\n", ps->VAR_USER_ID, ps->VAR_PERSONAL_NAME)); return(rv); } /*---------------------------------------------------------------------- Sets home_dir Args: ps -- The Pine structure to put the user name, etc in Result: sets the home_dir field of the pine structure returns 0 on success, -1 if not. ----*/ int init_userdir(struct pine *ps) { char fld_dir[MAXPATH+1]; if(strlen(ps->home_dir) + strlen(ps->VAR_MAIL_DIRECTORY)+2 > MAXPATH){ printf(_("Folders directory name is longer than %d\n"), MAXPATH); printf(_("Directory name: \"%s/%s\"\n"),ps->home_dir, ps->VAR_MAIL_DIRECTORY); return(-1); } #if defined(DOS) || defined(OS2) if(ps->VAR_MAIL_DIRECTORY[1] == ':'){ strncpy(fld_dir, ps->VAR_MAIL_DIRECTORY, sizeof(fld_dir)-1); fld_dir[sizeof(fld_dir)-1] = '\0'; } else #endif build_path(fld_dir, ps->home_dir, ps->VAR_MAIL_DIRECTORY, sizeof(fld_dir)); ps->folders_dir = cpystr(fld_dir); return(0); } /*---------------------------------------------------------------------- Fetch the hostname of the current system and put it in pine struct Args: ps -- The pine structure to put the hostname, etc in Result: hostname, localdomain, userdomain and maildomain are set ** Pine uses the following set of names: hostname - The fully-qualified hostname. Obtained with gethostbyname() which reads /etc/hosts or does a DNS lookup. This may be blank. localdomain - The domain name without the host. Obtained from the above hostname if it has a "." in it. Removes first segment. If hostname has no "." in it then the hostname is used. This may be blank. userdomain - Explicitly configured domainname. This is read out of the global pine.conf or user's .pinerc. The user's entry in the .pinerc overrides. ** Pine has the following uses for such names: 1. On outgoing messages in the From: line Uses userdomain if there is one. If not uses, uses hostname unless Pine has been configured to use localdomain. 2. When expanding/fully-qualifying unqualified addresses during composition (same as 1) 3. When expanding/fully-qualifying unqualified addresses during composition when a local entry in the password file exists for name. If no userdomain is given, then this lookup is always done and the hostname is used unless Pine's been configured to use the localdomain. If userdomain is defined, it is used, but no local lookup is done. We can't assume users on the local host are valid in the given domain (and, for simplicity, have chosen to ignore the cases userdomain matches localdomain or localhost). Setting user-lookup-even-if-domain-mismatch feature will tell pine to override this behavior and perform the local lookup anyway. The problem of a global "even-if" set and a .pinerc-defined user-domain of something odd causing the local lookup, but this will only effect the personal name, and is not judged to be a significant problem. 4. In determining if an address is that of the current pine user for formatting index and filtering addresses when replying If a userdomain is specified the address must match the userdomain exactly. If a userdomain is not specified or the userdomain is the same as the hostname or domainname, then an address will be considered the users if it matches either the domainname or the hostname. Of course, the userid must match too. 5. In Message ID's The fully-qualified hostname is always users here. ** Setting the domain names To set the domain name for all Pine users on the system to be different from what Pine figures out from DNS, set the domain name in the "user-domain" variable in pine.conf. To set the domain name for an individual user, set the "user-domain" variable in his .pinerc. The .pinerc setting overrides any other setting. ----*/ int init_hostname(struct pine *ps) { char hostname[MAX_ADDRESS+1], domainname[MAX_ADDRESS+1]; getdomainnames(hostname, sizeof(hostname)-1, domainname, sizeof(domainname)-1); if(ps->hostname) fs_give((void **)&ps->hostname); ps->hostname = cpystr(hostname); if(ps->localdomain) fs_give((void **)&ps->localdomain); ps->localdomain = cpystr(domainname); ps->userdomain = NULL; if(ps->VAR_USER_DOMAIN && ps->VAR_USER_DOMAIN[0]){ ps->maildomain = ps->userdomain = ps->VAR_USER_DOMAIN; }else{ #if defined(DOS) || defined(OS2) if(ps->VAR_USER_DOMAIN) ps->blank_user_domain = 1; /* user domain set to null string! */ ps->maildomain = ps->localdomain[0] ? ps->localdomain : ps->hostname; #else ps->maildomain = strucmp(ps->VAR_USE_ONLY_DOMAIN_NAME, "yes") ? ps->hostname : ps->localdomain; #endif } /* * Tell c-client what domain to use when completing unqualified * addresses it finds in local mailboxes. Remember, it won't * affect what's to the right of '@' for unqualified addresses in * remote folders... */ mail_parameters(NULL, SET_LOCALHOST, (void *) ps->maildomain); if(F_OFF(F_QUELL_MAILDOMAIN_WARNING, ps) && !strchr(ps->maildomain, '.')){ snprintf(tmp_20k_buf, SIZEOF_20KBUF, _("Incomplete maildomain \"%s\"."), ps->maildomain); init_error(ps, SM_ORDER | SM_DING, 3, 5, tmp_20k_buf); strncpy(tmp_20k_buf, _("Return address in mail you send may be incorrect."), SIZEOF_20KBUF); tmp_20k_buf[SIZEOF_20KBUF-1] = '\0'; init_error(ps, SM_ORDER | SM_DING, 3, 5, tmp_20k_buf); } dprint((1,"User domain name being used \"%s\"\n", ps->userdomain == NULL ? "" : ps->userdomain)); dprint((1,"Local Domain name being used \"%s\"\n", ps->localdomain ? ps->localdomain : "?")); dprint((1,"Host name being used \"%s\"\n", ps->hostname ? ps->hostname : "?")); dprint((1, "Mail Domain name being used (by c-client too) \"%s\"\n", ps->maildomain ? ps->maildomain : "?")); if(!ps->maildomain || !ps->maildomain[0]){ #if defined(DOS) || defined(OS2) if(ps->blank_user_domain) return(0); /* prompt for this in send.c:dos_valid_from */ #endif fprintf(stderr, _("No host name or domain name set\n")); return(-1); } else return(0); } /*---------------------------------------------------------------------- Make sure the default save folders exist in the default save context. ----*/ void init_save_defaults(void) { CONTEXT_S *save_cntxt; if(!ps_global->VAR_DEFAULT_FCC || !*ps_global->VAR_DEFAULT_FCC || !ps_global->VAR_DEFAULT_SAVE_FOLDER || !*ps_global->VAR_DEFAULT_SAVE_FOLDER) return; if(!(save_cntxt = default_save_context(ps_global->context_list))) save_cntxt = ps_global->context_list; if(!(folder_exists(save_cntxt, ps_global->VAR_DEFAULT_FCC) & FEX_ISFILE)) context_create(save_cntxt, NULL, ps_global->VAR_DEFAULT_FCC); if(!(folder_exists(save_cntxt, ps_global->VAR_DEFAULT_SAVE_FOLDER) & FEX_ISFILE)) context_create(save_cntxt, NULL, ps_global->VAR_DEFAULT_SAVE_FOLDER); free_folder_list(save_cntxt); } /*---------------------------------------------------------------------- Put sent-mail files in date order Args: a, b -- The names of two files. Expects names to be sent-mail-mmm-yy Other names will sort in order and come before those in above format. ----*/ int compare_sm_files(const qsort_t *aa, const qsort_t *bb) { struct sm_folder *a = (struct sm_folder *)aa, *b = (struct sm_folder *)bb; if(a->month_num == -1 && b->month_num == -1 && a->name && b->name) return(strucmp(a->name, b->name)); if(a->month_num == -1) return(-1); if(b->month_num == -1) return(1); return(a->month_num - b->month_num); } /*---------------------------------------------------------------------- Create an ordered list of sent-mail folders and their month numbers Args: dir -- The directory to find the list of files in Result: Pointer to list of files is returned. This list includes all files that start with "sent-mail", but not "sent-mail" itself. ----*/ struct sm_folder * get_mail_list(CONTEXT_S *list_cntxt, char *folder_base) { register struct sm_folder *sm = NULL; struct sm_folder *sml = NULL; char *filename; int i, folder_base_len; int max_files; char searchname[MAXPATH+1]; if((folder_base_len = strlen(folder_base)) == 0 || !list_cntxt){ sml = (struct sm_folder *) fs_get(sizeof(struct sm_folder)); memset((void *)sml, 0, sizeof(struct sm_folder)); return(sml); } #ifdef DOS if(*list_cntxt->context != '{'){ /* NOT an IMAP collection! */ snprintf(searchname, sizeof(searchname), "%4.4s*", folder_base); folder_base_len = strlen(searchname) - 1; } else #endif /* MAXPATH + 1 = sizeof(searchmane) */ snprintf(searchname, sizeof(searchname), "%.*s*", MAXPATH+1-2, folder_base); build_folder_list(NULL, list_cntxt, searchname, NULL, BFL_FLDRONLY); max_files = MIN(MAX(0, folder_total(FOLDERS(list_cntxt))), 5000); sml = sm = (struct sm_folder *) fs_get(sizeof(struct sm_folder)*(max_files+1)); memset((void *)sml, 0, sizeof(struct sm_folder) * (max_files+1)); for(i = 0; i < folder_total(FOLDERS(list_cntxt)); i++){ filename = folder_entry(i, FOLDERS(list_cntxt))->name; #ifdef DOS if(struncmp(filename, folder_base, folder_base_len) == 0 && strucmp(filename, folder_base)){ if(*list_cntxt->context != '{'){ int j; for(j = 0; j < 4; j++) if(!isdigit((unsigned char)filename[folder_base_len + j])) break; if(j < 4) /* not proper date format! */ continue; /* keep trying */ } #else #ifdef OS2 if(strnicmp(filename, folder_base, folder_base_len) == 0 && stricmp(filename, folder_base)){ #else if(strncmp(filename, folder_base, folder_base_len) == 0 && strcmp(filename, folder_base)){ #endif #endif sm->name = cpystr(filename); #ifdef DOS if(*list_cntxt->context != '{'){ /* NOT an IMAP collection! */ sm->month_num = (sm->name[folder_base_len] - '0') * 10; sm->month_num += sm->name[folder_base_len + 1] - '0'; } else #endif sm->month_num = month_num(sm->name + (size_t)folder_base_len + 1); sm++; if(sm >= &sml[max_files]) break; /* Too many files, ignore the rest ; shouldn't occur */ } } /* anything to sort?? */ if(sml->name && *(sml->name) && (sml+1)->name && *((sml+1)->name)){ qsort(sml, sm - sml, sizeof(struct sm_folder), compare_sm_files); } return(sml); } int check_prune_time(time_t *now, struct tm **tm_now) { char tmp[50]; *now = time((time_t *) 0); *tm_now = localtime(now); /* * If the last time we did this is blank (as if pine's run for * first time), don't go thru list asking, but just note it for * the next time... */ if(ps_global->VAR_LAST_TIME_PRUNE_QUESTION == NULL){ ps_global->last_expire_year = (*tm_now)->tm_year; ps_global->last_expire_month = (*tm_now)->tm_mon; snprintf(tmp, sizeof(tmp), "%d.%d", ps_global->last_expire_year, ps_global->last_expire_month + 1); set_variable(V_LAST_TIME_PRUNE_QUESTION, tmp, 1, 1, Main); return(0); } if(ps_global->last_expire_year != -1 && ((*tm_now)->tm_year < ps_global->last_expire_year || ((*tm_now)->tm_year == ps_global->last_expire_year && (*tm_now)->tm_mon <= ps_global->last_expire_month))) return(0); return(1); } int first_run_of_month(void) { time_t now; struct tm *tm_now; now = time((time_t *) 0); tm_now = localtime(&now); if(ps_global->last_expire_year == -1 || (tm_now->tm_year < ps_global->last_expire_year || (tm_now->tm_year == ps_global->last_expire_year && tm_now->tm_mon <= ps_global->last_expire_month))) return(0); return(1); } int first_run_of_year(void) { time_t now; struct tm *tm_now; now = time((time_t *) 0); tm_now = localtime(&now); if(ps_global->last_expire_year == -1 || (tm_now->tm_year <= ps_global->last_expire_year)) return(0); return(1); } /* * prune_move_folder - rename folder in context and delete old copy * Returns -1 if unsuccessful. */ int prune_move_folder(char *oldpath, char *newpath, CONTEXT_S *prune_cntxt) { char spath[MAXPATH+1]; strncpy(spath, oldpath, sizeof(spath)-1); spath[sizeof(spath)-1] = '\0'; /*--- User says OK to rename ---*/ dprint((5, "rename \"%s\" to \"%s\"\n", spath ? spath : "?", newpath ? newpath : "?")); q_status_message1(SM_ORDER, 1, 3, /* TRANSLATORS: arg is a filename */ _("Renaming \"%s\" at start of month"), pretty_fn(spath ? spath : "?")); if(!context_rename(prune_cntxt, NULL, spath, newpath)){ q_status_message2(SM_ORDER | SM_DING, 3, 4, /* TRANSLATORS: 1st arg is filename, 2nd is error message */ _("Error renaming \"%s\": %s"), pretty_fn(spath ? spath : "?"), error_description(errno)); dprint((1, "Error renaming %s to %s: %s\n", spath ? spath : "?", newpath ? newpath : "?", error_description(errno))); display_message('x'); return -1; } context_create(prune_cntxt, NULL, spath); return 0; } char * html_directory_path(char *sname, char *sbuf, size_t len) { *sbuf = '\0'; if(sname && *sname){ size_t snl = strlen(sname); if(is_absolute_path(sname)){ strncpy(sbuf, sname, len-1); sbuf[len-1] = '\0'; fnexpand(sbuf, len); } else if(ps_global->VAR_OPER_DIR){ if(strlen(ps_global->VAR_OPER_DIR) + snl < len - 1) build_path(sbuf, ps_global->VAR_OPER_DIR, sname, len); } else if(strlen(ps_global->home_dir) + snl < len - 1) build_path(sbuf, ps_global->home_dir, sname, len); } return(*sbuf ? sbuf : NULL); } int init_html_directory(char *path) { int rv; switch(is_writable_dir(path)){ case 0: rv = 0; break; case 3: rv = create_mail_dir(path) < 0 ? -1 : 0; break; default: rv = -1; break; } return rv; } HTML_LOG_S * create_html_log(void) { HTML_LOG_S *rv; rv = fs_get(sizeof(HTML_LOG_S)); memset((void *) rv, 0, sizeof(HTML_LOG_S)); return rv; } void add_html_log(HTML_LOG_S **htmlp, char *d) { HTML_LOG_S *h; for(h = *htmlp; h && h->next; h = h->next); if(!h){ h = create_html_log(); *htmlp = h; } else { h->next = create_html_log(); h = h->next; } h->dir = cpystr(d); h->to_delete = time(0) + 10*60; /* 10 minutes life */ } void free_html_log(HTML_LOG_S **htmlp) { if (htmlp == NULL || *htmlp == NULL) return; if((*htmlp)->dir) fs_give((void **) &(*htmlp)->dir); if((*htmlp)->next) free_html_log(&(*htmlp)->next); fs_give((void **)htmlp); } void html_dir_clean(int force) { HTML_LOG_S *h, prev, *j; time_t now = time(0); #ifndef _WINDOWS DIR *dirp; struct dirent *d; #else struct _finddata_t dbuf; char buf[_MAX_PATH + 4]; long findrv; #endif /* _WINDOWS */ struct stat sbuf; char fpath[MAXPATH], *fname; int delete_happened = 0; /* these are barriers to try to not to enter here */ if(ps_global->html_dir == NULL || ps_global->html_dir_list == NULL || our_stat(ps_global->html_dir, &sbuf) < 0) return; for(h = ps_global->html_dir_list; h; h = h->next){ if(force || now >= h->to_delete){ /* the time to delete has come */ if(strlen(h->dir) + strlen(ps_global->html_dir) + 3 < MAXPATH){ if(our_stat(h->dir, &sbuf) < 0) continue; if((sbuf.st_mode & S_IFMT) == S_IFDIR){ #ifndef _WINDOWS if((dirp = opendir(h->dir)) != NULL){ while ((d = readdir(dirp)) != NULL){ fname = d->d_name; #else /* _WINDOWS */ snprintf(buf, sizeof(buf), "%s%s*.*", ps_global->html_dir, (ps_global->html_dir[strlen(ps_global->html_dir)-1] == '\\') ? "" : "\\"); buf[sizeof(buf)-1] = '\0'; if((findrv = _findfirst(buf, &dbuf)) < 0) return; do { fname = fname_to_utf8(dbuf.name); #endif /* _WINDOWS */ if(!strcmp(fname, ".") || !strcmp(fname, "..")) continue; if(strlen(h->dir) + strlen(fname) + 3 < MAXPATH){ snprintf(fpath, sizeof(fpath) - 1, "%s%s%s", h->dir, S_FILESEP, fname); fpath[sizeof(fpath)-1] = '\0'; our_unlink(fpath); } #ifndef _WINDOWS } closedir(dirp); } #else /* _WINDOWS */ } while(_findnext(findrv, &dbuf) == 0); #endif /* _WINDOWS */ if(!our_rmdir(h->dir)){ h->to_delete = 0; /* mark it deleted */ delete_happened++; } } } } } /* remove all deleted directories from the list */ if(delete_happened){ prev.to_delete = 1; /* do not free this entry */ (&prev)->next = ps_global->html_dir_list; for (j = &prev; j && j->next ; ){ if(j->next->to_delete == 0){ HTML_LOG_S *k; k = j->next; j->next = k->next; k->next = NULL; free_html_log(&k); } else j = j->next; } ps_global->html_dir_list = (&prev)->next; } /* this is wrong, but we do not care if this fails. What this * is trying to do is to the delete the .alpine-html directory * if it is empty. We could test if it is empty by reading the * directory. Instead we will use a weaker test checking if we * have anything else to erase. If we don't, then we try to * erase ps_global->html_dir, and we do not worry if we fail. */ if(ps_global->html_dir_list == NULL) our_rmdir(ps_global->html_dir); }