gethost.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

#ifndef lint
static char *sccsid = "@(#)gethost.c	4.3	(ULTRIX)	8/2/90";
#endif lint

/************************************************************************
 *									*
 *			Copyright (c) 1984 by				*
 *		Digital Equipment Corporation, Maynard, MA		*
 *			All rights reserved.				*
 *									*
 *   This software is furnished under a license and may be used and	*
 *   copied  only  in accordance with the terms of such license and	*
 *   with the  inclusion  of  the  above  copyright  notice.   This	*
 *   software  or  any  other copies thereof may not be provided or	*
 *   otherwise made available to any other person.  No title to and	*
 *   ownership of the software is hereby transferred.			*
 *									*
 *   This software is  derived  from  software  received  from  the	*
 *   University    of   California,   Berkeley,   and   from   Bell	*
 *   Laboratories.  Use, duplication, or disclosure is  subject  to	*
 *   restrictions  under  license  agreements  with  University  of	*
 *   California and with AT&T.						*
 *									*
 *   The information in this software is subject to change  without	*
 *   notice  and should not be construed as a commitment by Digital	*
 *   Equipment Corporation.						*
 *									*
 *   Digital assumes no responsibility for the use  or  reliability	*
 *   of its software on equipment which is not supplied by Digital.	*
 *									*
 ************************************************************************/

/************************************************************************
 *			Modification History				*
 *									*
 * 29-Jun-90	Fred L. Templin						*
 *	Added "getsysinfo()" call on the MIPS side to retrieve name	*
 *	of boot interface						*
 *									*
 * 03-Feb-89	R. Bhanukitsiri						*
 *	Reflect V3.2 source pool changes.  Merge in VAX code from V3.0.	*
 *									*
 ************************************************************************/

#include <stdio.h>
#include <ctype.h>
#include "../h/file.h"
#include <machine/cpuconf.h>
#ifdef vax
#include "../machine/vax/rpb.h"
#include "../sas/vax/vmb.h"
#endif vax
#include "../sas/mop.h"
#include "../h/sysinfo.h"
main()
{
#ifdef vax
	struct rpb rpb;
	struct vmb_info vmb;
#endif vax
	char	srvip[40];
	char	cliip[40];
	char	netmask[40];
	char	brdcast[40];
	char	syscall[60];
	char	netdev[10];
	int	offset;
	int	kernel;
	int 	i;
	FILE	*hosts;
	struct	netblk netblk;
	struct  netblk *netblk_ptr;
	/******* get rpb struct from kernel space **********************/
#ifdef vax
	kernel=open("/dev/kmem",O_RDONLY);
	if(kernel < 0)
		exit(2);
	lseek(kernel,0x80000000,0);
	read(kernel,&rpb,sizeof(struct rpb));
	/******* assure that a netboot has occured and set netdev ******/
	if(rpb.devtyp == BTD$K_QNA) 
		sprintf(netdev,"qe0");
	else	if(rpb.devtyp == BTD$K_LANCE)
		sprintf(netdev,"ln0");
		else	exit(2);
	offset = ((int) rpb.vmbinfo);
	if(offset==0)
		exit(2);
	/******** get vmb_info struct from kernel space ****************/
	lseek(kernel,offset,0);
	read(kernel,&vmb,sizeof(struct vmb_info));
	close(kernel);
	netblk_ptr = (struct netblk *)&vmb.netblk;
#endif vax
#ifdef mips
	getsysinfo(4, (char *)&netblk, sizeof (struct netblk));
	netblk_ptr = (struct netblk *)&netblk;
	getsysinfo(13, netdev, 10);
#endif mips
	/******** extract server and client ip addresses ***************/
	exip(netblk_ptr->srvipadr,srvip);
	exip(netblk_ptr->cliipadr,cliip);
	exip(netblk_ptr->brdcst,brdcast);
	exip(netblk_ptr->netmsk,netmask);
	/******** create /etc/hosts file *******************************/
	/******** 	entry 1 = client *******************************/
	/********       entry 2 = server *******************************/
	hosts=fopen("/etc/hosts","w");
	if(hosts==NULL)
		exit(2);
	fprintf(hosts,"127.0.0.1 localhost\n");
#ifdef	mips
	fprintf(hosts,"%s %s\n",cliip,netblk_ptr->cliname);
	fprintf(hosts,"%s %s\n",srvip,netblk_ptr->srvname);
#endif	mips
#ifdef	vax
	fprintf(hosts,"%s %s\n",cliip,vmb.netblk.cliname);
	fprintf(hosts,"%s %s\n",srvip,vmb.netblk.srvname);
#endif	vax
	fclose(hosts);
	/******** create netstart file *********************************/
	/******** 	sets hostname and runs ifconfig (like rc.local)*/
	hosts=fopen("/netstart","w");
	if(hosts==NULL)
		exit(2);
#ifdef	mips
	fprintf(hosts,"/bin/hostname %s\n",netblk_ptr->cliname);
#endif	mips
#ifdef	vax
	fprintf(hosts,"/bin/hostname %s\n",vmb.netblk.cliname);
#endif	vax
	fprintf(hosts,"/etc/ifconfig %s `/bin/hostname` broadcast %s netmask %s\n",netdev,brdcast,netmask);
	fprintf(hosts,"/etc/ifconfig lo0 localhost\n");
	fclose(hosts);
	/******** output SERVER and CLIENT assignments for potential eval ***/
#ifdef	mips
	fprintf(stdout,"SERVER=%s\n",netblk_ptr->srvname);
	fprintf(stdout,"CLIENT=%s\n",netblk_ptr->cliname);
#endif	mips
#ifdef	vax
	fprintf(stdout,"SERVER=%s\n",vmb.netblk.srvname);
	fprintf(stdout,"CLIENT=%s\n",vmb.netblk.cliname);
#endif	vax
	fclose(hosts);
	/******** execute netstart ******************************************/
	chmod("/netstart",0500);
	system("/netstart");
	exit(0);
}
/************************************************************************/
/*									*/
/*	exip - extract ip string from a long				*/
/************************************************************************/
exip(ipaddr,str)
	unsigned long ipaddr;
	char *str;
{
int i=0,j=0,flg=0;
int numb[4];
numb[0]= ((ipaddr >> 24) & 0377);
numb[1]= ((ipaddr >> 16) & 0377);
numb[2]= ((ipaddr >> 8) & 0377);
numb[3]= (ipaddr & 0377);
sprintf(str,"%d.%d.%d.%d",numb[0],numb[1],numb[2],numb[3]);
return(0);
}