projects / unix-history / blob
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
BSD 4_3_Reno release
[unix-history] / usr / src / usr.sbin / named / tools / nslookup / list.c
/*
* Copyright (c) 1985,1989 Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted provided
* that: (1) source distributions retain this entire copyright notice and
* comment, and (2) distributions including binaries display the following
* acknowledgement: ``This product includes software developed by the
* University of California, Berkeley and its contributors'' in the
* documentation or other materials provided with the distribution and in
* all advertising materials mentioning features or use of this software.
* 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 ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
* WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#ifndef lint
static char sccsid[] = "@(#)list.c 5.20 (Berkeley) 6/1/90";
#endif /* not lint */
/*
*******************************************************************************
*
* list.c --
*
* Routines to obtain info from name and finger servers.
*
* Adapted from 4.3BSD BIND ns_init.c and from finger.c.
*
*******************************************************************************
*/
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netdb.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <errno.h>
#include <arpa/nameser.h>
#include <arpa/inet.h>
#include <resolv.h>
#include "res.h"
/*
* Imported from res_debug.c
*/
extern char *_res_resultcodes[];
extern int errno;
typedef union {
HEADER qb1;
char qb2[PACKETSZ];
} querybuf;
extern HostInfo *defaultPtr;
extern HostInfo curHostInfo;
extern int curHostValid;
extern int queryType;
extern int queryClass;
static int sockFD = -1;
static int ListSubr();
/*
* During a listing to a file, hash marks are printed
* every HASH_SIZE records.
*/
#define HASH_SIZE 50
\f
/*
*******************************************************************************
*
* ListHosts --
* ListHostsByType --
*
* Requests the name server to do a zone transfer so we
* find out what hosts it knows about.
*
* For ListHosts, there are five types of output:
* - Internet addresses (default)
* - cpu type and operating system (-h option)
* - canonical and alias names (-a option)
* - well-known service names (-s option)
* - ALL records (-d option)
* ListHostsByType prints records of the default type or of a speicific
* type.
*
* To see all types of information sorted by name, do the following:
* ls -d domain.edu > file
* view file
*
* 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.
*
*******************************************************************************
*/
void
ListHostsByType(string, putToFile)
char *string;
int putToFile;
{
int i, qtype, result;
char *namePtr;
char name[NAME_LEN];
char option[NAME_LEN];
/*
* Parse the command line. It maybe of the form "ls -t domain"
* or "ls -t type domain".
*/
i = sscanf(string, " ls -t %s %s", option, name);
if (putToFile && i == 2 && name[0] == '>') {
i--;
}
if (i == 2) {
qtype = StringToType(option, -1);
if (qtype == -1)
return;
namePtr = name;
} else if (i == 1) {
namePtr = option;
qtype = queryType;
} else {
fprintf(stderr, "*** ls: invalid request %s\n",string);
return;
}
result = ListSubr(qtype, namePtr, putToFile ? string : NULL);
if (result != SUCCESS)
fprintf(stderr, "*** Can't list domain %s: %s\n",
namePtr, DecodeError(result));
}
void
ListHosts(string, putToFile)
char *string;
int putToFile;
{
int i, qtype, result;
char *namePtr;
char name[NAME_LEN];
char option[NAME_LEN];
/*
* Parse the command line. It maybe of the form "ls domain",
* "ls -X domain".
*/
i = sscanf(string, " ls %s %s", option, name);
if (putToFile && i == 2 && name[0] == '>') {
i--;
}
if (i == 2) {
if (strcmp("-a", option) == 0) {
qtype = T_CNAME;
} else if (strcmp("-h", option) == 0) {
qtype = T_HINFO;
} else if (strcmp("-m", option) == 0) {
qtype = T_MX;
} else if (strcmp("-s", option) == 0) {
qtype = T_WKS;
} else if (strcmp("-d", option) == 0) {
qtype = T_ANY;
} else {
qtype = T_A;
}
namePtr = name;
} else if (i == 1) {
namePtr = option;
qtype = T_A;
} else {
fprintf(stderr, "*** ls: invalid request %s\n",string);
return;
}
result = ListSubr(qtype, namePtr, putToFile ? string : NULL);
if (result != SUCCESS)
fprintf(stderr, "*** Can't list domain %s: %s\n",
namePtr, DecodeError(result));
}
static int
ListSubr(qtype, domain, cmd)
int qtype;
char *domain;
char *cmd;
{
querybuf buf;
struct sockaddr_in sin;
HEADER *headerPtr;
int msglen;
int amtToRead;
int numRead;
int numAnswers = 0;
int result;
int soacnt = 0;
u_short len;
char *cp, *nmp;
char dname[2][NAME_LEN];
char file[NAME_LEN];
static char *answer = NULL;
static int answerLen = 0;
enum {
NO_ERRORS,
ERR_READING_LEN,
ERR_READING_MSG,
ERR_PRINTING,
} error = NO_ERRORS;
/*
* Create a query packet for the requested domain name.
*/
msglen = res_mkquery(QUERY, domain, queryClass, T_AXFR,
(char *)0, 0, (char *)0,
(char *) &buf, sizeof(buf));
if (msglen < 0) {
if (_res.options & RES_DEBUG) {
fprintf(stderr, "*** ls: res_mkquery failed\n");
}
return (ERROR);
}
bzero((char *)&sin, sizeof(sin));
sin.sin_family = AF_INET;
sin.sin_port = htons(nsport);
/*
* Check to see if we have the address of the server or the
* address of a server who knows about this domain.
*
* For now, just use the first address in the list.
*/
if (defaultPtr->addrList != NULL) {
sin.sin_addr = *(struct in_addr *) defaultPtr->addrList[0];
} else {
sin.sin_addr = *(struct in_addr *)defaultPtr->servers[0]->addrList[0];
}
/*
* Set up a virtual circuit to the server.
*/
if ((sockFD = socket(AF_INET, SOCK_STREAM, 0)) < 0) {
perror("ls: socket");
return(ERROR);
}
if (connect(sockFD, &sin, sizeof(sin)) < 0) {
int e;
if (errno == ECONNREFUSED) {
e = NO_RESPONSE;
} else {
perror("ls: connect");
e = ERROR;
}
(void) close(sockFD);
sockFD = -1;
return e;
}
/*
* Send length & message for zone transfer
*/
len = htons(msglen);
if (write(sockFD, (char *)&len, sizeof(len)) != sizeof(len) ||
write(sockFD, (char *) &buf, msglen) != msglen) {
perror("ls: write");
(void) close(sockFD);
sockFD = -1;
return(ERROR);
}
fprintf(stdout,"[%s]\n",
(defaultPtr->addrList != NULL) ? defaultPtr->name :
defaultPtr->servers[0]->name);
if (cmd == NULL) {
filePtr = stdout;
} else {
filePtr = OpenFile(cmd, file);
if (filePtr == NULL) {
fprintf(stderr, "*** Can't open %s for writing\n", file);
(void) close(sockFD);
sockFD = -1;
return(ERROR);
}
fprintf(filePtr, "> %s\n", cmd);
fprintf(filePtr,"[%s]\n",
(defaultPtr->addrList != NULL) ? defaultPtr->name :
defaultPtr->servers[0]->name);
}
#if 0
if (qtype == T_CNAME) {
fprintf(filePtr, "%-30s", "Alias");
} else if (qtype == T_TXT) {
fprintf(filePtr, "%-30s", "Key");
} else {
fprintf(filePtr, "%-30s", "Host or domain name");
}
switch (qtype) {
case T_A:
fprintf(filePtr, " %-30s\n", "Internet Address");
break;
case T_HINFO:
fprintf(filePtr, " %-30s\n", "CPU & OS");
break;
case T_CNAME:
fprintf(filePtr, " %-30s\n", "Canonical Name");
break;
case T_MX:
fprintf(filePtr, " %-30s\n", "Metric & Host");
break;
case T_WKS:
fprintf(filePtr, " %-4s %s\n", "Protocol", "Services");
break;
case T_MB:
fprintf(filePtr, " %-30s\n", "Mailbox");
break;
case T_MG:
fprintf(filePtr, " %-30s\n", "Mail Group");
break;
case T_MR:
fprintf(filePtr, " %-30s\n", "Mail Rename");
break;
case T_MINFO:
fprintf(filePtr, " %-30s\n", "Mail List Requests & Errors");
break;
case T_UINFO:
fprintf(filePtr, " %-30s\n", "User Information");
break;
case T_UID:
fprintf(filePtr, " %-30s\n", "User ID");
break;
case T_GID:
fprintf(filePtr, " %-30s\n", "Group ID");
break;
case T_TXT:
fprintf(filePtr, " %-30s\n", "Text");
break;
case T_NS:
fprintf(filePtr, " %-30s\n", "Name Servers");
break;
case T_PTR:
fprintf(filePtr, " %-30s\n", "Pointers");
break;
case T_SOA:
fprintf(filePtr, " %-30s\n", "Start of Authority");
break;
case T_ANY:
fprintf(filePtr, " %-30s\n", "Resource Record Info.");
break;
}
#endif
dname[0][0] = '\0';
while (1) {
unsigned short tmp;
/*
* Read the length of the response.
*/
cp = (char *) &tmp;
amtToRead = sizeof(u_short);
while (amtToRead > 0 && (numRead=read(sockFD, cp, amtToRead)) > 0) {
cp += numRead;
amtToRead -= numRead;
}
if (numRead <= 0) {
error = ERR_READING_LEN;
break;
}
if ((len = htons(tmp)) == 0) {
break; /* nothing left to read */
}
/*
* The server sent too much data to fit the existing buffer --
* allocate a new one.
*/
if (len > answerLen) {
if (answerLen != 0) {
free(answer);
}
answerLen = len;
answer = Malloc(answerLen);
}
/*
* Read the response.
*/
amtToRead = len;
cp = answer;
while (amtToRead > 0 && (numRead=read(sockFD, cp, amtToRead)) > 0) {
cp += numRead;
amtToRead -= numRead;
}
if (numRead <= 0) {
error = ERR_READING_MSG;
break;
}
result = PrintListInfo(filePtr, answer, cp, qtype, dname[0]);
if (result != SUCCESS) {
error = ERR_PRINTING;
break;
}
numAnswers++;
if (cmd != NULL && ((numAnswers % HASH_SIZE) == 0)) {
fprintf(stdout, "#");
fflush(stdout);
}
cp = answer + sizeof(HEADER);
if (ntohs(((HEADER* )answer)->qdcount) > 0)
cp += dn_skipname(cp, answer + len) + QFIXEDSZ;
nmp = cp;
cp += dn_skipname(cp, (u_char *)answer + len);
if ((_getshort(cp) == T_SOA)) {
dn_expand(answer, answer + len, nmp, dname[soacnt],
sizeof(dname[0]));
if (soacnt) {
if (strcmp(dname[0], dname[1]) == 0)
break;
} else
soacnt++;
}
}
if (cmd != NULL) {
fprintf(stdout, "%sReceived %d record%s.\n",
(numAnswers >= HASH_SIZE) ? "\n" : "",
numAnswers,
(numAnswers != 1) ? "s" : "");
}
(void) close(sockFD);
sockFD = -1;
if (cmd != NULL && filePtr != NULL) {
fclose(filePtr);
filePtr = NULL;
}
switch (error) {
case NO_ERRORS:
return (SUCCESS);
case ERR_READING_LEN:
return(ERROR);
case ERR_PRINTING:
return(result);
case ERR_READING_MSG:
headerPtr = (HEADER *) answer;
fprintf(stderr,"*** ls: error receiving zone transfer:\n");
fprintf(stderr,
" result: %s, answers = %d, authority = %d, additional = %d\n",
_res_resultcodes[headerPtr->rcode],
ntohs(headerPtr->ancount), ntohs(headerPtr->nscount),
ntohs(headerPtr->arcount));
return(ERROR);
default:
return(ERROR);
}
}
\f
/*
*******************************************************************************
*
* PrintListInfo --
*
* Used by the ListInfo routine to print the answer
* received from the name server. Only the desired
* information is printed.
*
* Results:
* SUCCESS the answer was printed without a problem.
* NO_INFO the answer packet did not contain an answer.
* ERROR the answer was malformed.
* Misc. errors returned in the packet header.
*
*******************************************************************************
*/
#define NAME_FORMAT " %-30s"
static Boolean
strip_domain(string, domain)
char *string, *domain;
{
register char *dot;
if (*domain != '\0') {
dot = string;
while ((dot = strchr(dot, '.')) != NULL && strcasecmp(domain, ++dot))
;
if (dot != NULL) {
dot[-1] = '\0';
return TRUE;
}
}
return FALSE;
}
PrintListInfo(file, msg, eom, qtype, domain)
FILE *file;
char *msg, *eom;
int qtype;
char *domain;
{
register char *cp;
HEADER *headerPtr;
int type, class, dlen, nameLen;
u_long ttl;
int n, pref;
struct in_addr inaddr;
char name[NAME_LEN];
char name2[NAME_LEN];
Boolean stripped;
/*
* Read the header fields.
*/
headerPtr = (HEADER *)msg;
cp = msg + sizeof(HEADER);
if (headerPtr->rcode != NOERROR) {
return(headerPtr->rcode);
}
/*
* We are looking for info from answer resource records.
* If there aren't any, return with an error. We assume
* there aren't any question records.
*/
if (ntohs(headerPtr->ancount) == 0) {
return(NO_INFO);
} else {
if (ntohs(headerPtr->qdcount) > 0) {
nameLen = dn_skipname(cp, eom);
if (nameLen < 0)
return (ERROR);
cp += nameLen + QFIXEDSZ;
}
if ((nameLen = dn_expand(msg, eom, cp, name, sizeof(name))) < 0)
return (ERROR);
cp += nameLen;
type = _getshort(cp);
cp += sizeof(u_short);
if (!(type == qtype || qtype == T_ANY) &&
!((type == T_NS || type == T_PTR) && qtype == T_A))
return(SUCCESS);
class = _getshort(cp);
cp += sizeof(u_short);
ttl = _getlong(cp);
cp += sizeof(u_long);
dlen = _getshort(cp);
cp += sizeof(u_short);
if (name[0] == 0)
strcpy(name, "(root)");
/* Strip the domain name from the data, if desired. */
stripped = FALSE;
if ((_res.options & RES_DEBUG) == 0) {
if (type != T_SOA) {
stripped = strip_domain(name, domain);
}
}
if (!stripped && nameLen < sizeof(name)-1) {
strcat(name, ".");
}
fprintf(file, NAME_FORMAT, name);
if (qtype == T_ANY) {
if (_res.options & RES_DEBUG) {
fprintf(file,"\t%lu %-5s", ttl, p_class(queryClass));
}
fprintf(file," %-5s", p_type(type));
}
/* XXX merge this into debug.c's print routines */
switch (type) {
case T_A:
if (class == C_IN) {
bcopy(cp, (char *)&inaddr, sizeof(inaddr));
if (dlen == 4) {
fprintf(file," %s", inet_ntoa(inaddr));
} else if (dlen == 7) {
fprintf(file," %s", inet_ntoa(inaddr));
fprintf(file," (%d, %d)", cp[4],(cp[5] << 8) + cp[6]);
} else
fprintf(file, " (dlen = %d?)", dlen);
}
break;
case T_CNAME:
case T_MB:
case T_MG:
case T_MR:
if ((nameLen =
dn_expand(msg, eom, cp, name2, sizeof(name2))) < 0) {
fprintf(file, " ***\n");
return (ERROR);
}
fprintf(file, " %s", name2);
break;
case T_NS:
case T_PTR:
putc(' ', file);
if (qtype != T_ANY)
fprintf(file,"%s = ", type == T_PTR ? "host" : "server");
cp = Print_cdname2(cp, msg, eom, file);
break;
case T_HINFO:
if (n = *cp++) {
(void)sprintf(name,"%.*s", n, cp);
fprintf(file," %-10s", name);
cp += n;
} else {
fprintf(file," %-10s", " ");
}
if (n = *cp++) {
fprintf(file," %.*s", n, cp);
cp += n;
}
break;
case T_SOA:
if ((nameLen =
dn_expand(msg, eom, cp, name2, sizeof(name2))) < 0) {
fprintf(file, " ***\n");
return (ERROR);
}
cp += nameLen;
fprintf(file, " %s", name2);
if ((nameLen =
dn_expand(msg, eom, cp, name2, sizeof(name2))) < 0) {
fprintf(file, " ***\n");
return (ERROR);
}
cp += nameLen;
fprintf(file, " %s. (", name2);
for (n = 0; n < 5; n++) {
u_long u;
u = _getlong(cp);
cp += sizeof(u_long);
fprintf(file,"%s%lu", n? " " : "", u);
}
fprintf(file, ")");
break;
case T_MX:
pref = _getshort(cp);
cp += sizeof(u_short);
fprintf(file," %-3d ",pref);
if ((nameLen =
dn_expand(msg, eom, cp, name2, sizeof(name2))) < 0) {
fprintf(file, " ***\n");
return (ERROR);
}
fprintf(file, " %s", name2);
break;
case T_TXT:
{
char *cp2 = cp + dlen;
int c;
(void) fputs(" \"", file);
while (cp < cp2) {
if (n = (unsigned char) *cp++) {
for (c = n; c > 0 && cp < cp2; c--)
if (*cp == '\n') {
(void) putc('\\', file);
(void) putc(*cp++, file);
} else
(void) putc(*cp++, file);
}
}
(void) putc('"', file);
}
break;
case T_MINFO:
(void) putc(' ', file);
cp = Print_cdname(cp, msg, eom, file);
fprintf(file, " ");
cp = Print_cdname(cp, msg, eom, file);
break;
case T_UINFO:
fprintf(file, " %s", cp);
break;
case T_UID:
case T_GID:
fprintf(file, " %lu", _getlong(cp));
break;
case T_WKS:
if (class == C_IN) {
struct protoent *pp;
struct servent *ss;
u_short port;
cp += 4; /* skip inet address */
dlen -= 4;
setprotoent(1);
setservent(1);
n = *cp & 0377;
pp = getprotobynumber(n);
if (pp == 0)
fprintf(file," %-3d ", n);
else
fprintf(file," %-3s ", pp->p_name);
cp++; dlen--;
port = 0;
while (dlen-- > 0) {
n = *cp++;
do {
if (n & 0200) {
ss = getservbyport((int)htons(port),
pp->p_name);
if (ss == 0)
fprintf(file," %u", port);
else
fprintf(file," %s", ss->s_name);
}
n <<= 1;
} while (++port & 07);
}
endprotoent();
endservent();
}
break;
}
fprintf(file,"\n");
}
return(SUCCESS);
}
\f
/*
*******************************************************************************
*
* ViewList --
*
* A hack to view the output of the ls command in sorted
* order using more.
*
*******************************************************************************
*/
ViewList(string)
char *string;
{
char file[NAME_LEN];
char command[NAME_LEN];
sscanf(string, " view %s", file);
(void)sprintf(command, "grep \"^ \" %s | sort | more", file);
system(command);
}
\f
/*
*******************************************************************************
*
* Finger --
*
* Connects with the finger server for the current host
* to request info on the specified person (long form)
* who is on the system (short form).
*
* Results:
* SUCCESS the finger server was contacted.
* ERROR the server could not be contacted because
* a socket could not be obtained or connected
* to or the service could not be found.
*
*******************************************************************************
*/
Finger(string, putToFile)
char *string;
int putToFile;
{
struct servent *sp;
struct sockaddr_in sin;
register FILE *f;
register int c;
register int lastc;
char name[NAME_LEN];
char file[NAME_LEN];
/*
* We need a valid current host info to get an inet address.
*/
if (!curHostValid) {
fprintf(stderr, "Finger: no current host defined.\n");
return (ERROR);
}
if (sscanf(string, " finger %s", name) == 1) {
if (putToFile && (name[0] == '>')) {
name[0] = '\0';
}
} else {
name[0] = '\0';
}
sp = getservbyname("finger", "tcp");
if (sp == 0) {
fprintf(stderr, "Finger: unknown service\n");
return (ERROR);
}
bzero((char *)&sin, sizeof(sin));
sin.sin_family = curHostInfo.addrType;
sin.sin_port = sp->s_port;
bcopy(curHostInfo.addrList[0], (char *)&sin.sin_addr,
curHostInfo.addrLen);
/*
* Set up a virtual circuit to the host.
*/
sockFD = socket(curHostInfo.addrType, SOCK_STREAM, 0);
if (sockFD < 0) {
fflush(stdout);
perror("finger: socket");
return (ERROR);
}
if (connect(sockFD, (char *)&sin, sizeof (sin)) < 0) {
fflush(stdout);
perror("finger: connect");
close(sockFD);
sockFD = -1;
return (ERROR);
}
if (!putToFile) {
filePtr = stdout;
} else {
filePtr = OpenFile(string, file);
if (filePtr == NULL) {
fprintf(stderr, "*** Can't open %s for writing\n", file);
close(sockFD);
sockFD = -1;
return(ERROR);
}
fprintf(filePtr,"> %s\n", string);
}
fprintf(filePtr, "[%s]\n", curHostInfo.name);
if (name[0] != '\0') {
write(sockFD, "/W ", 3);
}
write(sockFD, name, strlen(name));
write(sockFD, "\r\n", 2);
f = fdopen(sockFD, "r");
while ((c = getc(f)) != EOF) {
switch (c) {
case 0210:
case 0211:
case 0212:
case 0214:
c -= 0200;
break;
case 0215:
c = '\n';
break;
}
putc(lastc = c, filePtr);
}
if (lastc != '\n') {
putc('\n', filePtr);
}
putc('\n', filePtr);
close(sockFD);
sockFD = -1;
if (putToFile) {
fclose(filePtr);
filePtr = NULL;
}
return (SUCCESS);
}
ListHost_close()
{
if (sockFD != -1) {
(void) close(sockFD);
sockFD = -1;
}
}
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.