580 lines
15 KiB
C
580 lines
15 KiB
C
/*
|
||
* ++Copyright++ 1985, 1989
|
||
* -
|
||
* Copyright (c) 1985, 1989
|
||
* 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--
|
||
*/
|
||
|
||
#ifndef lint
|
||
static char sccsid[] = "@(#)subr.c 5.24 (Berkeley) 3/2/91";
|
||
static char rcsid[] = "$Id: subr.c,v 1.5 1995/10/23 12:59:29 peter Exp $";
|
||
#endif /* not lint */
|
||
|
||
/*
|
||
*******************************************************************************
|
||
*
|
||
* subr.c --
|
||
*
|
||
* Miscellaneous subroutines for the name server
|
||
* lookup program.
|
||
*
|
||
* Copyright (c) 1985
|
||
* Andrew Cherenson
|
||
* U.C. Berkeley
|
||
* CS298-26 Fall 1985
|
||
*
|
||
*******************************************************************************
|
||
*/
|
||
|
||
#include <sys/types.h>
|
||
#include <sys/param.h>
|
||
#include <netdb.h>
|
||
#include <sys/socket.h>
|
||
#include <netinet/in.h>
|
||
#include <arpa/nameser.h>
|
||
#include <arpa/inet.h>
|
||
#include <signal.h>
|
||
#include <setjmp.h>
|
||
#include <stdio.h>
|
||
#include <string.h>
|
||
#include <stdlib.h>
|
||
#include "res.h"
|
||
|
||
|
||
/*
|
||
*******************************************************************************
|
||
*
|
||
* IntrHandler --
|
||
*
|
||
* This routine is called whenever a control-C is typed.
|
||
* It performs three main functions:
|
||
* - closes an open socket connection,
|
||
* - closes an open output file (used by LookupHost, et al.),
|
||
* - jumps back to the main read-eval loop.
|
||
*
|
||
* If a user types a ^C in the middle of a routine that uses a socket,
|
||
* the routine would not be able to close the socket. To prevent an
|
||
* overflow of the process's open file table, the socket and output
|
||
* file descriptors are closed by the interrupt handler.
|
||
*
|
||
* Side effects:
|
||
* Open file descriptors are closed.
|
||
* If filePtr is valid, it is closed.
|
||
* Flow of control returns to the main() routine.
|
||
*
|
||
*******************************************************************************
|
||
*/
|
||
|
||
void
|
||
IntrHandler()
|
||
{
|
||
extern jmp_buf env;
|
||
#if defined(BSD) && BSD >= 199006 && !defined(RISCOS_BSD) && !defined(__osf__)
|
||
extern FILE *yyin; /* scanner input file */
|
||
extern void yyrestart(); /* routine to restart scanner after interrupt */
|
||
#endif
|
||
|
||
SendRequest_close();
|
||
ListHost_close();
|
||
if (filePtr != NULL && filePtr != stdout) {
|
||
fclose(filePtr);
|
||
filePtr = NULL;
|
||
}
|
||
printf("\n");
|
||
#if defined(BSD) && BSD >= 199006 && !defined(RISCOS_BSD) && !defined(__osf__)
|
||
yyrestart(yyin);
|
||
#endif
|
||
longjmp(env, 1);
|
||
}
|
||
|
||
|
||
/*
|
||
*******************************************************************************
|
||
*
|
||
* Malloc --
|
||
* Calloc --
|
||
*
|
||
* Calls the malloc library routine with SIGINT blocked to prevent
|
||
* corruption of malloc's data structures. We need to do this because
|
||
* a control-C doesn't kill the program -- it causes a return to the
|
||
* main command loop.
|
||
*
|
||
* NOTE: This method doesn't prevent the pointer returned by malloc
|
||
* from getting lost, so it is possible to get "core leaks".
|
||
*
|
||
* If malloc fails, the program exits.
|
||
*
|
||
* Results:
|
||
* (address) - address of new buffer.
|
||
*
|
||
*******************************************************************************
|
||
*/
|
||
|
||
char *
|
||
Malloc(size)
|
||
int size;
|
||
{
|
||
char *ptr;
|
||
|
||
#ifdef SYSV
|
||
#if defined(SVR3) || defined(SVR4)
|
||
sighold(SIGINT);
|
||
ptr = malloc((unsigned) size);
|
||
sigrelse(SIGINT);
|
||
#else
|
||
{ void (*old)();
|
||
old = signal(SIGINT, SIG_IGN);
|
||
ptr = malloc((unsigned) size);
|
||
signal(SIGINT, old);
|
||
}
|
||
#endif
|
||
#else
|
||
#ifdef POSIX_SIGNALS
|
||
{ sigset_t sset;
|
||
sigemptyset(&sset);
|
||
sigaddset(&sset,SIGINT);
|
||
sigprocmask(SIG_BLOCK,&sset,NULL);
|
||
ptr = malloc((unsigned) size);
|
||
sigprocmask(SIG_UNBLOCK,&sset,NULL);
|
||
}
|
||
#else
|
||
{ int saveMask;
|
||
saveMask = sigblock(sigmask(SIGINT));
|
||
ptr = malloc((unsigned) size);
|
||
(void) sigsetmask(saveMask);
|
||
}
|
||
#endif
|
||
#endif
|
||
if (ptr == NULL) {
|
||
fflush(stdout);
|
||
fprintf(stderr, "*** Can't allocate memory\n");
|
||
fflush(stderr);
|
||
abort();
|
||
/*NOTREACHED*/
|
||
} else {
|
||
return(ptr);
|
||
}
|
||
}
|
||
|
||
char *
|
||
Calloc(num, size)
|
||
register int num, size;
|
||
{
|
||
char *ptr = Malloc(num*size);
|
||
bzero(ptr, num*size);
|
||
return(ptr);
|
||
}
|
||
|
||
|
||
/*
|
||
*******************************************************************************
|
||
*
|
||
* PrintHostInfo --
|
||
*
|
||
* Prints out the HostInfo structure for a host.
|
||
*
|
||
*******************************************************************************
|
||
*/
|
||
|
||
void
|
||
PrintHostInfo(file, title, hp)
|
||
FILE *file;
|
||
char *title;
|
||
register HostInfo *hp;
|
||
{
|
||
register char **cp;
|
||
register ServerInfo **sp;
|
||
char comma;
|
||
int i;
|
||
|
||
fprintf(file, "%-7s %s", title, hp->name);
|
||
|
||
if (hp->addrList != NULL) {
|
||
if (hp->addrList[1] != NULL) {
|
||
fprintf(file, "\nAddresses:");
|
||
} else {
|
||
fprintf(file, "\nAddress:");
|
||
}
|
||
comma = ' ';
|
||
i = 0;
|
||
for (cp = hp->addrList; cp && *cp; cp++) {
|
||
i++;
|
||
if (i > 4) {
|
||
fprintf(file, "\n\t");
|
||
comma = ' ';
|
||
i = 0;
|
||
}
|
||
fprintf(file,"%c %s", comma, inet_ntoa(*(struct in_addr *)*cp));
|
||
comma = ',';
|
||
}
|
||
}
|
||
|
||
if (hp->aliases != NULL) {
|
||
fprintf(file, "\nAliases:");
|
||
comma = ' ';
|
||
i = 10;
|
||
for (cp = hp->aliases; cp && *cp && **cp; cp++) {
|
||
i += strlen(*cp) + 2;
|
||
if (i > 75) {
|
||
fprintf(file, "\n\t");
|
||
comma = ' ';
|
||
i = 10;
|
||
}
|
||
fprintf(file, "%c %s", comma, *cp);
|
||
comma = ',';
|
||
}
|
||
}
|
||
|
||
if (hp->servers != NULL) {
|
||
fprintf(file, "\nServed by:\n");
|
||
for (sp = hp->servers; *sp != NULL ; sp++) {
|
||
|
||
fprintf(file, "- %s\n\t", (*sp)->name);
|
||
|
||
comma = ' ';
|
||
i = 0;
|
||
for (cp = (*sp)->addrList; cp && *cp && **cp; cp++) {
|
||
i++;
|
||
if (i > 4) {
|
||
fprintf(file, "\n\t");
|
||
comma = ' ';
|
||
i = 0;
|
||
}
|
||
fprintf(file,
|
||
"%c %s", comma, inet_ntoa(*(struct in_addr *)*cp));
|
||
comma = ',';
|
||
}
|
||
fprintf(file, "\n\t");
|
||
|
||
comma = ' ';
|
||
i = 10;
|
||
for (cp = (*sp)->domains; cp && *cp && **cp; cp++) {
|
||
i += strlen(*cp) + 2;
|
||
if (i > 75) {
|
||
fprintf(file, "\n\t");
|
||
comma = ' ';
|
||
i = 10;
|
||
}
|
||
fprintf(file, "%c %s", comma, *cp);
|
||
comma = ',';
|
||
}
|
||
fprintf(file, "\n");
|
||
}
|
||
}
|
||
|
||
fprintf(file, "\n\n");
|
||
}
|
||
|
||
/*
|
||
*******************************************************************************
|
||
*
|
||
* OpenFile --
|
||
*
|
||
* Parses a command string for a file name and opens
|
||
* the file.
|
||
*
|
||
* Results:
|
||
* file pointer - the open was successful.
|
||
* NULL - there was an error opening the file or
|
||
* the input string was invalid.
|
||
*
|
||
*******************************************************************************
|
||
*/
|
||
|
||
FILE *
|
||
OpenFile(string, file)
|
||
char *string;
|
||
char *file;
|
||
{
|
||
char *redirect;
|
||
FILE *tmpPtr;
|
||
|
||
/*
|
||
* Open an output file if we see '>' or >>'.
|
||
* Check for overwrite (">") or concatenation (">>").
|
||
*/
|
||
|
||
redirect = strchr(string, '>');
|
||
if (redirect == NULL) {
|
||
return(NULL);
|
||
}
|
||
if (redirect[1] == '>') {
|
||
sscanf(redirect, ">> %s", file);
|
||
tmpPtr = fopen(file, "a+");
|
||
} else {
|
||
sscanf(redirect, "> %s", file);
|
||
tmpPtr = fopen(file, "w");
|
||
}
|
||
|
||
if (tmpPtr != NULL) {
|
||
redirect[0] = '\0';
|
||
}
|
||
|
||
return(tmpPtr);
|
||
}
|
||
|
||
/*
|
||
*******************************************************************************
|
||
*
|
||
* DecodeError --
|
||
*
|
||
* Converts an error code into a character string.
|
||
*
|
||
*******************************************************************************
|
||
*/
|
||
|
||
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 host/domain"); break;
|
||
case NOTIMP: return("Not implemented"); break;
|
||
case REFUSED: return("Query refused"); break;
|
||
#ifdef NOCHANGE
|
||
case NOCHANGE: return("No change"); break;
|
||
#endif
|
||
case TIME_OUT: return("Timed out"); break;
|
||
case NO_INFO: return("No information"); break;
|
||
case ERROR: return("Unspecified error"); break;
|
||
case NONAUTH: return("Non-authoritative answer"); break;
|
||
case NO_RESPONSE: return("No response from server"); break;
|
||
default: break;
|
||
}
|
||
return("BAD ERROR VALUE");
|
||
}
|
||
|
||
|
||
int
|
||
StringToClass(class, dflt, errorfile)
|
||
char *class;
|
||
int dflt;
|
||
FILE *errorfile;
|
||
{
|
||
if (strcasecmp(class, "IN") == 0)
|
||
return(C_IN);
|
||
if (strcasecmp(class, "HESIOD") == 0 ||
|
||
strcasecmp(class, "HS") == 0)
|
||
return(C_HS);
|
||
if (strcasecmp(class, "CHAOS") == 0)
|
||
return(C_CHAOS);
|
||
if (strcasecmp(class, "ANY") == 0)
|
||
return(C_ANY);
|
||
if (errorfile)
|
||
fprintf(errorfile, "unknown query class: %s\n", class);
|
||
return(dflt);
|
||
}
|
||
|
||
|
||
/*
|
||
*******************************************************************************
|
||
*
|
||
* StringToType --
|
||
*
|
||
* Converts a string form of a query type name to its
|
||
* corresponding integer value.
|
||
*
|
||
*******************************************************************************
|
||
*/
|
||
|
||
int
|
||
StringToType(type, dflt, errorfile)
|
||
char *type;
|
||
int dflt;
|
||
FILE *errorfile;
|
||
{
|
||
if (strcasecmp(type, "A") == 0)
|
||
return(T_A);
|
||
if (strcasecmp(type, "NS") == 0)
|
||
return(T_NS); /* authoritative server */
|
||
if (strcasecmp(type, "MX") == 0)
|
||
return(T_MX); /* mail exchanger */
|
||
if (strcasecmp(type, "PX") == 0)
|
||
return(T_PX); /* mapping information */
|
||
if (strcasecmp(type, "CNAME") == 0)
|
||
return(T_CNAME); /* canonical name */
|
||
if (strcasecmp(type, "SOA") == 0)
|
||
return(T_SOA); /* start of authority zone */
|
||
if (strcasecmp(type, "MB") == 0)
|
||
return(T_MB); /* mailbox domain name */
|
||
if (strcasecmp(type, "MG") == 0)
|
||
return(T_MG); /* mail group member */
|
||
if (strcasecmp(type, "MR") == 0)
|
||
return(T_MR); /* mail rename name */
|
||
if (strcasecmp(type, "WKS") == 0)
|
||
return(T_WKS); /* well known service */
|
||
if (strcasecmp(type, "PTR") == 0)
|
||
return(T_PTR); /* domain name pointer */
|
||
if (strcasecmp(type, "HINFO") == 0)
|
||
return(T_HINFO); /* host information */
|
||
if (strcasecmp(type, "MINFO") == 0)
|
||
return(T_MINFO); /* mailbox information */
|
||
if (strcasecmp(type, "AXFR") == 0)
|
||
return(T_AXFR); /* zone transfer */
|
||
if (strcasecmp(type, "MAILA") == 0)
|
||
return(T_MAILA); /* mail agent */
|
||
if (strcasecmp(type, "MAILB") == 0)
|
||
return(T_MAILB); /* mail box */
|
||
if (strcasecmp(type, "ANY") == 0)
|
||
return(T_ANY); /* matches any type */
|
||
if (strcasecmp(type, "UINFO") == 0)
|
||
return(T_UINFO); /* user info */
|
||
if (strcasecmp(type, "UID") == 0)
|
||
return(T_UID); /* user id */
|
||
if (strcasecmp(type, "GID") == 0)
|
||
return(T_GID); /* group id */
|
||
if (strcasecmp(type, "TXT") == 0)
|
||
return(T_TXT); /* text */
|
||
if (strcasecmp(type, "RP") == 0)
|
||
return(T_RP); /* responsible person */
|
||
if (strcasecmp(type, "X25") == 0)
|
||
return(T_X25); /* x25 address */
|
||
if (strcasecmp(type, "ISDN") == 0)
|
||
return(T_ISDN); /* isdn address */
|
||
if (strcasecmp(type, "RT") == 0)
|
||
return(T_RT); /* router */
|
||
if (strcasecmp(type, "AFSDB") == 0)
|
||
return(T_AFSDB); /* DCE or AFS server */
|
||
if (strcasecmp(type, "NSAP") == 0)
|
||
return(T_NSAP); /* NSAP address */
|
||
if (strcasecmp(type, "NSAP_PTR") == 0)
|
||
return(T_NSAP_PTR); /* NSAP reverse pointer */
|
||
if (errorfile)
|
||
fprintf(errorfile, "unknown query type: %s\n", type);
|
||
return(dflt);
|
||
}
|
||
|
||
/*
|
||
*******************************************************************************
|
||
*
|
||
* DecodeType --
|
||
*
|
||
* Converts a query type to a descriptive name.
|
||
* (A more verbose form of p_type.)
|
||
*
|
||
*
|
||
*******************************************************************************
|
||
*/
|
||
|
||
static char nbuf[20];
|
||
|
||
char *
|
||
DecodeType(type)
|
||
int type;
|
||
{
|
||
switch (type) {
|
||
case T_A:
|
||
return("address");
|
||
case T_NS:
|
||
return("name server");
|
||
case T_CNAME:
|
||
return("canonical name");
|
||
case T_SOA:
|
||
return("start of authority");
|
||
case T_MB:
|
||
return("mailbox");
|
||
case T_MG:
|
||
return("mail group member");
|
||
case T_MR:
|
||
return("mail rename");
|
||
case T_NULL:
|
||
return("null");
|
||
case T_WKS:
|
||
return("well-known service");
|
||
case T_PTR:
|
||
return("domain name pointer");
|
||
case T_HINFO:
|
||
return("host information");
|
||
case T_MINFO:
|
||
return("mailbox information");
|
||
case T_MX:
|
||
return("mail exchanger");
|
||
case T_PX:
|
||
return("mapping information");
|
||
case T_TXT:
|
||
return("text");
|
||
case T_RP:
|
||
return("responsible person");
|
||
case T_AFSDB:
|
||
return("DCE or AFS server");
|
||
case T_X25:
|
||
return("X25 address");
|
||
case T_ISDN:
|
||
return("ISDN address");
|
||
case T_RT:
|
||
return("router");
|
||
case T_NSAP:
|
||
return("nsap address");
|
||
case T_NSAP_PTR:
|
||
return("domain name pointer");
|
||
case T_UINFO:
|
||
return("user information");
|
||
case T_UID:
|
||
return("user ID");
|
||
case T_GID:
|
||
return("group ID");
|
||
case T_AXFR:
|
||
return("zone transfer");
|
||
case T_MAILB:
|
||
return("mailbox-related data");
|
||
case T_MAILA:
|
||
return("mail agent");
|
||
case T_ANY:
|
||
return("\"any\"");
|
||
default:
|
||
(void) sprintf(nbuf, "%d", type);
|
||
return (nbuf);
|
||
}
|
||
}
|