2 * Copyright (c) 1990,1991 Regents of The University of Michigan.
10 #include <sys/param.h>
11 #include <sys/systm.h>
13 #include <sys/kernel.h>
14 #include <sys/socket.h>
15 #include <sys/syslog.h>
19 #include <netinet/in.h>
21 #include <netinet/if_ether.h>
23 #include <netatalk/at.h>
24 #include <netatalk/at_var.h>
25 #include <netatalk/aarp.h>
26 #include <netatalk/phase2.h>
27 #include <netatalk/at_extern.h>
29 static void aarptfree( struct aarptab *aat);
30 static void at_aarpinput( struct arpcom *ac, struct mbuf *m);
32 #define AARPTAB_BSIZ 9
34 #define AARPTAB_SIZE (AARPTAB_BSIZ * AARPTAB_NB)
35 static struct aarptab aarptab[AARPTAB_SIZE];
37 #define AARPTAB_HASH(a) \
38 ((((a).s_net << 8 ) + (a).s_node ) % AARPTAB_NB )
40 #define AARPTAB_LOOK(aat,addr) { \
42 aat = &aarptab[ AARPTAB_HASH(addr) * AARPTAB_BSIZ ]; \
43 for ( n = 0; n < AARPTAB_BSIZ; n++, aat++ ) \
44 if ( aat->aat_ataddr.s_net == (addr).s_net && \
45 aat->aat_ataddr.s_node == (addr).s_node ) \
47 if ( n >= AARPTAB_BSIZ ) \
51 #define AARPT_AGE (60 * 1)
52 #define AARPT_KILLC 20
55 # if !defined( __FreeBSD__ )
56 extern u_char etherbroadcastaddr[6];
59 static u_char atmulticastaddr[ 6 ] = {
60 0x09, 0x00, 0x07, 0xff, 0xff, 0xff,
63 u_char at_org_code[ 3 ] = {
66 u_char aarp_org_code[ 3 ] = {
70 static struct callout_handle aarptimer_ch =
71 CALLOUT_HANDLE_INITIALIZER(&aarptimer_ch);
74 aarptimer(void *ignored)
79 aarptimer_ch = timeout( aarptimer, (caddr_t)0, AARPT_AGE * hz );
81 for ( i = 0; i < AARPTAB_SIZE; i++, aat++ ) {
82 if ( aat->aat_flags == 0 || ( aat->aat_flags & ATF_PERM ))
84 if ( ++aat->aat_timer < (( aat->aat_flags & ATF_COM ) ?
85 AARPT_KILLC : AARPT_KILLI ))
94 * search through the network addresses to find one that includes
95 * the given network.. remember to take netranges into
99 at_ifawithnet(struct sockaddr_at *sat )
101 struct at_ifaddr *aa;
102 struct sockaddr_at *sat2;
104 for ( aa = at_ifaddr; aa; aa = aa->aa_next ) {
105 sat2 = &(aa->aa_addr);
106 if ( sat2->sat_addr.s_net == sat->sat_addr.s_net ) {
109 if( (aa->aa_flags & AFA_PHASE2 )
110 && (ntohs(aa->aa_firstnet) <= ntohs(sat->sat_addr.s_net))
111 && (ntohs(aa->aa_lastnet) >= ntohs(sat->sat_addr.s_net))) {
119 aarpwhohas( struct arpcom *ac, struct sockaddr_at *sat )
122 struct ether_header *eh;
123 struct ether_aarp *ea;
124 struct at_ifaddr *aa;
128 if (( m = m_gethdr( M_DONTWAIT, MT_DATA )) == NULL ) {
131 m->m_len = sizeof( *ea );
132 m->m_pkthdr.len = sizeof( *ea );
133 MH_ALIGN( m, sizeof( *ea ));
135 ea = mtod( m, struct ether_aarp *);
136 bzero((caddr_t)ea, sizeof( *ea ));
138 ea->aarp_hrd = htons( AARPHRD_ETHER );
139 ea->aarp_pro = htons( ETHERTYPE_AT );
140 ea->aarp_hln = sizeof( ea->aarp_sha );
141 ea->aarp_pln = sizeof( ea->aarp_spu );
142 ea->aarp_op = htons( AARPOP_REQUEST );
143 bcopy((caddr_t)ac->ac_enaddr, (caddr_t)ea->aarp_sha,
144 sizeof( ea->aarp_sha ));
147 * We need to check whether the output ethernet type should
148 * be phase 1 or 2. We have the interface that we'll be sending
149 * the aarp out. We need to find an AppleTalk network on that
150 * interface with the same address as we're looking for. If the
151 * net is phase 2, generate an 802.2 and SNAP header.
153 if ((aa = at_ifawithnet( sat )) == NULL) {
158 eh = (struct ether_header *)sa.sa_data;
160 if ( aa->aa_flags & AFA_PHASE2 ) {
161 bcopy((caddr_t)atmulticastaddr, (caddr_t)eh->ether_dhost,
162 sizeof( eh->ether_dhost ));
163 eh->ether_type = htons(sizeof(struct llc) + sizeof(struct ether_aarp));
164 M_PREPEND( m, sizeof( struct llc ), M_WAIT );
165 llc = mtod( m, struct llc *);
166 llc->llc_dsap = llc->llc_ssap = LLC_SNAP_LSAP;
167 llc->llc_control = LLC_UI;
168 bcopy( aarp_org_code, llc->llc_org_code, sizeof( aarp_org_code ));
169 llc->llc_ether_type = htons( ETHERTYPE_AARP );
171 bcopy( &AA_SAT( aa )->sat_addr.s_net, ea->aarp_spnet,
172 sizeof( ea->aarp_spnet ));
173 bcopy( &sat->sat_addr.s_net, ea->aarp_tpnet,
174 sizeof( ea->aarp_tpnet ));
175 ea->aarp_spnode = AA_SAT( aa )->sat_addr.s_node;
176 ea->aarp_tpnode = sat->sat_addr.s_node;
178 bcopy((caddr_t)etherbroadcastaddr, (caddr_t)eh->ether_dhost,
179 sizeof( eh->ether_dhost ));
180 eh->ether_type = htons( ETHERTYPE_AARP );
182 ea->aarp_spa = AA_SAT( aa )->sat_addr.s_node;
183 ea->aarp_tpa = sat->sat_addr.s_node;
187 printf("aarp: sending request for %u.%u\n",
188 ntohs(AA_SAT( aa )->sat_addr.s_net),
189 AA_SAT( aa )->sat_addr.s_node);
190 #endif /* NETATALKDEBUG */
192 sa.sa_len = sizeof( struct sockaddr );
193 sa.sa_family = AF_UNSPEC;
194 (*ac->ac_if.if_output)(&ac->ac_if,
195 m, &sa, NULL); /* XXX NULL should be routing information */
199 aarpresolve( ac, m, destsat, desten )
202 struct sockaddr_at *destsat;
205 struct at_ifaddr *aa;
209 if ( at_broadcast( destsat )) {
210 m->m_flags |= M_BCAST;
211 if ((aa = at_ifawithnet( destsat )) == NULL) {
215 if ( aa->aa_flags & AFA_PHASE2 ) {
216 bcopy( (caddr_t)atmulticastaddr, (caddr_t)desten,
217 sizeof( atmulticastaddr ));
219 bcopy( (caddr_t)etherbroadcastaddr, (caddr_t)desten,
220 sizeof( etherbroadcastaddr ));
226 AARPTAB_LOOK( aat, destsat->sat_addr );
227 if ( aat == 0 ) { /* No entry */
228 aat = aarptnew( &destsat->sat_addr );
230 panic( "aarpresolve: no free entry" );
233 aarpwhohas( ac, destsat );
239 if ( aat->aat_flags & ATF_COM ) { /* entry is COMplete */
240 bcopy( (caddr_t)aat->aat_enaddr, (caddr_t)desten,
241 sizeof( aat->aat_enaddr ));
245 /* entry has not completed */
246 if ( aat->aat_hold ) {
247 m_freem( aat->aat_hold );
250 aarpwhohas( ac, destsat );
262 if ( ac->ac_if.if_flags & IFF_NOARP )
265 if ( m->m_len < sizeof( struct arphdr )) {
269 ar = mtod( m, struct arphdr *);
270 if ( ntohs( ar->ar_hrd ) != AARPHRD_ETHER ) {
274 if ( m->m_len < sizeof( struct arphdr ) + 2 * ar->ar_hln +
279 switch( ntohs( ar->ar_pro )) {
281 at_aarpinput( ac, m );
293 at_aarpinput( struct arpcom *ac, struct mbuf *m)
295 struct ether_aarp *ea;
296 struct at_ifaddr *aa;
298 struct ether_header *eh;
300 struct sockaddr_at sat;
302 struct at_addr spa, tpa, ma;
306 ea = mtod( m, struct ether_aarp *);
308 /* Check to see if from my hardware address */
309 if ( !bcmp(( caddr_t )ea->aarp_sha, ( caddr_t )ac->ac_enaddr,
310 sizeof( ac->ac_enaddr ))) {
315 op = ntohs( ea->aarp_op );
316 bcopy( ea->aarp_tpnet, &net, sizeof( net ));
318 if ( net != 0 ) { /* should be ATADDR_ANYNET? */
319 sat.sat_len = sizeof(struct sockaddr_at);
320 sat.sat_family = AF_APPLETALK;
321 sat.sat_addr.s_net = net;
322 if ((aa = at_ifawithnet( &sat )) == NULL) {
326 bcopy( ea->aarp_spnet, &spa.s_net, sizeof( spa.s_net ));
327 bcopy( ea->aarp_tpnet, &tpa.s_net, sizeof( tpa.s_net ));
330 * Since we don't know the net, we just look for the first
331 * phase 1 address on the interface.
333 for (aa = (struct at_ifaddr *)ac->ac_if.if_addrhead.tqh_first; aa;
334 aa = (struct at_ifaddr *)aa->aa_ifa.ifa_link.tqe_next) {
335 if ( AA_SAT( aa )->sat_family == AF_APPLETALK &&
336 ( aa->aa_flags & AFA_PHASE2 ) == 0 ) {
344 tpa.s_net = spa.s_net = AA_SAT( aa )->sat_addr.s_net;
347 spa.s_node = ea->aarp_spnode;
348 tpa.s_node = ea->aarp_tpnode;
349 ma.s_net = AA_SAT( aa )->sat_addr.s_net;
350 ma.s_node = AA_SAT( aa )->sat_addr.s_node;
353 * This looks like it's from us.
355 if ( spa.s_net == ma.s_net && spa.s_node == ma.s_node ) {
356 if ( aa->aa_flags & AFA_PROBING ) {
358 * We're probing, someone either responded to our probe, or
359 * probed for the same address we'd like to use. Change the
360 * address we're probing for.
362 untimeout( aarpprobe, ac, aa->aa_ch );
366 } else if ( op != AARPOP_PROBE ) {
368 * This is not a probe, and we're not probing. This means
369 * that someone's saying they have the same source address
370 * as the one we're using. Get upset...
373 "aarp: duplicate AT address!! %x:%x:%x:%x:%x:%x\n",
374 ea->aarp_sha[ 0 ], ea->aarp_sha[ 1 ], ea->aarp_sha[ 2 ],
375 ea->aarp_sha[ 3 ], ea->aarp_sha[ 4 ], ea->aarp_sha[ 5 ]);
381 AARPTAB_LOOK( aat, spa );
383 if ( op == AARPOP_PROBE ) {
385 * Someone's probing for spa, dealocate the one we've got,
386 * so that if the prober keeps the address, we'll be able
394 bcopy(( caddr_t )ea->aarp_sha, ( caddr_t )aat->aat_enaddr,
395 sizeof( ea->aarp_sha ));
396 aat->aat_flags |= ATF_COM;
397 if ( aat->aat_hold ) {
398 struct mbuf *mhold = aat->aat_hold;
399 aat->aat_hold = NULL;
400 sat.sat_len = sizeof(struct sockaddr_at);
401 sat.sat_family = AF_APPLETALK;
403 (*ac->ac_if.if_output)( &ac->ac_if, mhold,
404 (struct sockaddr *)&sat, NULL); /* XXX */
406 } else if ((tpa.s_net == ma.s_net)
407 && (tpa.s_node == ma.s_node)
408 && (op != AARPOP_PROBE)
409 && ((aat = aarptnew( &spa )) != NULL)) {
410 bcopy(( caddr_t )ea->aarp_sha, ( caddr_t )aat->aat_enaddr,
411 sizeof( ea->aarp_sha ));
412 aat->aat_flags |= ATF_COM;
416 * Don't respond to responses, and never respond if we're
419 if ( tpa.s_net != ma.s_net || tpa.s_node != ma.s_node ||
420 op == AARPOP_RESPONSE || ( aa->aa_flags & AFA_PROBING )) {
425 bcopy(( caddr_t )ea->aarp_sha, ( caddr_t )ea->aarp_tha,
426 sizeof( ea->aarp_sha ));
427 bcopy(( caddr_t )ac->ac_enaddr, ( caddr_t )ea->aarp_sha,
428 sizeof( ea->aarp_sha ));
431 eh = (struct ether_header *)sa.sa_data;
432 bcopy(( caddr_t )ea->aarp_tha, ( caddr_t )eh->ether_dhost,
433 sizeof( eh->ether_dhost ));
435 if ( aa->aa_flags & AFA_PHASE2 ) {
436 eh->ether_type = htons( sizeof( struct llc ) +
437 sizeof( struct ether_aarp ));
438 M_PREPEND( m, sizeof( struct llc ), M_DONTWAIT );
442 llc = mtod( m, struct llc *);
443 llc->llc_dsap = llc->llc_ssap = LLC_SNAP_LSAP;
444 llc->llc_control = LLC_UI;
445 bcopy( aarp_org_code, llc->llc_org_code, sizeof( aarp_org_code ));
446 llc->llc_ether_type = htons( ETHERTYPE_AARP );
448 bcopy( ea->aarp_spnet, ea->aarp_tpnet, sizeof( ea->aarp_tpnet ));
449 bcopy( &ma.s_net, ea->aarp_spnet, sizeof( ea->aarp_spnet ));
451 eh->ether_type = htons( ETHERTYPE_AARP );
454 ea->aarp_tpnode = ea->aarp_spnode;
455 ea->aarp_spnode = ma.s_node;
456 ea->aarp_op = htons( AARPOP_RESPONSE );
458 sa.sa_len = sizeof( struct sockaddr );
459 sa.sa_family = AF_UNSPEC;
460 (*ac->ac_if.if_output)( &ac->ac_if, m, &sa, NULL); /* XXX */
465 aarptfree( struct aarptab *aat)
469 m_freem( aat->aat_hold );
470 aat->aat_hold = NULL;
471 aat->aat_timer = aat->aat_flags = 0;
472 aat->aat_ataddr.s_net = 0;
473 aat->aat_ataddr.s_node = 0;
478 struct at_addr *addr;
482 struct aarptab *aat, *aato = NULL;
483 static int first = 1;
487 aarptimer_ch = timeout( aarptimer, (caddr_t)0, hz );
489 aat = &aarptab[ AARPTAB_HASH( *addr ) * AARPTAB_BSIZ ];
490 for ( n = 0; n < AARPTAB_BSIZ; n++, aat++ ) {
491 if ( aat->aat_flags == 0 )
493 if ( aat->aat_flags & ATF_PERM )
495 if ((int) aat->aat_timer > oldest ) {
496 oldest = aat->aat_timer;
505 aat->aat_ataddr = *addr;
506 aat->aat_flags = ATF_INUSE;
512 aarpprobe( void *arg )
514 struct arpcom *ac = arg;
516 struct ether_header *eh;
517 struct ether_aarp *ea;
518 struct at_ifaddr *aa;
523 * We need to check whether the output ethernet type should
524 * be phase 1 or 2. We have the interface that we'll be sending
525 * the aarp out. We need to find an AppleTalk network on that
526 * interface with the same address as we're looking for. If the
527 * net is phase 2, generate an 802.2 and SNAP header.
529 for (aa = (struct at_ifaddr *)ac->ac_if.if_addrhead.tqh_first; aa;
530 aa = (struct at_ifaddr *)aa->aa_ifa.ifa_link.tqe_next) {
531 if ( AA_SAT( aa )->sat_family == AF_APPLETALK &&
532 ( aa->aa_flags & AFA_PROBING )) {
536 if ( aa == NULL ) { /* serious error XXX */
537 printf( "aarpprobe why did this happen?!\n" );
541 if ( aa->aa_probcnt <= 0 ) {
542 aa->aa_flags &= ~AFA_PROBING;
546 aa->aa_ch = timeout( aarpprobe, (caddr_t)ac, hz / 5 );
549 if (( m = m_gethdr( M_DONTWAIT, MT_DATA )) == NULL ) {
552 m->m_len = sizeof( *ea );
553 m->m_pkthdr.len = sizeof( *ea );
554 MH_ALIGN( m, sizeof( *ea ));
556 ea = mtod( m, struct ether_aarp *);
557 bzero((caddr_t)ea, sizeof( *ea ));
559 ea->aarp_hrd = htons( AARPHRD_ETHER );
560 ea->aarp_pro = htons( ETHERTYPE_AT );
561 ea->aarp_hln = sizeof( ea->aarp_sha );
562 ea->aarp_pln = sizeof( ea->aarp_spu );
563 ea->aarp_op = htons( AARPOP_PROBE );
564 bcopy((caddr_t)ac->ac_enaddr, (caddr_t)ea->aarp_sha,
565 sizeof( ea->aarp_sha ));
567 eh = (struct ether_header *)sa.sa_data;
569 if ( aa->aa_flags & AFA_PHASE2 ) {
570 bcopy((caddr_t)atmulticastaddr, (caddr_t)eh->ether_dhost,
571 sizeof( eh->ether_dhost ));
572 eh->ether_type = htons( sizeof( struct llc ) +
573 sizeof( struct ether_aarp ));
574 M_PREPEND( m, sizeof( struct llc ), M_WAIT );
575 llc = mtod( m, struct llc *);
576 llc->llc_dsap = llc->llc_ssap = LLC_SNAP_LSAP;
577 llc->llc_control = LLC_UI;
578 bcopy( aarp_org_code, llc->llc_org_code, sizeof( aarp_org_code ));
579 llc->llc_ether_type = htons( ETHERTYPE_AARP );
581 bcopy( &AA_SAT( aa )->sat_addr.s_net, ea->aarp_spnet,
582 sizeof( ea->aarp_spnet ));
583 bcopy( &AA_SAT( aa )->sat_addr.s_net, ea->aarp_tpnet,
584 sizeof( ea->aarp_tpnet ));
585 ea->aarp_spnode = ea->aarp_tpnode = AA_SAT( aa )->sat_addr.s_node;
587 bcopy((caddr_t)etherbroadcastaddr, (caddr_t)eh->ether_dhost,
588 sizeof( eh->ether_dhost ));
589 eh->ether_type = htons( ETHERTYPE_AARP );
590 ea->aarp_spa = ea->aarp_tpa = AA_SAT( aa )->sat_addr.s_node;
594 printf("aarp: sending probe for %u.%u\n",
595 ntohs(AA_SAT( aa )->sat_addr.s_net),
596 AA_SAT( aa )->sat_addr.s_node);
597 #endif /* NETATALKDEBUG */
599 sa.sa_len = sizeof( struct sockaddr );
600 sa.sa_family = AF_UNSPEC;
601 (*ac->ac_if.if_output)(&ac->ac_if, m, &sa, NULL); /* XXX */
611 untimeout( aarptimer, 0, aarptimer_ch );
612 for ( i = 0, aat = aarptab; i < AARPTAB_SIZE; i++, aat++ ) {
613 if ( aat->aat_hold ) {
614 m_freem( aat->aat_hold );
615 aat->aat_hold = NULL;