[apple/xnu.git] / bsd / netat / at.c

/*
 * Copyright (c) 2000-2006 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_OSREFERENCE_LICENSE_HEADER_START@
 * 
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. The rights granted to you under the License
 * may not be used to create, or enable the creation or redistribution of,
 * unlawful or unlicensed copies of an Apple operating system, or to
 * circumvent, violate, or enable the circumvention or violation of, any
 * terms of an Apple operating system software license agreement.
 * 
 * Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 * 
 * @APPLE_OSREFERENCE_LICENSE_HEADER_END@
 */
/*
 *	Copyright (c) 1998 Apple Computer, Inc. 
 */

/*	at.c
 */

#include <sys/param.h>
#include <sys/systm.h>
#include <sys/ioctl.h>
#include <sys/errno.h>
#include <sys/malloc.h>
#include <sys/socket.h>
#include <sys/socketvar.h>
#include <sys/file.h>
#include <sys/kauth.h>

#include <net/if.h>
#include <net/if_dl.h>
#include <net/if_types.h>
#include <net/dlil.h>

#include <netat/sysglue.h>
#include <netat/appletalk.h>
#include <netat/at_pcb.h>
#include <netat/at_var.h>
#include <netat/ddp.h>
#include <netat/nbp.h>
#include <netat/routing_tables.h>
#include <netat/debug.h>

#include <sys/kern_event.h>
#include <net/kpi_protocol.h>

int lap_online( at_ifaddr_t *, at_if_cfg_t *cfgp);

extern int routerStart(at_kern_err_t *);
extern void elap_offline(at_ifaddr_t *);
extern at_ifaddr_t *find_ifID(char *);

extern int xpatcnt;
extern at_ifaddr_t at_interfaces[];
extern at_ifaddr_t *ifID_home;
extern TAILQ_HEAD(name_registry, _nve_) name_registry;
extern int nve_lock;

struct  etalk_addr      etalk_multicast_addr = {
  {0x09, 0x00, 0x07, 0xff, 0xff, 0xff}};
struct  etalk_addr      ttalk_multicast_addr = {
  {0xC0, 0x00, 0x40, 0x00, 0x00, 0x00}};

/* called only in router mode */
static int set_zones(zone_usage_t *ifz)

/* 1. adds zone to table
   2. looks up each route entry from zone list
   3. sets zone bit in each route entry

   returns  0 if successful
	    errno if error occurred
*/
{
	int i;
	at_ifaddr_t *ifID;
	short zno;
	RT_entry *rte;

	if (ifz->zone_name.len <= 0 || ifz->zone_name.len > NBP_NVE_STR_SIZE)
		return(ENOSPC);

	zno = zt_add_zone((char *)ifz->zone_name.str, ifz->zone_name.len);

	if (zno == ZT_MAXEDOUT) {
		dPrintf(D_M_ELAP, D_L_ERROR, ("set_zones: error: table full\n"));
		return(ENOSPC);
	}
	if (ifz->zone_home) {
		ifID_home->ifZoneName = ifz->zone_name;
		ifID_home->ifDefZone = zno;
	}

	for (i=0; i<IF_TOTAL_MAX; i++)  {
		if (ifz->zone_iflist.at_if[i][0]) {  
			if ((ifID = find_ifID(ifz->zone_iflist.at_if[i]))) {
				rte = rt_blookup(ifID->ifThisCableEnd);
				if (!rte) {
					dPrintf(D_M_ELAP, D_L_ERROR,
						("set_zones: error: can't find route\n"));
				} else {
					zt_set_zmap(zno, rte->ZoneBitMap); 

					/* if first zone for this I/F, 
					   make default */
					if (!ifID->ifDefZone)
						ifID->ifDefZone = zno;
				}
			}
		}
	}

	return(0);
} /* set_zones */

/*
  * Generic internet control operations (ioctl's).
  * ifp is 0 if not an interface-specific ioctl.
  */

int
at_control(so, cmd, data, ifp)
     struct socket *so;
     u_long cmd;
     caddr_t data;
     struct ifnet *ifp;
{
	struct ifreq *ifr = (struct ifreq *)data;
	int pat_id = 0, error = 0;
	at_ifaddr_t *ifID = 0;
	struct ifaddr *ifa;
	struct sockaddr_dl *sdl;

    if ((cmd & 0xffff) == 0xff99) {
		u_long 	fixed_command;
		/* *** this is a temporary hack to get at_send_to_dev() to
		   work with BSD-style sockets instead of the special purpose 
		   system calls, ATsocket() and ATioctl().
		   *** */
		fixed_command = _IOW(0, 0xff99, user_addr_t); 
		if ((error = at_ioctl((struct atpcb *)so->so_pcb, fixed_command, data, 0))) {
		  if (((struct atpcb *)so->so_pcb)->proto != ATPROTO_LAP) {
		    ((struct atpcb *)so->so_pcb)->proto = ATPROTO_LAP;
		    error = at_ioctl((struct atpcb *)so->so_pcb, fixed_command, data , 0);
		  }
		}
		return(error);

		/* *** processing should be
		   return(EINVAL);
		   *** */
	}
        /*
	 * Find address for this interface, if it exists.
	 */
	if (ifp)
		for (pat_id = 0; pat_id < xpatcnt; pat_id++)
		  if (at_interfaces[pat_id].aa_ifp == ifp) {
			ifID = &at_interfaces[pat_id];
			break;
		  }
	
