Pileus Git - ~andy/fetchmail/blob - options.c

   1 /*
   2  * options.c -- command-line option processing
   3  *
   4  * Copyright 1998 by Eric S. Raymond.
   5  * For license terms, see the file COPYING in this directory.
   6  */
   7
   8 #include "config.h"
   9
  10 #include <stdio.h>
  11 #include <pwd.h>
  12 #include <string.h>
  13 #include <errno.h>
  14 #if defined(STDC_HEADERS)
  15 #include  <stdlib.h>
  16 #include  <limits.h>
  17 #else
  18 #include  <ctype.h>
  19 #endif
  20
  21 #include "getopt.h"
  22 #include "fetchmail.h"
  23 #include "i18n.h"
  24
  25 enum {
  26     LA_INVISIBLE = 256,
  27     LA_PIDFILE,
  28     LA_SYSLOG,
  29     LA_NOSYSLOG,
  30     LA_POSTMASTER,
  31     LA_NOBOUNCE,
  32     LA_AUTH,
  33     LA_FETCHDOMAINS,
  34     LA_BSMTP,
  35     LA_LMTP,
  36     LA_PLUGIN,
  37     LA_PLUGOUT,
  38     LA_CONFIGDUMP,
  39     LA_SMTPNAME,
  40     LA_SHOWDOTS,
  41     LA_PRINCIPAL,
  42     LA_TRACEPOLLS,
  43     LA_SSL,
  44     LA_SSLKEY,
  45     LA_SSLCERT,
  46     LA_SSLPROTO,
  47     LA_SSLCERTCK,
  48     LA_SSLCERTFILE,
  49     LA_SSLCERTPATH,
  50     LA_SSLCOMMONNAME,
  51     LA_SSLFINGERPRINT,
  52     LA_FETCHSIZELIMIT,
  53     LA_FASTUIDL,
  54     LA_LIMITFLUSH,
  55     LA_IDLE,
  56     LA_NOSOFTBOUNCE,
  57     LA_SOFTBOUNCE,
  58     LA_BADHEADER,
  59     LA_RETRIEVEERROR
  60 };
  61
  62 /* options still left: CgGhHjJoORTWxXYz */
  63 static const char *shortoptions =
  64         "?Vcsvd:NqL:f:i:p:UP:A:t:E:Q:u:akKFnl:r:S:Z:b:B:e:m:I:M:yw:D:";
  65
  66 static const struct option longoptions[] = {
  67 /* this can be const because all flag fields are 0 and will never get set */
  68   {"help",      no_argument,       (int *) 0, '?' },
  69   {"version",   no_argument,       (int *) 0, 'V' },
  70   {"check",     no_argument,       (int *) 0, 'c' },
  71   {"silent",    no_argument,       (int *) 0, 's' },
  72   {"verbose",   no_argument,       (int *) 0, 'v' },
  73   {"daemon",    required_argument, (int *) 0, 'd' },
  74   {"nodetach",  no_argument,       (int *) 0, 'N' },
  75   {"quit",      no_argument,       (int *) 0, 'q' },
  76   {"logfile",   required_argument, (int *) 0, 'L' },
  77   {"invisible", no_argument,       (int *) 0, LA_INVISIBLE },
  78   {"showdots",  no_argument,       (int *) 0, LA_SHOWDOTS },
  79   {"syslog",    no_argument,       (int *) 0, LA_SYSLOG },
  80   {"nosyslog",  no_argument,       (int *) 0, LA_NOSYSLOG },
  81   {"fetchmailrc",required_argument,(int *) 0, 'f' },
  82   {"idfile",    required_argument, (int *) 0, 'i' },
  83   {"pidfile",   required_argument, (int *) 0, LA_PIDFILE },
  84   {"postmaster",required_argument, (int *) 0, LA_POSTMASTER },
  85   {"nobounce",  no_argument,       (int *) 0, LA_NOBOUNCE },
  86   {"nosoftbounce", no_argument,    (int *) 0, LA_NOSOFTBOUNCE },
  87   {"softbounce", no_argument,      (int *) 0, LA_SOFTBOUNCE },
  88
  89   {"protocol",  required_argument, (int *) 0, 'p' },
  90   {"proto",     required_argument, (int *) 0, 'p' },
  91   {"uidl",      no_argument,       (int *) 0, 'U' },
  92   {"idle",      no_argument,       (int *) 0, LA_IDLE},
  93   {"port",      required_argument, (int *) 0, 'P' },
  94   {"service",   required_argument, (int *) 0, 'P' },
  95   {"auth",      required_argument, (int *) 0, LA_AUTH},
  96   {"timeout",   required_argument, (int *) 0, 't' },
  97   {"envelope",  required_argument, (int *) 0, 'E' },
  98   {"qvirtual",  required_argument, (int *) 0, 'Q' },
  99   {"bad-header",required_argument, (int *) 0, LA_BADHEADER},
 100
 101   {"user",      required_argument, (int *) 0, 'u' },
 102   {"username",  required_argument, (int *) 0, 'u' },
 103
 104   {"all",       no_argument,       (int *) 0, 'a' },
 105   {"fetchall",  no_argument,       (int *) 0, 'a' },
 106   {"nokeep",    no_argument,       (int *) 0, 'K' },
 107   {"keep",      no_argument,       (int *) 0, 'k' },
 108   {"flush",     no_argument,       (int *) 0, 'F' },
 109   {"limitflush",        no_argument, (int *) 0, LA_LIMITFLUSH },
 110   {"norewrite", no_argument,       (int *) 0, 'n' },
 111   {"limit",     required_argument, (int *) 0, 'l' },
 112   {"warnings",  required_argument, (int *) 0, 'w' },
 113   {"retrieve-error",    required_argument, (int *) 0, LA_RETRIEVEERROR },
 114
 115   {"folder",    required_argument, (int *) 0, 'r' },
 116   {"smtphost",  required_argument, (int *) 0, 'S' },
 117   {"fetchdomains",      required_argument, (int *) 0, LA_FETCHDOMAINS },
 118   {"smtpaddress", required_argument, (int *) 0, 'D' },
 119   {"smtpname",  required_argument, (int *) 0, LA_SMTPNAME },
 120   {"antispam",  required_argument, (int *) 0, 'Z' },
 121
 122   {"batchlimit",required_argument, (int *) 0, 'b' },
 123   {"fetchlimit",required_argument, (int *) 0, 'B' },
 124   {"fetchsizelimit",required_argument, (int *) 0, LA_FETCHSIZELIMIT },
 125   {"fastuidl",  required_argument, (int *) 0, LA_FASTUIDL },
 126   {"expunge",   required_argument, (int *) 0, 'e' },
 127   {"mda",       required_argument, (int *) 0, 'm' },
 128   {"bsmtp",     required_argument, (int *) 0, LA_BSMTP },
 129   {"lmtp",      no_argument,       (int *) 0, LA_LMTP },
 130
 131 #ifdef SSL_ENABLE
 132   {"ssl",       no_argument,       (int *) 0, LA_SSL },
 133   {"sslkey",    required_argument, (int *) 0, LA_SSLKEY },
 134   {"sslcert",   required_argument, (int *) 0, LA_SSLCERT },
 135   {"sslproto",   required_argument, (int *) 0, LA_SSLPROTO },
 136   {"sslcertck", no_argument,       (int *) 0, LA_SSLCERTCK },
 137   {"sslcertfile",   required_argument, (int *) 0, LA_SSLCERTFILE },
 138   {"sslcertpath",   required_argument, (int *) 0, LA_SSLCERTPATH },
 139   {"sslcommonname",    required_argument, (int *) 0, LA_SSLCOMMONNAME },
 140   {"sslfingerprint",   required_argument, (int *) 0, LA_SSLFINGERPRINT },
 141 #endif
 142
 143   {"principal", required_argument, (int *) 0, LA_PRINCIPAL },
 144
 145 #ifdef CAN_MONITOR
 146   {"interface", required_argument, (int *) 0, 'I' },
 147   {"monitor",   required_argument, (int *) 0, 'M' },
 148 #endif /* CAN_MONITOR */
 149   {"plugin",    required_argument, (int *) 0, LA_PLUGIN },
 150   {"plugout",   required_argument, (int *) 0, LA_PLUGOUT },
 151
 152   {"configdump",no_argument,       (int *) 0, LA_CONFIGDUMP },
 153
 154   {"yydebug",   no_argument,       (int *) 0, 'y' },
 155
 156   {"tracepolls",no_argument,       (int *) 0, LA_TRACEPOLLS },
 157
 158   {(char *) 0,  no_argument,       (int *) 0, 0 }
 159 };
 160
 161 static int xatoi(char *s, int *errflagptr)
 162 /* do safe conversion from string to number */
 163 {
 164 #if defined (STDC_HEADERS) && defined (LONG_MAX) && defined (INT_MAX)
 165     /* parse and convert numbers, but also check for invalid characters in
 166      * numbers
 167      */
 168
 169     char *endptr;
 170     long value;
 171
 172     errno = 0;
 173
 174     value = strtol(s, &endptr, 0);
 175
 176     /* any invalid chars in string? */
 177     if ( (endptr == s) || (*endptr != '\0') ) {
 178         (void) fprintf(stderr, GT_("String '%s' is not a valid number string.\n"), s);
 179         (*errflagptr)++;
 180         return 0;
 181     }
 182
 183     /* is the range valid? */
 184     if ( (((value == LONG_MAX) || (value == LONG_MIN)) && (errno == ERANGE)) ||
 185                                 (value > INT_MAX) || (value < INT_MIN)) {
 186
 187         (void) fprintf(stderr, GT_("Value of string '%s' is %s than %d.\n"), s,
 188                                         (value < 0) ? GT_("smaller"): GT_("larger"),
 189                                         (value < 0) ? INT_MIN : INT_MAX);
 190         (*errflagptr)++;
 191         return 0;
 192     }
 193
 194     return (int) value;  /* shut up, I know what I'm doing */
 195 #else
 196     int i;
 197     char *dp;
 198 # if defined (STDC_HEADERS)
 199     size_t      len;
 200 # else
 201     int         len;
 202 # endif
 203
 204     /* We do only base 10 conversions here (atoi)! */
 205
 206     len = strlen(s);
 207     /* check for leading white spaces */
 208     for (i = 0; (i < len) && isspace((unsigned char)s[i]); i++)
 209         ;
 210
 211     dp = &s[i];
 212
 213     /* check for +/- */
 214     if (i < len && (s[i] == '+' || s[i] == '-'))        i++;
 215
 216     /* skip over digits */
 217     for ( /* no init */ ; (i < len) && isdigit((unsigned char)s[i]); i++)
 218         ;
 219
 220     /* check for trailing garbage */
 221     if (i != len) {
 222         (void) fprintf(stderr, GT_("String '%s' is not a valid number string.\n"), s);
 223         (*errflagptr)++;
 224         return 0;
 225     }
 226
 227     /* atoi should be safe by now, except for number range over/underflow */
 228     return atoi(dp);
 229 #endif
 230 }
 231
 232 /** parse and validate the command line options */
 233 int parsecmdline (int argc /** argument count */,
 234                   char **argv /** argument strings */,
 235                   struct runctl *rctl /** global run controls to modify */,
 236                   struct query *ctl /** option record to initialize */)
 237 {
 238     /*
 239      * return value: if positive, argv index of last parsed option + 1
 240      * (presumes one or more server names follows).  if zero, the
 241      * command line switches are such that no server names are
 242      * required (e.g. --version).  if negative, the command line is
 243      * has one or more syntax errors.
 244      */
 245
 246     int c;
 247     int ocount = 0;     /* count of destinations specified */
 248     int errflag = 0;    /* TRUE when a syntax error is detected */
 249     int helpflag = 0;   /* TRUE when option help was explicitly requested */
 250     int option_index;
 251     char *buf, *cp;
 252
 253     rctl->poll_interval = -1;
 254
 255     memset(ctl, '\0', sizeof(struct query));    /* start clean */
 256     ctl->smtp_socket = -1;
 257
 258     while (!errflag &&
 259            (c = getopt_long(argc,argv,shortoptions,
 260                             longoptions, &option_index)) != -1)
 261     {
 262         switch (c) {
 263         case 'V':
 264             versioninfo = TRUE;
 265             break;
 266         case 'c':
 267             check_only = TRUE;
 268             break;
 269         case 's':
 270             outlevel = O_SILENT;
 271             break;
 272         case 'v':
 273             if (outlevel >= O_VERBOSE)
 274                 outlevel = O_DEBUG;
 275             else
 276                 outlevel = O_VERBOSE;
 277             break;
 278         case 'd':
 279             rctl->poll_interval = xatoi(optarg, &errflag);
 280             break;
 281         case 'N':
 282             nodetach = TRUE;
 283             break;
 284         case 'q':
 285             quitmode = TRUE;
 286             quitind = optind;
 287             break;
 288         case 'L':
 289             rctl->logfile = prependdir (optarg, currentwd);
 290             break;
 291         case LA_INVISIBLE:
 292             rctl->invisible = FLAG_TRUE;
 293             break;
 294         case LA_SHOWDOTS:
 295             rctl->showdots = FLAG_TRUE;
 296             break;
 297         case 'f':
 298             xfree(rcfile);
 299             rcfile = prependdir (optarg, currentwd);
 300             break;
 301         case 'i':
 302             rctl->idfile = prependdir (optarg, currentwd);
 303             break;
 304         case LA_PIDFILE:
 305             rctl->pidfile = prependdir (optarg, currentwd);
 306             break;
 307         case LA_POSTMASTER:
 308             rctl->postmaster = (char *) xstrdup(optarg);
 309             break;
 310         case LA_NOBOUNCE:
 311             rctl->bouncemail = FLAG_FALSE;
 312             break;
 313         case LA_NOSOFTBOUNCE:
 314             rctl->softbounce = FLAG_FALSE;
 315             break;
 316         case LA_SOFTBOUNCE:
 317             rctl->softbounce = FLAG_TRUE;
 318             break;
 319         case LA_BADHEADER:
 320             if (strcasecmp(optarg,"accept") == 0) {
 321                 ctl->server.badheader = BHACCEPT;
 322             } else if (strcasecmp(optarg,"reject") == 0) {
 323                 ctl->server.badheader = BHREJECT;
 324             } else {
 325                 fprintf(stderr,GT_("Invalid bad-header policy `%s' specified.\n"), optarg);
 326                 errflag++;
 327             }
 328             break;
 329
 330         case 'p':
 331             /* XXX -- should probably use a table lookup here */
 332             if (strcasecmp(optarg,"auto") == 0)
 333                 ctl->server.protocol = P_AUTO;
 334             else if (strcasecmp(optarg,"pop2") == 0)
 335                 ctl->server.protocol = P_POP2;
 336 #ifdef SDPS_ENABLE
 337             else if (strcasecmp(optarg,"sdps") == 0)
 338             {
 339                 ctl->server.protocol = P_POP3;
 340                 ctl->server.sdps = TRUE;
 341             }
 342 #endif /* SDPS_ENABLE */
 343             else if (strcasecmp(optarg,"pop3") == 0)
 344                 ctl->server.protocol = P_POP3;
 345             else if (strcasecmp(optarg,"apop") == 0)
 346                 ctl->server.protocol = P_APOP;
 347             else if (strcasecmp(optarg,"rpop") == 0)
 348                 ctl->server.protocol = P_RPOP;
 349             else if (strcasecmp(optarg,"kpop") == 0)
 350             {
 351                 ctl->server.protocol = P_POP3;
 352                 ctl->server.service = KPOP_PORT;
 353 #ifdef KERBEROS_V5
 354                 ctl->server.authenticate =  A_KERBEROS_V5;
 355 #else
 356                 ctl->server.authenticate =  A_KERBEROS_V4;
 357 #endif /* KERBEROS_V5 */
 358             }
 359             else if (strcasecmp(optarg,"imap") == 0)
 360                 ctl->server.protocol = P_IMAP;
 361             else if (strcasecmp(optarg,"etrn") == 0)
 362                 ctl->server.protocol = P_ETRN;
 363             else if (strcasecmp(optarg,"odmr") == 0)
 364                 ctl->server.protocol = P_ODMR;
 365             else {
 366                 fprintf(stderr,GT_("Invalid protocol `%s' specified.\n"), optarg);
 367                 errflag++;
 368             }
 369             break;
 370         case 'U':
 371             ctl->server.uidl = FLAG_TRUE;
 372             break;
 373         case LA_IDLE:
 374             ctl->idle = FLAG_TRUE;
 375             break;
 376         case 'P':
 377             ctl->server.service = optarg;
 378             break;
 379         case LA_AUTH:
 380             if (strcmp(optarg, "password") == 0)
 381                 ctl->server.authenticate = A_PASSWORD;
 382             else if (strcmp(optarg, "kerberos") == 0)
 383 #ifdef KERBEROS_V5
 384                 ctl->server.authenticate = A_KERBEROS_V5;
 385 #else
 386                 ctl->server.authenticate = A_KERBEROS_V4;
 387 #endif /* KERBEROS_V5 */
 388             else if (strcmp(optarg, "kerberos_v5") == 0)
 389                 ctl->server.authenticate = A_KERBEROS_V5;
 390             else if (strcmp(optarg, "kerberos_v4") == 0)
 391                 ctl->server.authenticate = A_KERBEROS_V4;
 392             else if (strcmp(optarg, "ssh") == 0)
 393                 ctl->server.authenticate = A_SSH;
 394             else if (strcasecmp(optarg, "external") == 0)
 395                 ctl->server.authenticate = A_EXTERNAL;
 396             else if (strcmp(optarg, "otp") == 0)
 397                 ctl->server.authenticate = A_OTP;
 398             else if (strcmp(optarg, "opie") == 0)
 399                 ctl->server.authenticate = A_OTP;
 400             else if (strcmp(optarg, "ntlm") == 0)
 401                 ctl->server.authenticate = A_NTLM;
 402             else if (strcmp(optarg, "cram") == 0)
 403                 ctl->server.authenticate = A_CRAM_MD5;
 404             else if (strcmp(optarg, "cram-md5") == 0)
 405                 ctl->server.authenticate = A_CRAM_MD5;
 406             else if (strcmp(optarg, "gssapi") == 0)
 407                 ctl->server.authenticate = A_GSSAPI;
 408             else if (strcmp(optarg, "any") == 0)
 409                 ctl->server.authenticate = A_ANY;
 410             else if (strcmp(optarg, "msn") == 0)
 411                 ctl->server.authenticate = A_MSN;
 412             else {
 413                 fprintf(stderr,GT_("Invalid authentication `%s' specified.\n"), optarg);
 414                 errflag++;
 415             }
 416             break;
 417         case 't':
 418             ctl->server.timeout = xatoi(optarg, &errflag);
 419             if (ctl->server.timeout == 0)
 420                 ctl->server.timeout = -1;
 421             break;
 422         case 'E':
 423             ctl->server.envelope = xstrdup(optarg);
 424             break;
 425         case 'Q':
 426             ctl->server.qvirtual = xstrdup(optarg);
 427             break;
 428
 429         case 'u':
 430             ctl->remotename = xstrdup(optarg);
 431             break;
 432         case 'a':
 433             ctl->fetchall = FLAG_TRUE;
 434             break;
 435         case 'K':
 436             ctl->keep = FLAG_FALSE;
 437             break;
 438         case 'k':
 439             ctl->keep = FLAG_TRUE;
 440             break;
 441         case 'F':
 442             ctl->flush = FLAG_TRUE;
 443             break;
 444         case LA_LIMITFLUSH:
 445             ctl->limitflush = FLAG_TRUE;
 446             break;
 447         case 'n':
 448             ctl->rewrite = FLAG_FALSE;
 449             break;
 450         case 'l':
 451             c = xatoi(optarg, &errflag);
 452             ctl->limit = NUM_VALUE_IN(c);
 453             break;
 454         case 'r':
 455             buf = xstrdup(optarg);
 456             cp = strtok(buf, ",");
 457             do {
 458                 save_str(&ctl->mailboxes, cp, 0);
 459             } while
 460                 ((cp = strtok((char *)NULL, ",")));
 461             free(buf);
 462             break;
 463         case 'S':
 464             buf = xstrdup(optarg);
 465             cp = strtok(buf, ",");
 466             do {
 467                 save_str(&ctl->smtphunt, cp, TRUE);
 468             } while
 469                 ((cp = strtok((char *)NULL, ",")));
 470             free(buf);
 471             ocount++;
 472             break;
 473         case LA_FETCHDOMAINS:
 474             buf = xstrdup(optarg);
 475             cp = strtok(buf, ",");
 476             do {
 477                 save_str(&ctl->domainlist, cp, TRUE);
 478             } while
 479                 ((cp = strtok((char *)NULL, ",")));
 480             free(buf);
 481             break;
 482         case 'D':
 483             ctl->smtpaddress = xstrdup(optarg);
 484             break;
 485         case LA_SMTPNAME:
 486           ctl->smtpname = xstrdup(optarg);
 487           break;
 488         case 'Z':
 489             buf = xstrdup(optarg);
 490             cp = strtok(buf, ",");
 491             do {
 492                 struct idlist   *idp = save_str(&ctl->antispam, NULL, 0);;
 493
 494                 idp->val.status.num = xatoi(cp, &errflag);
 495             } while
 496                 ((cp = strtok((char *)NULL, ",")));
 497             free(buf);
 498             break;
 499         case 'b':
 500             c = xatoi(optarg, &errflag);
 501             ctl->batchlimit = NUM_VALUE_IN(c);
 502             break;
 503         case 'B':
 504             c = xatoi(optarg, &errflag);
 505             ctl->fetchlimit = NUM_VALUE_IN(c);
 506             break;
 507         case LA_FETCHSIZELIMIT:
 508             c = xatoi(optarg, &errflag);
 509             ctl->fetchsizelimit = NUM_VALUE_IN(c);
 510             break;
 511         case LA_FASTUIDL:
 512             c = xatoi(optarg, &errflag);
 513             ctl->fastuidl = NUM_VALUE_IN(c);
 514             break;
 515         case 'e':
 516             c = xatoi(optarg, &errflag);
 517             ctl->expunge = NUM_VALUE_IN(c);
 518             break;
 519         case 'm':
 520             ctl->mda = xstrdup(optarg);
 521             ocount++;
 522             break;
 523         case LA_BSMTP:
 524             ctl->bsmtp = prependdir (optarg, currentwd);
 525             ocount++;
 526             break;
 527         case LA_LMTP:
 528             ctl->listener = LMTP_MODE;
 529             break;
 530
 531 #ifdef CAN_MONITOR
 532         case 'I':
 533             interface_parse(optarg, &ctl->server);
 534             break;
 535         case 'M':
 536             ctl->server.monitor = xstrdup(optarg);
 537             break;
 538 #endif /* CAN_MONITOR */
 539         case LA_PLUGIN:
 540             ctl->server.plugin = xstrdup(optarg);
 541             break;
 542         case LA_PLUGOUT:
 543             ctl->server.plugout = xstrdup(optarg);
 544             break;
 545
 546 #ifdef SSL_ENABLE
 547         case LA_SSL:
 548             ctl->use_ssl = FLAG_TRUE;
 549             break;
 550
 551         case LA_SSLKEY:
 552             ctl->sslkey = prependdir (optarg, currentwd);
 553             break;
 554
 555         case LA_SSLCERT:
 556             ctl->sslcert = prependdir (optarg, currentwd);
 557             break;
 558
 559         case LA_SSLPROTO:
 560             ctl->sslproto = xstrdup(optarg);
 561             break;
 562
 563         case LA_SSLCERTCK:
 564             ctl->sslcertck = FLAG_TRUE;
 565             break;
 566
 567         case LA_SSLCERTFILE:
 568             ctl->sslcertfile = prependdir(optarg, currentwd);
 569             break;
 570
 571         case LA_SSLCERTPATH:
 572             ctl->sslcertpath = prependdir(optarg, currentwd);
 573             break;
 574
 575         case LA_SSLCOMMONNAME:
 576             ctl->sslcommonname = xstrdup(optarg);
 577             break;
 578
 579         case LA_SSLFINGERPRINT:
 580             ctl->sslfingerprint = xstrdup(optarg);
 581             break;
 582 #endif
 583
 584         case LA_PRINCIPAL:
 585             ctl->server.principal = xstrdup(optarg);
 586             break;
 587
 588         case 'y':
 589             yydebug = TRUE;
 590             break;
 591
 592         case 'w':
 593             c = xatoi(optarg, &errflag);
 594             ctl->warnings = NUM_VALUE_IN(c);
 595             break;
 596
 597         case LA_CONFIGDUMP:
 598             configdump = TRUE;
 599             break;
 600
 601         case LA_SYSLOG:
 602             rctl->use_syslog = FLAG_TRUE;
 603             break;
 604
 605         case LA_NOSYSLOG:
 606             rctl->use_syslog = FLAG_FALSE;
 607             break;
 608
 609         case LA_TRACEPOLLS:
 610             ctl->server.tracepolls = FLAG_TRUE;
 611             break;
 612
 613         case LA_RETRIEVEERROR:
 614             if (strcasecmp(optarg,"abort") == 0) {
 615                 ctl->server.retrieveerror = RE_ABORT;
 616             } else if (strcasecmp(optarg,"continue") == 0) {
 617                 ctl->server.retrieveerror = RE_CONTINUE;
 618             } else if (strcasecmp(optarg,"markseen") == 0) {
 619                 ctl->server.retrieveerror = RE_MARKSEEN;
 620             } else {
 621                 fprintf(stderr,GT_("Invalid retrieve-error policy `%s' specified.\n"), optarg);
 622                 errflag++;
 623             }
 624             break;
 625
 626         case '?':
 627         default:
 628             helpflag++;
 629         }
 630     }
 631
 632     if (errflag || ocount > 1 || helpflag) {
 633         /* squawk if syntax errors were detected */
 634 #define P(s)    fputs(s, helpflag ? stdout : stderr)
 635         P(GT_("usage:  fetchmail [options] [server ...]\n"));
 636         P(GT_("  Options are as follows:\n"));
 637         P(GT_("  -?, --help        display this option help\n"));
 638         P(GT_("  -V, --version     display version info\n"));
 639
 640         P(GT_("  -c, --check       check for messages without fetching\n"));
 641         P(GT_("  -s, --silent      work silently\n"));
 642         P(GT_("  -v, --verbose     work noisily (diagnostic output)\n"));
 643         P(GT_("  -d, --daemon      run as a daemon once per n seconds\n"));
 644         P(GT_("  -N, --nodetach    don't detach daemon process\n"));
 645         P(GT_("  -q, --quit        kill daemon process\n"));
 646         P(GT_("  -L, --logfile     specify logfile name\n"));
 647         P(GT_("      --syslog      use syslog(3) for most messages when running as a daemon\n"));
 648         P(GT_("      --invisible   don't write Received & enable host spoofing\n"));
 649         P(GT_("  -f, --fetchmailrc specify alternate run control file\n"));
 650         P(GT_("  -i, --idfile      specify alternate UIDs file\n"));
 651         P(GT_("      --pidfile     specify alternate PID (lock) file\n"));
 652         P(GT_("      --postmaster  specify recipient of last resort\n"));
 653         P(GT_("      --nobounce    redirect bounces from user to postmaster.\n"));
 654         P(GT_("      --nosoftbounce fetchmail deletes permanently undeliverable messages.\n"));
 655         P(GT_("      --softbounce  keep permanently undeliverable messages on server (default).\n"));
 656 #ifdef CAN_MONITOR
 657         P(GT_("  -I, --interface   interface required specification\n"));
 658         P(GT_("  -M, --monitor     monitor interface for activity\n"));
 659 #endif
 660 #if defined( SSL_ENABLE )
 661         P(GT_("      --ssl         enable ssl encrypted session\n"));
 662         P(GT_("      --sslkey      ssl private key file\n"));
 663         P(GT_("      --sslcert     ssl client certificate\n"));
 664         P(GT_("      --sslcertck   do strict server certificate check (recommended)\n"));
 665         P(GT_("      --sslcertfile path to trusted-CA ssl certificate file\n"));
 666         P(GT_("      --sslcertpath path to trusted-CA ssl certificate directory\n"));
 667         P(GT_("      --sslcommonname  expect this CommonName from server (discouraged)\n"));
 668         P(GT_("      --sslfingerprint fingerprint that must match that of the server's cert.\n"));
 669         P(GT_("      --sslproto    force ssl protocol (SSL2/SSL3/TLS1)\n"));
 670 #endif
 671         P(GT_("      --plugin      specify external command to open connection\n"));
 672         P(GT_("      --plugout     specify external command to open smtp connection\n"));
 673         P(GT_("      --bad-header {reject|accept}\n"
 674               "                    specify policy for handling messages with bad headers\n"));
 675         P(GT_("      --retrieve-error {abort|continue|markseen}\n"
 676               "                        specify policy for processing messages with retrieve errors\n"));
 677
 678         P(GT_("  -p, --protocol    specify retrieval protocol (see man page)\n"));
 679         P(GT_("  -U, --uidl        force the use of UIDLs (pop3 only)\n"));
 680         P(GT_("      --port        TCP port to connect to (obsolete, use --service)\n"));
 681         P(GT_("  -P, --service     TCP service to connect to (can be numeric TCP port)\n"));
 682         P(GT_("      --auth        authentication type (password/kerberos/ssh/otp)\n"));
 683         P(GT_("  -t, --timeout     server nonresponse timeout\n"));
 684         P(GT_("  -E, --envelope    envelope address header\n"));
 685         P(GT_("  -Q, --qvirtual    prefix to remove from local user id\n"));
 686         P(GT_("      --principal   mail service principal\n"));
 687         P(GT_("      --tracepolls  add poll-tracing information to Received header\n"));
 688
 689         P(GT_("  -u, --username    specify users's login on server\n"));
 690         P(GT_("  -a, --[fetch]all  retrieve old and new messages\n"));
 691         P(GT_("  -K, --nokeep      delete new messages after retrieval\n"));
 692         P(GT_("  -k, --keep        save new messages after retrieval\n"));
 693         P(GT_("  -F, --flush       delete old messages from server\n"));
 694         P(GT_("      --limitflush  delete oversized messages\n"));
 695         P(GT_("  -n, --norewrite   don't rewrite header addresses\n"));
 696         P(GT_("  -l, --limit       don't fetch messages over given size\n"));
 697         P(GT_("  -w, --warnings    interval between warning mail notification\n"));
 698
 699         P(GT_("  -S, --smtphost    set SMTP forwarding host\n"));
 700         P(GT_("      --fetchdomains fetch mail for specified domains\n"));
 701         P(GT_("  -D, --smtpaddress set SMTP delivery domain to use\n"));
 702         P(GT_("      --smtpname    set SMTP full name username@domain\n"));
 703         P(GT_("  -Z, --antispam,   set antispam response values\n"));
 704         P(GT_("  -b, --batchlimit  set batch limit for SMTP connections\n"));
 705         P(GT_("  -B, --fetchlimit  set fetch limit for server connections\n"));
 706         P(GT_("      --fetchsizelimit set fetch message size limit\n"));
 707         P(GT_("      --fastuidl    do a binary search for UIDLs\n"));
 708         P(GT_("  -e, --expunge     set max deletions between expunges\n"));
 709         P(GT_("  -m, --mda         set MDA to use for forwarding\n"));
 710         P(GT_("      --bsmtp       set output BSMTP file\n"));
 711         P(GT_("      --lmtp        use LMTP (RFC2033) for delivery\n"));
 712         P(GT_("  -r, --folder      specify remote folder name\n"));
 713         P(GT_("      --showdots    show progress dots even in logfiles\n"));
 714 #undef P
 715         /* undocumented:
 716          * --configdump (internal use by fetchmailconf, dumps
 717          *               configuration as Python source code)
 718          * --yydebug    (developer use, enables parser debugging) */
 719
 720         if (helpflag)
 721             exit(PS_SUCCESS);
 722         else
 723             exit(PS_SYNTAX);
 724     }
 725
 726     return(optind);
 727 }
 728
 729 /* options.c ends here */