?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
* New version 2.20.11
[alpine.git] / alpine / arg.c
blobfd987f7c569874674e8f2ba7daec1269ea9a1634
1 #if !defined(lint) && !defined(DOS)
2 static char rcsid[] = "$Id: arg.c 900 2008-01-05 01:13:26Z hubert@u.washington.edu $";
3 #endif
4
5 /*
6 * ========================================================================
7 * Copyright 2013-2016 Eduardo Chappa
8 * Copyright 2006-2008 University of Washington
9 *
10 * Licensed under the Apache License, Version 2.0 (the "License");
11 * you may not use this file except in compliance with the License.
12 * You may obtain a copy of the License at
13 *
14 * http://www.apache.org/licenses/LICENSE-2.0
15 *
16 * ========================================================================
17 */
18
19 /*======================================================================
20 Command line argument parsing functions
21
22 ====*/
23
24 #include "headers.h"
25
26 #include "../pith/state.h"
27 #include "../pith/init.h"
28 #include "../pith/conf.h"
29 #include "../pith/list.h"
30 #include "../pith/util.h"
31 #include "../pith/help.h"
32
33 #include "imap.h"
34
35 #include "arg.h"
36
37
38 int process_debug_str(char *);
39 void args_add_attach(PATMT **, char *, int);
40 int pinerc_cmdline_opt(char *);
41
42
43 /*
44 * Name started as to invoke function key mode
45 */
46 #define ALPINE_FKEY_NAME "alpinef"
47
48 /*
49 * Various error and informational strings..
50 */
51 /* TRANSLATORS: This is a list of errors printed when something goes wrong
52 early on with the argument list. Be careful not to change literal
53 option names mentioned in the strings. */
54 static char args_err_missing_pinerc[] = N_("missing argument for option \"-pinerc\" (use - for standard out)");
55 #if defined(DOS) || defined(OS2)
56 static char args_err_missing_aux[] = N_("missing argument for option \"-aux\"");
57 #endif
58 #ifdef SMIME
59 static char args_err_missing_smimedir[] = N_("missing argument for option \"-smimedir\"");
60 static char args_err_non_abs_smimedir[] = N_("argument to \"-smimedir\" should be fully-qualified");
61 #endif /* SMIME */
62 #ifdef PASSFILE
63 static char args_err_missing_passfile[] = N_("missing argument for option \"-passfile\"");
64 static char args_err_non_abs_passfile[] = N_("argument to \"-passfile\" should be fully-qualified");
65 #ifdef SMIME
66 static char args_err_missing_pwdcertdir[] = N_("missing argument for option \"-pwdcertdir\"");
67 static char args_err_non_abs_pwdcertdir[] = N_("argument to \"-pwdcertdir\" should be fully-qualified");
68 #endif /* SMIME inside PASSFILE */
69 #endif
70 static char args_err_missing_sort[] = N_("missing argument for option \"-sort\"");
71 static char args_err_missing_flag_arg[] = N_("missing argument for flag \"%c\"");
72 static char args_err_missing_flag_num[] = N_("Non numeric argument for flag \"%c\"");
73 static char args_err_missing_debug_num[] = N_("Non numeric argument for \"%s\"");
74 static char args_err_missing_url[] = N_("missing URL for \"-url\"");
75 static char args_err_missing_attachment[] = N_("missing attachment for \"%s\"");
76 static char args_err_conflict[] = N_("conflicting action: \"%s\"");
77 static char args_err_unknown[] = N_("unknown flag \"%c\"");
78 static char args_err_I_error[] = N_("-I argument \"%s\": %s");
79 static char args_err_d_error[] = N_("-d argument \"%s\": %s");
80 static char args_err_internal[] = "%s";
81 static char args_err_missing_copyprc[] = N_("missing argument for option \"-copy_pinerc\"\nUsage: pine -copy_pinerc <local_pinerc> <remote_pinerc>");
82 static char args_err_missing_copyabook[] = N_("missing argument for option \"-copy_abook\"\nUsage: pine -copy_abook <local_abook> <remote_abook>");
83
84
85 static char *args_pine_args[] = {
86 N_("Possible Starting Arguments for Alpine program:"),
87 "",
88 N_(" Argument\tMeaning"),
89 N_(" <addrs>...\tGo directly into composer sending to given address"),
90 N_("\t\tList multiple addresses with a single space between them."),
91 N_("\t\tStandard input redirection is allowed with addresses."),
92 N_("\t\tNote: Places addresses in the \"To\" field only."),
93 N_(" -attach <file>\tGo directly into composer with given file"),
94 N_(" -attachlist <file-list>"),
95 N_(" -attach_and_delete <file>"),
96 N_("\t\tGo to composer, attach file, delete when finished"),
97 N_("\t\tNote: Attach options can't be used if -f, -F"),
98 N_("\t\tadded to Attachment list. Attachlist must be the last"),
99 N_("\t\toption on the command line"),
100 N_(" -bail\t\tExit if pinerc file doesn't already exist"),
101 #ifdef DEBUG
102 N_(" -d n\t\tDebug - set debug level to 'n', or use the following:"),
103 N_(" -d keywords...\tflush,timestamp,imap=0..4,tcp,numfiles=0..31,verbose=0..9"),
104 #endif
105 N_(" -f <folder>\tFolder - give folder name to open"),
106 N_(" -c <number>\tContext - which context to apply to -f arg"),
107 N_(" -F <file>\tFile - give file name to open and page through and"),
108 N_("\t\tforward as email."),
109 N_(" -h \t\tHelp - give this list of options"),
110 N_(" -k \t\tKeys - Force use of function keys"),
111 N_(" -z \t\tSuspend - allow use of ^Z suspension"),
112 N_(" -r \t\tRestricted - can only send mail to oneself"),
113 N_(" -sort <sort>\tSort - Specify sort order of folder:"),
114 N_("\t\t\tarrival, subject, threaded, orderedsubject, date,"),
115 N_("\t\t\tfrom, size, score, to, cc, /reverse"),
116 N_(" -i\t\tIndex - Go directly to index, bypassing main menu"),
117 N_(" -I <keystroke_list> Initial keystrokes to be executed"),
118 N_(" -n <number>\tEntry in index to begin on"),
119 N_(" -o \t\tReadOnly - Open first folder read-only"),
120 N_(" -conf\t\tConfiguration - Print out fresh global configuration. The"),
121 N_("\t\tvalues of your global configuration affect all Alpine users"),
122 N_("\t\ton your system unless they have overridden the values in their"),
123 N_("\t\tpinerc files."),
124 N_(" -pinerc <file>\tConfiguration - Put fresh pinerc configuration in <file>"),
125 N_(" -p <pinerc>\tUse alternate .pinerc file"),
126 #if !defined(DOS) && !defined(OS2)
127 N_(" -P <pine.conf>\tUse alternate pine.conf file"),
128 #else
129 N_(" -aux <aux_files_dir>\tUse this with remote pinerc"),
130 N_(" -P <pine.conf>\tUse pine.conf file for default settings"),
131 N_(" -nosplash \tDisable the PC-Alpine splash screen"),
132 #endif
133
134 #if defined(APPLEKEYCHAIN) || (WINCRED > 0)
135 N_(" -erase_stored_passwords\tEliminate any stored passwords"),
136 #endif
137
138 #ifdef SMIME
139 N_(" -smimedir <fully_qualified_path>\tdirectory where smime personal certificates are saved"),
140 #endif /* SMIME */
141
142 #ifdef PASSFILE
143 N_(" -passfile <fully_qualified_filename>\tSet the password file to something other"),
144 N_("\t\tthan the default"),
145 #ifdef SMIME
146 N_(" -pwdcertdir <fully_qualified_path>\tSet the directory to store a personal"),
147 N_("\t\tkey and certificate to encrypt and decrypt your password file."),
148 #endif /* SMIME inside PASSFILE */
149 #endif /* PASSFILE */
150
151 #ifdef LOCAL_PASSWD_CACHE
152 N_(" -nowrite_password_cache\tRead from a password cache if there is one, but"),
153 N_("\t\t\t\tnever offer to write a password to the cache"),
154 #endif /* LOCAL_PASSWD_CACHE */
155
156 N_(" -x <config>\tUse configuration exceptions in <config>."),
157 N_("\t\tExceptions are used to override your default pinerc"),
158 N_("\t\tsettings for a particular platform, can be a local file or"),
159 N_("\t\ta remote folder."),
160 N_(" -v \t\tVersion - show version information"),
161 N_(" -version\tVersion - show version information"),
162 N_(" -supported\tList supported options"),
163 N_(" -url <url>\tOpen the given URL"),
164 N_("\t\tNote: Can't be used if -f, -F"),
165 N_("\t\tStandard input redirection is not allowed with URLs."),
166 N_("\t\tFor mailto URLs, 'body='text should be used in place of"),
167 N_("\t\tinput redirection."),
168 N_(" -copy_pinerc <local_pinerc> <remote_pinerc> copy local pinerc to remote"),
169 N_(" -copy_abook <local_abook> <remote_abook> copy local addressbook to remote"),
170 N_(" -convert_sigs -p <pinerc> convert signatures to literal signatures"),
171 #if defined(_WINDOWS)
172 N_(" -install \tPrompt for some basic setup information"),
173 N_(" -uninstall \tRemove traces of Alpine from Windows system settings"),
174 N_(" -registry <cmd>\tWhere cmd is set,noset,clear,clearsilent,dump"),
175 #endif
176 " -<option>=<value> Assign <value> to the pinerc option <option>",
177 "\t\t e.g. -signature-file=sig1",
178 "\t\t e.g. -color-style=no-color",
179 "\t\t e.g. -feature-list=enable-sigdashes",
180 "\t\t Note: feature-list is additive.",
181 "\t\t You may leave off the \"feature-list=\" part of that,",
182 "\t\t e.g. -enable-sigdashes",
183 NULL
184 };
185
186
187
188 /*
189 * Parse the command line args.
190 *
191 * Args: pine_state -- The pine_state structure to put results in
192 * argc, argv -- The obvious
193 * addrs -- Pointer to address list that we set for caller
194 *
195 * Result: command arguments parsed
196 * possible printing of help for command line
197 * various flags in pine_state set
198 * returns the string name of the first folder to open
199 * addrs is set
200 */
201 void
202 pine_args(struct pine *pine_state, int argc, char **argv, ARGDATA_S *args)
203 {
204 register int ac;
205 register char **av;
206 int c;
207 char *str;
208 char *cmd_list = NULL;
209 char *debug_str = NULL;
210 char *sort = NULL;
211 char *pinerc_file = NULL;
212 char *lc = NULL;
213 int do_help = 0;
214 int do_conf = 0;
215 int usage = 0;
216 int do_use_fk = 0;
217 int do_can_suspend = 0;
218 int do_version = 0;
219 struct variable *vars = pine_state->vars;
220
221 ac = argc;
222 av = argv;
223 memset(args, 0, sizeof(ARGDATA_S));
224 args->action = aaFolder;
225
226 pine_state->pine_name = (lc = last_cmpnt(argv[0])) ? lc : (lc = argv[0]);
227 #ifdef DOS
228 snprintf(tmp_20k_buf, SIZEOF_20KBUF, "%.*s", pine_state->pine_name - argv[0], argv[0]);
229 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
230 pine_state->pine_dir = cpystr(tmp_20k_buf);
231 #endif
232
233 /* while more arguments with leading - */
234 Loop: while(--ac > 0)
235 if(**++av == '-'){
236 /* while more chars in this argument */
237 while(*++*av){
238 /* check for pinerc options */
239 if(pinerc_cmdline_opt(*av)){
240 goto Loop; /* done with this arg, go to next */
241 }
242 /* then other multi-char options */
243 else if(strcmp(*av, "conf") == 0){
244 do_conf = 1;
245 goto Loop; /* done with this arg, go to next */
246 }
247 else if(strcmp(*av, "pinerc") == 0){
248 if(--ac)
249 pinerc_file = *++av;
250 else{
251 display_args_err(_(args_err_missing_pinerc), NULL, 1);
252 ++usage;
253 }
254
255 goto Loop;
256 }
257 #if defined(DOS) || defined(OS2)
258 else if(strcmp(*av, "aux") == 0){
259 if(--ac){
260 if((str = *++av) != NULL)
261 pine_state->aux_files_dir = cpystr(str);
262 }
263 else{
264 display_args_err(_(args_err_missing_aux), NULL, 1);
265 ++usage;
266 }
267
268 goto Loop;
269 }
270 else if(strcmp(*av, "nosplash") == 0)
271 goto Loop; /* already taken care of in WinMain */
272 #endif
273
274 #if defined(APPLEKEYCHAIN) || (WINCRED > 0)
275 else if(strcmp(*av, "erase_stored_passwords") == 0){
276 #if (WINCRED > 0)
277 erase_windows_credentials();
278 #else
279 macos_erase_keychain();
280 #endif
281 goto Loop;
282 }
283 #endif /* defined(APPLEKEYCHAIN) || (WINCRED > 0) */
284
285 #ifdef SMIME
286 else if(strcmp(*av, "smimedir") == 0){
287 if(--ac){
288 if((str = *++av) != NULL){
289 if(!is_absolute_path(str)){
290 display_args_err(_(args_err_non_abs_smimedir),
291 NULL, 1);
292 ++usage;
293 }
294 else{
295 if(pine_state->smimedir)
296 fs_give((void **)&pine_state->smimedir);
297
298 pine_state->smimedir = cpystr(str);
299 }
300 }
301 }
302 else{
303 display_args_err(_(args_err_missing_smimedir), NULL, 1);
304 ++usage;
305 }
306
307 goto Loop;
308 }
309 #endif /* SMIME */
310 #ifdef PASSFILE
311 else if(strcmp(*av, "passfile") == 0){
312 if(--ac){
313 if((str = *++av) != NULL){
314 if(!is_absolute_path(str)){
315 display_args_err(_(args_err_non_abs_passfile),
316 NULL, 1);
317 ++usage;
318 }
319 else{
320 if(pine_state->passfile)
321 fs_give((void **)&pine_state->passfile);
322
323 pine_state->passfile = cpystr(str);
324 }
325 }
326 }
327 else{
328 display_args_err(_(args_err_missing_passfile), NULL, 1);
329 ++usage;
330 }
331
332 goto Loop;
333 }
334 #ifdef SMIME
335 else if(strcmp(*av, "pwdcertdir") == 0){
336 if(--ac){
337 if((str = *++av) != NULL){
338 if(!is_absolute_path(str)){
339 display_args_err(_(args_err_non_abs_pwdcertdir),
340 NULL, 1);
341 ++usage;
342 }
343 else{
344 if(pine_state->pwdcertdir)
345 fs_give((void **)&pine_state->pwdcertdir);
346
347 pine_state->pwdcertdir = cpystr(str);
348 }
349 }
350 }
351 else{
352 display_args_err(_(args_err_missing_pwdcertdir), NULL, 1);
353 ++usage;
354 }
355
356 goto Loop;
357 }
358 #endif /* SMIME inside PASSFILE */
359 #endif /* PASSFILE */
360
361 #ifdef LOCAL_PASSWD_CACHE
362 else if(strcmp(*av, "nowrite_password_cache") == 0){
363 ps_global->nowrite_password_cache = 1;
364 goto Loop;
365 }
366 #endif /* LOCAL_PASSWD_CACHE */
367
368 else if(strcmp(*av, "convert_sigs") == 0){
369 ps_global->convert_sigs = 1;
370 goto Loop;
371 }
372 else if(strcmp(*av, "supported") == 0){
373 ps_global->dump_supported_options = 1;
374 goto Loop;
375 }
376 else if(strcmp(*av, "copy_pinerc") == 0){
377 if(args->action == aaFolder && !args->data.folder){
378 args->action = aaPrcCopy;
379 if(ac > 2){
380 ac -= 2;
381 args->data.copy.local = *++av;
382 args->data.copy.remote = *++av;
383 }
384 else{
385 display_args_err(_(args_err_missing_copyprc), NULL, 1);
386 ++usage;
387 }
388 }
389 else{
390 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), "-copy_pinerc");
391 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
392 display_args_err(tmp_20k_buf, NULL, 1);
393 ++usage;
394 }
395
396 goto Loop;
397 }
398 else if(strcmp(*av, "copy_abook") == 0){
399 if(args->action == aaFolder && !args->data.folder){
400 args->action = aaAbookCopy;
401 if(ac > 2){
402 ac -= 2;
403 args->data.copy.local = *++av;
404 args->data.copy.remote = *++av;
405 }
406 else{
407 display_args_err(_(args_err_missing_copyabook), NULL, 1);
408 ++usage;
409 }
410 }
411 else{
412 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), "-copy_abook");
413 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
414 display_args_err(tmp_20k_buf, NULL, 1);
415 ++usage;
416 }
417
418 goto Loop;
419 }
420 else if(strcmp(*av, "sort") == 0){
421 if(--ac){
422 sort = *++av;
423 COM_SORT_KEY = cpystr(sort);
424 }
425 else{
426 display_args_err(_(args_err_missing_sort), NULL, 1);
427 ++usage;
428 }
429
430 goto Loop;
431 }
432 else if(strcmp(*av, "url") == 0){
433 if(args->action == aaFolder && !args->data.folder){
434 args->action = aaURL;
435 if(--ac){
436 args->url = cpystr(*++av);
437 }
438 else{
439 display_args_err(_(args_err_missing_url), NULL, 1);
440 ++usage;
441 }
442 }
443 else{
444 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), "-url");
445 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
446 display_args_err(tmp_20k_buf, NULL, 1);
447 ++usage;
448 }
449
450 goto Loop;
451 }
452 else if(strcmp(*av, "attach") == 0){
453 if((args->action == aaFolder && !args->data.folder)
454 || args->action == aaMail
455 || args->action == aaURL){
456 if(args->action != aaURL)
457 args->action = aaMail;
458 if(--ac){
459 args_add_attach(&args->data.mail.attachlist,
460 *++av, FALSE);
461 }
462 else{
463 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_attachment), "-attach");
464 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
465 display_args_err(tmp_20k_buf, NULL, 1);
466 ++usage;
467 }
468 }
469 else{
470 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), "-attach");
471 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
472 display_args_err(tmp_20k_buf, NULL, 1);
473 ++usage;
474 }
475
476 goto Loop;
477 }
478 else if(strcmp(*av, "attachlist") == 0){
479 if((args->action == aaFolder && !args->data.folder)
480 || args->action == aaMail
481 || args->action == aaURL){
482 if(args->action != aaURL)
483 args->action = aaMail;
484 if(ac - 1){
485 do{
486 if(can_access(*(av+1), READ_ACCESS) == 0){
487 ac--;
488 args_add_attach(&args->data.mail.attachlist,
489 *++av, FALSE);
490 }
491 else
492 break;
493 }
494 while(ac);
495 }
496 else{
497 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_attachment), "-attachList");
498 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
499 display_args_err(tmp_20k_buf, NULL, 1);
500 ++usage;
501 }
502 }
503 else{
504 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), "-attachList");
505 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
506 display_args_err(tmp_20k_buf, NULL, 1);
507 ++usage;
508 }
509
510 goto Loop;
511 }
512 else if(strcmp(*av, "attach_and_delete") == 0){
513 if((args->action == aaFolder && !args->data.folder)
514 || args->action == aaMail
515 || args->action == aaURL){
516 if(args->action != aaURL)
517 args->action = aaMail;
518 if(--ac){
519 args_add_attach(&args->data.mail.attachlist,
520 *++av, TRUE);
521 }
522 else{
523 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_attachment), "-attach_and_delete");
524 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
525 display_args_err(tmp_20k_buf, NULL, 1);
526 ++usage;
527 }
528 }
529 else{
530 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), "-attach_and_delete");
531 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
532 display_args_err(tmp_20k_buf, NULL, 1);
533 ++usage;
534 }
535
536 goto Loop;
537 }
538 else if(strcmp(*av, "bail") == 0){
539 pine_state->exit_if_no_pinerc = 1;
540 goto Loop;
541 }
542 else if(strcmp(*av, "version") == 0){
543 do_version = 1;
544 goto Loop;
545 }
546 #ifdef _WINDOWS
547 else if(strcmp(*av, "install") == 0){
548 pine_state->install_flag = 1;
549 pine_state->update_registry = UREG_ALWAYS_SET;
550 goto Loop;
551 }
552 else if(strcmp(*av, "uninstall") == 0){
553 /*
554 * Blast password cache, clear registry settings
555 */
556 #if (WINCRED > 0)
557 erase_windows_credentials();
558 #endif
559 mswin_reg(MSWR_OP_BLAST, MSWR_NULL, NULL, 0);
560 exit(0);
561 }
562 else if(strcmp(*av, "registry") == 0){
563 if(--ac){
564 if(!strucmp(*++av, "set")){
565 pine_state->update_registry = UREG_ALWAYS_SET;
566 }
567 else if(!strucmp(*av, "noset")){
568 pine_state->update_registry = UREG_NEVER_SET;
569 }
570 else if(!strucmp(*av, "clear")){
571 if(!mswin_reg(MSWR_OP_BLAST, MSWR_NULL, NULL, 0))
572 display_args_err(
573 _("Alpine related Registry values removed."),
574 NULL, 0);
575 else
576 display_args_err(
577 _("Not all Alpine related Registry values could be removed"),
578 NULL, 0);
579 exit(0);
580 }
581 else if(!strucmp(*av, "clearsilent")){
582 mswin_reg(MSWR_OP_BLAST, MSWR_NULL, NULL, 0);
583 exit(0);
584 }
585 else if(!strucmp(*av, "dump")){
586 char **pRegistry = mswin_reg_dump();
587
588 if(pRegistry){
589 display_args_err(NULL, pRegistry, 0);
590 free_list_array(&pRegistry);
591 }
592 exit(0);
593 }
594 else{
595 display_args_err(_("unknown registry command"),
596 NULL, 1);
597 ++usage;
598 }
599 }
600 else{
601 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_flag_arg), c);
602 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
603 display_args_err(tmp_20k_buf, NULL, 1);
604 ++usage;
605 }
606
607 goto Loop;
608 }
609 #endif
610 /* single char flags */
611 else{
612 switch(c = **av){
613 case 'h':
614 do_help = 1;
615 break; /* break back to inner-while */
616 case 'k':
617 do_use_fk = 1;
618 break;
619 case 'z':
620 do_can_suspend = 1;
621 break;
622 case 'r':
623 pine_state->restricted = 1;
624 break;
625 case 'o':
626 pine_state->open_readonly_on_startup = 1;
627 break;
628 case 'i':
629 pine_state->start_in_index = 1;
630 break;
631 case 'v':
632 do_version = 1;
633 break; /* break back to inner-while */
634 /* these take arguments */
635 case 'f': case 'F': case 'p': case 'I':
636 case 'c': case 'd': case 'P': case 'x': /* string args */
637 case 'n': /* integer args */
638 if(*++*av)
639 str = *av;
640 else if(--ac)
641 str = *++av;
642 else if(c == 'f' || c == 'F')
643 str = "";
644 else{
645 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_flag_arg), c);
646 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
647 display_args_err(tmp_20k_buf, NULL, 1);
648 ++usage;
649 goto Loop;
650 }
651
652 switch(c){
653 case 'f':
654 if(args->action == aaFolder && !args->data.folder){
655 args->data.folder = cpystr(str);
656 }
657 else{
658 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), "-f");
659 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
660 display_args_err(tmp_20k_buf, NULL, 1);
661 usage++;
662 }
663
664 break;
665 case 'F':
666 if(args->action == aaFolder && !args->data.folder){
667 args->action = aaMore;
668 args->data.file = cpystr(str);
669 }
670 else{
671 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), "-F");
672 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
673 display_args_err(tmp_20k_buf, NULL, 1);
674 usage++;
675 }
676
677 break;
678 case 'd':
679 debug_str = str;
680 break;
681 case 'I':
682 cmd_list = str;
683 break;
684 case 'p':
685 if(str){
686 char path[MAXPATH], dir[MAXPATH];
687
688 if(IS_REMOTE(str) || is_absolute_path(str)){
689 strncpy(path, str, sizeof(path)-1);
690 path[sizeof(path)-1] = '\0';
691 }
692 else{
693 getcwd(dir, sizeof(path));
694 build_path(path, dir, str, sizeof(path));
695 }
696
697 /*
698 * Pinerc used to be the name of the pinerc
699 * file. Now, since the pinerc can be remote,
700 * we've replaced the variable pinerc with the
701 * structure prc. Unfortunately, other parts of
702 * pine rely on the fact that pinerc is the
703 * name of the pinerc _file_, and use the
704 * directory that the pinerc file is located
705 * in for their own purposes. We keep that so
706 * things will keep working.
707 */
708
709 if(!IS_REMOTE(path)){
710 if(pine_state->pinerc)
711 fs_give((void **)&pine_state->pinerc);
712
713 pine_state->pinerc = cpystr(path);
714 }
715
716 /*
717 * Last one wins. This would be the place where
718 * we put multiple pinercs in a list if we
719 * were to allow that.
720 */
721 if(pine_state->prc)
722 free_pinerc_s(&pine_state->prc);
723
724 pine_state->prc = new_pinerc_s(path);
725 }
726
727 break;
728 case 'P':
729 if(str){
730 char path[MAXPATH], dir[MAXPATH];
731
732 if(IS_REMOTE(str) || is_absolute_path(str)){
733 strncpy(path, str, sizeof(path)-1);
734 path[sizeof(path)-1] = '\0';
735 }
736 else{
737 getcwd(dir, sizeof(path));
738 build_path(path, dir, str, sizeof(path));
739 }
740
741 if(pine_state->pconf)
742 free_pinerc_s(&pine_state->pconf);
743
744 pine_state->pconf = new_pinerc_s(path);
745 }
746
747 break;
748 case 'x':
749 if(str)
750 pine_state->exceptions = cpystr(str);
751
752 break;
753 case 'c':
754 if(!isdigit((unsigned char)str[0])){
755 snprintf(tmp_20k_buf, SIZEOF_20KBUF,
756 _(args_err_missing_flag_num), c);
757 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
758 display_args_err(tmp_20k_buf, NULL, 1);
759 ++usage;
760 break;
761 }
762
763 pine_state->init_context = (short) atoi(str);
764 break;
765
766 case 'n':
767 if(!isdigit((unsigned char)str[0])){
768 snprintf(tmp_20k_buf, SIZEOF_20KBUF,
769 _(args_err_missing_flag_num), c);
770 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
771 display_args_err(tmp_20k_buf, NULL, 1);
772 ++usage;
773 break;
774 }
775
776 pine_state->start_entry = atoi(str);
777 if(pine_state->start_entry < 1)
778 pine_state->start_entry = 1;
779
780 break;
781 }
782
783 goto Loop;
784
785 default:
786 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_unknown), c);
787 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
788 display_args_err(tmp_20k_buf, NULL, 1);
789 ++usage;
790 break;
791 }
792 }
793 }
794 }
795 else if(args->action == aaMail
796 || (args->action == aaFolder && !args->data.folder)){
797 STRLIST_S *stp, **slp;
798
799 args->action = aaMail;
800
801 stp = new_strlist(*av);
802
803 for(slp = &args->data.mail.addrlist; *slp; slp = &(*slp)->next)
804 ;
805
806 *slp = stp;
807 }
808 else{
809 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_conflict), *av);
810 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
811 display_args_err(tmp_20k_buf, NULL, 1);
812 usage++;
813 }
814
815 if(cmd_list){
816 int commas = 0;
817 char *p = cmd_list;
818 char *error = NULL;
819
820 while(*p++)
821 if(*p == ',')
822 ++commas;
823
824 COM_INIT_CMD_LIST = parse_list(cmd_list, commas+1, 0, &error);
825 if(error){
826 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_I_error), cmd_list, error);
827 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
828 display_args_err(tmp_20k_buf, NULL, 1);
829 exit(-1);
830 }
831 }
832
833 #ifdef DEBUG
834 pine_state->debug_nfiles = NUMDEBUGFILES;
835 #endif
836 if(debug_str && process_debug_str(debug_str))
837 usage++;
838
839 if(lc && strncmp(lc, ALPINE_FKEY_NAME, sizeof(ALPINE_FKEY_NAME) - 1) == 0)
840 do_use_fk = 1;
841
842 if(do_use_fk || do_can_suspend){
843 char list[500];
844 int commas = 0;
845 char *p = list;
846 char *error = NULL;
847
848 list[0] = '\0';
849
850 if(do_use_fk){
851 if(list[0]){
852 strncat(list, ",", sizeof(list)-strlen(list)-1);
853 list[sizeof(list)-1] = '\0';
854 }
855
856 strncat(list, "use-function-keys", sizeof(list)-strlen(list)-1);
857 list[sizeof(list)-1] = '\0';
858 }
859
860 if(do_can_suspend){
861 if(list[0]){
862 strncat(list, ",", sizeof(list)-strlen(list)-1);
863 list[sizeof(list)-1] = '\0';
864 }
865
866 strncat(list, "enable-suspend", sizeof(list)-strlen(list)-1);
867 list[sizeof(list)-1] = '\0';
868 }
869
870 while(*p++)
871 if(*p == ',')
872 ++commas;
873
874 pine_state->feat_list_back_compat = parse_list(list,commas+1,0,&error);
875 if(error){
876 snprintf(tmp_20k_buf, SIZEOF_20KBUF, args_err_internal, error);
877 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
878 display_args_err(tmp_20k_buf, NULL, 1);
879 exit(-1);
880 }
881 }
882
883 if(((do_conf ? 1 : 0)+(pinerc_file ? 1 : 0)) > 1){
884 display_args_err(_("May only have one of -conf and -pinerc"),
885 NULL, 1);
886 exit(-1);
887 }
888
889 if(do_help || usage)
890 args_help();
891
892 if(usage)
893 exit(-1);
894
895 if(do_version){
896 extern char datestamp[], hoststamp[];
897 char rev[128];
898
899 snprintf(tmp_20k_buf, SIZEOF_20KBUF, "Alpine %s (%s %s) built %s on %s",
900 ALPINE_VERSION,
901 SYSTYPE ? SYSTYPE : "?",
902 get_alpine_revision_string(rev, sizeof(rev)),
903 datestamp, hoststamp);
904 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
905 display_args_err(tmp_20k_buf, NULL, 0);
906 exit(0);
907 }
908
909 if(do_conf)
910 dump_global_conf();
911
912 if(pinerc_file)
913 dump_new_pinerc(pinerc_file);
914
915 /*
916 * Don't NULL out argv[0] or we might crash in unexpected ways. In OS X, we were
917 * crashing when opening attachments because of this.
918 */
919 if(ac <= 0 && av != argv)
920 *av = NULL;
921 }
922
923
924 /*
925 * Returns 0 if ok, -1 if error.
926 */
927 int
928 process_debug_str(char *debug_str)
929 {
930 int i, usage = 0;
931 int commas = 0;
932 int new_style_debug_arg = 0;
933 char *q = debug_str;
934 char *error = NULL;
935 char **list, **p;
936
937 #ifdef DEBUG
938 if(debug_str){
939 if(!isdigit((unsigned char)debug_str[0]))
940 new_style_debug_arg++;
941
942 if(new_style_debug_arg){
943 while(*q++)
944 if(*q == ',')
945 ++commas;
946
947 list = parse_list(debug_str, commas+1, 0, &error);
948 if(error){
949 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_d_error), debug_str, error);
950 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
951 display_args_err(tmp_20k_buf, NULL, 1);
952 return(-1);
953 }
954
955 if(list){
956 for(p = list; *p; p++){
957 if(struncmp(*p, "timestamp", 9) == 0){
958 ps_global->debug_timestamp = 1;
959 }
960 else if(struncmp(*p, "imap", 4) == 0){
961 q = *p + 4;
962 if(!*q || !*(q+1) || *q != '=' ||
963 !isdigit((unsigned char)*(q+1))){
964 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_debug_num), *p);
965 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
966 display_args_err(tmp_20k_buf, NULL, 1);
967 usage = -1;
968 }
969 else{
970 i = atoi(q+1);
971 ps_global->debug_imap = MIN(5,MAX(0,i));
972 }
973 }
974 else if(struncmp(*p, "flush", 5) == 0){
975 ps_global->debug_flush = 1;
976 }
977 else if(struncmp(*p, "tcp", 3) == 0){
978 ps_global->debug_tcp = 1;
979 }
980 else if(struncmp(*p, "verbose", 7) == 0){
981 q = *p + 7;
982 if(!*q || !*(q+1) || *q != '=' ||
983 !isdigit((unsigned char)*(q+1))){
984 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_debug_num), *p);
985 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
986 display_args_err(tmp_20k_buf, NULL, 1);
987 usage = -1;
988 }
989 else
990 debug = atoi(q+1);
991 }
992 else if(struncmp(*p, "numfiles", 8) == 0){
993 q = *p + 8;
994 if(!*q || !*(q+1) || *q != '=' ||
995 !isdigit((unsigned char)*(q+1))){
996 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_debug_num), *p);
997 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
998 display_args_err(tmp_20k_buf, NULL, 1);
999 usage = -1;
1000 }
1001 else{
1002 i = atoi(q+1);
1003 ps_global->debug_nfiles = MIN(31,MAX(0,i));
1004 }
1005 }
1006 else if(struncmp(*p, "malloc", 6) == 0){
1007 q = *p + 6;
1008 if(!*q || !*(q+1) || *q != '=' ||
1009 !isdigit((unsigned char)*(q+1))){
1010 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_debug_num), *p);
1011 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
1012 display_args_err(tmp_20k_buf, NULL, 1);
1013 usage = -1;
1014 }
1015 else{
1016 i = atoi(q+1);
1017 ps_global->debug_malloc = MIN(63,MAX(0,i));
1018 }
1019 }
1020 #if defined(ENABLE_LDAP) && defined(LDAP_DEBUG)
1021 else if(struncmp(*p, "ldap", 4) == 0){
1022 q = *p + 4;
1023 if(!*q || !*(q+1) || *q != '=' ||
1024 !isdigit((unsigned char)*(q+1))){
1025 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _(args_err_missing_debug_num), *p);
1026 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
1027 display_args_err(tmp_20k_buf, NULL, 1);
1028 usage = -1;
1029 }
1030 else{
1031 i = atoi(q+1);
1032 ldap_debug = i;
1033 }
1034 }
1035 #endif /* LDAP */
1036 else{
1037 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _("unknown debug keyword \"%s\""), *p);
1038 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
1039 display_args_err(tmp_20k_buf, NULL, 1);
1040 usage = -1;
1041 }
1042 }
1043
1044 free_list_array(&list);
1045 }
1046 }
1047 else{
1048 debug = atoi(debug_str);
1049 if(debug > 9)
1050 ps_global->debug_imap = 5;
1051 else if(debug > 7)
1052 ps_global->debug_imap = 4;
1053 else if(debug > 6)
1054 ps_global->debug_imap = 3;
1055 else if(debug > 4)
1056 ps_global->debug_imap = 2;
1057 else if(debug > 2)
1058 ps_global->debug_imap = 1;
1059
1060 if(debug > 7)
1061 ps_global->debug_timestamp = 1;
1062
1063 if(debug > 8)
1064 ps_global->debug_flush = 1;
1065 }
1066 }
1067
1068 if(!new_style_debug_arg){
1069 #ifdef CSRIMALLOC
1070 ps_global->debug_malloc =
1071 (debug <= DEFAULT_DEBUG) ? 1 : (debug < 9) ? 2 : 3;
1072 #else /* !CSRIMALLOC */
1073 #ifdef HAVE_SMALLOC
1074 if(debug > 8)
1075 ps_global->debug_malloc = 2;
1076 #else /* !HAVE_SMALLOC */
1077 #ifdef NXT
1078 if(debug > 8)
1079 ps_global->debug_malloc = 32;
1080 #endif /* NXT */
1081 #endif /* HAVE_SMALLOC */
1082 #endif /* CSRIMALLOC */
1083 }
1084
1085 #else /* !DEBUG */
1086
1087 snprintf(tmp_20k_buf, SIZEOF_20KBUF, _("unknown flag \"d\", debugging not compiled in"));
1088 tmp_20k_buf[SIZEOF_20KBUF-1] = '\0';
1089 display_args_err(tmp_20k_buf, NULL, 1);
1090 usage = -1;
1091
1092 #endif /* !DEBUG */
1093
1094 return(usage);
1095 }
1096
1097
1098 void
1099 args_add_attach(PATMT **alpp, char *s, int deleted)
1100 {
1101 PATMT *atmp, **atmpp;
1102
1103 atmp = (PATMT *) fs_get(sizeof(PATMT));
1104 memset(atmp, 0, sizeof(PATMT));
1105 atmp->filename = cpystr(s);
1106
1107 #if defined(DOS) || defined(OS2)
1108 (void) removing_quotes(atmp->filename);
1109 #endif
1110
1111 if(deleted)
1112 atmp->flags |= A_TMP;
1113
1114 for(atmpp = alpp; *atmpp; atmpp = &(*atmpp)->next)
1115 ;
1116
1117 *atmpp = atmp;
1118 }
1119
1120
1121 /*----------------------------------------------------------------------
1122 print a few lines of help for command line arguments
1123
1124 Args: none
1125
1126 Result: prints help messages
1127 ----------------------------------------------------------------------*/
1128 void
1129 args_help(void)
1130 {
1131 char *pp[2];
1132 #ifndef _WINDOWS
1133 char **a;
1134 #endif
1135
1136 pp[1] = NULL;
1137
1138 /** print out possible starting arguments... **/
1139
1140 /*
1141 * display_args_err expects already translated input
1142 * so we need to translate a line at a time. Since
1143 * the 1st and 3rd args are zero it is ok to call it
1144 * a line at a time.
1145 *
1146 * Windows expects the full block of text so we'll pass
1147 * it as such.
1148 */
1149 #ifndef _WINDOWS
1150 for(a=args_pine_args; a && *a; a++){
1151 pp[0] = _(*a);
1152 display_args_err(NULL, pp, 0);
1153 }
1154 #else
1155 display_args_err(NULL, args_pine_args, 0);
1156 #endif
1157
1158 exit(1);
1159 }
1160
1161
1162 /*----------------------------------------------------------------------
1163 write argument error to the display...
1164
1165 Args: none
1166
1167 Result: prints help messages
1168 ----------------------------------------------------------------------*/
1169 void
1170 display_args_err(char *s, char **a, int err)
1171 {
1172 char errstr[256], *errp;
1173 FILE *fp = err ? stderr : stdout;
1174
1175
1176 if(err && s){
1177 snprintf(errp = errstr, sizeof(errstr), "%s: %s", _("Argument Error"), s);
1178 errstr[sizeof(errstr)-1] = '\0';
1179 }
1180 else
1181 errp = s;
1182
1183 #ifdef _WINDOWS
1184 if(errp)
1185 mswin_messagebox(errp, err);
1186
1187 if(a && *a){
1188 os_argsdialog(a);
1189 }
1190 #else
1191 if(errp)
1192 fprintf(fp, "%s\n", errp);
1193
1194 while(a && *a)
1195 fprintf(fp, "%s\n", *a++);
1196 #endif
1197 }
1198
1199
1200 /*
1201 * The argument is an argument from the command line. We check to see
1202 * if it is specifying an alternate value for one of the options that is
1203 * normally set in pinerc. If so, we return 1 and set the appropriate
1204 * values in the variables array.
1205 * The arg can be
1206 * varname=value
1207 * varname=value1,value2,value3
1208 * feature-list=featurename these are just a special
1209 * feature-list=featurename1,featurename2 case of above
1210 * featurename This is equivalent to above
1211 * no-featurename
1212 */
1213 int
1214 pinerc_cmdline_opt(char *arg)
1215 {
1216 struct variable *v;
1217 char *p1 = NULL,
1218 *value,
1219 **oldlvalue = NULL,
1220 **lvalue;
1221 int i, count;
1222
1223 if(!arg || !arg[0])
1224 return 0;
1225
1226 if((value = strchr(arg, '=')) != NULL){
1227 i = value - arg;
1228 arg[i] = '\0';
1229 }
1230 else
1231 i = -1;
1232
1233 for(v = ps_global->vars; v->name != NULL; v++){
1234 if(v->is_used && strucmp(v->name, arg) == 0){
1235 p1 = arg + strlen(v->name);
1236 if(i > 0) arg[i] = '=';
1237
1238 /*----- Skip to '=' -----*/
1239 while(*p1 && (*p1 == '\t' || *p1 == ' '))
1240 p1++;
1241
1242 if(*p1 != '='){
1243 char buf[MAILTMPLEN];
1244
1245 snprintf(buf, sizeof(buf), _("Missing \"=\" after -%s\n"), v->name);
1246 buf[sizeof(buf)-1] = '\0';
1247 exceptional_exit(buf, -1);
1248 }
1249
1250 p1++;
1251 break;
1252 }
1253 }
1254
1255
1256 if(i > 0) arg[i] = '=';
1257
1258 /* no match, check for a feature name used directly */
1259 if(v->name == NULL){
1260 FEATURE_S *feat;
1261 char *featname;
1262
1263 if(struncmp(arg, "no-", 3) == 0)
1264 featname = arg+3;
1265 else
1266 featname = arg;
1267
1268 for(i = 0; (feat = feature_list(i)) != NULL; i++){
1269 if(strucmp(featname, feat->name) == 0){
1270 v = &(ps_global->vars)[V_FEATURE_LIST];
1271 p1 = arg;
1272 break;
1273 }
1274 }
1275 }
1276
1277 if(!p1)
1278 return 0;
1279
1280 if(v->is_obsolete || !v->is_user){
1281 char buf[MAILTMPLEN];
1282
1283 if(v->is_obsolete)
1284 snprintf(buf, sizeof(buf), _("Option \"%s\" is obsolete\n"), v->name);
1285 else
1286 snprintf(buf, sizeof(buf), _("Option \"%s\" is not user settable\n"), v->name);
1287
1288 exceptional_exit(buf, -1);
1289 }
1290
1291 /* free mem */
1292 if(v->is_list){
1293 oldlvalue = v->cmdline_val.l;
1294 v->cmdline_val.l = NULL;
1295 }
1296 else if(v->cmdline_val.p)
1297 fs_give((void **) &(v->cmdline_val.p));
1298
1299 /*----- Matched a variable, get its value ----*/
1300 while(*p1 == ' ' || *p1 == '\t')
1301 p1++;
1302 value = p1;
1303
1304 if(*value == '\0'){
1305 if(v->is_list){
1306 v->cmdline_val.l = (char **)fs_get(2 * sizeof(char *));
1307 /*
1308 * we let people leave off the quotes on command line so that
1309 * they don't have to mess with shell quoting
1310 */
1311 v->cmdline_val.l[0] = cpystr("");
1312 v->cmdline_val.l[1] = NULL;
1313 if(oldlvalue)
1314 free_list_array(&oldlvalue);
1315
1316 }else{
1317 v->cmdline_val.p = cpystr("");
1318 }
1319 return 1;
1320 }
1321
1322 /*--value is non-empty--*/
1323 if(*value == '"' && !v->is_list){
1324 value++;
1325 for(p1 = value; *p1 && *p1 != '"'; p1++)
1326 ;
1327 if(*p1 == '"')
1328 *p1 = '\0';
1329 else
1330 removing_trailing_white_space(value);
1331 }else{
1332 removing_trailing_white_space(value);
1333 }
1334
1335 if(v->is_list){
1336 int was_quoted = 0;
1337 char *error = NULL;
1338
1339 count = 1;
1340 for(p1=value; *p1; p1++){ /* generous count of list elements */
1341 if(*p1 == '"') /* ignore ',' if quoted */
1342 was_quoted = (was_quoted) ? 0 : 1;
1343
1344 if(*p1 == ',' && !was_quoted)
1345 count++;
1346 }
1347
1348 lvalue = parse_list(value, count, 0, &error);
1349 if(error){
1350 char buf[MAILTMPLEN];
1351
1352 snprintf(buf, sizeof(buf), "%s in %s = \"%s\"\n", error, v->name, value);
1353 buf[sizeof(buf)-1] = '\0';
1354 exceptional_exit(buf, -1);
1355 }
1356 /*
1357 * Special case: turn "" strings into empty strings.
1358 * This allows users to turn off default lists. For example,
1359 * if smtp-server is set then a user could override smtp-server
1360 * with smtp-server="".
1361 */
1362 for(i = 0; lvalue[i]; i++)
1363 if(lvalue[i][0] == '"' &&
1364 lvalue[i][1] == '"' &&
1365 lvalue[i][2] == '\0')
1366 lvalue[i][0] = '\0';
1367 }
1368
1369 if(v->is_list){
1370 if(oldlvalue){
1371 char **combinedlvalue;
1372 int j;
1373
1374 /* combine old and new cmdline lists */
1375 for(count = 0, i = 0; oldlvalue[i]; i++, count++)
1376 ;
1377
1378 for(i = 0; lvalue && lvalue[i]; i++, count++)
1379 ;
1380
1381 combinedlvalue = (char **) fs_get((count+1) * sizeof(char *));
1382 memset(combinedlvalue, 0, (count+1) * sizeof(*combinedlvalue));
1383
1384 for(i = 0, j = 0; oldlvalue[i]; i++, j++)
1385 combinedlvalue[j] = cpystr(oldlvalue[i]);
1386
1387 for(i = 0; lvalue && lvalue[i]; i++, j++)
1388 combinedlvalue[j] = cpystr(lvalue[i]);
1389
1390 v->cmdline_val.l = combinedlvalue;
1391
1392 fs_give((void **) &oldlvalue);
1393 if(lvalue)
1394 fs_give((void **) &lvalue);
1395 }
1396 else
1397 v->cmdline_val.l = lvalue;
1398 }
1399 else
1400 v->cmdline_val.p = cpystr(value);
1401
1402 return 1;
1403 }
Alpine is a program to manage e-mail