	switch (cmd) {

	case AIOCGETSTATE:
	  {
	  	at_state_t *global_state = (at_state_t *)data;

		*global_state = at_state;
		return(0);
		break;
	  }

	case AIOCGETIFCFG:
	  {
	  	at_if_cfg_t *cfgp = (at_if_cfg_t *)data;

		ifID = 0;
		if ((at_state.flags & AT_ST_STARTED) &&
		    ifID_home) {
			if (strlen(cfgp->ifr_name)) {
				TAILQ_FOREACH(ifID, &at_ifQueueHd, aa_link) {
					if (!strncmp(ifID->ifName, cfgp->ifr_name, 
						     strlen(ifID->ifName)))
						break;
				}
			} else {
				ifID = ifID_home;
				strlcpy(cfgp->ifr_name, ifID->ifName, 
					sizeof(cfgp->ifr_name));
			}
			if  (ifID && ifID->ifState != LAP_OFFLINE) {
				cfgp->flags = ifID->ifFlags;
				/* put the IF state into the low order 
				   bits of flags */
				cfgp->flags |= (ifID->ifState & LAP_STATE_MASK);
				cfgp->node = ifID->ifThisNode;
				cfgp->router = ifID->ifARouter;
				cfgp->netStart = ifID->ifThisCableStart;
				cfgp->netEnd = ifID->ifThisCableEnd;
				cfgp->zonename = ifID->ifZoneName;
				return(0);
			} else
				return(EINVAL);
		} else
			return(ENOTREADY);
		break;
	  }

	case AIOCSETDEFZONE:
	  {
	  	at_def_zone_t *defzonep = (at_def_zone_t *)data;

		/* check for root access */
		if ((error = suser(kauth_cred_get(), 0)))
			return(EACCES);

		ifID = 0;
		if ((at_state.flags & AT_ST_STARTED) && ifID_home) {
			if (strlen(defzonep->ifr_name)) {
			    TAILQ_FOREACH(ifID, &at_ifQueueHd, aa_link) {
				if (!strncmp(ifID->ifName, defzonep->ifr_name, 
					     strlen(ifID->ifName)))
				    break;
			    }
			} else {
				ifID = ifID_home;
				strlcpy(defzonep->ifr_name, ifID->ifName, 
					sizeof(defzonep->ifr_name));
			}

			/* In routing mode the default zone is only set for the 
			   default interface. */
			if (ROUTING_MODE && (ifID != ifID_home))
				return(EINVAL);

			if  (ifID && ifID->ifState != LAP_OFFLINE) {
				if (zonename_equal(&ifID->ifZoneName, 
						   &defzonep->zonename)) 
					return(0);
				else {
					/* check the zone name */
					if (MULTIPORT_MODE) {
					  short zno;
					  at_ifnames_t ifs_in_zone;

					  if (!(zno = zt_find_zname(&defzonep->zonename)))
					    return(EINVAL);

					  getIfUsage(zno-1, &ifs_in_zone);
					  if (!ifs_in_zone.at_if[ifID->ifPort]) 
					    return(EINVAL);
					  ifID->ifDefZone = zno+1;
					} else {
					  int i;
					  at_nvestr_t *zone;

					  for (i = 0, zone = getSPLocalZone(i); 
					       zone; 
					       i++, zone = getSPLocalZone(i)) {
					    if (zonename_equal(zone, 
							       &defzonep->zonename))
					      break;
					  }
					  if (!zone)
					    return(EINVAL);
					}
					ifID->ifZoneName = defzonep->zonename;
					(void)regDefaultZone(ifID);

					/* AppleTalk zone was changed. Send event with zone info. */
					atalk_post_msg(ifID->aa_ifp, KEV_ATALK_ZONEUPDATED, 0, &(ifID->ifZoneName));

					return(0);
				}
			} else
				return(EINVAL);
		} else
			return(ENOTREADY);
		break;
	  }

	case AIOCREGLOCALZN:
	  {
		at_nvestr_t *zone = (at_nvestr_t *)data;

		if (!(at_state.flags & AT_ST_STARTED) || !ifID_home)
			return(ENOTREADY);

		if (MULTIPORT_MODE)
			return(EINVAL);

		return(setLocalZones(zone, zone->len));

		break;
	  }
	case AIOCSETZNUSAGE:
		if (!(at_state.flags & AT_ST_STARTED) || !ifID_home)
			return(ENOTREADY);

		if (!ROUTING_MODE)
			return(EINVAL);

		return(set_zones((zone_usage_t *)data));

		break;

	case AIOCGETZNUSAGE:
		if (!(at_state.flags & AT_ST_STARTED) || !ifID_home)
			return(ENOTREADY);

		if (!MULTIPORT_MODE)
			return(EINVAL);

		if (getRTRLocalZone((zone_usage_t *)data))
			return(0);
		else
			return(ENOENT);
		break;

	case AIOCNBPREG:
	  {
	  	at_nbp_reg_t *nbpP = (at_nbp_reg_t *)data;
		nve_entry_t nve;
		int error2;

		if (!(at_state.flags & AT_ST_STARTED) || !ifID_home)
			return(ENOTREADY);

		/* multihoming mode */
		if (MULTIHOME_MODE) {
			return(nbp_mh_reg(nbpP));
		}

		/* single port mode or router mode */
		if (nbp_fillin_nve(&nbpP->name, &nve) != 0) {
			/* bad tuple... */
			return(EINVAL);
		}

		/* In routing mode when the zone is specified, we need to 
		   find an interface on which the specified zone is seeded, so
		   that the zone multicast will be plausible. */
		if (ROUTING_MODE && !(DEFAULT_ZONE(&nve.zone))) {
		        /* find first segment (interface) which is seeded for 
			   this zone */
			int finished = FALSE;
			int zno;
			at_ifnames_t ifs_in_zone;
			if (!(zno = zt_find_zname(&nve.zone))) {
				return(EINVAL);
			}
			getIfUsage(zno-1, &ifs_in_zone);

			TAILQ_FOREACH(ifID, &at_ifQueueHd, aa_link) {
				if (!ifs_in_zone.at_if[ifID->ifPort]) 
						/* zone doesn't match */
					continue;
				else {
					finished = TRUE;
					break;
				}
			}
			if (!finished)
				return(EINVAL);
		} else 
			ifID = ifID_home;

		nve.address.net = ifID->ifThisNode.s_net;
		nve.address.node = ifID->ifThisNode.s_node;
		nve.address.socket = nbpP->addr.socket;
		nve.ddptype = nbpP->ddptype;

		if (nbp_find_nve(&nve))
			return(EADDRNOTAVAIL);

		/* Normal case; no tuple found for this name, so insert
		 * this tuple in the registry and return ok response.
		 */
		if ((error2 = nbp_new_nve_entry(&nve, ifID)) == 0) {
			nbpP->addr.net = ifID->ifThisNode.s_net;
			nbpP->addr.node = ifID->ifThisNode.s_node;
			nbpP->unique_nbp_id = nve.unique_nbp_id;
		}

		return(error2);
		break;
	  }

	case AIOCNBPREMOVE:
	  {
	  	at_nbp_reg_t *nbpP = (at_nbp_reg_t *)data;
		nve_entry_t    *nve_entry, nve;

		if (!(at_state.flags & AT_ST_STARTED))
			return(ENOTREADY);

		/* delete by id */
		if (nbpP->unique_nbp_id) {
			TAILQ_FOREACH(nve_entry, &name_registry, nve_link) {
				if (nve_entry->unique_nbp_id == nbpP->unique_nbp_id) {
					/* Found a match! */
					nbp_delete_entry(nve_entry);
					return(0);
				}
			}
			return(EADDRNOTAVAIL);
		}

		/* delete by entity */
		if (nbp_fillin_nve(&nbpP->name, &nve) != 0) {
			/* bad tuple... */
			return(EINVAL);
		}

		if (MULTIHOME_MODE && DEFAULT_ZONE(&nbpP->name.zone)) {
			/* if mhome & *, remove nve from all default zones */
			int found = FALSE;	/* if any found & deleted */

			TAILQ_FOREACH(ifID, &at_ifQueueHd, aa_link) {
				nve.zone = ifID->ifZoneName;
				nve.zone_hash = nbp_strhash(&nve.zone);
				if ((nve_entry = nbp_find_nve(&nve)) == NULL) 
					continue;

				nbp_delete_entry(nve_entry);
				found = TRUE;
			}
			if (found) 
				return(0);
			else
				return(EADDRNOTAVAIL);
		}

		if ((nve_entry = nbp_find_nve(&nve)) == NULL)
			/* Can't find the tuple we're looking for, send error*/
			return(EADDRNOTAVAIL);

		/* Normal case; tuple found for this name, so delete
		 * the entry from the registry and return ok response.
		 */
		nbp_delete_entry(nve_entry);
		return(0);

		break;
	  }

	case AIOCSETROUTER:
	  {
	  	at_router_params_t *rt = (at_router_params_t *)data;

		/* check for root access */
		if ((error = suser(kauth_cred_get(), 0)))
			return(EACCES);

		/* when in routing/multihome mode the AIOCSETROUTER IOCTL 
		   is done first */
		if (at_state.flags & AT_ST_STARTED)
	    		return(EALREADY);

		/* Setup the routing & zip table size for the router */
		if (rt->rtmp_table_sz >= RT_MIN && rt->rtmp_table_sz <= RT_MAX)
                	RT_maxentry = rt->rtmp_table_sz;
		else
	                RT_maxentry = RT_DEFAULT;

		if (rt->zone_table_sz >= ZT_MIN && rt->zone_table_sz <= ZT_MAX)
			ZT_maxentry = rt->zone_table_sz;
		else
                	ZT_maxentry = ZT_DEFAULT;

		if (rt_table_init() == ENOBUFS)
			return(ENOBUFS);

		if (rt->router_mix)
			RouterMix = (int)rt->router_mix;
		else
			RouterMix = RT_MIX_DEFAULT;

		add_ddp_handler(RTMP_SOCKET, rtmp_router_input);

		if (rt->multihome)
                	at_state.flags |= AT_ST_MULTIHOME;
		else
			at_state.flags |= AT_ST_ROUTER;
		break;
	  }
	case AIOCSTARTROUTER:
	  {
	  	at_kern_err_t *keP = (at_kern_err_t *)data;

		/* check for root access */
		if (suser(kauth_cred_get(), 0))
			return(EACCES);

		if (!(at_state.flags & AT_ST_STARTED))
			return(ENOTREADY);

		bzero(keP, sizeof(at_kern_err_t));
		error = routerStart(keP);

		break;
	  }
	case AIOCGETROUTER:
	  {
	  	at_router_params_t *rt = (at_router_params_t *)data;

		if (!(at_state.flags & AT_ST_STARTED))
			return(ENOTREADY);

		rt->multihome = (MULTIHOME_MODE)? 1: 0;
		rt->rtmp_table_sz = RT_maxentry;
		rt->zone_table_sz = ZT_maxentry;
		rt->router_mix = RouterMix;

		break;
	  }
	case AIOCSTOPATALK:
	{
		int *count_only = (int *)data,
		    ret;

		/* check for root access */
		if ((error = suser(kauth_cred_get(), 0)))
			return(EACCES);

		ret = ddp_shutdown(*count_only);
		
		if (*count_only != 0) 
		{
			*count_only = ret;
			return(0);
		}
		else
		{
			if (ret == 0)
			{
				/* AppleTalk was successfully shut down. Send event. */
				atalk_post_msg(0, KEV_ATALK_DISABLED, 0, 0);
				return 0;
			}
			else
				return EBUSY;
		}

		break;
	}

	case SIOCSIFADDR:
		/* check for root access */
		if ((error = suser(kauth_cred_get(), 0)))
			error = EACCES;
		else if (ifID)
			error = EEXIST;
		else {
			if (xpatcnt == 0) {
				at_state.flags |= AT_ST_STARTING;
				ddp_brt_init();
			}

			/* *** find an empty entry *** */
			ifID = &at_interfaces[xpatcnt];
			bzero((caddr_t)ifID, sizeof(at_ifaddr_t));
			strlcpy(ifID->ifName, ifr->ifr_name, sizeof(ifID->ifName));

			ifID->aa_ifp = ifp;
			ifa = &ifID->aa_ifa;
			error = proto_plumb(PF_APPLETALK, ifp);
			if (error == EEXIST) {
			    ifID->at_was_attached = 1;
			    error = 0;
			}
			if (error != 0) {
				break;
			}
			/* XXX ethernet-specific */
			ifID->cable_multicast_addr = etalk_multicast_addr;
			xpatcnt++;
			ifnet_lock_exclusive(ifp);
			TAILQ_FOREACH(ifa, &ifp->if_addrhead, ifa_link) 
				if ((sdl = (struct sockaddr_dl *)ifa->ifa_addr) &&
				      (sdl->sdl_family == AF_LINK)) {
				    bcopy(LLADDR(sdl), ifID->xaddr, sizeof(ifID->xaddr));
#ifdef APPLETALK_DEBUG
				    kprintf("SIOCSIFADDR: local enet address is %x.%x.%x.%x.%x.%x\n", 
					    ifID->xaddr[0], ifID->xaddr[1], 
					    ifID->xaddr[2], ifID->xaddr[3], 
					    ifID->xaddr[4], ifID->xaddr[5]);
#endif
				    break;
				  }

			/* attach the AppleTalk address to the ifnet structure */
			ifa = &ifID->aa_ifa;
			ifa->ifa_addr = (struct sockaddr *)&ifID->ifNodeAddress;
			ifID->ifNodeAddress.sat_len = sizeof(struct sockaddr_at);
			ifID->ifNodeAddress.sat_family =  AF_APPLETALK;
			/* the address itself will be filled in when ifThisNode
			   is set */
			if_attach_ifa(ifp, ifa);
			ifnet_lock_done(ifp);
		}
	  break;

	/* complete the initialization started in SIOCSIFADDR */
	case AIOCSIFADDR:
	{
		at_if_cfg_t *cfgp = (at_if_cfg_t *)data;

		if (!(at_state.flags & AT_ST_STARTING))
			return(ENOTREADY);
 
		if (!(ifID = find_ifID(cfgp->ifr_name)))
			return(EINVAL);
		
		return(lap_online(ifID, cfgp));
		break;
	}

#ifdef NOT_YET
	/* *** this can't be added until AT can handle dynamic addition and
	       deletion of interfaces *** */
	case SIOCDIFADDR:
		/* check for root access */
		if (error = suser(kauth_cred_get(), 0))
			error = EACCES;
		else if (!ifID) 
			error = EINVAL;
		else
			elap_offline(ifID);
		break;
#endif

    case SIOCSETOT: {
        struct atpcb	*at_pcb, *clonedat_pcb;
        int				cloned_fd = *(int *)data;

        at_pcb = sotoatpcb(so);
        
        /* let's make sure it's either -1 or a valid file descriptor */
        if (cloned_fd != -1) {
            struct socket	*cloned_so;
			error = file_socket(cloned_fd, &cloned_so);
            if (error)
                break;
            clonedat_pcb = sotoatpcb(cloned_so);
        } else {
            clonedat_pcb = NULL;
        }

        if (clonedat_pcb == NULL) {
            at_pcb->ddp_flags |= DDPFLG_STRIPHDR;
        } else {
            at_pcb->ddp_flags = clonedat_pcb->ddp_flags;
        }
		file_drop(cloned_fd);
        break;
    }
        
	case SIOCPROTOATTACH:
		/* check for root access */
		if (suser(kauth_cred_get(), 0) != 0) {
			error = EACCES;
			break;
		}
		error = proto_plumb(PF_APPLETALK, ifp);
		if (ifID != NULL
		    && (error == 0 || error == EEXIST)) {
			ifID->at_was_attached = 1;
		}
		break;

	case SIOCPROTODETACH:
		/* check for root access */
		if (suser(kauth_cred_get(), 0) != 0) {
			error = EACCES;
			break;
		}
		if (ifID != NULL) {
			error = EBUSY;
			break;
		}
		error = proto_unplumb(PF_APPLETALK, ifp);
		break;

	default:
		if (ifp == 0 || ifp->if_ioctl == 0)
			return (EOPNOTSUPP);
		return ifnet_ioctl(ifp, 0, cmd, data);
	}

