From fd8826c89296a391a299790765e70e0cc324199b Mon Sep 17 00:00:00 2001 From: David van Moolenbroek Date: Tue, 14 Feb 2017 17:55:19 +0000 Subject: [PATCH] Retire MINIX host(1) Change-Id: I19d2e866d6d397d3bff9ba698cb8ec26267ee82c --- distrib/sets/lists/minix-base/mi | 2 +- distrib/sets/lists/minix-debug/mi | 2 +- distrib/sets/lists/minix-man/mi | 2 +- minix/commands/Makefile | 2 +- minix/commands/host/Makefile | 3 - minix/commands/host/host.1 | 206 ----- minix/commands/host/host.c | 1381 ----------------------------- 7 files changed, 4 insertions(+), 1594 deletions(-) delete mode 100644 minix/commands/host/Makefile delete mode 100644 minix/commands/host/host.1 delete mode 100644 minix/commands/host/host.c diff --git a/distrib/sets/lists/minix-base/mi b/distrib/sets/lists/minix-base/mi index 65f5a8555..028f6f77d 100644 --- a/distrib/sets/lists/minix-base/mi +++ b/distrib/sets/lists/minix-base/mi @@ -373,7 +373,7 @@ ./usr/bin/gzip minix-base ./usr/bin/head minix-base ./usr/bin/hexdump minix-base -./usr/bin/host minix-base +./usr/bin/host minix-base obsolete ./usr/bin/hostaddr minix-base obsolete ./usr/bin/id minix-base ./usr/bin/ifconfig minix-base obsolete diff --git a/distrib/sets/lists/minix-debug/mi b/distrib/sets/lists/minix-debug/mi index ddaf06aa9..52b3ce0fb 100644 --- a/distrib/sets/lists/minix-debug/mi +++ b/distrib/sets/lists/minix-debug/mi @@ -291,7 +291,7 @@ ./usr/libdata/debug/usr/bin/gzip.debug minix-debug debug ./usr/libdata/debug/usr/bin/head.debug minix-debug debug ./usr/libdata/debug/usr/bin/hexdump.debug minix-debug debug -./usr/libdata/debug/usr/bin/host.debug minix-debug debug +./usr/libdata/debug/usr/bin/host.debug minix-debug debug,obsolete ./usr/libdata/debug/usr/bin/hostaddr.debug minix-debug debug,obsolete ./usr/libdata/debug/usr/bin/id.debug minix-debug debug ./usr/libdata/debug/usr/bin/ifconfig.debug minix-debug debug,obsolete diff --git a/distrib/sets/lists/minix-man/mi b/distrib/sets/lists/minix-man/mi index 22892fd3d..0c66256ee 100644 --- a/distrib/sets/lists/minix-man/mi +++ b/distrib/sets/lists/minix-man/mi @@ -139,7 +139,7 @@ ./usr/man/man1/head.1 minix-man ./usr/man/man1/hexdump.1 minix-man ./usr/man/man1/history.1 minix-man -./usr/man/man1/host.1 minix-man +./usr/man/man1/host.1 minix-man obsolete ./usr/man/man1/hostaddr.1 minix-man obsolete ./usr/man/man1/hostname.1 minix-man ./usr/man/man1/id.1 minix-man diff --git a/minix/commands/Makefile b/minix/commands/Makefile index 00dd3b8ba..c729c52a4 100644 --- a/minix/commands/Makefile +++ b/minix/commands/Makefile @@ -10,7 +10,7 @@ SUBDIR= arp at backup \ dhrystone \ eject \ fix format fsck.mfs \ - gcov-pull host \ + gcov-pull \ ifdef \ intr irdpd isoread \ loadkeys loadramdisk logger look lp \ diff --git a/minix/commands/host/Makefile b/minix/commands/host/Makefile deleted file mode 100644 index c8a2abcf9..000000000 --- a/minix/commands/host/Makefile +++ /dev/null @@ -1,3 +0,0 @@ -PROG= host - -.include diff --git a/minix/commands/host/host.1 b/minix/commands/host/host.1 deleted file mode 100644 index 5bf1c6382..000000000 --- a/minix/commands/host/host.1 +++ /dev/null @@ -1,206 +0,0 @@ -.\" ++Copyright++ 1993 -.\" - -.\" Copyright (c) 1993 -.\" The Regents of the University of California. All rights reserved. -.\" -.\" Redistribution and use in source and binary forms, with or without -.\" modification, are permitted provided that the following conditions -.\" are met: -.\" 1. Redistributions of source code must retain the above copyright -.\" notice, this list of conditions and the following disclaimer. -.\" 2. Redistributions in binary form must reproduce the above copyright -.\" notice, this list of conditions and the following disclaimer in the -.\" documentation and/or other materials provided with the distribution. -.\" 3. All advertising materials mentioning features or use of this software -.\" must display the following acknowledgement: -.\" This product includes software developed by the University of -.\" California, Berkeley and its contributors. -.\" 4. Neither the name of the University nor the names of its contributors -.\" may be used to endorse or promote products derived from this software -.\" without specific prior written permission. -.\" -.\" THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND -.\" ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -.\" IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -.\" ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE -.\" FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -.\" DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS -.\" OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) -.\" HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT -.\" LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY -.\" OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF -.\" SUCH DAMAGE. -.\" - -.\" Portions Copyright (c) 1993 by Digital Equipment Corporation. -.\" -.\" Permission to use, copy, modify, and distribute this software for any -.\" purpose with or without fee is hereby granted, provided that the above -.\" copyright notice and this permission notice appear in all copies, and that -.\" the name of Digital Equipment Corporation not be used in advertising or -.\" publicity pertaining to distribution of the document or software without -.\" specific, written prior permission. -.\" -.\" THE SOFTWARE IS PROVIDED "AS IS" AND DIGITAL EQUIPMENT CORP. DISCLAIMS ALL -.\" WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES -.\" OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL DIGITAL EQUIPMENT -.\" CORPORATION BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL -.\" DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR -.\" PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS -.\" ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS -.\" SOFTWARE. -.\" - -.\" --Copyright-- -.TH HOST 1 -.SH NAME -host \- look up host names using domain server -.SH SYNOPSIS -host [-l] [-v] [-w] [-r] [-d] [-t querytype] [-a] host [ server ] -.SH DESCRIPTION -.I Host -looks for information about Internet hosts. It gets this information -from a set of interconnected servers that are spread across the -country. By default, it simply converts between host names and -Internet addresses. However with the -t or -a options, it can be used -to find all of the information about this host that is maintained -by the domain server. -.PP -The arguments can be either host names or host numbers. The program -first attempts to interpret them as host numbers. If this fails, -it will treat them as host names. A host number consists of -first decimal numbers separated by dots, e.g. 128.6.4.194 -A host name -consists of names separated by dots, e.g. topaz.rutgers.edu. -Unless the name ends in a dot, the local domain -is automatically tacked on the end. Thus a Rutgers user can say -"host topaz", and it will actually look up "topaz.rutgers.edu". -If this fails, the name is tried unchanged (in this case, "topaz"). -This same convention is used for mail and other network utilities. -The actual suffix to tack on the end is obtained -by looking at the results of a "hostname" call, and using everything -starting at the first dot. (See below for a description of -how to customize the host name lookup.) -.PP -The first argument is the host name you want to look up. -If this is a number, an "inverse query" is done, i.e. the domain -system looks in a separate set of databases used to convert numbers -to names. -.PP -The second argument is optional. It -allows you to specify a particular server to query. If you don't -specify this argument, the default server (normally the local machine) -is used. -.PP -If a name is specified, you may see output of three different kinds. -Here is an example that shows all of them: -.br - % host sun4 -.br - sun4.rutgers.edu is a nickname for ATHOS.RUTGERS.EDU -.br - ATHOS.RUTGERS.EDU has address 128.6.5.46 -.br - ATHOS.RUTGERS.EDU has address 128.6.4.4 -.br - ATHOS.RUTGERS.EDU mail is handled by ARAMIS.RUTGERS.EDU -.br -The user has typed the command "host sun4". The first line indicates -that the name "sun4.rutgers.edu" is actually a nickname. The official -host name is "ATHOS.RUTGERS.EDU'. The next two lines show the -address. If a system has more than one network interface, there -will be a separate address for each. The last line indicates -that ATHOS.RUTGERS.EDU does not receive its own mail. Mail for -it is taken by ARAMIS.RUTGERS.EDU. There may be more than one -such line, since some systems have more than one other system -that will handle mail for them. Technically, every system that -can receive mail is supposed to have an entry of this kind. If -the system receives its own mail, there should be an entry -the mentions the system itself, for example -"XXX mail is handled by XXX". However many systems that receive -their own mail do not bother to mention that fact. If a system -has a "mail is handled by" entry, but no address, this indicates -that it is not really part of the Internet, but a system that is -on the network will forward mail to it. Systems on Usenet, Bitnet, -and a number of other networks have entries of this kind. -.PP -There are a number of options that can be used before the -host name. Most of these options are meaningful only to the -staff who have to maintain the domain database. -.PP -The option -w causes host to wait forever for a response. Normally -it will time out after around a minute. -.PP -The option -v causes printout to be in a "verbose" format. This -is the official domain master file format, which is documented -in the man page for "named". Without this option, output still follows -this format in general terms, but some attempt is made to make it -more intelligible to normal users. Without -v, -"a", "mx", and "cname" records -are written out as "has address", "mail is handled by", and -"is a nickname for", and TTL and class fields are not shown. -.PP -The option -r causes recursion to be turned off in the request. -This means that the name server will return only data it has in -its own database. It will not ask other servers for more -information. -.PP -The option -d turns on debugging. Network transactions are shown -in detail. -.PP -The option -t allows you to specify a particular type of information -to be looked up. The arguments are defined in the man page for -"named". Currently supported types are a, ns, md, mf, cname, -soa, mb, mg, mr, null, wks, ptr, hinfo, minfo, mx, uinfo, -uid, gid, unspec, and the wildcard, which may be written -as either "any" or "*". Types must be given in lower case. -Note that the default is to look first for "a", and then "mx", except -that if the verbose option is turned on, the default is only "a". -.PP -The option -a (for "all") is equivalent to "-v -t any". -.PP -The option -l causes a listing of a complete domain. E.g. -.br - host -l rutgers.edu -.br -will give a listing of all hosts in the rutgers.edu domain. The -t -option is used to filter what information is presented, as you -would expect. The default is address information, which also -include PTR and NS records. The command -.br - host -l -v -t any rutgers.edu -.br -will give a complete download of the zone data for rutgers.edu, -in the official master file format. (However the SOA record is -listed twice, for arcane reasons.) NOTE: -l is implemented by -doing a complete zone transfer and then filtering out the information -the you have asked for. This command should be used only if it -is absolutely necessary. -.SH CUSTOMIZING HOST NAME LOOKUP -In general, if the name supplied by the user does not -have any dots in it, a default domain is appended to the end. -This domain can be defined in /etc/resolv.conf, but is normally derived -by taking the local hostname after its first dot. The user can override -this, and specify a different default domain, using the environment -variable -.IR LOCALDOMAIN . -In addition, the user can supply his own abbreviations for host names. -They should be in a file consisting of one line per abbreviation. -Each line contains an abbreviation, a space, and then the full -host name. This file must be pointed to by an environment variable -.IR HOSTALIASES , -which is the name of the file. -.SH "See Also" -named (8) -.SH BUGS -Unexpected effects can happen when you type a name that is not -part of the local domain. Please always keep in mind the -fact that the local domain name is tacked onto the end of every -name, unless it ends in a dot. Only if this fails is the name -used unchanged. -.PP -The -l option only tries the first name server listed for the -domain that you have requested. If this server is dead, you -may need to specify a server manually. E.g. to get a listing -of foo.edu, you could try "host -t ns foo.edu" to get a list -of all the name servers for foo.edu, and then try "host -l foo.edu xxx" -for all xxx on the list of name servers, until you find one that -works. diff --git a/minix/commands/host/host.c b/minix/commands/host/host.c deleted file mode 100644 index 47295813b..000000000 --- a/minix/commands/host/host.c +++ /dev/null @@ -1,1381 +0,0 @@ -/* - * Copyright (c) 1986 Regents of the University of California - * All Rights Reserved - * - * Redistribution and use in source and binary forms are permitted - * provided that this notice is preserved and that due credit is given - * to the University of California at Berkeley. The name of the University - * may not be used to endorse or promote products derived from this - * software without specific prior written permission. This software - * is provided ``as is'' without express or implied warranty. - */ - -/* - * Actually, this program is from Rutgers University, however it is - * based on nslookup and other pieces of named tools, so it needs - * that copyright notice. - */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include - -extern int h_errno; - -#define NUMMX 50 - -#define SUCCESS 0 -#define TIME_OUT -1 -#define NO_INFO -2 -#define ERROR -3 -#define NONAUTH -4 - -#define NAME_LEN 256 - -#ifndef T_TXT -#define T_TXT 16 -#endif -#ifndef NO_DATA -#define NO_DATA NO_ADDRESS -#endif -#ifndef C_HS -#define C_HS 4 -#endif -#ifndef NOCHANGE -#define NOCHANGE 0xf -#endif - -FILE *filePtr; - -static struct __res_state orig; -static u8_t *cname = NULL; -int getclass = C_IN; -int gettype, getdeftype = T_A; -int verbose = 0; -int list = 0; -int server_specified = 0; - -union querybuf; - -int main( int c, char *v[] ); - -static int parsetype( char *s ); -static int parseclass( char *s ); -static void hperror( int err_no ); -static void printanswer( struct hostent *hp ); -static int ListHosts( char *namePtr, int queryType ); -static int gethostinfo( char *name ); -static int getdomaininfo( char *name, char *domain ); -static int getinfo( char *name, char *domain, int type ); -static int printinfo( union querybuf *answer, u8_t *eom, int filter, int - isls ); -static char *DecodeError( int result ); -static u8_t *pr_rr( u8_t *cp, u8_t *msg, FILE *file, int filter ); -static u8_t * pr_cdname( u8_t *cp, u8_t *msg, u8_t *name, int namelen ); -static char *pr_class( int class ); -static char *pr_type( int type ); -static int tcpip_writeall( int fd, char *buf, unsigned siz ); - -int -main(c, v) - int c; - char **v; -{ - char *domain; - struct in_addr addr; - register struct hostent *hp; - register char *s, *p; - register int inverse = 0; - register int waitmode = 0; - u8_t *oldcname; - int ncnames; - int isaddr; - - res_init(); - _res.retrans = 5; - - if (c < 2) { - fprintf(stderr, "Usage: host [-w] [-v] [-r] [-d] [-V] [-t querytype] [-c class] [-a] host [server]\n -w to wait forever until reply\n -v for verbose output\n -r to disable recursive processing\n -d to turn on debugging output\n -t querytype to look for a specific type of information\n -c class to look for non-Internet data\n -a is equivalent to '-v -t *'\n -V to always use a virtual circuit\n"); - exit(1); - } - while (c > 2 && v[1][0] == '-') { - if (strcmp (v[1], "-w") == 0) { - _res.retry = 1; - _res.retrans = 15; - waitmode = 1; - v++; - c--; - } - else if (strcmp (v[1], "-r") == 0) { - _res.options &= ~RES_RECURSE; - v++; - c--; - } - else if (strcmp (v[1], "-d") == 0) { - _res.options |= RES_DEBUG; - v++; - c--; - } - else if (strcmp (v[1], "-v") == 0) { - verbose = 1; - v++; - c--; - } - else if (strcmp (v[1], "-l") == 0) { - list = 1; - v++; - c--; - } - else if (strncmp (v[1], "-t", 2) == 0) { - v++; - c--; - gettype = parsetype(v[1]); - v++; - c--; - } - else if (strncmp (v[1], "-c", 2) == 0) { - v++; - c--; - getclass = parseclass(v[1]); - v++; - c--; - } - else if (strcmp (v[1], "-a") == 0) { - verbose = 1; - gettype = T_ANY; - v++; - c--; - } - else if (strcmp (v[1], "-V") == 0) { - _res.options |= RES_USEVC; - v++; - c--; - } - } - if (c > 2) { - s = v[2]; - server_specified++; - - if ((p = strchr(s, ':')) != NULL) *p++ = 0; - isaddr = inet_aton(s, &addr); - if (p != NULL) p[-1] = ':'; - if (!isaddr) { - hp = gethostbyname(s); - if (hp == NULL) { - fprintf(stderr,"Error in looking up server name:\n"); - hperror(h_errno); - exit(1); - } - memcpy(&_res.nsaddr.sin_addr, hp->h_addr, NS_INADDRSZ); - printf("Using domain server:\n"); - printanswer(hp); - } - else { - _res.nsaddr.sin_family = AF_INET; - _res.nsaddr.sin_addr = addr; - _res.nsaddr.sin_port = htons(NAMESERVER_PORT); - printf("Using domain server %s:\n", - inet_ntoa(_res.nsaddr.sin_addr)); - - } - } - domain = v[1]; - if (strcmp (domain, ".") != 0 && inet_aton(domain, &addr)) { - static char ipname[sizeof("255.255.255.255.in-addr.arpa.")]; - sprintf(ipname, "%d.%d.%d.%d.in-addr.arpa.", - ((unsigned char *) &addr)[3], - ((unsigned char *) &addr)[2], - ((unsigned char *) &addr)[1], - ((unsigned char *) &addr)[0]); - domain = ipname; - getdeftype = T_PTR; - } - - hp = NULL; - h_errno = TRY_AGAIN; -/* - * we handle default domains ourselves, thank you - */ - _res.options &= ~RES_DEFNAMES; - - if (list) - exit(ListHosts(domain, gettype ? gettype : getdeftype)); - oldcname = NULL; - ncnames = 5; - while (hp == NULL && h_errno == TRY_AGAIN) { - cname = NULL; - if (oldcname == NULL) - hp = (struct hostent *)gethostinfo(domain); - else - hp = (struct hostent *)gethostinfo((char *)oldcname); - if (cname) { - if (ncnames-- == 0) { - printf("Too many cnames. Possible loop.\n"); - exit(1); - } - oldcname = cname; - hp = NULL; - h_errno = TRY_AGAIN; - continue; - } - if (!waitmode) - break; - } - - if (hp == NULL) { - hperror(h_errno); - exit(1); - } - - exit(0); - -} - -static int -parsetype(s) - char *s; -{ -if (strcmp(s,"a") == 0) - return(1); -if (strcmp(s,"ns") == 0) - return(2); -if (strcmp(s,"md") == 0) - return(3); -if (strcmp(s,"mf") == 0) - return(4); -if (strcmp(s,"cname") == 0) - return(5); -if (strcmp(s,"soa") == 0) - return(6); -if (strcmp(s,"mb") == 0) - return(7); -if (strcmp(s,"mg") == 0) - return(8); -if (strcmp(s,"mr") == 0) - return(9); -if (strcmp(s,"null") == 0) - return(10); -if (strcmp(s,"wks") == 0) - return(11); -if (strcmp(s,"ptr") == 0) - return(12); -if (strcmp(s,"hinfo") == 0) - return(13); -if (strcmp(s,"minfo") == 0) - return(14); -if (strcmp(s,"mx") == 0) - return(15); -if (strcmp(s,"txt") == 0) /* Roy */ - return(T_TXT); /* Roy */ -if (strcmp(s,"uinfo") == 0) - return(100); -if (strcmp(s,"uid") == 0) - return(101); -if (strcmp(s,"gid") == 0) - return(102); -if (strcmp(s,"unspec") == 0) - return(103); -if (strcmp(s,"any") == 0) - return(255); -if (strcmp(s,"*") == 0) - return(255); -if (atoi(s)) - return(atoi(s)); -fprintf(stderr, "Invalid query type: %s\n", s); -exit(2); -} - -static int -parseclass(s) - char *s; -{ -if (strcmp(s,"in") == 0) - return(C_IN); -if (strcmp(s,"chaos") == 0) - return(C_CHAOS); -if (strcmp(s,"hs") == 0) - return(C_HS); -if (strcmp(s,"any") == 0) - return(C_ANY); -if (atoi(s)) - return(atoi(s)); -fprintf(stderr, "Invalid query class: %s\n", s); -exit(2); -} - -static void -printanswer(hp) - register struct hostent *hp; -{ - register char **cp; - struct in_addr **hptr; - - printf("Name: %s\n", hp->h_name); - printf("Address:"); - for (hptr = (struct in_addr **)hp->h_addr_list; *hptr; hptr++) - printf(" %s", inet_ntoa(**hptr)); - printf("\nAliases:"); - for (cp = hp->h_aliases; cp && *cp && **cp; cp++) - printf(" %s", *cp); - printf("\n\n"); -} - -static void -hperror(err_no) -int err_no; -{ -switch(err_no) { - case HOST_NOT_FOUND: - fprintf(stderr,"Host not found.\n"); - break; - case TRY_AGAIN: - fprintf(stderr,"Host not found, try again.\n"); - break; - case NO_RECOVERY: - fprintf(stderr,"No recovery, Host not found.\n"); - break; - case NO_ADDRESS: - fprintf(stderr,"There is an entry for this host, but it doesn't have what you requested.\n"); - break; - } -} - -typedef union querybuf { - HEADER qb1; - u8_t qb2[PACKETSZ]; -} querybuf_t; - -static u8_t hostbuf[BUFSIZ+1]; - - -static int -gethostinfo(name) - char *name; -{ - register char *cp, **domain; - int n; - int hp; - int nDomain; - - if (strcmp(name, ".") == 0) - return(getdomaininfo(name, NULL)); - for (cp = name, n = 0; *cp; cp++) - if (*cp == '.') - n++; - if (n && cp[-1] == '.') { - if (cp[-1] == '.') - cp[-1] = 0; - hp = getdomaininfo(name, (char *)NULL); - if (cp[-1] == 0) - cp[-1] = '.'; - return (hp); - } - if (n == 0 && (cp = (char *)__hostalias(name))) { - if (verbose) - printf("Aliased to \"%s\"\n", cp); - _res.options |= RES_DEFNAMES; - return (getdomaininfo(cp, (char *)NULL)); - } -#ifdef MAXDS - for (nDomain = 0; - _res.defdname_list[nDomain][0] != 0; - nDomain++) { - for (domain = _res.dnsrch_list[nDomain]; *domain; domain++) { - if (verbose) - printf("Trying domain \"%s\"\n", *domain); - hp = getdomaininfo(name, *domain); - if (hp) - return (hp); - } - } -#else - for (domain = _res.dnsrch; *domain; domain++) { - if (verbose) - printf("Trying domain \"%s\"\n", *domain); - hp = getdomaininfo(name, *domain); - if (hp) - return (hp); - } -#endif - if (h_errno != HOST_NOT_FOUND || - (_res.options & RES_DNSRCH) == 0) - return (0); - if (verbose) - printf("Trying null domain\n"); - return (getdomaininfo(name, (char *)NULL)); -} - -static int -getdomaininfo(name, domain) - char *name, *domain; -{ - return getinfo(name, domain, gettype ? gettype : getdeftype); -} - -static int -getinfo(name, domain, type) - char *name, *domain; - int type; -{ - - HEADER *hp; - u8_t *eom, *bp, *cp; - querybuf_t buf, answer; - int n, n1, i, j, nmx, ancount, nscount, arcount, qdcount, buflen; - char host[2*MAXDNAME+2]; - - if (domain == NULL) - (void)sprintf(host, "%.*s", MAXDNAME, name); - else - (void)sprintf(host, "%.*s.%.*s", MAXDNAME, name, MAXDNAME, domain); - - n = res_mkquery(QUERY, host, getclass, type, (char *)NULL, 0, NULL, - (char *)&buf, sizeof(buf)); - if (n < 0) { - if (_res.options & RES_DEBUG) - printf("res_mkquery failed\n"); - h_errno = NO_RECOVERY; - return(0); - } - n = res_send((char *)&buf, n, (char *)&answer, sizeof(answer)); - if (n < 0) { - if (_res.options & RES_DEBUG) - printf("res_send failed\n"); - h_errno = TRY_AGAIN; - return (0); - } - eom = (u8_t *)&answer + n; - return(printinfo(&answer, eom, T_ANY, 0)); -} - -static int -printinfo(answer, eom, filter, isls) - querybuf_t *answer; - u8_t *eom; - int filter; - int isls; -{ - HEADER *hp; - u8_t *bp, *cp; - int nmx, ancount, nscount, arcount, qdcount, buflen; - - /* - * find first satisfactory answer - */ - hp = (HEADER *) answer; - ancount = ntohs(hp->ancount); - qdcount = ntohs(hp->qdcount); - nscount = ntohs(hp->nscount); - arcount = ntohs(hp->arcount); - if (_res.options & RES_DEBUG || (verbose && isls == 0)) - printf("rcode = %d (%s), ancount=%d\n", - hp->rcode, - DecodeError(hp->rcode), - ancount); - if (hp->rcode != NOERROR || (ancount+nscount+arcount) == 0) { - switch (hp->rcode) { - case NXDOMAIN: - /* Check if it's an authoritive answer */ - if (hp->aa) { - h_errno = HOST_NOT_FOUND; - return(0); - } else { - h_errno = TRY_AGAIN; - return(0); - } - case SERVFAIL: - h_errno = TRY_AGAIN; - return(0); -#ifdef OLDJEEVES - /* - * Jeeves (TOPS-20 server) still does not - * support MX records. For the time being, - * we must accept FORMERRs as the same as - * NOERROR. - */ - case FORMERR: -#endif /* OLDJEEVES */ - case NOERROR: -/* TpB - set a return error for this case. NO_DATA */ - h_errno = NO_DATA; - return(0); /* was 1,but now indicates exception */ -#ifndef OLDJEEVES - case FORMERR: -#endif /* OLDJEEVES */ - case NOTIMP: - case REFUSED: - h_errno = NO_RECOVERY; - return(0); - } - return (0); - } - bp = hostbuf; - nmx = 0; - buflen = sizeof(hostbuf); - cp = (u8_t *)answer + sizeof(HEADER); - if (qdcount) { - cp += dn_skipname((u8_t *)cp,(u8_t *)eom) + QFIXEDSZ; - while (--qdcount > 0) - cp += dn_skipname((u8_t *)cp,(u8_t *)eom) + QFIXEDSZ; - } - if (ancount) { - if (!hp->aa) - if (verbose && isls == 0) - printf("The following answer is not authoritative:\n"); - while (--ancount >= 0 && cp && cp < eom) { - cp = pr_rr(cp, (u8_t *)answer, stdout, filter); -/* - * When we ask for address and there is a CNAME, it seems to return - * both the CNAME and the address. Since we trace down the CNAME - * chain ourselves, we don't really want to print the address at - * this point. - */ - if (cname && ! verbose) - return (1); - } - } - if (! verbose) - return (1); - if (nscount) { - printf("For authoritative answers, see:\n"); - while (--nscount >= 0 && cp && cp < eom) { - cp = pr_rr(cp, (u8_t *)answer, stdout, filter); - } - } - if (arcount) { - printf("Additional information:\n"); - while (--arcount >= 0 && cp && cp < eom) { - cp = pr_rr(cp, (u8_t *)answer, stdout, filter); - } - } - return(1); - } - -static u8_t cnamebuf[MAXDNAME]; - -/* - * Print resource record fields in human readable form. - */ -static u8_t * -pr_rr(cp, msg, file, filter) - u8_t *cp, *msg; - FILE *file; - int filter; -{ - int type, class, dlen, n, c, proto, ttl; - struct in_addr inaddr; - u8_t *cp1; - struct protoent *protop; - struct servent *servp; - char punc; - int doprint; - u8_t name[MAXDNAME]; - - if ((cp = pr_cdname(cp, msg, name, sizeof(name))) == NULL) - return (NULL); /* compression error */ - - type = _getshort(cp); - cp += sizeof(u_short); - - class = _getshort(cp); - cp += sizeof(u_short); - - ttl = _getlong(cp); - cp += sizeof(u_long); - - if (filter == type || filter == T_ANY || - (filter == T_A && (type == T_PTR || type == T_NS))) - doprint = 1; - else - doprint = 0; - - if (doprint) { - if (verbose) - fprintf(file,"%s\t%d%s\t%s", - name, ttl, pr_class(class), pr_type(type)); - else { - fprintf(file,"%s%s %s",name, pr_class(class), pr_type(type)); - } - } - if (verbose) - punc = '\t'; - else - punc = ' '; - - dlen = _getshort(cp); - cp += sizeof(u_short); - cp1 = cp; - /* - * Print type specific data, if appropriate - */ - switch (type) { - case T_A: - switch (class) { - case C_IN: - bcopy((char *)cp, (char *)&inaddr, sizeof(inaddr)); - if (dlen == 4) { - if (doprint) - fprintf(file,"%c%s", punc, - inet_ntoa(inaddr)); - cp += dlen; - } else if (dlen == 7) { - if (doprint) { - fprintf(file,"%c%s", punc, - inet_ntoa(inaddr)); - fprintf(file,", protocol = %d", cp[4]); - fprintf(file,", port = %d", - (cp[5] << 8) + cp[6]); - } - cp += dlen; - } - break; - } - break; - case T_CNAME: - if (dn_expand(msg, msg + 512, cp, cnamebuf, - sizeof(cnamebuf)-1) >= 0) { - strcat((char *) cnamebuf, "."); - if (gettype != T_CNAME && gettype != T_ANY) - cname = cnamebuf; - } - case T_MB: -#ifdef OLDRR - case T_MD: - case T_MF: -#endif /* OLDRR */ - case T_MG: - case T_MR: - case T_NS: - case T_PTR: - cp = pr_cdname(cp, msg, name, sizeof(name)); - if (doprint) - fprintf(file,"%c%s",punc, name); - break; - - case T_HINFO: - if ((n = *cp++)) { - if (doprint) - fprintf(file,"%c%.*s", punc, n, cp); - cp += n; - } - if ((n = *cp++)) { - if (doprint) - fprintf(file,"%c%.*s", punc, n, cp); - cp += n; - } - break; - - case T_SOA: - cp = pr_cdname(cp, msg, name, sizeof(name)); - if (doprint) - fprintf(file,"\t%s", name); - cp = pr_cdname(cp, msg, name, sizeof(name)); - if (doprint) - fprintf(file," %s", name); - if (doprint) - fprintf(file,"(\n\t\t\t%d\t;serial (version)", _getlong(cp)); - cp += sizeof(u_long); - if (doprint) - fprintf(file,"\n\t\t\t%d\t;refresh period", _getlong(cp)); - cp += sizeof(u_long); - if (doprint) - fprintf(file,"\n\t\t\t%d\t;retry refresh this often", _getlong(cp)); - cp += sizeof(u_long); - if (doprint) - fprintf(file,"\n\t\t\t%d\t;expiration period", _getlong(cp)); - cp += sizeof(u_long); - if (doprint) - fprintf(file,"\n\t\t\t%d\t;minimum TTL\n\t\t\t)", _getlong(cp)); - cp += sizeof(u_long); - break; - - case T_MX: - if (doprint) { - if (verbose) - fprintf(file,"\t%d ",_getshort(cp)); - else - fprintf(file," (pri=%d) by ",_getshort(cp)); - } - cp += sizeof(u_short); - cp = pr_cdname(cp, msg, name, sizeof(name)); - if (doprint) - fprintf(file, "%s", name); - break; - - case T_MINFO: - cp = pr_cdname(cp, msg, name, sizeof(name)); - if (doprint) - fprintf(file,"%c%s",punc, name); - cp = pr_cdname(cp, msg, name, sizeof(name)); - if (doprint) - fprintf(file," %s", name); - break; - - /* Roy start */ - case T_TXT: - if ((n = *cp++)) { - if (doprint) - fprintf(file,"%c%.*s", punc, n, cp); - cp += n; - } - break; - /* Roy end */ - case T_WKS: - if (dlen < sizeof(u_long) + 1) - break; - bcopy((char *)cp, (char *)&inaddr, sizeof(inaddr)); - cp += sizeof(u_long); - proto = *cp++; - protop = getprotobynumber(proto); - if (doprint) { - if (protop) - fprintf(file,"%c%s %s", punc, - inet_ntoa(inaddr), protop->p_name); - else - fprintf(file,"%c%s %d", punc, - inet_ntoa(inaddr), proto); - } - n = 0; - while (cp < cp1 + dlen) { - c = *cp++; - do { - if (c & 0200) { - servp = NULL; - if (protop) - servp = getservbyport (htons(n), - protop->p_name); - if (doprint) { - if (servp) - fprintf(file, " %s", servp->s_name); - else - fprintf(file, " %d", n); - } - } - c <<= 1; - } while (++n & 07); - } - break; - - default: - if (doprint) - fprintf(file,"%c???", punc); - cp += dlen; - } - if (cp != cp1 + dlen) - fprintf(file,"packet size error (%p != %p)\n", cp, cp1+dlen); - if (doprint) - fprintf(file,"\n"); - return (cp); -} - -static char nbuf[20]; - -/* - * Return a string for the type - */ -static char * -pr_type(type) - int type; -{ - switch (type) { - case T_A: - return(verbose? "A" : "has address"); - case T_NS: /* authoritative server */ - return("NS"); -#ifdef OLDRR - case T_MD: /* mail destination */ - return("MD"); - case T_MF: /* mail forwarder */ - return("MF"); -#endif /* OLDRR */ - case T_CNAME: /* connonical name */ - return(verbose? "CNAME" : "is a nickname for"); - case T_SOA: /* start of authority zone */ - return("SOA"); - case T_MB: /* mailbox domain name */ - return("MB"); - case T_MG: /* mail group member */ - return("MG"); - case T_MX: /* mail routing info */ - return(verbose? "MX" : "mail is handled"); - /* Roy start */ - case T_TXT: /* TXT - descriptive info */ - return(verbose? "TXT" : "descriptive text"); - /* Roy end */ - case T_MR: /* mail rename name */ - return("MR"); - case T_NULL: /* null resource record */ - return("NULL"); - case T_WKS: /* well known service */ - return("WKS"); - case T_PTR: /* domain name pointer */ - return("PTR"); - case T_HINFO: /* host information */ - return("HINFO"); - case T_MINFO: /* mailbox information */ - return("MINFO"); - case T_AXFR: /* zone transfer */ - return("AXFR"); - case T_MAILB: /* mail box */ - return("MAILB"); - case T_MAILA: /* mail address */ - return("MAILA"); - case T_ANY: /* matches any type */ - return("ANY"); - default: - return (sprintf(nbuf, "%d", type) == EOF ? NULL : nbuf); - } -} - -/* - * Return a mnemonic for class - */ -static char * -pr_class(class) - int class; -{ - - switch (class) { - case C_IN: /* internet class */ - return(verbose? " IN" : ""); - case C_CHAOS: /* chaos class */ - return(verbose? " CHAOS" : ""); - case C_HS: /* Hesiod class */ - return(verbose? " HS" : ""); - case C_ANY: /* matches any class */ - return(" ANY"); - default: - return (sprintf(nbuf," %d", class) == EOF ? NULL : nbuf); - } -} - -static u8_t * -pr_cdname(cp, msg, name, namelen) - u8_t *cp, *msg; - u8_t *name; - int namelen; -{ - int n; - - if ((n = dn_expand(msg, msg + 512, cp, name, namelen - 2)) < 0) - return (NULL); - if (name[0] == '\0') { - name[0] = '.'; - name[1] = '\0'; - } - return (cp + n); -} - -char *resultcodes[] = { - "NOERROR", - "FORMERR", - "SERVFAIL", - "NXDOMAIN", - "NOTIMP", - "REFUSED", - "6", - "7", - "8", - "9", - "10", - "11", - "12", - "13", - "14", - "NOCHANGE", -}; - - - -/* - ****************************************************************************** - * - * ListHosts -- - * - * Requests the name server to do a zone transfer so we - * find out what hosts it knows about. - * - * Results: - * SUCCESS the listing was successful. - * ERROR the server could not be contacted because - * a socket could not be obtained or an error - * occured while receiving, or the output file - * could not be opened. - * - ****************************************************************************** - */ - -static int -ListHosts(namePtr, queryType) - char *namePtr; - int queryType; /* e.g. T_A */ -{ - querybuf_t buf, answer; - HEADER *headerPtr; - - int msglen; - int amtToRead; - int numRead; - int i; - int numAnswers = 0; - int result; - int soacnt = 0; - u_short len; - int dlen; - int type; - int nscount; - u8_t *cp, *nmp; - u8_t name[NAME_LEN]; - char dname[2][NAME_LEN]; - u8_t domain[NAME_LEN]; -/* names and addresses of name servers to try */ -#define NUMNS 8 - char nsname[NUMNS][NAME_LEN]; - int nshaveaddr[NUMNS]; -#define IPADDRSIZE 4 -#define NUMNSADDR 16 - char nsipaddr[NUMNSADDR][IPADDRSIZE]; - int numns; - int numnsaddr; - int thisns; - struct hostent *hp; - enum { - NO_ERRORS, - ERR_READING_LEN, - ERR_READING_MSG, - ERR_PRINTING - } error = NO_ERRORS; - char *tcp_serv_name; - int tcp_fd; - nwio_tcpconf_t tcpconf; - nwio_tcpcl_t clopt; - int terrno; - -/* - * normalize to not have trailing dot. We do string compares below - * of info from name server, and it won't have trailing dots. - */ - i = strlen(namePtr); - if (namePtr[i-1] == '.') - namePtr[i-1] = 0; - - if (server_specified) { - bcopy((char *)&_res.nsaddr, nsipaddr[0], IPADDRSIZE); - numnsaddr = 1; - } - else { - -/* - * First we have to find out where to look. This needs a NS query, - * possibly followed by looking up addresses for some of the names. - */ - - msglen = res_mkquery(QUERY, namePtr, C_IN, T_NS, - (char *)0, 0, 0, - (char *)&buf, sizeof(buf)); - - if (msglen < 0) { - printf("res_mkquery failed\n"); - return (ERROR); - } - - msglen = res_send((char *)&buf,msglen,(char *)&answer, sizeof(answer)); - - if (msglen < 0) { - printf("Unable to get to nameserver -- try again later\n"); - return (ERROR); - } - if (_res.options & RES_DEBUG || verbose) - printf("rcode = %d (%s), ancount=%d\n", - answer.qb1.rcode, - DecodeError(answer.qb1.rcode), - ntohs(answer.qb1.ancount)); - -/* - * Analyze response to our NS lookup - */ - - nscount = ntohs(answer.qb1.ancount) + - ntohs(answer.qb1.nscount) + - ntohs(answer.qb1.arcount); - - - if (answer.qb1.rcode != NOERROR || nscount == 0) { - switch (answer.qb1.rcode) { - case NXDOMAIN: - /* Check if it's an authoritive answer */ - if (answer.qb1.aa) { - printf("No such domain\n"); - } else { - printf("Unable to get information about domain -- try again later.\n"); - } - break; - case SERVFAIL: - printf("Unable to get information about that domain -- try again later.\n"); - break; - case NOERROR: - printf("That domain exists, but seems to be a leaf node.\n"); - break; - case FORMERR: - case NOTIMP: - case REFUSED: - printf("Unrecoverable error looking up domain name.\n"); - break; - } - return (0); - } - - cp = answer.qb2 + sizeof(HEADER); - if (ntohs(answer.qb1.qdcount) > 0) - cp += dn_skipname(cp, answer.qb2 + msglen) + QFIXEDSZ; - - numns = 0; - numnsaddr = 0; - -/* - * Look at response from NS lookup for NS and A records. - */ - - for (;nscount; nscount--) { - cp += dn_expand(answer.qb2, answer.qb2 + msglen, cp, - domain, sizeof(domain)); - type = _getshort(cp); - cp += sizeof(u_short) + sizeof(u_short) + sizeof(u_long); - dlen = _getshort(cp); - cp += sizeof(u_short); - if (type == T_NS) { - if (dn_expand(answer.qb2, answer.qb2 + msglen, cp, - name, sizeof(name)) >= 0) { - if (numns < NUMNS && strcasecmp((char *)domain, namePtr) == 0) { - for (i = 0; i < numns; i++) - if (strcasecmp(nsname[i], (char *)name) == 0) - break; /* duplicate */ - if (i >= numns) { - strncpy(nsname[numns], (char *)name, sizeof(name)); - nshaveaddr[numns] = 0; - numns++; - } - } - } - } - else if (type == T_A) { - if (numnsaddr < NUMNSADDR) - for (i = 0; i < numns; i++) { - if (strcasecmp(nsname[i], (char *)domain) == 0) { - nshaveaddr[i]++; - bcopy((char *)cp, nsipaddr[numnsaddr],IPADDRSIZE); - numnsaddr++; - break; - } - } - } - cp += dlen; - } - -/* - * Usually we'll get addresses for all the servers in the additional - * info section. But in case we don't, look up their addresses. - */ - - for (i = 0; i < numns; i++) { - if (! nshaveaddr[i]) { - register long **hptr; - int numaddrs = 0; - - hp = gethostbyname(nsname[i]); - if (hp) { - for (hptr = (long **)hp->h_addr_list; *hptr; hptr++) - if (numnsaddr < NUMNSADDR) { - bcopy((char *)*hptr, nsipaddr[numnsaddr],IPADDRSIZE); - numnsaddr++; - numaddrs++; - } - } - if (_res.options & RES_DEBUG || verbose) - printf("Found %d addresses for %s by extra query\n", - numaddrs, nsname[i]); - } - else - if (_res.options & RES_DEBUG || verbose) - printf("Found %d addresses for %s\n", - nshaveaddr[i], nsname[i]); - } - } -/* - * Now nsipaddr has numnsaddr addresses for name servers that - * serve the requested domain. Now try to find one that will - * accept a zone transfer. - */ - - thisns = 0; - -again: - - numAnswers = 0; - soacnt = 0; - - /* - * Create a query packet for the requested domain name. - * - */ - msglen = res_mkquery(QUERY, namePtr, getclass, T_AXFR, - (char *)0, 0, 0, - (char *) &buf, sizeof(buf)); - if (msglen < 0) { - if (_res.options & RES_DEBUG) { - fprintf(stderr, "ListHosts: Res_mkquery failed\n"); - } - return (ERROR); - } - - /* - * Set up a virtual circuit to the server. - */ - - tcp_serv_name= getenv("TCP_DEVICE"); - if (!tcp_serv_name) - tcp_serv_name= TCP_DEVICE; - for (;thisns < numnsaddr; thisns++) - { - tcp_fd= open(tcp_serv_name, O_RDWR); - if (tcp_fd == -1) - { - fprintf(stderr, "unable to open '%s': %s\n", tcp_serv_name, - strerror(errno)); - return ERROR; - } - - tcpconf.nwtc_flags= NWTC_EXCL | NWTC_LP_SEL | NWTC_SET_RA | - NWTC_SET_RP; - tcpconf.nwtc_remaddr= *(ipaddr_t *)nsipaddr[thisns]; - tcpconf.nwtc_remport= _res.nsaddr.sin_port; - result= ioctl(tcp_fd, NWIOSTCPCONF, &tcpconf); - if (result == -1) - { - fprintf(stderr, "tcp_ioc_setconf failed: %s\n", - strerror(errno)); - close(tcp_fd); - return ERROR; - } - if (_res.options & RES_DEBUG || verbose) - printf("Trying %s\n", inet_ntoa(*(struct in_addr *) - &tcpconf.nwtc_remaddr)); - clopt.nwtcl_flags= 0; - result= ioctl(tcp_fd, NWIOTCPCONN, &clopt); - if (result == 0) - break; - terrno= errno; - if (verbose) - fprintf(stderr, - "Connection failed, trying next server: %s\n", - strerror(errno)); - close(tcp_fd); - } - if (thisns >= numnsaddr) { - printf("No server for that domain responded\n"); - if (!verbose) - fprintf(stderr, "Error from the last server was: %s\n", - strerror(terrno)); - return(ERROR); - } - - /* - * Send length & message for zone transfer - */ - - len = htons(msglen); - - result= tcpip_writeall(tcp_fd, (char *)&len, sizeof(len)); - if (result != sizeof(len)) - { - fprintf(stderr, "write failed: %s\n", strerror(errno)); - close(tcp_fd); - return ERROR; - } - result= tcpip_writeall(tcp_fd, (char *)&buf, msglen); - if (result != msglen) - { - fprintf(stderr, "write failed: %s\n", - strerror(errno)); - close(tcp_fd); - return ERROR; - } - filePtr = stdout; - - while (1) { - - /* - * Read the length of the response. - */ - - cp = (u8_t *) &buf; - amtToRead = sizeof(u_short); - while(amtToRead > 0) - { - result = read(tcp_fd, (char *)cp, amtToRead); - if (result <= 0) - break; - cp += result; - amtToRead -= result; - } - if (amtToRead) { - error = ERR_READING_LEN; - break; - } - - if ((len = htons(*(u_short *)&buf)) == 0) { - break; /* nothing left to read */ - } - - /* - * Read the response. - */ - - amtToRead = len; - cp = (u8_t *) &buf; - while(amtToRead > 0) - { - result = read(tcp_fd, (char *)cp, amtToRead); - if (result<= 0) - break; - cp += result; - amtToRead -= result; - } - if (amtToRead) { - error = ERR_READING_MSG; - break; - } - - i = buf.qb1.rcode; - - if (i != NOERROR || ntohs(buf.qb1.ancount) == 0) { - if ((thisns+1) < numnsaddr && - (i == SERVFAIL || i == NOTIMP || i == REFUSED)) { - if (_res.options & RES_DEBUG || verbose) - printf("Server failed, trying next server: %s\n", - i != NOERROR ? - DecodeError(i) : "Premature end of data"); - close(tcp_fd); - thisns++; - goto again; - } - printf("Server failed: %s\n", - i != NOERROR ? DecodeError(i) : "Premature end of data"); - break; - } - - - result = printinfo(&buf, cp, queryType, 1); - if (! result) { - error = ERR_PRINTING; - break; - } - numAnswers++; - cp = buf.qb2 + sizeof(HEADER); - if (ntohs(buf.qb1.qdcount) > 0) - cp += dn_skipname(cp, buf.qb2 + len) + QFIXEDSZ; - - nmp = cp; - cp += dn_skipname(cp, (u_char *)&buf + len); - if ((_getshort(cp) == T_SOA)) { - dn_expand(buf.qb2, buf.qb2 + len, nmp, (u8_t *)dname[soacnt], - sizeof(dname[0])); - if (soacnt) { - if (strcmp(dname[0], dname[1]) == 0) - break; - } else - soacnt++; - } - } - - close(tcp_fd); - - switch (error) { - case NO_ERRORS: - return (SUCCESS); - - case ERR_READING_LEN: - return(ERROR); - - case ERR_PRINTING: - fprintf(stderr,"*** Error during listing of %s: %s\n", - namePtr, DecodeError(result)); - return(result); - - case ERR_READING_MSG: - headerPtr = (HEADER *) &buf; - fprintf(stderr,"ListHosts: error receiving zone transfer:\n"); - fprintf(stderr, - " result: %s, answers = %d, authority = %d, additional = %d\n", - resultcodes[headerPtr->rcode], - ntohs(headerPtr->ancount), - ntohs(headerPtr->nscount), - ntohs(headerPtr->arcount)); - return(ERROR); - default: - return(ERROR); - } -} - -static char * -DecodeError(result) - int result; -{ - switch(result) { - case NOERROR: return("Success"); break; - case FORMERR: return("Format error"); break; - case SERVFAIL: return("Server failed"); break; - case NXDOMAIN: return("Non-existent domain"); break; - case NOTIMP: return("Not implemented"); break; - case REFUSED: return("Query refused"); break; - case NOCHANGE: return("No change"); break; - case NO_INFO: return("No information"); break; - case ERROR: return("Unspecified error"); break; - case TIME_OUT: return("Timed out"); break; - case NONAUTH: return("Non-authoritative answer"); break; - default: break; - } - return("BAD ERROR VALUE"); -} - -static int tcpip_writeall(fd, buf, siz) -int fd; -char *buf; -unsigned siz; -{ - unsigned siz_org; - int nbytes; - - siz_org= siz; - - while (siz) - { - nbytes= write(fd, buf, siz); - if (nbytes == -1) - return nbytes; - assert(siz >= nbytes); - buf += nbytes; - siz -= nbytes; - } - return siz_org; -} -- 2.44.0