/*----------------------------------------------------------------------
Offer to delete old sent-mail folders
Args: sml -- The list of sent-mail folders
fcc_cntxt -- context to delete list of folders in
type -- label indicating type of folders being deleted
----*/
void
delete_old_mail(struct sm_folder *sml, CONTEXT_S *fcc_cntxt, char *type)
{
char prompt[150];
struct sm_folder *sm;
for(sm = sml; sm != NULL && sm->name != NULL; sm++){
if(sm->name[0] == '\0') /* can't happen */
continue;
snprintf(prompt, sizeof(prompt),
"To save disk space, delete old%.10s mail folder \"%.30s\" ",
type, sm->name);
if(want_to(prompt, 'n', 0, h_wt_delete_old, WT_FLUSH_IN) == 'y'){
if(!context_delete(fcc_cntxt, NULL, sm->name)){
q_status_message1(SM_ORDER,
3, 3, "Error deleting \"%s\".", sm->name);
dprint((1, "Error context_deleting %s in %s\n", sm->name,
(fcc_cntxt && fcc_cntxt->context)
? fcc_cntxt->context : "<null>"));
}
else{
int index;
if((index = folder_index(sm->name, fcc_cntxt, FI_FOLDER)) >= 0)
folder_delete(index, FOLDERS(fcc_cntxt));
}
}else{
/* break;*/ /* skip out of the whole thing when he says no */
/* Decided to keep asking anyway */
}
}
}
/*----------------------------------------------------------------------
Offer to delete old sent-mail folders
Args: sml -- The list of sent-mail folders
----*/
int
prune_folders(CONTEXT_S *prune_cntxt, char *folder_base, int cur_month,
char *type, unsigned int pr)
{
char path2[MAXPATH+1], prompt[128], tmp[21];
int month_to_use, exists;
struct sm_folder *mail_list, *sm;
mail_list = get_mail_list(prune_cntxt, folder_base);
free_folder_list(prune_cntxt);
#ifdef DEBUG
for(sm = mail_list; sm != NULL && sm->name != NULL; sm++)
dprint((5,"Old sent-mail: %5d %s\n", sm->month_num,
sm->name[0] ? sm->name : "?"));
#endif
for(sm = mail_list; sm != NULL && sm->name != NULL; sm++)
if(sm->month_num == cur_month - 1)
break; /* matched a month */
month_to_use = (sm == NULL || sm->name == NULL) ? cur_month - 1 : 0;
dprint((5, "Month_to_use : %d\n", month_to_use));
if(month_to_use == 0 || pr == PRUNE_NO_AND_ASK || pr == PRUNE_NO_AND_NO)
goto delete_old;
strncpy(path2, folder_base, sizeof(path2)-1);
path2[sizeof(path2)-1] = '\0';
if(F_ON(F_PRUNE_USES_ISO,ps_global)){ /* sent-mail-yyyy-mm */
snprintf(path2 + strlen(path2), sizeof(path2)-strlen(path2), "-%4.4d-%2.2d", month_to_use/12,
month_to_use % 12 + 1);
}
else{
strncpy(tmp, month_abbrev((month_to_use % 12)+1), 20);
tmp[sizeof(tmp)-1] = '\0';
lcase((unsigned char *) tmp);
#ifdef DOS
if(*prune_cntxt->context != '{'){
int i;
i = strlen(path2);
snprintf(path2 + (size_t)((i > 4) ? 4 : i),
sizeof(path2)- ((i > 4) ? 4 : i),
"%2.2d%2.2d", (month_to_use % 12) + 1,
((month_to_use / 12) - 1900) % 100);
}
else
#endif
snprintf(path2 + strlen(path2), sizeof(path2)-strlen(path2), "-%.20s-%d", tmp, month_to_use/12);
}
Writechar(BELL, 0);
snprintf(prompt, sizeof(prompt), "Move current \"%.50s\" to \"%.50s\"", folder_base, path2);
if((exists = folder_exists(prune_cntxt, folder_base)) == FEX_ERROR){
dprint((5, "prune_folders: Error testing existence\n"));
return(0);
}
else if(exists == FEX_NOENT){ /* doesn't exist */
dprint((5, "prune_folders: nothing to prune <%s %s>\n",
prune_cntxt->context ? prune_cntxt->context : "?",
folder_base ? folder_base : "?"));
goto delete_old;
}
else if(!(exists & FEX_ISFILE)
|| pr == PRUNE_NO_AND_ASK || pr == PRUNE_NO_AND_NO
|| ((pr == PRUNE_ASK_AND_ASK || pr == PRUNE_ASK_AND_NO) &&
want_to(prompt, 'n', 0, h_wt_expire, WT_FLUSH_IN) == 'n')){
dprint((5, "User declines renaming %s\n",
ps_global->VAR_DEFAULT_FCC ? ps_global->VAR_DEFAULT_FCC : "?"));
goto delete_old;
}
prune_move_folder(folder_base, path2, prune_cntxt);
delete_old:
if(pr == PRUNE_ASK_AND_ASK || pr == PRUNE_YES_AND_ASK
|| pr == PRUNE_NO_AND_ASK)
delete_old_mail(mail_list, prune_cntxt, type);
if((sm = mail_list) != NULL){
while(sm->name){
fs_give((void **)&(sm->name));
sm++;
}
fs_give((void **)&mail_list);
}
return(1);
}
int
rd_prompt_about_forged_remote_data(int reason, REMDATA_S *rd, char *extra)
{
char tmp[2000];
char *unknown = "<unknown>";
int rv = -1;
char *foldertype, *foldername, *special;
foldertype = (rd && rd->t.i.special_hdr && !strucmp(rd->t.i.special_hdr, REMOTE_ABOOK_SUBTYPE)) ? "address book" : (rd && rd->t.i.special_hdr && !strucmp(rd->t.i.special_hdr, REMOTE_PINERC_SUBTYPE)) ? "configuration" : "data";
foldername = (rd && rd->rn) ? rd->rn : unknown;
special = (rd && rd->t.i.special_hdr) ? rd->t.i.special_hdr : unknown;
dprint((1, "rd_check_out_forged_remote_data:\n"));
dprint((1, " reason=%d\n", reason));
dprint((1, " folder_type=%s\n", foldertype ? foldertype : "?"));
dprint((1, " remotename=%s\n\n", foldername ? foldername : "?"));
if(rd && rd->flags & USER_SAID_NO)
return rv;
if(reason == -2){
dprint((1, "The special header \"%s\" is missing from the last message in the folder.\nThis indicates that something is wrong.\nYou should probably answer \"No\"\nso that you don't use the corrupt data.\nThen you should investigate further.\n", special ? special : "?"));
}
else if(reason == -1){
dprint((1, "The last message in the folder contains \"Received\" headers.\nThis usually indicates that the message was put there by the mail\ndelivery system. Alpine does not add those Received headers.\nYou should probably answer \"No\" so that you don't use the corrupt data.\nThen you should investigate further.\n"));
}
else if(reason == 0){
dprint((1, "The special header \"%s\" in the last message\nin the folder has an unexpected value (%s)\nafter it. This could indicate that something is wrong.\nThis value should not normally be put there by Alpine.\nHowever, since there are no Received lines in the message we choose to\nbelieve that everything is ok and we will proceed.\n",
special ? special : "?", (extra && *extra) ? extra : "?"));
}
else if(reason == 1){
dprint((1, "The special header \"%s\" in the last message\nin the folder has an unexpected value (1)\nafter it. It appears that it may have been put there by an Pine\nwith a version number less than 4.50.\nSince there are no Received lines in the message we choose to believe that\nthe header was added by an old Pine and we will proceed.\n",
special ? special : "?"));
}
else if(reason > 1){
dprint((1, "The special header \"%s\" in the last message\nin the folder has an unexpected value (%s)\nafter it. This is the right sort of value that Alpine would normally put there,\nbut it doesn't match the value from the first message in the folder.\nThis may indicate that something is wrong.\nHowever, since there are no Received lines in the message we choose to\nbelieve that everything is ok and we will proceed.\n",
special ? special : "?", (extra && *extra) ? extra : "?"));
}
if(reason >= 0){
/*
* This check should not really be here. We have a cookie that
* has the wrong value so something is possibly wrong.
* But we are worried that old pines will put the bad value in
* there (which they will) and then the questions will bother
* users and mystify them. So we're just going to pretend the user
* said Yes in this case, and we'll try to fix the cookie.
* We still catch Received lines and use that or the complete absence
* of a special header as indicators of trouble.
*/
rd->flags |= USER_SAID_YES;
return(1);
}
if(ps_global->ttyo){
SCROLL_S sargs;
STORE_S *in_store, *out_store;
gf_io_t pc, gc;
HANDLE_S *handles = NULL;
int the_answer = 'n';
if(!(in_store = so_get(CharStar, NULL, EDIT_ACCESS)) ||
!(out_store = so_get(CharStar, NULL, EDIT_ACCESS)))
goto try_wantto;
/* TRANSLATORS: the first %s is the folder type, it may be address book or
configuration. The second %s is the folder name. Of course, the HTML
tags should be left as is. */
snprintf(tmp, sizeof(tmp), _("<HTML><P>The data in the remote %s folder<P><CENTER>%s</CENTER><P>looks suspicious. The reason for the suspicion is<P><CENTER>"),
foldertype, foldername);
tmp[sizeof(tmp)-1] = '\0';
so_puts(in_store, tmp);
if(reason == -2){
snprintf(tmp, sizeof(tmp), _("header \"%s\" is missing</CENTER><P>The special header \"%s\" is missing from the last message in the folder. This indicates that something is wrong. You should probably answer \"No\" so that you don't use the corrupt data. Then you should investigate further."),
special, special);
tmp[sizeof(tmp)-1] = '\0';
so_puts(in_store, tmp);
}
else if(reason == -1){
so_puts(in_store, _("\"Received\" headers detected</CENTER><P>The last message in the folder contains \"Received\" headers. This usually indicates that the message was put there by the mail delivery system. Alpine does not add those Received headers. You should probably answer \"No\" so that you don't use the corrupt data. Then you should investigate further."));
}
else if(reason == 0){
snprintf(tmp, sizeof(tmp), _("Unexpected value for header \"%s\"</CENTER><P>The special header \"%s\" in the last message in the folder has an unexpected value (%s) after it. This probably indicates that something is wrong. This value would not normally be put there by Alpine. You should probably answer \"No\" so that you don't use the corrupt data. Then you should investigate further."),
special, special, (extra && *extra) ? extra : "?");
tmp[sizeof(tmp)-1] = '\0';
so_puts(in_store, tmp);
}
else if(reason == 1){
snprintf(tmp, sizeof(tmp), _("Unexpected value for header \"%s\"</CENTER><P>The special header \"%s\" in the last message in the folder has an unexpected value (1) after it. It appears that it may have been put there by a Pine with a version number less than 4.50. If you believe that you have changed this data with an older Pine more recently than you've changed it with this version of Alpine, then you can probably safely answer \"Yes\". If you do not understand why this has happened, you should probably answer \"No\" so that you don't use the corrupt data. Then you should investigate further."),
special, special);
tmp[sizeof(tmp)-1] = '\0';
so_puts(in_store, tmp);
}
else if(reason > 1){
snprintf(tmp, sizeof(tmp), _("Unexpected value for header \"%s\"</CENTER><P>The special header \"%s\" in the last message in the folder has an unexpected value (%s) after it. This is the right sort of value that Alpine would normally put there, but it doesn't match the value from the first message in the folder. This may indicate that something is wrong. Unless you understand why this has happened, you should probably answer \"No\" so that you don't use the corrupt data. Then you should investigate further."),
special, special, (extra && *extra) ? extra : "?");
tmp[sizeof(tmp)-1] = '\0';
so_puts(in_store, tmp);
}
so_seek(in_store, 0L, 0);
init_handles(&handles);
gf_filter_init();
gf_link_filter(gf_html2plain,
gf_html2plain_opt(NULL,
ps_global->ttyo->screen_cols, non_messageview_margin(),
&handles, NULL, GFHP_LOCAL_HANDLES));
gf_set_so_readc(&gc, in_store);
gf_set_so_writec(&pc, out_store);
gf_pipe(gc, pc);
gf_clear_so_writec(out_store);
gf_clear_so_readc(in_store);
memset(&sargs, 0, sizeof(SCROLL_S));
sargs.text.handles = handles;
sargs.text.text = so_text(out_store);
sargs.text.src = CharStar;
sargs.bar.title = _("REMOTE DATA FORGERY WARNING");
sargs.proc.tool = rd_answer_forge_warning;
sargs.proc.data.p = (void *)&the_answer;
sargs.keys.menu = &forge_keymenu;
setbitmap(sargs.keys.bitmap);
scrolltool(&sargs);
if(the_answer == 'y'){
rv = 1;
rd->flags |= USER_SAID_YES;
}
else if(rd)
rd->flags |= USER_SAID_NO;
ps_global->mangled_screen = 1;
ps_global->painted_body_on_startup = 0;
ps_global->painted_footer_on_startup = 0;
so_give(&in_store);
so_give(&out_store);
free_handles(&handles);
}
else{
char *p = tmp;
snprintf(p, sizeof(tmp), _("\nThe data in the remote %s folder\n\n %s\n\nlooks suspicious. The reason for the suspicion is\n\n "),
foldertype, foldername);
tmp[sizeof(tmp)-1] = '\0';
p += strlen(p);
if(reason == -2){
snprintf(p, sizeof(tmp)-(p-tmp), _("header \"%s\" is missing\n\nThe special header \"%s\" is missing from the last message\nin the folder. This indicates that something is wrong.\nYou should probably answer \"No\" so that you don't use the corrupt data.\nThen you should investigate further.\n\n"),
special, special);
tmp[sizeof(tmp)-1] = '\0';
}
else if(reason == -1){
snprintf(p, sizeof(tmp)-(p-tmp), _("\"Received\" headers detected\n\nThe last message in the folder contains \"Received\" headers.\nThis usually indicates that the message was put there by the\nmail delivery system. Alpine does not add those Received headers.\nYou should probably answer \"No\" so that you don't use the corrupt data.\nThen you should investigate further.\n\n"));
tmp[sizeof(tmp)-1] = '\0';
}
else if(reason == 0){
snprintf(p, sizeof(tmp)-(p-tmp), _("Unexpected value for header \"%s\"\n\nThe special header \"%s\" in the last message in the folder\nhas an unexpected value (%s) after it. This probably\nindicates that something is wrong. This value would not normally be put\nthere by Alpine. You should probably answer \"No\" so that you don't use\nthe corrupt data. Then you should investigate further.\n\n"),
special, special, (extra && *extra) ? extra : "?");
tmp[sizeof(tmp)-1] = '\0';
}
else if(reason == 1){
snprintf(p, sizeof(tmp)-(p-tmp), _("Unexpected value for header \"%s\"\n\nThe special header \"%s\" in the last message in the folder\nhas an unexpected value (1) after it. It appears that it may have been\nput there by a Pine with a version number less than 4.50.\nIf you believe that you have changed this data with an older Pine more\nrecently than you've changed it with this version of Alpine, then you can\nprobably safely answer \"Yes\". If you do not understand why this has\nhappened, you should probably answer \"No\" so that you don't use the\ncorrupt data. Then you should investigate further.\n\n"),
special, special);
tmp[sizeof(tmp)-1] = '\0';
}
else if(reason > 1){
snprintf(p, sizeof(tmp)-(p-tmp), _("Unexpected value for header \"%s\"\n\nThe special header \"%s\" in the last message in the folder\nhas an unexpected\nvalue (%s) after it. This is\nthe right sort of value that Alpine would normally put there, but it\ndoesn't match the value from the first message in the folder. This may\nindicate that something is wrong. Unless you understand why this has happened,\nyou should probably answer \"No\" so that you don't use the\ncorrupt data. Then you should investigate further.\n\n"),
special, special, (extra && *extra) ? extra : "?");
tmp[sizeof(tmp)-1] = '\0';
}
try_wantto:
p += strlen(p);
snprintf(p, sizeof(tmp)-(p-tmp), _("Suspicious data in \"%s\": Continue anyway "),
(rd && rd->t.i.special_hdr) ? rd->t.i.special_hdr
: unknown);
tmp[sizeof(tmp)-1] = '\0';
if(want_to(tmp, 'n', 'x', NO_HELP, WT_NORM) == 'y'){
rv = 1;
rd->flags |= USER_SAID_YES;
}
else if(rd)
rd->flags |= USER_SAID_NO;
}
if(rv < 0)
q_status_message1(SM_ORDER, 1, 3, _("Can't open remote %s"),
(rd && rd->rn) ? rd->rn : "<noname>");
return(rv);
}
int
litsig_text_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
{
char **apval;
int rv = 0;
if(cmd != MC_EXIT && fixed_var((*cl)->var, NULL, NULL))
return(rv);
apval = APVAL((*cl)->var, ew);
switch(cmd){
case MC_ADD:
case MC_EDIT :
if(apval){
char *input = NULL, *result = NULL, *err = NULL, *cstring_version;
char *olddefval = NULL, *start_with;
size_t len;
if(!*apval && (*cl)->var->current_val.p &&
(*cl)->var->current_val.p[0]){
if(!strncmp((*cl)->var->current_val.p,
DSTRING,
(len=strlen(DSTRING)))){
/* strip DSTRING and trailing paren */
olddefval = (char *)fs_get(strlen((*cl)->var->current_val.p)+1);
strncpy(olddefval, (*cl)->var->current_val.p+len,
strlen((*cl)->var->current_val.p)-len-1);
olddefval[strlen((*cl)->var->current_val.p)-len-1] = '\0';
start_with = olddefval;
}
else{
olddefval = cpystr((*cl)->var->current_val.p);
start_with = olddefval;
}
}
else
start_with = (*apval) ? *apval : "";
input = (char *)fs_get((strlen(start_with)+1) * sizeof(char));
input[0] = '\0';
cstring_to_string(start_with, input);
err = signature_edit_lit(input, &result,
((*cl)->var == role_comment_ptr)
? "COMMENT EDITOR"
: "SIGNATURE EDITOR",
((*cl)->var == role_comment_ptr)
? h_composer_commentedit
: h_composer_sigedit);
if(!err){
if(olddefval && !strcmp(input, result) &&
want_to(_("Leave unset and use default "), 'y',
'y', NO_HELP, WT_FLUSH_IN) == 'y'){
rv = 0;
}
else{
cstring_version = string_to_cstring(result);
if(apval && *apval)
fs_give((void **)apval);
if(apval){
*apval = cstring_version;
cstring_version = NULL;
}
if(cstring_version)
fs_give((void **)&cstring_version);
rv = 1;
}
}
else
rv = 0;
if(err){
q_status_message1(SM_ORDER, 3, 5, "%s", err);
fs_give((void **)&err);
}
if(result)
fs_give((void **)&result);
if(olddefval)
fs_give((void **)&olddefval);
if(input)
fs_give((void **)&input);
}
ps->mangled_screen = 1;
break;
default:
rv = text_tool(ps, cmd, cl, flags);
break;
}
/*
* At this point, if changes occurred, var->user_val.X is set.
* So, fix the current_val, and handle special cases...
*
* NOTE: we don't worry about the "fixed variable" case here, because
* editing such vars should have been prevented above...
*/
if(rv == 1){
/*
* Now go and set the current_val based on user_val changes
* above. Turn off command line settings...
*/
set_current_val((*cl)->var, TRUE, FALSE);
if((*cl)->value)
fs_give((void **)&(*cl)->value);
(*cl)->value = pretty_value(ps, *cl);
exception_override_warning((*cl)->var);
/*
* The value of literal sig can affect whether signature file is
* used or not. So it affects what we display for sig file variable.
*/
if((*cl)->next && (*cl)->next->var == &ps->vars[V_SIGNATURE_FILE]){
if((*cl)->next->value)
fs_give((void **)&(*cl)->next->value);
(*cl)->next->value = pretty_value(ps, (*cl)->next);
}
}
return(rv);
}
int
context_config_delete(struct pine *ps, CONF_S **cl)
{
char tmp[MAILTMPLEN];
if(!(*cl)->var){
q_status_message(SM_ORDER|SM_DING, 3, 3,
"Programmer botch in context_config_delete");
return(0);
}
if((*cl)->d.c.ct->use & CNTXT_SAVEDFLT &&
(*cl)->d.c.ct->next &&
(*cl)->d.c.ct->next->use & CNTXT_NEWS &&
(*cl)->d.c.ct->var.v == (*cl)->d.c.ct->next->var.v){
q_status_message(SM_ORDER|SM_DING, 3, 3,
_("Sorry, cannot Delete causing news to move to top"));
return(0);
}
snprintf(tmp, sizeof(tmp), _("Delete the collection definition for \"%s\""),
(*cl)->value);
tmp[sizeof(tmp)-1] = '\0';
if(want_to(tmp, 'n', 'n', NO_HELP, WT_FLUSH_IN) == 'y'){
(*cl)->d.c.cs->starting_var = (*cl)->var;
(*cl)->d.c.cs->starting_varmem = (*cl)->d.c.ct->var.i;
if((*cl)->d.c.ct->next){
if((*cl)->d.c.ct->next->var.v != (*cl)->var){
(*cl)->d.c.cs->starting_var = (*cl)->d.c.ct->next->var.v;
(*cl)->d.c.cs->starting_varmem = 0;
}
else{
(*cl)->d.c.cs->starting_var = (*cl)->var;
(*cl)->d.c.cs->starting_varmem = (*cl)->d.c.ct->var.i;
}
}
else{
if((*cl)->d.c.ct->var.i > 0){
(*cl)->d.c.cs->starting_var = (*cl)->var;
(*cl)->d.c.cs->starting_varmem = (*cl)->d.c.ct->var.i - 1;
}
else{
if((*cl)->d.c.ct->prev){
(*cl)->d.c.cs->starting_var = (*cl)->d.c.ct->prev->var.v;
(*cl)->d.c.cs->starting_varmem = (*cl)->d.c.ct->prev->var.i;
}
}
}
/* Remove from var list */
if(!ccs_var_delete(ps, (*cl)->d.c.ct)){
q_status_message(SM_ORDER|SM_DING, 3, 3,
_("Error deleting renamed context"));
return(0);
}
q_status_message(SM_ORDER, 0, 3, _("Collection deleted"));
return(15);
}
q_status_message(SM_ORDER, 0, 3, _("No collections deleted"));
return(0);
}
/*
* Setup CollectionLists. Build a context list on the fly from the config
* variable and edit it. This won't include Incoming-Folders because that
* is a pseudo collection, but that's ok since we can't do the operations
* on it, anyway. Reset real config list at the end.
*/
void
context_config_screen(struct pine *ps, CONT_SCR_S *cs, int edit_exceptions)
{
CONTEXT_S *top, **clist, *cp;
CONF_S *ctmpa, *first_line, *heading;
OPT_SCREEN_S screen;
int i, readonly_warning, some_defined, ret;
int reinit_contexts = 0, prime;
char **lval, **lval1, **lval2, ***alval;
struct variable fake_fspec_var, fake_nspec_var;
struct variable *fake_fspec, *fake_nspec;
ew = edit_exceptions ? ps_global->ew_for_except_vars : Main;
if(ps->restricted)
readonly_warning = 1;
else{
PINERC_S *prc = NULL;
switch(ew){
case Main:
prc = ps->prc;
break;
case Post:
prc = ps->post_prc;
break;
default:
break;
}
readonly_warning = prc ? prc->readonly : 1;
if(prc && prc->quit_to_edit){
quit_to_edit_msg(prc);
return;
}
}
go_again:
top = NULL; ctmpa = NULL; first_line = NULL;
some_defined = 0, prime = 0;
fake_fspec = &fake_fspec_var;
fake_nspec = &fake_nspec_var;
memset((void *)fake_fspec, 0, sizeof(*fake_fspec));
memset((void *)fake_nspec, 0, sizeof(*fake_nspec));
/* so fixed_var() will work right */
fake_fspec->is_list = 1;
fake_nspec->is_list = 1;
if((ps->vars[V_FOLDER_SPEC]).is_fixed){
fake_fspec->is_fixed = 1;
if((ps->vars[V_FOLDER_SPEC]).fixed_val.l
&& (ps->vars[V_FOLDER_SPEC]).fixed_val.l[0]){
fake_fspec->fixed_val.l = (char **) fs_get(2 * sizeof(char *));
fake_fspec->fixed_val.l[0]
= cpystr((ps->vars[V_FOLDER_SPEC]).fixed_val.l[0]);
fake_fspec->fixed_val.l[1] = NULL;
}
}
if((ps->vars[V_NEWS_SPEC]).is_fixed){
fake_nspec->is_fixed = 1;
if((ps->vars[V_NEWS_SPEC]).fixed_val.l
&& (ps->vars[V_NEWS_SPEC]).fixed_val.l[0]){
fake_nspec->fixed_val.l = (char **) fs_get(2 * sizeof(char *));
fake_nspec->fixed_val.l[0] = cpystr(INHERIT);
fake_nspec->fixed_val.l[0]
= cpystr((ps->vars[V_NEWS_SPEC]).fixed_val.l[0]);
fake_nspec->fixed_val.l[1] = NULL;
}
}
clist = ⊤
lval1 = LVAL(&ps->vars[V_FOLDER_SPEC], ew);
lval2 = LVAL(&ps->vars[V_NEWS_SPEC], ew);
alval = ALVAL(fake_fspec, ew);
if(lval1)
*alval = copy_list_array(lval1);
else if(!edit_exceptions && ps->VAR_FOLDER_SPEC && ps->VAR_FOLDER_SPEC[0] &&
ps->VAR_FOLDER_SPEC[0][0])
*alval = copy_list_array(ps->VAR_FOLDER_SPEC);
else
fake_fspec = NULL;
if(fake_fspec){
lval = LVAL(fake_fspec, ew);
for(i = 0; lval && lval[i]; i++){
cp = NULL;
if(i == 0 && !strcmp(lval[i], INHERIT)){
cp = (CONTEXT_S *)fs_get(sizeof(*cp));
memset((void *)cp, 0, sizeof(*cp));
cp->use = CNTXT_INHERIT;
cp->label = cpystr("Default collections are inherited");
}
else if((cp = new_context(lval[i], &prime)) != NULL){
cp->var.v = fake_fspec;
cp->var.i = i;
}
if(cp){
*clist = cp; /* add it to list */
clist = &cp->next; /* prepare for next */
}
}
set_current_val(fake_fspec, FALSE, FALSE);
}
alval = ALVAL(fake_nspec, ew);
if(lval2)
*alval = copy_list_array(lval2);
else if(!edit_exceptions && ps->VAR_NEWS_SPEC && ps->VAR_NEWS_SPEC[0] &&
ps->VAR_NEWS_SPEC[0][0])
*alval = copy_list_array(ps->VAR_NEWS_SPEC);
else
fake_nspec = NULL;
if(fake_nspec){
lval = LVAL(fake_nspec, ew);
for(i = 0; lval && lval[i]; i++){
cp = NULL;
if(i == 0 && !strcmp(lval[i], INHERIT)){
cp = (CONTEXT_S *)fs_get(sizeof(*cp));
memset((void *)cp, 0, sizeof(*cp));
cp->use = CNTXT_INHERIT;
cp->label = cpystr("Default collections are inherited");
}
else if((cp = new_context(lval[i], &prime)) != NULL){
cp->var.v = fake_nspec;
cp->var.i = i;
}
if(cp){
*clist = cp; /* add it to list */
clist = &cp->next; /* prepare for next */
}
}
set_current_val(fake_nspec, FALSE, FALSE);
}
for(cp = top; cp; cp = cp->next)
if(!(cp->use & CNTXT_INHERIT)){
some_defined++;
break;
}
if(edit_exceptions && !some_defined){
q_status_message(SM_ORDER, 3, 7,
_("No exceptions to edit. First collection exception must be set by editing file"));
free_contexts(&top);
if(reinit_contexts){
free_contexts(&ps_global->context_list);
init_folders(ps_global);
}
return;
}
/* fix up prev pointers */
for(cp = top; cp; cp = cp->next)
if(cp->next)
cp->next->prev = cp;
new_confline(&ctmpa); /* blank line */
ctmpa->keymenu = cs->keymenu;
ctmpa->help = cs->help.text;
ctmpa->help_title = cs->help.title;
ctmpa->tool = context_config_tool;
ctmpa->flags |= (CF_NOSELECT | CF_B_LINE);
for(cp = top; cp; cp = cp->next){
new_confline(&ctmpa);
heading = ctmpa;
if(!(cp->use & CNTXT_INHERIT))
ctmpa->value = cpystr(cp->nickname ? cp->nickname : cp->context);
ctmpa->var = cp->var.v;
ctmpa->keymenu = cs->keymenu;
ctmpa->help = cs->help.text;
ctmpa->help_title = cs->help.title;
ctmpa->tool = context_config_tool;
ctmpa->flags |= CF_STARTITEM;
ctmpa->valoffset = 4;
ctmpa->d.c.ct = cp;
ctmpa->d.c.cs = cs;
if(cp->use & CNTXT_INHERIT)
ctmpa->flags |= CF_INHERIT | CF_NOSELECT;
if((!first_line && !(cp->use & CNTXT_INHERIT)) ||
(!(cp->use & CNTXT_INHERIT) &&
cp->var.v &&
(cs->starting_var == cp->var.v) &&
(cs->starting_varmem == cp->var.i)))
first_line = ctmpa;
/* Add explanatory text */
new_confline(&ctmpa);
ctmpa->value = cpystr(cp->label ? cp->label : "* * *");
ctmpa->keymenu = cs->keymenu;
ctmpa->help = cs->help.text;
ctmpa->help_title = cs->help.title;
ctmpa->tool = context_config_tool;
ctmpa->flags |= CF_NOSELECT;
ctmpa->valoffset = 8;
/* Always add blank line, make's shuffling a little easier */
new_confline(&ctmpa);
heading->headingp = ctmpa; /* use headingp to mark end */
ctmpa->keymenu = cs->keymenu;
ctmpa->help = cs->help.text;
ctmpa->help_title = cs->help.title;
ctmpa->tool = context_config_tool;
ctmpa->flags |= CF_NOSELECT | CF_B_LINE;
ctmpa->valoffset = 0;
}
cs->starting_var = NULL;
memset(&screen, 0, sizeof(screen));
screen.ro_warning = readonly_warning;
ret = conf_scroll_screen(ps, &screen, first_line, cs->title,
cs->print_string, 0);
free_contexts(&top);
if(ret)
reinit_contexts++;
/*
* 15 means the tool wants us to reset and go again. The config var
* has been changed. The contexts will be built again from the
* config variable and the real contexts will be rebuilt below.
* This is easier and safer than having the tools rebuild the context
* list and the display correct. It's difficult to do because of all
* the inheriting and defaulting going on.
*/
if(ret == 15){
if(edit_exceptions && !LVAL(fake_fspec, ew) && !LVAL(fake_nspec, ew)){
if(want_to(_("Really delete last exceptional collection"),
'n', 'n', h_config_context_del_except,
WT_FLUSH_IN) != 'y'){
free_variable_values(fake_fspec);
free_variable_values(fake_nspec);
goto go_again;
}
}
/* resolve variable changes */
if((lval1 && !equal_list_arrays(lval1, LVAL(fake_fspec, ew))) ||
(fake_fspec && !equal_list_arrays(ps->VAR_FOLDER_SPEC,
LVAL(fake_fspec, ew)))){
i = set_variable_list(V_FOLDER_SPEC,
LVAL(fake_fspec, ew), TRUE, ew);
set_current_val(&ps->vars[V_FOLDER_SPEC], TRUE, FALSE);
if(i)
q_status_message(SM_ORDER, 3, 3,
_("Trouble saving change, cancelled"));
else if(!edit_exceptions && lval1 && !LVAL(fake_fspec, ew)){
cs->starting_var = fake_fspec;
cs->starting_varmem = 0;
q_status_message(SM_ORDER, 3, 3,
_("Deleted last Folder-Collection, reverting to default"));
}
else if(!edit_exceptions && !lval1 && !LVAL(fake_fspec, ew)){
cs->starting_var = fake_fspec;
cs->starting_varmem = 0;
q_status_message(SM_ORDER, 3, 3,
_("Deleted default Folder-Collection, reverting back to default"));
}
}
if((lval2 && !equal_list_arrays(lval2, LVAL(fake_nspec, ew))) ||
(fake_nspec && !equal_list_arrays(ps->VAR_NEWS_SPEC,
LVAL(fake_nspec, ew)))){
i = set_variable_list(V_NEWS_SPEC,
LVAL(fake_nspec, ew), TRUE, ew);
set_news_spec_current_val(TRUE, FALSE);
if(i)
q_status_message(SM_ORDER, 3, 3,
_("Trouble saving change, cancelled"));
else if(!edit_exceptions && lval2 && !LVAL(fake_nspec, ew) &&
ps->VAR_NEWS_SPEC && ps->VAR_NEWS_SPEC[0] &&
ps->VAR_NEWS_SPEC[0][0]){
cs->starting_var = fake_nspec;
cs->starting_varmem = 0;
q_status_message(SM_ORDER, 3, 3,
_("Deleted last News-Collection, reverting to default"));
}
else if(!edit_exceptions && !lval2 && !LVAL(fake_nspec, ew) &&
ps->VAR_NEWS_SPEC && ps->VAR_NEWS_SPEC[0] &&
ps->VAR_NEWS_SPEC[0][0]){
cs->starting_var = fake_nspec;
cs->starting_varmem = 0;
q_status_message(SM_ORDER, 3, 3,
_("Deleted default News-Collection, reverting back to default"));
}
}
free_variable_values(fake_fspec);
free_variable_values(fake_nspec);
goto go_again;
}
ps->mangled_screen = 1;
/* make the real context list match the changed config variables */
if(reinit_contexts){
free_contexts(&ps_global->context_list);
init_folders(ps_global);
}
}