	return(error);
}

/* From dlil_post_msg() */
void atalk_post_msg(struct ifnet *ifp, u_long event_code, struct at_addr *address, at_nvestr_t *zone) 
{
	struct kev_atalk_data  	at_event_data;
	struct kev_msg  		ev_msg;

	ev_msg.vendor_code    = KEV_VENDOR_APPLE;
	ev_msg.kev_class      = KEV_NETWORK_CLASS;
	ev_msg.kev_subclass   = KEV_ATALK_SUBCLASS;
	ev_msg.event_code 	  = event_code;
	
	bzero(&at_event_data, sizeof(struct kev_atalk_data));
    
	if (ifp != 0) {
		strlcpy(&at_event_data.link_data.if_name[0], ifp->if_name, IFNAMSIZ);
		at_event_data.link_data.if_family = ifp->if_family;
		at_event_data.link_data.if_unit   = (unsigned long) ifp->if_unit;
	}
	
	if (address != 0) {
		at_event_data.node_data.address = *address;
	}
	else if (zone != 0) {
		at_event_data.node_data.zone = *zone;
	}
    
	ev_msg.dv[0].data_length = sizeof(struct kev_atalk_data);
	ev_msg.dv[0].data_ptr    = &at_event_data;	
	ev_msg.dv[1].data_length = 0;
	
	kev_post_msg(&ev_msg);
}
Commit	Line	Data
1c79356b	1	/*
2d21ac55	2	* Copyright (c) 2000-2006 Apple Computer, Inc. All rights reserved.
5d5c5d0d	3	*
2d21ac55	4	* @APPLE_OSREFERENCE_LICENSE_HEADER_START@
1c79356b	5	*
2d21ac55 A	6	* This file contains Original Code and/or Modifications of Original Code
	7	* as defined in and that are subject to the Apple Public Source License
	8	* Version 2.0 (the 'License'). You may not use this file except in
	9	* compliance with the License. The rights granted to you under the License
	10	* may not be used to create, or enable the creation or redistribution of,
	11	* unlawful or unlicensed copies of an Apple operating system, or to
	12	* circumvent, violate, or enable the circumvention or violation of, any
	13	* terms of an Apple operating system software license agreement.
8f6c56a5	14	*
2d21ac55 A	15	* Please obtain a copy of the License at
	16	* http://www.opensource.apple.com/apsl/ and read it before using this file.
	17	*
	18	* The Original Code and all software distributed under the License are
	19	* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
8f6c56a5 A	20	* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
8f6c56a5 A	21	* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
2d21ac55 A	22	* FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
	23	* Please see the License for the specific language governing rights and
	24	* limitations under the License.
8f6c56a5	25	*
2d21ac55	26	* @APPLE_OSREFERENCE_LICENSE_HEADER_END@
1c79356b A	27	*/
	28	/*
	29	* Copyright (c) 1998 Apple Computer, Inc.
	30	*/
	31
	32	/* at.c
	33	*/
	34
	35	#include <sys/param.h>
	36	#include <sys/systm.h>
	37	#include <sys/ioctl.h>
	38	#include <sys/errno.h>
	39	#include <sys/malloc.h>
	40	#include <sys/socket.h>
	41	#include <sys/socketvar.h>
	42	#include <sys/file.h>
