client/adh-main.c

   1 /*
   2  * adh-main.c
   3  * - useful general-purpose resolver client program
   4  *   main program and useful subroutines
   5  */
   6 /*
   7  *  This file is
   8  *    Copyright (C) 1997-1999 Ian Jackson <ian@davenant.greenend.org.uk>
   9  *
  10  *  It is part of adns, which is
  11  *    Copyright (C) 1997-1999 Ian Jackson <ian@davenant.greenend.org.uk>
  12  *    Copyright (C) 1999 Tony Finch <dot@dotat.at>
  13  *
  14  *  This program is free software; you can redistribute it and/or modify
  15  *  it under the terms of the GNU General Public License as published by
  16  *  the Free Software Foundation; either version 2, or (at your option)
  17  *  any later version.
  18  *
  19  *  This program is distributed in the hope that it will be useful,
  20  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  21  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22  *  GNU General Public License for more details.
  23  *
  24  *  You should have received a copy of the GNU General Public License
  25  *  along with this program; if not, write to the Free Software Foundation,
  26  *  Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  27  */
  28
  29 #include "adnshost.h"
  30
  31 void sysfail(const char *what, int errnoval) {
  32   fprintf(stderr,"adnshost failed: %s: %s\n",what,strerror(errnoval));
  33   exit(10);
  34 }
  35
  36 void usageerr(const char *fmt, ...) {
  37   va_list al;
  38   fputs("adnshost usage error: ",stderr);
  39   va_start(al,fmt);
  40   vfprintf(stderr,fmt,al);
  41   va_end(al);
  42   putc('\n',stderr);
  43   exit(11);
  44 }
  45
  46 void outerr(void) {
  47   sysfail("write to stdout",errno);
  48 }
  49
  50 void *xmalloc(size_t sz) {
  51   void *p;
  52
  53   p= malloc(sz); if (!p) sysfail("malloc",sz);
  54   return p;
  55 }
  56
  57 char *xstrsave(const char *str) {
  58   char *p;
  59
  60   p= xmalloc(strlen(str)+1);
  61   strcpy(p,str);
  62   return p;
  63 }
  64
  65 void of_type(const struct optioninfo *oi, const char *arg) {
  66   static const struct typename {
  67     adns_rrtype type;
  68     const char *desc;
  69   } typenames[]= {
  70     /* enhanced versions */
  71     { adns_r_ns,     "ns"     },
  72     { adns_r_soa,    "soa"    },
  73     { adns_r_ptr,    "ptr"    },
  74     { adns_r_mx,     "mx"     },
  75     { adns_r_rp,     "rp"     },
  76     { adns_r_addr,   "addr"   },
  77
  78     /* types with only one version */
  79     { adns_r_cname,  "cname"  },
  80     { adns_r_hinfo,  "hinfo"  },
  81     { adns_r_txt,    "txt"    },
  82
  83     /* raw versions */
  84     { adns_r_a,        "a"    },
  85     { adns_r_ns_raw,   "ns-"  },
  86     { adns_r_soa_raw,  "soa-" },
  87     { adns_r_ptr_raw,  "ptr-" },
  88     { adns_r_mx_raw,   "mx-"  },
  89     { adns_r_rp_raw,   "rp-"  },
  90
  91     { adns_r_none, 0 }
  92   };
  93
  94   const struct typename *tnp;
  95
  96   for (tnp=typenames;
  97        tnp->type && strcmp(arg,tnp->desc);
  98        tnp++);
  99   if (!tnp->type) usageerr("unknown RR type %s",arg);
 100   ov_type= tnp->type;
 101 }
 102
 103 int rcode;
 104
 105 static void process_optarg(const char *arg,
 106                            const char *const **argv_p,
 107                            const char *value) {
 108   const struct optioninfo *oip;
 109   int invert;
 110
 111   if (arg[0] == '-' || arg[0] == '+') {
 112     if (arg[0] == '-' && arg[1] == '-') {
 113       if (!strncmp(arg,"--no-",5)) {
 114         invert= 1;
 115         oip= opt_findl(arg+5);
 116       } else {
 117         invert= 0;
 118         oip= opt_findl(arg+2);
 119       }
 120       if (oip->type == ot_funcarg) {
 121         arg= argv_p ? *++(*argv_p) : value;
 122         if (!arg) usageerr("option --%s requires a value argument",oip->lopt);
 123       } else {
 124         if (value) usageerr("option --%s does not take a value",oip->lopt);
 125         arg= 0;
 126       }
 127       opt_do(oip,arg,invert);
 128     } else if (arg[0] == '-' && arg[1] == 0) {
 129       arg= argv_p ? *++(*argv_p) : value;
 130       if (!arg) usageerr("option `-' must be followed by a domain");
 131       query_do(arg);
 132     } else { /* arg[1] != '-', != '\0' */
 133       invert= (arg[0] == '+');
 134       ++arg;
 135       while (*arg) {
 136         oip= opt_finds(&arg);
 137         if (oip->type == ot_funcarg) {
 138           if (!*arg) {
 139             arg= argv_p ? *++(*argv_p) : value;
 140             if (!arg) usageerr("option -%s requires a value argument",oip->sopt);
 141           } else {
 142             if (value) usageerr("two values for option -%s given !",oip->sopt);
 143           }
 144           opt_do(oip,arg,invert);
 145           arg= "";
 146         } else {
 147           if (value) usageerr("option -%s does not take a value",oip->sopt);
 148           opt_do(oip,0,invert);
 149         }
 150       }
 151     }
 152   } else { /* arg[0] != '-' */
 153     query_do(arg);
 154   }
 155 }
 156
 157 static void read_stdin(void) {
 158   static int used, avail;
 159   static char *buf;
 160
 161   int anydone, r;
 162   char *newline, *space;
 163
 164   anydone= 0;
 165   while (!anydone || used) {
 166     while (!(newline= memchr(buf,'\n',used))) {
 167       if (used == avail) {
 168         avail += 20; avail <<= 1;
 169         buf= realloc(buf,avail);
 170         if (!buf) sysfail("realloc stdin buffer",errno);
 171       }
 172       do {
 173         r= read(0,buf+used,avail-used);
 174       } while (r < 0 && errno == EINTR);
 175       if (r == 0) {
 176         if (used) {
 177           /* fake up final newline */
 178           buf[used++]= '\n';
 179           r= 1;
 180         } else {
 181           ov_pipe= 0;
 182           return;
 183         }
 184       }
 185       if (r < 0) sysfail("read stdin",errno);
 186       used += r;
 187     }
 188     *newline++= 0;
 189     space= strchr(buf,' ');
 190     if (space) *space++= 0;
 191     process_optarg(buf,0,space);
 192     used -= (newline-buf);
 193     memmove(buf,newline,used);
 194     anydone= 1;
 195   }
 196 }
 197
 198 int main(int argc, const char *const *argv) {
 199   struct timeval *tv, tvbuf;
 200   adns_query qu;
 201   void *qun_v;
 202   adns_answer *answer;
 203   int r, maxfd;
 204   fd_set readfds, writefds, exceptfds;
 205   const char *arg;
 206
 207   while ((arg= *++argv)) process_optarg(arg,&argv,0);
 208
 209   if (!ov_pipe && !ads) usageerr("no domains given, and -f/--pipe not used; try --help");
 210
 211   ensure_adns_init();
 212
 213   for (;;) {
 214     for (;;) {
 215       qu= ov_asynch ? 0 : outstanding.head ? outstanding.head->qu : 0;
 216       r= adns_check(ads,&qu,&answer,&qun_v);
 217       if (r == EAGAIN) break;
 218       if (r == ESRCH) { if (!ov_pipe) goto x_quit; else break; }
 219       assert(!r);
 220       query_done(qun_v,answer);
 221     }
 222     maxfd= 0;
 223     FD_ZERO(&readfds);
 224     FD_ZERO(&writefds);
 225     FD_ZERO(&exceptfds);
 226     if (ov_pipe) {
 227       maxfd= 1;
 228       FD_SET(0,&readfds);
 229     }
 230     tv= 0;
 231     adns_beforeselect(ads, &maxfd, &readfds,&writefds,&exceptfds, &tv,&tvbuf,0);
 232     r= select(maxfd, &readfds,&writefds,&exceptfds, tv);
 233     if (r == -1) {
 234       if (errno == EINTR) continue;
 235       sysfail("select",errno);
 236     }
 237     adns_afterselect(ads, maxfd, &readfds,&writefds,&exceptfds, 0);
 238     if (ov_pipe && FD_ISSET(0,&readfds)) read_stdin();
 239   }
 240 x_quit:
 241   if (fclose(stdout)) outerr();
 242   exit(rcode);
 243 }