500 lines
14 KiB
C
500 lines
14 KiB
C
/* emutli1.c 05-May-98 */
|
|
/*
|
|
* One short try to emulate TLI with SOCKETS.
|
|
*/
|
|
|
|
/* (C)opyright (C) 1993,1996 Martin Stover, Marburg, Germany
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
*/
|
|
|
|
/*
|
|
* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
* Some of the Code in this module is stolen from the following
|
|
* Programms: ipx_interface, ipx_route, ipx_configure, which were
|
|
* written by Greg Page, Caldera, Inc.
|
|
* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
*/
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <unistd.h>
|
|
#include <sys/time.h>
|
|
#include <sys/socket.h>
|
|
#include <sys/ioctl.h>
|
|
#if 0
|
|
# include <linux/sockios.h>
|
|
#endif
|
|
#include "net.h"
|
|
#if 0
|
|
# include <linux/if.h>
|
|
# include <linux/route.h>
|
|
# include <linux/in.h>
|
|
#else
|
|
# include <net/if.h>
|
|
# include <net/route.h>
|
|
# include <netinet/in.h>
|
|
#endif
|
|
#include <errno.h>
|
|
|
|
static int have_ipx_started=0;
|
|
static int auto_interfaces=0;
|
|
static int org_auto_interfaces=0;
|
|
|
|
static int x_ioctl(int sock, int mode, void *id)
|
|
{
|
|
int result;
|
|
int i = 0;
|
|
do {
|
|
result = ioctl(sock, mode, id);
|
|
i++;
|
|
} while ((i < 5) && (result < 0) && (errno == EAGAIN));
|
|
return(result);
|
|
}
|
|
|
|
int read_interface_data(uint8* data, uint32 *rnet, uint8 *node,
|
|
int *flags, uint8 *name)
|
|
|
|
/* returns frame or -1 for no frame or -2 for error */
|
|
{
|
|
uint32 snet;
|
|
int frame =-2;
|
|
int xflags = 0;
|
|
uint8 buff1[200];
|
|
uint8 buff2[200];
|
|
uint8 buff3[200];
|
|
uint8 buff4[200];
|
|
if (!rnet) rnet =&snet;
|
|
if (!flags) flags=&xflags;
|
|
else *flags=0;
|
|
if (sscanf(data, "%lx %s %s %s %s",
|
|
rnet, buff1, buff2, buff3, buff4) == 5 ) {
|
|
int len = strlen(buff4);
|
|
if (!len) return(-2);
|
|
switch (*(buff4+len-1)) {
|
|
case '2' : frame = IPX_FRAME_8022; break;
|
|
case '3' : frame = IPX_FRAME_8023; break;
|
|
case 'P' : frame = IPX_FRAME_SNAP; break;
|
|
case 'I' : frame = IPX_FRAME_ETHERII; break;
|
|
#ifdef IPX_FRAME_TR_8022
|
|
case 'R' : frame = IPX_FRAME_TR_8022; break;
|
|
#endif
|
|
case 'e' :
|
|
case 'E' : frame = -1; break; /* NONE */
|
|
default : return(-2);
|
|
}
|
|
if (node) strmaxcpy(node, buff1, 12);
|
|
|
|
upstr(buff2);
|
|
if (!strcmp(buff2, "YES")) /* primary */
|
|
*flags |= 1;
|
|
|
|
if (name) strmaxcpy(name, buff3, 20);
|
|
upstr(buff3);
|
|
if (!strcmp(buff3, "INTERNAL")) /* internal net */
|
|
*flags |= 2;
|
|
}
|
|
return(frame);
|
|
}
|
|
|
|
int get_interface_frame_name(char *name, uint32 net)
|
|
/* returns frame and name of Device of net */
|
|
{
|
|
int frame = -1;
|
|
FILE *f=fopen("/proc/net/ipx_interface", "r");
|
|
if (f) {
|
|
char buff[200];
|
|
while (fgets((char*)buff, sizeof(buff), f) != NULL){
|
|
uint32 rnet;
|
|
uint8 dname[25];
|
|
int fframe = read_interface_data((uint8*) buff, &rnet, NULL, NULL, dname);
|
|
if (fframe < 0) continue;
|
|
if (rnet == net) {
|
|
if (name) strcpy(name, dname);
|
|
frame = fframe;
|
|
break;
|
|
}
|
|
}
|
|
fclose(f);
|
|
}
|
|
return(frame);
|
|
}
|
|
|
|
static void del_special_net(int special, char *devname, int frame)
|
|
/* specials = */
|
|
/* IPX_SPECIAL_NONE */
|
|
/* IPX_INTERNAL */
|
|
/* IPX_PRIMARY */
|
|
/* devname + frame only if not IPX_INTERNAL */
|
|
{
|
|
int sock = socket(AF_IPX, SOCK_DGRAM, AF_IPX);
|
|
if (sock > -1) {
|
|
struct ifreq id;
|
|
struct sockaddr_ipx *sipx = (struct sockaddr_ipx *)&id.ifr_addr;
|
|
memset(&id, 0, sizeof(struct ifreq));
|
|
|
|
sipx->sipx_network = 0L;
|
|
sipx->sipx_special = special;
|
|
sipx->sipx_family = AF_IPX;
|
|
if (special == IPX_PRIMARY) {
|
|
FILE *f=fopen("/proc/net/ipx_interface", "r");
|
|
if (f) {
|
|
char buff[200];
|
|
uint8 name[25];
|
|
while (fgets((char*)buff, sizeof(buff), f) != NULL){
|
|
int flags = 0;
|
|
int frame = read_interface_data((uint8*) buff, NULL, NULL,
|
|
&flags, name);
|
|
if (frame < 0) continue;
|
|
sipx->sipx_type = frame;
|
|
if (flags & 1) { /* primary */
|
|
if (flags & 2){ /* primary == internal net */
|
|
sipx->sipx_special = IPX_INTERNAL;
|
|
} else
|
|
strcpy(id.ifr_name, name);
|
|
break;
|
|
}
|
|
}
|
|
fclose(f);
|
|
}
|
|
} else if (special != IPX_INTERNAL) {
|
|
if (devname && *devname) strcpy(id.ifr_name, devname);
|
|
sipx->sipx_type = frame;
|
|
}
|
|
sipx->sipx_action = IPX_DLTITF;
|
|
x_ioctl(sock, SIOCSIFADDR, &id);
|
|
close(sock);
|
|
}
|
|
}
|
|
|
|
static void del_all_interfaces_nets(void)
|
|
/* removes all ipx_interfaces */
|
|
{
|
|
int sock = socket(AF_IPX, SOCK_DGRAM, AF_IPX);
|
|
if (sock > -1) {
|
|
FILE *f=fopen("/proc/net/ipx_interface", "r");
|
|
if (f) {
|
|
char buff[200];
|
|
uint8 name[25];
|
|
struct ifreq id;
|
|
struct sockaddr_ipx *sipx = (struct sockaddr_ipx *)&id.ifr_addr;
|
|
|
|
while (fgets((char*)buff, sizeof(buff), f) != NULL){
|
|
int flags = 0;
|
|
int frame = read_interface_data((uint8*) buff, NULL, NULL,
|
|
&flags, name);
|
|
if (frame < -1) continue;
|
|
|
|
memset(&id, 0, sizeof(struct ifreq));
|
|
sipx->sipx_network = 0L;
|
|
sipx->sipx_family = AF_IPX;
|
|
|
|
if (flags & 2) { /* internal */
|
|
sipx->sipx_special = IPX_INTERNAL;
|
|
} else {
|
|
sipx->sipx_type = frame;
|
|
strcpy(id.ifr_name, name);
|
|
if (flags & 1) /* primary */
|
|
sipx->sipx_special = IPX_PRIMARY;
|
|
else
|
|
sipx->sipx_special = IPX_SPECIAL_NONE;
|
|
}
|
|
sipx->sipx_action = IPX_DLTITF;
|
|
x_ioctl(sock, SIOCSIFADDR, &id);
|
|
}
|
|
fclose(f);
|
|
}
|
|
close(sock);
|
|
}
|
|
}
|
|
|
|
#define del_internal_net() \
|
|
del_special_net(IPX_INTERNAL, NULL, 0)
|
|
#define del_interface(devname, frame) \
|
|
del_special_net(IPX_SPECIAL_NONE, (devname), (frame))
|
|
#define del_primary_net() \
|
|
del_special_net(IPX_PRIMARY, NULL, 0)
|
|
|
|
static int add_special_net(int special,
|
|
char *devname, int frame, uint32 netnum, uint32 node)
|
|
{
|
|
int result = -1;
|
|
int sock = socket(AF_IPX, SOCK_DGRAM, AF_IPX);
|
|
if (sock > -1) {
|
|
struct ifreq id;
|
|
struct sockaddr_ipx *sipx = (struct sockaddr_ipx *)&id.ifr_addr;
|
|
memset(&id, 0, sizeof(struct ifreq));
|
|
if (special != IPX_INTERNAL){
|
|
if (devname && *devname) strcpy(id.ifr_name, devname);
|
|
sipx->sipx_type = frame;
|
|
} else {
|
|
uint32 xx=htonl(node);
|
|
memcpy(sipx->sipx_node+2, &xx, 4);
|
|
}
|
|
sipx->sipx_network = htonl(netnum);
|
|
sipx->sipx_special = special;
|
|
sipx->sipx_family = AF_IPX;
|
|
sipx->sipx_action = IPX_CRTITF;
|
|
result = x_ioctl(sock, SIOCSIFADDR, &id);
|
|
close(sock);
|
|
}
|
|
return(result);
|
|
}
|
|
#define add_internal_net(netnum, node) \
|
|
add_special_net(IPX_INTERNAL, NULL, 0, (netnum), (node))
|
|
|
|
#define add_primary_net(devname, frame, netnum) \
|
|
add_special_net(IPX_PRIMARY, (devname), (frame), (netnum), 0)
|
|
|
|
int add_device_net(char *devname, int frame, uint32 netnum)
|
|
{
|
|
return(add_special_net(IPX_SPECIAL_NONE, (devname), (frame), (netnum), 0));
|
|
}
|
|
|
|
int get_frame_name(uint8 *framename, int frame)
|
|
{
|
|
char *frname=0;
|
|
switch (frame) {
|
|
case -1 : frname = "AUTO"; break;
|
|
#ifdef IPX_FRAME_TR_8022
|
|
case IPX_FRAME_TR_8022 : frname = "TOKEN"; break;
|
|
#endif
|
|
case IPX_FRAME_8022 : frname = "802.2"; break;
|
|
case IPX_FRAME_8023 : frname = "802.3"; break;
|
|
case IPX_FRAME_SNAP : frname = "SNAP"; break;
|
|
case IPX_FRAME_ETHERII : frname = "ETHERNET_II";break;
|
|
default : framename[0] = '\0';
|
|
return(-1);
|
|
} /* switch */
|
|
strcpy(framename, frname);
|
|
return(0);
|
|
}
|
|
|
|
int ipx_inuse(int mode)
|
|
/* returns 0 if ipx is idle */
|
|
{
|
|
FILE *f=fopen("/proc/net/ipx", "r");
|
|
int idle=0;
|
|
if (f) {
|
|
char buff[200];
|
|
while (fgets((char*)buff, sizeof(buff), f) != NULL){
|
|
uint32 network;
|
|
int sock;
|
|
if (2==sscanf(buff, "%lx:%x", &network, &sock)) {
|
|
if (mode == 0) {
|
|
if (sock >= 0x4000) { /* user socket */
|
|
idle=sock;
|
|
break;
|
|
}
|
|
} else if (sock==mode) {
|
|
idle=sock;
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
fclose(f);
|
|
}
|
|
return(idle);
|
|
}
|
|
|
|
static void ipx_in_use_abort()
|
|
{
|
|
errorp(11, "!! IPX IN USE ERROR !!",
|
|
"mars_nwe would kill existing IPX programs if starting\n"
|
|
"because it must reinit ipx devices.\n"
|
|
"Please stop other IPX programs e.g. ncpmount,\n"
|
|
"or change mars_nwe's configuration.\n"
|
|
);
|
|
exit(1);
|
|
}
|
|
|
|
int init_ipx(uint32 network, uint32 node, int ipx_debug, int flags)
|
|
{
|
|
int result=-1;
|
|
int sock;
|
|
uint32 primary_net=0L;
|
|
#if INTERNAL_RIP_SAP
|
|
# ifdef CONFIG_IPX_INTERN
|
|
errorp(11, "!! configuration error !!",
|
|
"mars_nwe don't run with kernel 'full internal net'.\n"
|
|
"Change kernel option CONFIG_IPX_INTERN=NO (nobody needs it)\n"
|
|
"or use 'ipxd' and change mars_nwe INTERNAL_RIP_SAP=0.");
|
|
exit(1);
|
|
# endif
|
|
#endif
|
|
|
|
if ((sock = socket(AF_IPX, SOCK_DGRAM, AF_IPX)) < 0) {
|
|
errorp(1, "EMUTLI:init_ipx", NULL);
|
|
errorp(10, "Problem", "probably kernel-IPX is not setup correctly");
|
|
exit(1);
|
|
} else {
|
|
struct ipx_config_data cfgdata;
|
|
struct sockaddr_ipx ipxs;
|
|
ioctl(sock, SIOCIPXCFGDATA, &cfgdata);
|
|
org_auto_interfaces =
|
|
auto_interfaces = cfgdata.ipxcfg_auto_create_interfaces;
|
|
set_sock_debug(sock);
|
|
result=0;
|
|
|
|
memset((char*)&ipxs, 0, sizeof(struct sockaddr_ipx));
|
|
ipxs.sipx_port = htons(SOCK_NCP);
|
|
ipxs.sipx_family = AF_IPX;
|
|
if (bind(sock, (struct sockaddr*)&ipxs,
|
|
sizeof(struct sockaddr_ipx))==-1) {
|
|
if (errno == EEXIST || errno == EADDRINUSE) {
|
|
result = -1;
|
|
errorp(1, "EMUTLI:init_ipx socket 0x451", NULL);
|
|
exit(1);
|
|
}
|
|
} else {
|
|
int maxplen=sizeof(struct sockaddr_ipx);
|
|
if (getsockname(sock, (struct sockaddr*)&ipxs, &maxplen) != -1)
|
|
primary_net= ntohl(ipxs.sipx_network);
|
|
if (primary_net)
|
|
have_ipx_started++;
|
|
}
|
|
/* build new internal net */
|
|
if (network) {
|
|
int diffs = (primary_net && (network != primary_net));
|
|
if (diffs) {
|
|
XDPRINTF((1,0,"Existing primary network will be reinit from %x to %x",
|
|
primary_net, network));
|
|
if (ipx_inuse(0) && !(flags&4))
|
|
ipx_in_use_abort();
|
|
}
|
|
if ((flags&4) || diffs || !primary_net) { /* if complete reinit or diffs */
|
|
del_internal_net();
|
|
add_internal_net(network, node);
|
|
}
|
|
have_ipx_started++;
|
|
}
|
|
if ((flags & 2) && !auto_interfaces) { /* set auto interfaces */
|
|
auto_interfaces = 1;
|
|
ioctl(sock, SIOCAIPXITFCRT, &auto_interfaces);
|
|
}
|
|
close(sock);
|
|
}
|
|
return(result);
|
|
}
|
|
|
|
void exit_ipx(int flags)
|
|
{
|
|
int sock = socket(AF_IPX, SOCK_DGRAM, AF_IPX);
|
|
if (sock > -1) {
|
|
/* Switch DEBUG off */
|
|
set_locipxdebug(0);
|
|
set_sock_debug(sock);
|
|
if (have_ipx_started && !(flags&1))
|
|
org_auto_interfaces = 0;
|
|
if (auto_interfaces != org_auto_interfaces)
|
|
ioctl(sock, SIOCAIPXITFCRT, &org_auto_interfaces);
|
|
close(sock);
|
|
}
|
|
if (flags&4) {
|
|
del_all_interfaces_nets();
|
|
} else if (!ipx_inuse(0)) {
|
|
del_internal_net();
|
|
}
|
|
}
|
|
|
|
int init_dev(char *devname, int frame, uint32 network, int wildmask)
|
|
{
|
|
if (!(wildmask & 3))
|
|
del_interface(devname, frame);
|
|
if (!have_ipx_started) {
|
|
if (wildmask) return(-99);
|
|
have_ipx_started++;
|
|
if (!ipx_inuse(0)) {
|
|
del_primary_net();
|
|
add_primary_net(devname, frame, network);
|
|
}
|
|
} else {
|
|
if (!wildmask)
|
|
return(add_device_net(devname, frame, network));
|
|
return(1);
|
|
}
|
|
return(0);
|
|
}
|
|
|
|
void exit_dev(char *devname, int frame)
|
|
{
|
|
del_interface(devname, frame);
|
|
}
|
|
|
|
void ipx_route_add(uint32 dest_net,
|
|
uint32 route_net,
|
|
uint8 *route_node)
|
|
{
|
|
struct rtentry rd;
|
|
int result;
|
|
int sock;
|
|
/* Router */
|
|
struct sockaddr_ipx *sr = (struct sockaddr_ipx *)&rd.rt_gateway;
|
|
/* Target */
|
|
struct sockaddr_ipx *st = (struct sockaddr_ipx *)&rd.rt_dst;
|
|
|
|
rd.rt_flags = RTF_GATEWAY;
|
|
|
|
st->sipx_network = htonl(dest_net);
|
|
sr->sipx_network = htonl(route_net);
|
|
|
|
if (route_node)
|
|
memcpy(sr->sipx_node, route_node, IPX_NODE_SIZE);
|
|
else
|
|
memset(sr->sipx_node, 0, IPX_NODE_SIZE);
|
|
|
|
if ( (sock = socket(AF_IPX, SOCK_DGRAM, AF_IPX)) < 0){
|
|
errorp(0, "EMUTLI:ipx_route_add", NULL);
|
|
return;
|
|
}
|
|
sr->sipx_family = st->sipx_family = AF_IPX;
|
|
|
|
if ( 0 != (result = x_ioctl(sock, SIOCADDRT, &rd))) {
|
|
switch (errno) {
|
|
case ENETUNREACH:
|
|
errorp(0, "ROUTE ADD", "Router network (%08X) not reachable.\n",
|
|
htonl(sr->sipx_network));
|
|
break;
|
|
|
|
case EEXIST:
|
|
case EADDRINUSE:
|
|
break;
|
|
|
|
default:
|
|
errorp(0, "ROUTE ADD", NULL);
|
|
break;
|
|
}
|
|
}
|
|
close(sock);
|
|
}
|
|
|
|
void ipx_route_del(uint32 net)
|
|
{
|
|
struct rtentry rd;
|
|
int sock;
|
|
/* Router */
|
|
struct sockaddr_ipx *sr = (struct sockaddr_ipx *)&rd.rt_gateway;
|
|
/* Target */
|
|
struct sockaddr_ipx *st = (struct sockaddr_ipx *)&rd.rt_dst;
|
|
rd.rt_flags = RTF_GATEWAY;
|
|
st->sipx_network = htonl(net);
|
|
if ( (sock = socket(AF_IPX, SOCK_DGRAM, AF_IPX)) < 0){
|
|
errorp(0, "EMUTLI:ipx_route_del", NULL);
|
|
return;
|
|
}
|
|
sr->sipx_family = st->sipx_family = AF_IPX;
|
|
x_ioctl(sock, SIOCDELRT, &rd);
|
|
close(sock);
|
|
}
|