91447636	43	#include <sys/kauth.h>
1c79356b A	44
	45	#include <net/if.h>
	46	#include <net/if_dl.h>
	47	#include <net/if_types.h>
1c79356b A	48	#include <net/dlil.h>
1c79356b A	49
1c79356b	50	#include <netat/sysglue.h>
2d21ac55	51	#include <netat/appletalk.h>
1c79356b A	52	#include <netat/at_pcb.h>
	53	#include <netat/at_var.h>
	54	#include <netat/ddp.h>
	55	#include <netat/nbp.h>
	56	#include <netat/routing_tables.h>
	57	#include <netat/debug.h>
	58
9bccf70c	59	#include <sys/kern_event.h>
2d21ac55 A	60	#include <net/kpi_protocol.h>
	61
	62	int lap_online( at_ifaddr_t , at_if_cfg_t cfgp);
9bccf70c	63
1c79356b A	64	extern int routerStart(at_kern_err_t *);
	65	extern void elap_offline(at_ifaddr_t *);
	66	extern at_ifaddr_t find_ifID(char );
1c79356b A	67
	68	extern int xpatcnt;
	69	extern at_ifaddr_t at_interfaces[];
	70	extern at_ifaddr_t *ifID_home;
	71	extern TAILQ_HEAD(name_registry, _nve_) name_registry;
	72	extern int nve_lock;
	73
	74	struct etalk_addr etalk_multicast_addr = {
	75	{0x09, 0x00, 0x07, 0xff, 0xff, 0xff}};
	76	struct etalk_addr ttalk_multicast_addr = {
	77	{0xC0, 0x00, 0x40, 0x00, 0x00, 0x00}};
	78
	79	/* called only in router mode */
