int
incoming_monitoring_list_tool(struct pine *ps, int cmd, CONF_S **cl, unsigned int flags)
{
int rv = 0;
CONTEXT_S *cntxt;
char **the_list;
CONF_S *ctmp;
char ***alval;
OPT_SCREEN_S *saved_screen;
if(cmd != MC_EXIT && fixed_var((*cl)->var, NULL, NULL))
return(rv);
switch(cmd){
case MC_ADD:
case MC_EDIT:
cntxt = ps->context_list;
if(!(cntxt && cntxt->use & CNTXT_INCMNG)){
q_status_message1(SM_ORDER, 3, 3, _("Turn on incoming folders with Config feature \"%s\""), pretty_feature_name(feature_list_name(F_ENABLE_INCOMING), -1));
return(rv);
}
saved_screen = opt_screen;
the_list = adjust_list_of_monitored_incoming(cntxt, ew, V_INCCHECKLIST);
/* adjust top if it might be necessary */
for(ctmp = (*cl)->varnamep;
ctmp && ctmp->varnamep == (*cl)->varnamep;
ctmp = next_confline(ctmp))
if(ctmp == opt_screen->top_line)
opt_screen->top_line = (*cl)->varnamep;
if(the_list){
alval = ALVAL((*cl)->var, ew);
free_list_array(alval);
if(!*the_list){
q_status_message(SM_ORDER, 0, 3, _("Using default, monitor all incoming folders"));
if(alval){
/*
* Remove config lines except for first one.
*/
*cl = (*cl)->varnamep;
while((*cl)->next && (*cl)->next->varnamep == (*cl)->varnamep)
snip_confline(&(*cl)->next);
}
}
else
config_add_list(ps, cl, the_list, NULL, 0);
/* only have to free the top-level pointer */
fs_give((void **) &the_list);
rv = 1;
}
else{
if(LVAL((*cl)->var, ew))
q_status_message(SM_ORDER, 0, 3, _("List is unchanged"));
else
q_status_message(SM_ORDER, 0, 3, _("Using default, monitor all incoming folders"));
}
opt_screen = saved_screen;
ps->mangled_screen = 1;
break;
default:
rv = text_tool(ps, cmd, cl, flags);
/* if we deleted last one, reverts to default */
if(cmd == MC_DELETE && rv == 1 && (*cl)->varmem == 0
&& (!(*cl)->next || (*cl)->next->varnamep != (*cl)))
q_status_message(SM_ORDER, 0, 3, _("Using default, monitor all incoming folders"));
break;
}
/*
* This is just like the end of text_tool.
*/
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);
fix_side_effects(ps, (*cl)->var, 0);
if((*cl)->value)
fs_give((void **) &(*cl)->value);
(*cl)->value = pretty_value(ps, *cl);
exception_override_warning((*cl)->var);
}
return(rv);
}
/*
* mc_cmd_bldr - construct a command string to execute
*
* If tmp_file is null, then the contents of the given MIME segment
* is not provided. This is useful for building the "test=" string
* as it doesn't operate on the segment's data.
*
* The return value is an alloc'd copy of the command to be executed.
*/
char *
mc_cmd_bldr(char *controlstring, int type, char *subtype,
BODY *body, char *tmp_file, char **err)
{
char *from, *to, *s, *parm;
int prefixed = 0, used_tmp_file = 0;
dprint((8, "- mc_cmd_bldr -\n"));
for(from = controlstring, to = tmp_20k_buf; *from; ++from){
if(prefixed){ /* previous char was % */
prefixed = 0;
switch(*from){
case '%': /* turned \% into this earlier */
if(to-tmp_20k_buf < SIZEOF_20KBUF)
*to++ = '%';
break;
case 's': /* insert tmp_file name in cmd */
if(tmp_file){
used_tmp_file = 1;
sstrncpy(&to, tmp_file, SIZEOF_20KBUF-(to-tmp_20k_buf));
}
else
dprint((1,
"mc_cmd_bldr: %%s in cmd but not supplied!\n"));
break;
case 't': /* insert MIME type/subtype */
/* quote to prevent funny business */
if(to-tmp_20k_buf < SIZEOF_20KBUF)
*to++ = '\'';
sstrncpy(&to, body_type_names(type), SIZEOF_20KBUF-(to-tmp_20k_buf));
if(to-tmp_20k_buf < SIZEOF_20KBUF)
*to++ = '/';
sstrncpy(&to, subtype, SIZEOF_20KBUF-(to-tmp_20k_buf));
if(to-tmp_20k_buf < SIZEOF_20KBUF)
*to++ = '\'';
break;
case '{': /* insert requested MIME param */
if(F_OFF(F_DO_MAILCAP_PARAM_SUBST, ps_global)){
int save;
dprint((2, "mc_cmd_bldr: param subs %s\n",
from ? from : "?"));
if(err){
if((s = strindex(from, '}')) != NULL){
save = *++s;
*s = '\0';
}
snprintf(tmp_20k_buf, SIZEOF_20KBUF,
"Mailcap: see hidden feature %.200s (%%%.200s)",
feature_list_name(F_DO_MAILCAP_PARAM_SUBST), from);
*err = tmp_20k_buf;
if(s)
*s = save;
}
return(NULL);
}
s = strindex(from, '}');
if(!s){
q_status_message1(SM_ORDER, 0, 4,
"Ignoring ill-formed parameter reference in mailcap file: %.200s", from);
break;
}
*s = '\0';
++from; /* from is the part inside the brackets now */
parm = parameter_val(body ? body->parameter : NULL, from);
dprint((9,
"mc_cmd_bldr: parameter %s = %s\n",
from ? from : "?", parm ? parm : "(not found)"));
/*
* Quote parameter values for /bin/sh.
* Put single quotes around the whole thing but every time
* there is an actual single quote put it outside of the
* single quotes with a backslash in front of it. So the
* parameter value fred's car
* turns into 'fred'\''s car'
*/
if(to-tmp_20k_buf < SIZEOF_20KBUF)
*to++ = '\''; /* opening quote */
if(parm){
char *p;
/*
* Copy value, but quote single quotes for /bin/sh
* Backslash quote is ignored inside single quotes so
* have to put those outside of the single quotes.
* (The parm+1000 nonsense is to protect against
* malicious mail trying to overflow our buffer.)
*
* TCH - Change 2/8/1999
* Also quote the ` to prevent execution of arbitrary code
*/
for(p = parm; *p && p < parm+1000; p++){
if((*p == '\'') || (*p == '`')){
if(to-tmp_20k_buf+4 < SIZEOF_20KBUF){
*to++ = '\''; /* closing quote */
*to++ = '\\';
*to++ = *p; /* quoted character */
*to++ = '\''; /* opening quote */
}
}
else if(to-tmp_20k_buf < SIZEOF_20KBUF)
*to++ = *p;
}
fs_give((void **) &parm);
}
if(to-tmp_20k_buf < SIZEOF_20KBUF)
*to++ = '\''; /* closing quote for /bin/sh */
*s = '}'; /* restore */
from = s;
break;
/*
* %n and %F are used by metamail to support otherwise
* unrecognized multipart Content-Types. Pine does
* not use these since we're only dealing with the individual
* parts at this point.
*/
case 'n':
case 'F':
default:
dprint((9,
"Ignoring %s format code in mailcap file: %%%c\n",
(*from == 'n' || *from == 'F') ? "unimplemented"
: "unrecognized",
*from));
break;
}
}
else if(*from == '%') /* next char is special */
prefixed = 1;
else if(to-tmp_20k_buf < SIZEOF_20KBUF) /* regular character, just copy */
*to++ = *from;
}
if(to-tmp_20k_buf < SIZEOF_20KBUF)
*to = '\0';
tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
/*
* file not specified, redirect to stdin
*/
if(!used_tmp_file && tmp_file)
snprintf(to, SIZEOF_20KBUF-(to-tmp_20k_buf), MC_ADD_TMP, tmp_file);
return(cpystr(tmp_20k_buf));
}
/*----------------------------------------------------------------------
Read input characters with lots of processing for arrow keys and such (UNIX)
Args: time_out -- The timeout to for the reads
Result: returns the character read. Possible special chars.
This deals with function and arrow keys as well.
The idea is that this routine handles all escape codes so it done in
only one place. Especially so the back arrow key can work when entering
things on a line. Also so all function keys can be disabled and not
cause weird things to happen.
---*/
UCS
read_char(int time_out)
{
UCS status, cc, ch;
int (*key_rec)(int);
key_rec = key_recorder;
if(ps_global->conceal_sensitive_debugging)
key_rec = NULL;
/* Get input from initial-keystrokes */
if(process_config_input(&cc)){
ch = cc;
return(ch);
}
if((ch = check_for_timeout(time_out)) != READY_TO_READ)
goto done;
switch(status = kbseq(pine_simple_ttgetc, key_rec, read_bail,
ps_global->input_cs, &ch)){
case KEY_DOUBLE_ESC:
/*
* Special hack to get around comm devices eating control characters.
*/
if(check_for_timeout(5) != READY_TO_READ){
dprint((9, "Read char: incomplete double escape timed out...\n"));
ch = KEY_JUNK; /* user typed ESC ESC, then stopped */
goto done;
}
else
ch = READ_A_CHAR();
ch &= 0x7f;
/* We allow a 3-digit number between 001 and 255 */
if(isdigit((unsigned char) ch)){
int n = 0, i = ch - '0';
if(i < 0 || i > 2){
dprint((9, "Read char: double escape followed by 1st digit not 0, 1, or 2... (%d)\n", i));
ch = KEY_JUNK;
goto done; /* bogus literal char value */
}
while(n++ < 2){
if(check_for_timeout(5) != READY_TO_READ
|| (!isdigit((unsigned char) (ch = READ_A_CHAR()))
|| (n == 1 && i == 2 && ch > '5')
|| (n == 2 && i == 25 && ch > '5'))){
dprint((9, "Read char: bad double escape, either timed out or too large 3-digit num...\n"));
ch = KEY_JUNK; /* user typed ESC ESC #, stopped */
goto done;
}
i = (i * 10) + (ch - '0');
}
ch = i;
}
else{ /* or, normal case, ESC ESC c means ^c */
if(islower((unsigned char) ch)) /* canonicalize if alpha */
ch = toupper((unsigned char) ch);
ch = (isalpha((unsigned char)ch) || ch == '@'
|| (ch >= '[' && ch <= '_'))
? ctrl(ch) : ((ch == SPACE) ? ctrl('@'): ch);
dprint((9, "Read char: this is a successful double escape...\n"));
}
goto done;
#ifdef MOUSE
case KEY_XTERM_MOUSE:
if(mouseexist()){
/*
* Special hack to get mouse events from an xterm.
* Get the details, then pass it past the keymenu event
* handler, and then to the installed handler if there
* is one...
*/
static int down = 0;
int x, y, button;
unsigned long cmd;
clear_cursor_pos();
button = READ_A_CHAR() & 0x03;
x = READ_A_CHAR() - '!';
y = READ_A_CHAR() - '!';
ch = NO_OP_COMMAND;
if(button == 0){ /* xterm button 1 down */
down = 1;
if(checkmouse(&cmd, 1, x, y))
ch = cmd;
}
else if (down && button == 3){
down = 0;
if(checkmouse(&cmd, 0, x, y))
ch = cmd;
}
goto done;
}
break;
#endif /* MOUSE */
case KEY_UP :
case KEY_DOWN :
case KEY_RIGHT :
case KEY_LEFT :
case KEY_PGUP :
case KEY_PGDN :
case KEY_HOME :
case KEY_END :
case KEY_DEL :
case PF1 :
case PF2 :
case PF3 :
case PF4 :
case PF5 :
case PF6 :
case PF7 :
case PF8 :
case PF9 :
case PF10 :
case PF11 :
case PF12 :
dprint((9, "Read char returning: 0x%x %s\n", status, pretty_command(status)));
return(status);
case CTRL_KEY_UP :
status = KEY_UP;
dprint((9, "Read char returning: 0x%x %s (for CTRL_KEY_UP)\n", status, pretty_command(status)));
return(status);
case CTRL_KEY_DOWN :
status = KEY_DOWN;
dprint((9, "Read char returning: 0x%x %s (for CTRL_KEY_DOWN)\n", status, pretty_command(status)));
return(status);
case CTRL_KEY_RIGHT :
status = KEY_RIGHT;
dprint((9, "Read char returning: 0x%x %s (for CTRL_KEY_RIGHT)\n", status, pretty_command(status)));
return(status);
case CTRL_KEY_LEFT :
status = KEY_LEFT;
dprint((9, "Read char returning: 0x%x %s (for CTRL_KEY_LEFT)\n", status, pretty_command(status)));
return(status);
case KEY_SWALLOW_Z:
status = KEY_JUNK;
case KEY_SWAL_UP:
case KEY_SWAL_DOWN:
case KEY_SWAL_LEFT:
case KEY_SWAL_RIGHT:
do
if(check_for_timeout(2) != READY_TO_READ){
status = KEY_JUNK;
break;
}
while(!strchr("~qz", READ_A_CHAR()));
ch = (status == KEY_JUNK) ? status : status - (KEY_SWAL_UP - KEY_UP);
goto done;
case KEY_KERMIT:
do{
cc = ch;
if(check_for_timeout(2) != READY_TO_READ){
status = KEY_JUNK;
break;
}
else
ch = READ_A_CHAR();
}while(cc != '\033' && ch != '\\');
ch = KEY_JUNK;
goto done;
case BADESC:
ch = KEY_JUNK;
goto done;
case 0: /* regular character */
default:
/*
* we used to strip (ch &= 0x7f;), but this seems much cleaner
* in the face of line noise and has the benefit of making it
* tougher to emit mistakenly labeled MIME...
*/
if((ch & ~0x7f)
&& ((!ps_global->keyboard_charmap || !strucmp(ps_global->keyboard_charmap, "US-ASCII"))
&& (!ps_global->display_charmap || !strucmp(ps_global->display_charmap, "US-ASCII")))){
dprint((9, "Read char sees ch = 0x%x status=0x%x, returns KEY_JUNK\n", ch, status));
return(KEY_JUNK);
}
else if(ch == ctrl('Z')){
dprint((9, "Read char got ^Z, calling do_suspend\n"));
ch = do_suspend();
dprint((9, "After do_suspend Read char returns 0x%x %s\n", ch, pretty_command(ch)));
return(ch);
}
#ifdef MOUSE
else if(ch == ctrl('\\')){
int e;
dprint((9, "Read char got ^\\, toggle xterm mouse\n"));
if(F_ON(F_ENABLE_MOUSE, ps_global)){
(e=mouseexist()) ? end_mouse() : (void) init_mouse();
if(e != mouseexist())
q_status_message1(SM_ASYNC, 0, 2, "Xterm mouse tracking %s!",
mouseexist() ? "on" : "off");
else if(!e)
q_status_message1(SM_ASYNC, 0, 2, "See help for feature \"%s\" ($DISPLAY variable set?)", pretty_feature_name(feature_list_name(F_ENABLE_MOUSE), -1));
}
else
q_status_message1(SM_ASYNC, 0, 2, "Feature \"%s\" not enabled",
pretty_feature_name(feature_list_name(F_ENABLE_MOUSE), -1));
return(NO_OP_COMMAND);
}
#endif /* MOUSE */
done:
#ifdef DEBUG
if(ps_global->conceal_sensitive_debugging && debug < 10){
dprint((9, "Read char returning: <hidden char>\n"));
}
else{
dprint((9, "Read char returning: 0x%x %s\n", ch, pretty_command(ch)));
}
#endif
return(ch);
}
/* not reachable */
return(KEY_JUNK);
}