0c530ab8	80	static int set_zones(zone_usage_t *ifz)
1c79356b A	81
	82	/* 1. adds zone to table
	83	2. looks up each route entry from zone list
	84	3. sets zone bit in each route entry
	85
	86	returns 0 if successful
	87	errno if error occurred
	88	*/
	89	{
	90	int i;
	91	at_ifaddr_t *ifID;
	92	short zno;
	93	RT_entry *rte;
	94
6601e61a A	95	if (ifz->zone_name.len <= 0 \|\| ifz->zone_name.len > NBP_NVE_STR_SIZE)
	96	return(ENOSPC);
	97
	98	zno = zt_add_zone((char *)ifz->zone_name.str, ifz->zone_name.len);
1c79356b A	99
	100	if (zno == ZT_MAXEDOUT) {
	101	dPrintf(D_M_ELAP, D_L_ERROR, ("set_zones: error: table full\n"));
	102	return(ENOSPC);
	103	}
	104	if (ifz->zone_home) {
	105	ifID_home->ifZoneName = ifz->zone_name;
	106	ifID_home->ifDefZone = zno;
	107	}
	108
	109	for (i=0; i<IF_TOTAL_MAX; i++) {
	110	if (ifz->zone_iflist.at_if[i][0]) {
	111	if ((ifID = find_ifID(ifz->zone_iflist.at_if[i]))) {
	112	rte = rt_blookup(ifID->ifThisCableEnd);
	113	if (!rte) {
	114	dPrintf(D_M_ELAP, D_L_ERROR,
	115	("set_zones: error: can't find route\n"));
	116	} else {
	117	zt_set_zmap(zno, rte->ZoneBitMap);
	118
	119	/* if first zone for this I/F,
	120	make default */
	121	if (!ifID->ifDefZone)
	122	ifID->ifDefZone = zno;
	123	}
	124	}
	125	}
	126	}
	127
	128	return(0);
	129	} /* set_zones */
	130
	131	/*
	132	* Generic internet control operations (ioctl's).
	133	* ifp is 0 if not an interface-specific ioctl.
	134	*/
	135
91447636 A	136	int
91447636 A	137	at_control(so, cmd, data, ifp)
1c79356b A	138	struct socket *so;
	139	u_long cmd;
	140	caddr_t data;
	141	struct ifnet *ifp;
	142	{
	143	struct ifreq ifr = (struct ifreq )data;
	144	int pat_id = 0, error = 0;
1c79356b A	145	at_ifaddr_t *ifID = 0;
	146	struct ifaddr *ifa;
	147	struct sockaddr_dl *sdl;
	148
91447636 A	149	if ((cmd & 0xffff) == 0xff99) {
91447636 A	150	u_long fixed_command;
1c79356b A	151	/* *** this is a temporary hack to get at_send_to_dev() to
	152	work with BSD-style sockets instead of the special purpose
	153	system calls, ATsocket() and ATioctl().
	154	*** */
91447636 A	155	fixed_command = _IOW(0, 0xff99, user_addr_t);
91447636 A	156	if ((error = at_ioctl((struct atpcb *)so->so_pcb, fixed_command, data, 0))) {
1c79356b A	157	if (((struct atpcb *)so->so_pcb)->proto != ATPROTO_LAP) {
1c79356b A	158	((struct atpcb *)so->so_pcb)->proto = ATPROTO_LAP;
91447636	159	error = at_ioctl((struct atpcb *)so->so_pcb, fixed_command, data , 0);
1c79356b A	160	}
	161	}
	162	return(error);
	163
	164	/* *** processing should be
	165	return(EINVAL);
	166	*** */
	167	}
	168	/*
	169	* Find address for this interface, if it exists.
	170	*/
	171	if (ifp)
	172	for (pat_id = 0; pat_id < xpatcnt; pat_id++)
	173	if (at_interfaces[pat_id].aa_ifp == ifp) {
	174	ifID = &at_interfaces[pat_id];
	175	break;
	176	}
	177
	178	switch (cmd) {
	179
	180	case AIOCGETSTATE:
	181	{
	182	at_state_t global_state = (at_state_t )data;
	183
	184	*global_state = at_state;
	185	return(0);
	186	break;
	187	}
	188
	189	case AIOCGETIFCFG:
	190	{
	191	at_if_cfg_t cfgp = (at_if_cfg_t )data;
	192
	193	ifID = 0;
	194	if ((at_state.flags & AT_ST_STARTED) &&
	195	ifID_home) {
	196	if (strlen(cfgp->ifr_name)) {
	197	TAILQ_FOREACH(ifID, &at_ifQueueHd, aa_link) {
	198	if (!strncmp(ifID->ifName, cfgp->ifr_name,
	199	strlen(ifID->ifName)))
	200	break;
	201	}
	202	} else {
	203	ifID = ifID_home;
8f6c56a5 A	204	strlcpy(cfgp->ifr_name, ifID->ifName,
8f6c56a5 A	205	sizeof(cfgp->ifr_name));
1c79356b A	206	}
	207	if (ifID && ifID->ifState != LAP_OFFLINE) {
	208	cfgp->flags = ifID->ifFlags;
	209	/* put the IF state into the low order
	210	bits of flags */
	211	cfgp->flags \|= (ifID->ifState & LAP_STATE_MASK);
	212	cfgp->node = ifID->ifThisNode;
	213	cfgp->router = ifID->ifARouter;
	214	cfgp->netStart = ifID->ifThisCableStart;
	215	cfgp->netEnd = ifID->ifThisCableEnd;
	216	cfgp->zonename = ifID->ifZoneName;
	217	return(0);
	218	} else
	219	return(EINVAL);
	220	} else
	221	return(ENOTREADY);
	222	break;
	223	}
	224
	225	case AIOCSETDEFZONE:
	226	{
	227	at_def_zone_t defzonep = (at_def_zone_t )data;
	228
	229	/* check for root access */
2d21ac55	230	if ((error = suser(kauth_cred_get(), 0)))
1c79356b A	231	return(EACCES);
	232
	233	ifID = 0;
	234	if ((at_state.flags & AT_ST_STARTED) && ifID_home) {
	235	if (strlen(defzonep->ifr_name)) {
	236	TAILQ_FOREACH(ifID, &at_ifQueueHd, aa_link) {
	237	if (!strncmp(ifID->ifName, defzonep->ifr_name,
	238	strlen(ifID->ifName)))
	239	break;
	240	}
	241	} else {
	242	ifID = ifID_home;
8f6c56a5 A	243	strlcpy(defzonep->ifr_name, ifID->ifName,
8f6c56a5 A	244	sizeof(defzonep->ifr_name));
1c79356b A	245	}
	246
	247	/* In routing mode the default zone is only set for the
	248	default interface. */
	249	if (ROUTING_MODE && (ifID != ifID_home))
	250	return(EINVAL);
	251
	252	if (ifID && ifID->ifState != LAP_OFFLINE) {
	253	if (zonename_equal(&ifID->ifZoneName,
	254	&defzonep->zonename))
	255	return(0);
	256	else {
	257	/* check the zone name */
	258	if (MULTIPORT_MODE) {
	259	short zno;
9bccf70c	260	at_ifnames_t ifs_in_zone;
1c79356b A	261
	262	if (!(zno = zt_find_zname(&defzonep->zonename)))
	263	return(EINVAL);
	264
9bccf70c A	265	getIfUsage(zno-1, &ifs_in_zone);
9bccf70c A	266	if (!ifs_in_zone.at_if[ifID->ifPort])
1c79356b A	267	return(EINVAL);
	268	ifID->ifDefZone = zno+1;
	269	} else {
	270	int i;
	271	at_nvestr_t *zone;
	272
	273	for (i = 0, zone = getSPLocalZone(i);
	274	zone;
	275	i++, zone = getSPLocalZone(i)) {
	276	if (zonename_equal(zone,
	277	&defzonep->zonename))
	278	break;
	279	}
	280	if (!zone)
	281	return(EINVAL);
	282	}
	283	ifID->ifZoneName = defzonep->zonename;
	284	(void)regDefaultZone(ifID);
9bccf70c A	285
	286	/* AppleTalk zone was changed. Send event with zone info. */
	287	atalk_post_msg(ifID->aa_ifp, KEV_ATALK_ZONEUPDATED, 0, &(ifID->ifZoneName));
	288
1c79356b A	289	return(0);
	290	}
	291	} else
	292	return(EINVAL);
	293	} else
	294	return(ENOTREADY);
	295	break;
	296	}
	297
	298	case AIOCREGLOCALZN:
	299	{
	300	at_nvestr_t zone = (at_nvestr_t )data;
	301
	302	if (!(at_state.flags & AT_ST_STARTED) \|\| !ifID_home)
	303	return(ENOTREADY);
	304
	305	if (MULTIPORT_MODE)
	306	return(EINVAL);
	307
	308	return(setLocalZones(zone, zone->len));
	309
	310	break;
	311	}
	312	case AIOCSETZNUSAGE:
	313	if (!(at_state.flags & AT_ST_STARTED) \|\| !ifID_home)
	314	return(ENOTREADY);
	315
	316	if (!ROUTING_MODE)
	317	return(EINVAL);
	318
	319	return(set_zones((zone_usage_t *)data));
	320
	321	break;
	322
	323	case AIOCGETZNUSAGE:
	324	if (!(at_state.flags & AT_ST_STARTED) \|\| !ifID_home)
	325	return(ENOTREADY);
	326
	327	if (!MULTIPORT_MODE)
	328	return(EINVAL);
	329
	330	if (getRTRLocalZone((zone_usage_t *)data))
	331	return(0);
	332	else
	333	return(ENOENT);
	334	break;
	335
	336	case AIOCNBPREG:
	337	{
	338	at_nbp_reg_t nbpP = (at_nbp_reg_t )data;
	339	nve_entry_t nve;
91447636	340	int error2;
1c79356b A	341
	342	if (!(at_state.flags & AT_ST_STARTED) \|\| !ifID_home)
	343	return(ENOTREADY);
	344
	345	/* multihoming mode */
	346	if (MULTIHOME_MODE) {
	347	return(nbp_mh_reg(nbpP));
	348	}
	349
	350	/* single port mode or router mode */
	351	if (nbp_fillin_nve(&nbpP->name, &nve) != 0) {
	352	/* bad tuple... */
	353	return(EINVAL);
	354	}
	355
	356	/* In routing mode when the zone is specified, we need to
	357	find an interface on which the specified zone is seeded, so
	358	that the zone multicast will be plausible. */
	359	if (ROUTING_MODE && !(DEFAULT_ZONE(&nve.zone))) {
	360	/* find first segment (interface) which is seeded for
	361	this zone */
	362	int finished = FALSE;
	363	int zno;
9bccf70c	364	at_ifnames_t ifs_in_zone;
1c79356b A	365	if (!(zno = zt_find_zname(&nve.zone))) {
	366	return(EINVAL);
	367	}
9bccf70c	368	getIfUsage(zno-1, &ifs_in_zone);
1c79356b A	369
1c79356b A	370	TAILQ_FOREACH(ifID, &at_ifQueueHd, aa_link) {
9bccf70c	371	if (!ifs_in_zone.at_if[ifID->ifPort])
1c79356b A	372	/* zone doesn't match */
1c79356b A	373	continue;
9bccf70c	374	else {
1c79356b	375	finished = TRUE;
9bccf70c A	376	break;
9bccf70c A	377	}
1c79356b A	378	}
	379	if (!finished)
	380	return(EINVAL);
	381	} else
	382	ifID = ifID_home;
	383
	384	nve.address.net = ifID->ifThisNode.s_net;
	385	nve.address.node = ifID->ifThisNode.s_node;
	386	nve.address.socket = nbpP->addr.socket;
	387	nve.ddptype = nbpP->ddptype;
	388
	389	if (nbp_find_nve(&nve))
	390	return(EADDRNOTAVAIL);
	391
	392	/* Normal case; no tuple found for this name, so insert
	393	* this tuple in the registry and return ok response.
	394	*/
91447636	395	if ((error2 = nbp_new_nve_entry(&nve, ifID)) == 0) {
1c79356b A	396	nbpP->addr.net = ifID->ifThisNode.s_net;
	397	nbpP->addr.node = ifID->ifThisNode.s_node;
	398	nbpP->unique_nbp_id = nve.unique_nbp_id;
	399	}
1c79356b	400
91447636	401	return(error2);
1c79356b A	402	break;
	403	}
	404
	405	case AIOCNBPREMOVE:
	406	{
	407	at_nbp_reg_t nbpP = (at_nbp_reg_t )data;
	408	nve_entry_t *nve_entry, nve;
	409
	410	if (!(at_state.flags & AT_ST_STARTED))
	411	return(ENOTREADY);
	412
	413	/* delete by id */
	414	if (nbpP->unique_nbp_id) {
1c79356b A	415	TAILQ_FOREACH(nve_entry, &name_registry, nve_link) {
	416	if (nve_entry->unique_nbp_id == nbpP->unique_nbp_id) {
	417	/* Found a match! */
	418	nbp_delete_entry(nve_entry);
1c79356b A	419	return(0);
	420	}
	421	}
1c79356b A	422	return(EADDRNOTAVAIL);
	423	}
	424
	425	/* delete by entity */
	426	if (nbp_fillin_nve(&nbpP->name, &nve) != 0) {
	427	/* bad tuple... */
	428	return(EINVAL);
	429	}
	430
	431	if (MULTIHOME_MODE && DEFAULT_ZONE(&nbpP->name.zone)) {
	432	/* if mhome & , remove nve from all default zones /
	433	int found = FALSE; /* if any found & deleted */
	434
	435	TAILQ_FOREACH(ifID, &at_ifQueueHd, aa_link) {
	436	nve.zone = ifID->ifZoneName;
	437	nve.zone_hash = nbp_strhash(&nve.zone);
	438	if ((nve_entry = nbp_find_nve(&nve)) == NULL)
	439	continue;
	440
1c79356b	441	nbp_delete_entry(nve_entry);
1c79356b A	442	found = TRUE;
	443	}
	444	if (found)
	445	return(0);
	446	else
	447	return(EADDRNOTAVAIL);
	448	}
	449
	450	if ((nve_entry = nbp_find_nve(&nve)) == NULL)
	451	/* Can't find the tuple we're looking for, send error*/
	452	return(EADDRNOTAVAIL);
	453
	454	/* Normal case; tuple found for this name, so delete
	455	* the entry from the registry and return ok response.
	456	*/
1c79356b	457	nbp_delete_entry(nve_entry);
1c79356b A	458	return(0);
	459
	460	break;
	461	}
	462
	463	case AIOCSETROUTER:
	464	{
	465	at_router_params_t rt = (at_router_params_t )data;
	466
	467	/* check for root access */
2d21ac55	468	if ((error = suser(kauth_cred_get(), 0)))
1c79356b A	469	return(EACCES);
	470
	471	/* when in routing/multihome mode the AIOCSETROUTER IOCTL
	472	is done first */
	473	if (at_state.flags & AT_ST_STARTED)
	474	return(EALREADY);
	475
	476	/* Setup the routing & zip table size for the router */
	477	if (rt->rtmp_table_sz >= RT_MIN && rt->rtmp_table_sz <= RT_MAX)
	478	RT_maxentry = rt->rtmp_table_sz;
	479	else
	480	RT_maxentry = RT_DEFAULT;
	481
	482	if (rt->zone_table_sz >= ZT_MIN && rt->zone_table_sz <= ZT_MAX)
	483	ZT_maxentry = rt->zone_table_sz;
	484	else
	485	ZT_maxentry = ZT_DEFAULT;
	486
	487	if (rt_table_init() == ENOBUFS)
	488	return(ENOBUFS);
	489
	490	if (rt->router_mix)
	491	RouterMix = (int)rt->router_mix;
	492	else
	493	RouterMix = RT_MIX_DEFAULT;
	494
	495	add_ddp_handler(RTMP_SOCKET, rtmp_router_input);
	496
	497	if (rt->multihome)
	498	at_state.flags \|= AT_ST_MULTIHOME;
	499	else
	500	at_state.flags \|= AT_ST_ROUTER;
	501	break;
	502	}
	503	case AIOCSTARTROUTER:
	504	{
	505	at_kern_err_t keP = (at_kern_err_t )data;
	506
	507	/* check for root access */
91447636	508	if (suser(kauth_cred_get(), 0))
1c79356b A	509	return(EACCES);
	510
	511	if (!(at_state.flags & AT_ST_STARTED))
	512	return(ENOTREADY);
	513
	514	bzero(keP, sizeof(at_kern_err_t));
	515	error = routerStart(keP);
	516
	517	break;
	518	}
	519	case AIOCGETROUTER:
	520	{
	521	at_router_params_t rt = (at_router_params_t )data;
	522
	523	if (!(at_state.flags & AT_ST_STARTED))
	524	return(ENOTREADY);
	525
	526	rt->multihome = (MULTIHOME_MODE)? 1: 0;
	527	rt->rtmp_table_sz = RT_maxentry;
	528	rt->zone_table_sz = ZT_maxentry;
	529	rt->router_mix = RouterMix;
	530
	531	break;
	532	}
	533	case AIOCSTOPATALK:
9bccf70c A	534	{
9bccf70c A	535	int count_only = (int )data,
1c79356b A	536	ret;
	537
	538	/* check for root access */
2d21ac55	539	if ((error = suser(kauth_cred_get(), 0)))
1c79356b A	540	return(EACCES);
	541
	542	ret = ddp_shutdown(*count_only);
9bccf70c A	543
	544	if (*count_only != 0)
	545	{
1c79356b A	546	*count_only = ret;
1c79356b A	547	return(0);
9bccf70c A	548	}
	549	else
	550	{
	551	if (ret == 0)
	552	{
	553	/* AppleTalk was successfully shut down. Send event. */
	554	atalk_post_msg(0, KEV_ATALK_DISABLED, 0, 0);
	555	return 0;
	556	}
	557	else
	558	return EBUSY;
	559	}
	560
1c79356b	561	break;
9bccf70c	562	}
1c79356b A	563
	564	case SIOCSIFADDR:
	565	/* check for root access */
2d21ac55	566	if ((error = suser(kauth_cred_get(), 0)))
1c79356b A	567	error = EACCES;
	568	else if (ifID)
	569	error = EEXIST;
	570	else {
1c79356b	571	if (xpatcnt == 0) {
9bccf70c	572	at_state.flags \|= AT_ST_STARTING;
1c79356b A	573	ddp_brt_init();
	574	}
	575
	576	/* * find an empty entry * */
	577	ifID = &at_interfaces[xpatcnt];
	578	bzero((caddr_t)ifID, sizeof(at_ifaddr_t));
8f6c56a5	579	strlcpy(ifID->ifName, ifr->ifr_name, sizeof(ifID->ifName));
1c79356b A	580
	581	ifID->aa_ifp = ifp;
	582	ifa = &ifID->aa_ifa;
2d21ac55 A	583	error = proto_plumb(PF_APPLETALK, ifp);
	584	if (error == EEXIST) {
	585	ifID->at_was_attached = 1;
	586	error = 0;
	587	}
	588	if (error != 0) {
	589	break;
	590	}
	591	/* XXX ethernet-specific */
	592	ifID->cable_multicast_addr = etalk_multicast_addr;
	593	xpatcnt++;
91447636	594	ifnet_lock_exclusive(ifp);
1c79356b A	595	TAILQ_FOREACH(ifa, &ifp->if_addrhead, ifa_link)
	596	if ((sdl = (struct sockaddr_dl *)ifa->ifa_addr) &&
	597	(sdl->sdl_family == AF_LINK)) {
	598	bcopy(LLADDR(sdl), ifID->xaddr, sizeof(ifID->xaddr));
	599	#ifdef APPLETALK_DEBUG
	600	kprintf("SIOCSIFADDR: local enet address is %x.%x.%x.%x.%x.%x\n",
	601	ifID->xaddr[0], ifID->xaddr[1],
	602	ifID->xaddr[2], ifID->xaddr[3],
	603	ifID->xaddr[4], ifID->xaddr[5]);
	604	#endif
	605	break;
	606	}
	607
	608	/* attach the AppleTalk address to the ifnet structure */
	609	ifa = &ifID->aa_ifa;
	610	ifa->ifa_addr = (struct sockaddr *)&ifID->ifNodeAddress;
	611	ifID->ifNodeAddress.sat_len = sizeof(struct sockaddr_at);
	612	ifID->ifNodeAddress.sat_family = AF_APPLETALK;
	613	/* the address itself will be filled in when ifThisNode
	614	is set */
91447636 A	615	if_attach_ifa(ifp, ifa);
91447636 A	616	ifnet_lock_done(ifp);
1c79356b A	617	}
	618	break;
	619
	620	/* complete the initialization started in SIOCSIFADDR */
	621	case AIOCSIFADDR:
9bccf70c	622	{
1c79356b A	623	at_if_cfg_t cfgp = (at_if_cfg_t )data;
1c79356b A	624
9bccf70c	625	if (!(at_state.flags & AT_ST_STARTING))
1c79356b A	626	return(ENOTREADY);
	627
	628	if (!(ifID = find_ifID(cfgp->ifr_name)))
	629	return(EINVAL);
9bccf70c	630
1c79356b A	631	return(lap_online(ifID, cfgp));
1c79356b A	632	break;
9bccf70c	633	}
1c79356b A	634
	635	#ifdef NOT_YET
	636	/* *** this can't be added until AT can handle dynamic addition and
	637	deletion of interfaces *** */
	638	case SIOCDIFADDR:
	639	/* check for root access */
91447636	640	if (error = suser(kauth_cred_get(), 0))
1c79356b A	641	error = EACCES;
	642	else if (!ifID)
	643	error = EINVAL;
	644	else
	645	elap_offline(ifID);
	646	break;
	647	#endif
	648
	649	case SIOCSETOT: {
1c79356b A	650	struct atpcb at_pcb, clonedat_pcb;
	651	int cloned_fd = (int )data;
	652
1c79356b A	653	at_pcb = sotoatpcb(so);
	654
	655	/* let's make sure it's either -1 or a valid file descriptor */
	656	if (cloned_fd != -1) {
	657	struct socket *cloned_so;
91447636	658	error = file_socket(cloned_fd, &cloned_so);
0c530ab8	659	if (error)
1c79356b	660	break;
1c79356b A	661	clonedat_pcb = sotoatpcb(cloned_so);
	662	} else {
	663	clonedat_pcb = NULL;
	664	}
	665
	666	if (clonedat_pcb == NULL) {
	667	at_pcb->ddp_flags \|= DDPFLG_STRIPHDR;
	668	} else {
	669	at_pcb->ddp_flags = clonedat_pcb->ddp_flags;
	670	}
91447636	671	file_drop(cloned_fd);
1c79356b A	672	break;
	673	}
	674
2d21ac55 A	675	case SIOCPROTOATTACH:
	676	/* check for root access */
	677	if (suser(kauth_cred_get(), 0) != 0) {
	678	error = EACCES;
	679	break;
	680	}
	681	error = proto_plumb(PF_APPLETALK, ifp);
	682	if (ifID != NULL
	683	&& (error == 0 \|\| error == EEXIST)) {
	684	ifID->at_was_attached = 1;
	685	}
	686	break;
	687
	688	case SIOCPROTODETACH:
	689	/* check for root access */
	690	if (suser(kauth_cred_get(), 0) != 0) {
	691	error = EACCES;
	692	break;
	693	}
	694	if (ifID != NULL) {
	695	error = EBUSY;
	696	break;
	697	}
	698	error = proto_unplumb(PF_APPLETALK, ifp);
	699	break;
	700
1c79356b A	701	default:
	702	if (ifp == 0 \|\| ifp->if_ioctl == 0)
	703	return (EOPNOTSUPP);
2d21ac55	704	return ifnet_ioctl(ifp, 0, cmd, data);
1c79356b A	705	}
	706
	707	return(error);
	708	}
9bccf70c A	709
	710	/* From dlil_post_msg() */
	711	void atalk_post_msg(struct ifnet ifp, u_long event_code, struct at_addr address, at_nvestr_t *zone)
	712	{
	713	struct kev_atalk_data at_event_data;
	714	struct kev_msg ev_msg;
	715
	716	ev_msg.vendor_code = KEV_VENDOR_APPLE;
	717	ev_msg.kev_class = KEV_NETWORK_CLASS;
	718	ev_msg.kev_subclass = KEV_ATALK_SUBCLASS;
	719	ev_msg.event_code = event_code;
	720
	721	bzero(&at_event_data, sizeof(struct kev_atalk_data));
	722
	723	if (ifp != 0) {
8f6c56a5	724	strlcpy(&at_event_data.link_data.if_name[0], ifp->if_name, IFNAMSIZ);
9bccf70c A	725	at_event_data.link_data.if_family = ifp->if_family;
	726	at_event_data.link_data.if_unit = (unsigned long) ifp->if_unit;
	727	}
	728
	729	if (address != 0) {
	730	at_event_data.node_data.address = *address;
	731	}
	732	else if (zone != 0) {
	733	at_event_data.node_data.zone = *zone;
	734	}
	735
	736	ev_msg.dv[0].data_length = sizeof(struct kev_atalk_data);
	737	ev_msg.dv[0].data_ptr = &at_event_data;
	738	ev_msg.dv[1].data_length = 0;
	739
	740	kev_post_msg(&ev_msg);
	741	}