udp.c 17.1 KB
Newer Older
B
bellard 已提交
1 2 3 4 5 6 7 8 9 10 11 12
/*
 * Copyright (c) 1982, 1986, 1988, 1990, 1993
 *	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.
13
 * 3. Neither the name of the University nor the names of its contributors
B
bellard 已提交
14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
 *    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.
 *
 *	@(#)udp_usrreq.c	8.4 (Berkeley) 1/21/94
 * udp_usrreq.c,v 1.4 1994/10/02 17:48:45 phk Exp
 */

/*
 * Changes and additions relating to SLiRP
 * Copyright (c) 1995 Danny Gasparovski.
36 37
 *
 * Please read the file COPYRIGHT for the
B
bellard 已提交
38 39 40 41 42 43
 * terms and conditions of the copyright.
 */

#include <slirp.h>
#include "ip_icmp.h"

44
#ifdef LOG_ENABLED
B
bellard 已提交
45
struct udpstat udpstat;
46
#endif
B
bellard 已提交
47 48 49

struct socket udb;

50 51 52
static u_int8_t udp_tos(struct socket *so);
static void udp_emu(struct socket *so, struct mbuf *m);

B
bellard 已提交
53 54 55 56 57
/*
 * UDP protocol implementation.
 * Per RFC 768, August, 1980.
 */
#ifndef	COMPAT_42
58
#define UDPCKSUM 1
B
bellard 已提交
59
#else
60
#define UDPCKSUM 0 /* XXX */
B
bellard 已提交
61 62 63 64 65
#endif

struct	socket *udp_last_so = &udb;

void
B
blueswir1 已提交
66
udp_init(void)
B
bellard 已提交
67 68 69
{
	udb.so_next = udb.so_prev = &udb;
}
70 71
/* m->m_data  points at ip packet header
 * m->m_len   length ip packet
B
bellard 已提交
72 73 74
 * ip->ip_len length data (IPDU)
 */
void
B
blueswir1 已提交
75
udp_input(register struct mbuf *m, int iphlen)
B
bellard 已提交
76 77 78 79 80
{
	register struct ip *ip;
	register struct udphdr *uh;
/*	struct mbuf *opts = 0;*/
	int len;
81
	struct ip save_ip;
B
bellard 已提交
82
	struct socket *so;
83

B
bellard 已提交
84 85 86
	DEBUG_CALL("udp_input");
	DEBUG_ARG("m = %lx", (long)m);
	DEBUG_ARG("iphlen = %d", iphlen);
87

88
	STAT(udpstat.udps_ipackets++);
B
bellard 已提交
89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114

	/*
	 * Strip IP options, if any; should skip this,
	 * make available to user, and use on returned packets,
	 * but we don't yet have a way to check the checksum
	 * with options still present.
	 */
	if(iphlen > sizeof(struct ip)) {
		ip_stripoptions(m, (struct mbuf *)0);
		iphlen = sizeof(struct ip);
	}

	/*
	 * Get IP and UDP header together in first mbuf.
	 */
	ip = mtod(m, struct ip *);
	uh = (struct udphdr *)((caddr_t)ip + iphlen);

	/*
	 * Make mbuf data length reflect UDP length.
	 * If not enough data to reflect UDP length, drop.
	 */
	len = ntohs((u_int16_t)uh->uh_ulen);

	if (ip->ip_len != len) {
		if (len > ip->ip_len) {
115
			STAT(udpstat.udps_badlen++);
B
bellard 已提交
116 117 118 119 120
			goto bad;
		}
		m_adj(m, len - ip->ip_len);
		ip->ip_len = len;
	}
121

B
bellard 已提交
122 123 124 125
	/*
	 * Save a copy of the IP header in case we want restore it
	 * for sending an ICMP error message in response.
	 */
126
	save_ip = *ip;
B
bellard 已提交
127 128 129 130 131
	save_ip.ip_len+= iphlen;         /* tcp_input subtracts this */

	/*
	 * Checksum extended UDP header and data.
	 */
132
	if (UDPCKSUM && uh->uh_sum) {
B
blueswir1 已提交
133
      memset(&((struct ipovly *)ip)->ih_mbuf, 0, sizeof(struct mbuf_ptr));
B
bellard 已提交
134 135 136
	  ((struct ipovly *)ip)->ih_x1 = 0;
	  ((struct ipovly *)ip)->ih_len = uh->uh_ulen;
	  /* keep uh_sum for ICMP reply
137 138
	   * uh->uh_sum = cksum(m, len + sizeof (struct ip));
	   * if (uh->uh_sum) {
B
bellard 已提交
139 140
	   */
	  if(cksum(m, len + sizeof(struct ip))) {
141
	    STAT(udpstat.udps_badsum++);
B
bellard 已提交
142 143 144 145 146 147 148 149 150 151 152 153
	    goto bad;
	  }
	}

        /*
         *  handle DHCP/BOOTP
         */
        if (ntohs(uh->uh_dport) == BOOTP_SERVER) {
            bootp_input(m);
            goto bad;
        }

154 155 156
        if (slirp_restrict)
            goto bad;

B
bellard 已提交
157 158 159 160 161 162 163 164
        /*
         *  handle TFTP
         */
        if (ntohs(uh->uh_dport) == TFTP_SERVER) {
            tftp_input(m);
            goto bad;
        }

B
bellard 已提交
165 166 167 168 169 170 171
	/*
	 * Locate pcb for datagram.
	 */
	so = udp_last_so;
	if (so->so_lport != uh->uh_sport ||
	    so->so_laddr.s_addr != ip->ip_src.s_addr) {
		struct socket *tmp;
172

B
bellard 已提交
173 174 175 176 177 178 179 180 181 182 183 184
		for (tmp = udb.so_next; tmp != &udb; tmp = tmp->so_next) {
			if (tmp->so_lport == uh->uh_sport &&
			    tmp->so_laddr.s_addr == ip->ip_src.s_addr) {
				tmp->so_faddr.s_addr = ip->ip_dst.s_addr;
				tmp->so_fport = uh->uh_dport;
				so = tmp;
				break;
			}
		}
		if (tmp == &udb) {
		  so = NULL;
		} else {
185
		  STAT(udpstat.udpps_pcbcachemiss++);
B
bellard 已提交
186 187 188
		  udp_last_so = so;
		}
	}
189

B
bellard 已提交
190 191 192 193 194 195 196
	if (so == NULL) {
	  /*
	   * If there's no socket for this packet,
	   * create one
	   */
	  if ((so = socreate()) == NULL) goto bad;
	  if(udp_attach(so) == -1) {
197
	    DEBUG_MISC((dfd," udp_attach errno = %d-%s\n",
B
bellard 已提交
198 199 200 201
			errno,strerror(errno)));
	    sofree(so);
	    goto bad;
	  }
202

B
bellard 已提交
203 204 205 206 207 208
	  /*
	   * Setup fields
	   */
	  /* udp_last_so = so; */
	  so->so_laddr = ip->ip_src;
	  so->so_lport = uh->uh_sport;
209

B
bellard 已提交
210 211
	  if ((so->so_iptos = udp_tos(so)) == 0)
	    so->so_iptos = ip->ip_tos;
212

B
bellard 已提交
213 214 215 216 217 218
	  /*
	   * XXXXX Here, check if it's in udpexec_list,
	   * and if it is, do the fork_exec() etc.
	   */
	}

T
ths 已提交
219 220 221
        so->so_faddr = ip->ip_dst; /* XXX */
        so->so_fport = uh->uh_dport; /* XXX */

B
bellard 已提交
222 223 224 225 226 227 228 229 230 231 232 233 234 235 236
	iphlen += sizeof(struct udphdr);
	m->m_len -= iphlen;
	m->m_data += iphlen;

	/*
	 * Now we sendto() the packet.
	 */
	if (so->so_emu)
	   udp_emu(so, m);

	if(sosendto(so,m) == -1) {
	  m->m_len += iphlen;
	  m->m_data -= iphlen;
	  *ip=save_ip;
	  DEBUG_MISC((dfd,"udp tx errno = %d-%s\n",errno,strerror(errno)));
237
	  icmp_error(m, ICMP_UNREACH,ICMP_UNREACH_NET, 0,strerror(errno));
B
bellard 已提交
238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254
	}

	m_free(so->so_m);   /* used for ICMP if error on sorecvfrom */

	/* restore the orig mbuf packet */
	m->m_len += iphlen;
	m->m_data -= iphlen;
	*ip=save_ip;
	so->so_m=m;         /* ICMP backup */

	return;
bad:
	m_freem(m);
	/* if (opts) m_freem(opts); */
	return;
}

255
int udp_output2(struct socket *so, struct mbuf *m,
B
bellard 已提交
256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272
                struct sockaddr_in *saddr, struct sockaddr_in *daddr,
                int iptos)
{
	register struct udpiphdr *ui;
	int error = 0;

	DEBUG_CALL("udp_output");
	DEBUG_ARG("so = %lx", (long)so);
	DEBUG_ARG("m = %lx", (long)m);
	DEBUG_ARG("saddr = %lx", (long)saddr->sin_addr.s_addr);
	DEBUG_ARG("daddr = %lx", (long)daddr->sin_addr.s_addr);

	/*
	 * Adjust for header
	 */
	m->m_data -= sizeof(struct udpiphdr);
	m->m_len += sizeof(struct udpiphdr);
273

B
bellard 已提交
274 275 276 277 278
	/*
	 * Fill in mbuf with extended UDP header
	 * and addresses and length put into network format.
	 */
	ui = mtod(m, struct udpiphdr *);
B
blueswir1 已提交
279
    memset(&ui->ui_i.ih_mbuf, 0 , sizeof(struct mbuf_ptr));
B
bellard 已提交
280 281 282 283 284 285 286 287 288 289 290 291 292 293
	ui->ui_x1 = 0;
	ui->ui_pr = IPPROTO_UDP;
	ui->ui_len = htons(m->m_len - sizeof(struct ip)); /* + sizeof (struct udphdr)); */
	/* XXXXX Check for from-one-location sockets, or from-any-location sockets */
        ui->ui_src = saddr->sin_addr;
	ui->ui_dst = daddr->sin_addr;
	ui->ui_sport = saddr->sin_port;
	ui->ui_dport = daddr->sin_port;
	ui->ui_ulen = ui->ui_len;

	/*
	 * Stuff checksum and output datagram.
	 */
	ui->ui_sum = 0;
294
	if (UDPCKSUM) {
B
bellard 已提交
295 296 297 298 299
	    if ((ui->ui_sum = cksum(m, /* sizeof (struct udpiphdr) + */ m->m_len)) == 0)
		ui->ui_sum = 0xffff;
	}
	((struct ip *)ui)->ip_len = m->m_len;

300
	((struct ip *)ui)->ip_ttl = IPDEFTTL;
B
bellard 已提交
301
	((struct ip *)ui)->ip_tos = iptos;
302

303
	STAT(udpstat.udps_opackets++);
304

B
bellard 已提交
305
	error = ip_output(so, m);
306

B
bellard 已提交
307 308 309
	return (error);
}

310
int udp_output(struct socket *so, struct mbuf *m,
B
bellard 已提交
311 312 313 314 315 316
               struct sockaddr_in *addr)

{
    struct sockaddr_in saddr, daddr;

    saddr = *addr;
317
    if ((so->so_faddr.s_addr & htonl(0xffffff00)) == special_addr.s_addr) {
318 319
        if ((so->so_faddr.s_addr & htonl(0x000000ff)) == htonl(0xff))
            saddr.sin_addr.s_addr = alias_addr.s_addr;
320
        else if (addr->sin_addr.s_addr == loopback_addr.s_addr ||
321
                 (ntohl(so->so_faddr.s_addr) & 0xff) != CTL_ALIAS)
322
            saddr.sin_addr.s_addr = so->so_faddr.s_addr;
323
    }
B
bellard 已提交
324 325
    daddr.sin_addr = so->so_laddr;
    daddr.sin_port = so->so_lport;
326

B
bellard 已提交
327 328 329 330
    return udp_output2(so, m, &saddr, &daddr, so->so_iptos);
}

int
B
blueswir1 已提交
331
udp_attach(struct socket *so)
B
bellard 已提交
332 333
{
  struct sockaddr_in addr;
334

B
bellard 已提交
335 336 337 338 339 340 341 342 343 344 345
  if((so->s = socket(AF_INET,SOCK_DGRAM,0)) != -1) {
    /*
     * Here, we bind() the socket.  Although not really needed
     * (sendto() on an unbound socket will bind it), it's done
     * here so that emulation of ytalk etc. don't have to do it
     */
    addr.sin_family = AF_INET;
    addr.sin_port = 0;
    addr.sin_addr.s_addr = INADDR_ANY;
    if(bind(so->s, (struct sockaddr *)&addr, sizeof(addr))<0) {
      int lasterrno=errno;
B
bellard 已提交
346
      closesocket(so->s);
B
bellard 已提交
347
      so->s=-1;
B
bellard 已提交
348 349 350
#ifdef _WIN32
      WSASetLastError(lasterrno);
#else
B
bellard 已提交
351
      errno=lasterrno;
B
bellard 已提交
352
#endif
B
bellard 已提交
353 354 355 356 357 358 359 360 361 362
    } else {
      /* success, insert in queue */
      so->so_expire = curtime + SO_EXPIRE;
      insque(so,&udb);
    }
  }
  return(so->s);
}

void
B
blueswir1 已提交
363
udp_detach(struct socket *so)
B
bellard 已提交
364
{
B
bellard 已提交
365
	closesocket(so->s);
B
bellard 已提交
366 367 368 369 370
	/* if (so->so_m) m_free(so->so_m);    done by sofree */

	sofree(so);
}

371
static const struct tos_t udptos[] = {
B
bellard 已提交
372 373 374 375 376 377 378
	{0, 53, IPTOS_LOWDELAY, 0},			/* DNS */
	{517, 517, IPTOS_LOWDELAY, EMU_TALK},	/* talk */
	{518, 518, IPTOS_LOWDELAY, EMU_NTALK},	/* ntalk */
	{0, 7648, IPTOS_LOWDELAY, EMU_CUSEEME},	/* Cu-Seeme */
	{0, 0, 0, 0}
};

379 380
static u_int8_t
udp_tos(struct socket *so)
B
bellard 已提交
381 382
{
	int i = 0;
383

B
bellard 已提交
384 385 386 387 388 389 390 391
	while(udptos[i].tos) {
		if ((udptos[i].fport && ntohs(so->so_fport) == udptos[i].fport) ||
		    (udptos[i].lport && ntohs(so->so_lport) == udptos[i].lport)) {
		    	so->so_emu = udptos[i].emu;
			return udptos[i].tos;
		}
		i++;
	}
392

B
bellard 已提交
393 394 395 396 397 398 399 400 401 402
	return 0;
}

#ifdef EMULATE_TALK
#include "talkd.h"
#endif

/*
 * Here, talk/ytalk/ntalk requests must be emulated
 */
403 404
static void
udp_emu(struct socket *so, struct mbuf *m)
B
bellard 已提交
405 406
{
	struct sockaddr_in addr;
407
	socklen_t addrlen = sizeof(addr);
B
bellard 已提交
408 409 410 411 412
#ifdef EMULATE_TALK
	CTL_MSG_OLD *omsg;
	CTL_MSG *nmsg;
	char buff[sizeof(CTL_MSG)];
	u_char type;
413

B
bellard 已提交
414 415 416 417 418
struct talk_request {
	struct talk_request *next;
	struct socket *udp_so;
	struct socket *tcp_so;
} *req;
419 420 421

	static struct talk_request *req_tbl = 0;

B
bellard 已提交
422
#endif
423

B
bellard 已提交
424
struct cu_header {
425 426 427 428 429
	uint16_t	d_family;		// destination family
	uint16_t	d_port;			// destination port
	uint32_t	d_addr;			// destination address
	uint16_t	s_family;		// source family
	uint16_t	s_port;			// source port
B
bellard 已提交
430
	uint32_t	so_addr;		// source address
431 432 433 434
	uint32_t	seqn;			// sequence number
	uint16_t	message;		// message
	uint16_t	data_type;		// data type
	uint16_t	pkt_len;		// packet length
B
bellard 已提交
435 436 437 438 439 440 441 442 443 444 445 446 447 448 449
} *cu_head;

	switch(so->so_emu) {

#ifdef EMULATE_TALK
	 case EMU_TALK:
	 case EMU_NTALK:
		/*
		 * Talk emulation. We always change the ctl_addr to get
		 * some answers from the daemon. When an ANNOUNCE comes,
		 * we send LEAVE_INVITE to the local daemons. Also when a
		 * DELETE comes, we send copies to the local daemons.
		 */
		if (getsockname(so->s, (struct sockaddr *)&addr, &addrlen) < 0)
			return;
450

B
bellard 已提交
451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471
#define	IS_OLD	(so->so_emu == EMU_TALK)

#define COPY_MSG(dest, src) { dest->type = src->type; \
			      dest->id_num = src->id_num; \
			      dest->pid = src->pid; \
			      dest->addr = src->addr; \
			      dest->ctl_addr = src->ctl_addr; \
			      memcpy(&dest->l_name, &src->l_name, NAME_SIZE_OLD); \
			      memcpy(&dest->r_name, &src->r_name, NAME_SIZE_OLD); \
	         	      memcpy(&dest->r_tty, &src->r_tty, TTY_SIZE); }

#define OTOSIN(ptr, field) ((struct sockaddr_in *)&ptr->field)
/* old_sockaddr to sockaddr_in */


		if (IS_OLD) {  		/* old talk */
			omsg = mtod(m, CTL_MSG_OLD*);
			nmsg = (CTL_MSG *) buff;
			type = omsg->type;
			OTOSIN(omsg, ctl_addr)->sin_port = addr.sin_port;
			OTOSIN(omsg, ctl_addr)->sin_addr = our_addr;
472
                        pstrcpy(omsg->l_name, NAME_SIZE_OLD, getlogin());
473
		} else {		/* new talk */
B
bellard 已提交
474 475 476 477 478
			omsg = (CTL_MSG_OLD *) buff;
			nmsg = mtod(m, CTL_MSG *);
			type = nmsg->type;
			OTOSIN(nmsg, ctl_addr)->sin_port = addr.sin_port;
			OTOSIN(nmsg, ctl_addr)->sin_addr = our_addr;
479
                        pstrcpy(nmsg->l_name, NAME_SIZE_OLD, getlogin());
B
bellard 已提交
480
		}
481

482
		if (type == LOOK_UP)
B
bellard 已提交
483
			return;		/* for LOOK_UP this is enough */
484

B
bellard 已提交
485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502
		if (IS_OLD) {		/* make a copy of the message */
			COPY_MSG(nmsg, omsg);
			nmsg->vers = 1;
			nmsg->answer = 0;
		} else
			COPY_MSG(omsg, nmsg);

		/*
		 * If if is an ANNOUNCE message, we go through the
		 * request table to see if a tcp port has already
		 * been redirected for this socket. If not, we solisten()
		 * a new socket and add this entry to the table.
		 * The port number of the tcp socket and our IP
		 * are put to the addr field of the message structures.
		 * Then a LEAVE_INVITE is sent to both local daemon
		 * ports, 517 and 518. This is why we have two copies
		 * of the message, one in old talk and one in new talk
		 * format.
503
		 */
B
bellard 已提交
504 505 506 507

		if (type == ANNOUNCE) {
			int s;
			u_short temp_port;
508

B
bellard 已提交
509 510 511
			for(req = req_tbl; req; req = req->next)
				if (so == req->udp_so)
					break;  	/* found it */
512

B
bellard 已提交
513 514 515 516
			if (!req) {	/* no entry for so, create new */
				req = (struct talk_request *)
					malloc(sizeof(struct talk_request));
				req->udp_so = so;
517
				req->tcp_so = solisten(0,
518
					OTOSIN(omsg, addr)->sin_addr.s_addr,
B
bellard 已提交
519 520 521 522
					OTOSIN(omsg, addr)->sin_port,
					SS_FACCEPTONCE);
				req->next = req_tbl;
				req_tbl = req;
523 524
			}

B
bellard 已提交
525 526
			/* replace port number in addr field */
			addrlen = sizeof(addr);
527
			getsockname(req->tcp_so->s,
B
bellard 已提交
528
					(struct sockaddr *) &addr,
529
					&addrlen);
B
bellard 已提交
530 531 532
			OTOSIN(omsg, addr)->sin_port = addr.sin_port;
			OTOSIN(omsg, addr)->sin_addr = our_addr;
			OTOSIN(nmsg, addr)->sin_port = addr.sin_port;
533 534
			OTOSIN(nmsg, addr)->sin_addr = our_addr;

B
bellard 已提交
535 536 537 538
			/* send LEAVE_INVITEs */
			temp_port = OTOSIN(omsg, ctl_addr)->sin_port;
			OTOSIN(omsg, ctl_addr)->sin_port = 0;
			OTOSIN(nmsg, ctl_addr)->sin_port = 0;
539 540
			omsg->type = nmsg->type = LEAVE_INVITE;

B
bellard 已提交
541 542 543 544
			s = socket(AF_INET, SOCK_DGRAM, IPPROTO_IP);
			addr.sin_addr = our_addr;
			addr.sin_family = AF_INET;
			addr.sin_port = htons(517);
545
			sendto(s, (char *)omsg, sizeof(*omsg), 0,
B
bellard 已提交
546 547 548 549
				(struct sockaddr *)&addr, sizeof(addr));
			addr.sin_port = htons(518);
			sendto(s, (char *)nmsg, sizeof(*nmsg), 0,
				(struct sockaddr *) &addr, sizeof(addr));
B
bellard 已提交
550
			closesocket(s) ;
B
bellard 已提交
551

552
			omsg->type = nmsg->type = ANNOUNCE;
B
bellard 已提交
553 554 555
			OTOSIN(omsg, ctl_addr)->sin_port = temp_port;
			OTOSIN(nmsg, ctl_addr)->sin_port = temp_port;
		}
556

557
		/*
B
bellard 已提交
558 559 560 561
		 * If it is a DELETE message, we send a copy to the
		 * local daemons. Then we delete the entry corresponding
		 * to our socket from the request table.
		 */
562

B
bellard 已提交
563 564 565 566
		if (type == DELETE) {
			struct talk_request *temp_req, *req_next;
			int s;
			u_short temp_port;
567

B
bellard 已提交
568 569 570
			temp_port = OTOSIN(omsg, ctl_addr)->sin_port;
			OTOSIN(omsg, ctl_addr)->sin_port = 0;
			OTOSIN(nmsg, ctl_addr)->sin_port = 0;
571

B
bellard 已提交
572 573 574 575 576 577 578 579 580
			s = socket(AF_INET, SOCK_DGRAM, IPPROTO_IP);
			addr.sin_addr = our_addr;
			addr.sin_family = AF_INET;
			addr.sin_port = htons(517);
			sendto(s, (char *)omsg, sizeof(*omsg), 0,
				(struct sockaddr *)&addr, sizeof(addr));
			addr.sin_port = htons(518);
			sendto(s, (char *)nmsg, sizeof(*nmsg), 0,
				(struct sockaddr *)&addr, sizeof(addr));
B
bellard 已提交
581
			closesocket(s);
582

B
bellard 已提交
583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604
			OTOSIN(omsg, ctl_addr)->sin_port = temp_port;
			OTOSIN(nmsg, ctl_addr)->sin_port = temp_port;

			/* delete table entry */
			if (so == req_tbl->udp_so) {
				temp_req = req_tbl;
				req_tbl = req_tbl->next;
				free(temp_req);
			} else {
				temp_req = req_tbl;
				for(req = req_tbl->next; req; req = req_next) {
					req_next = req->next;
					if (so == req->udp_so) {
						temp_req->next = req_next;
						free(req);
						break;
					} else {
						temp_req = req;
					}
				}
			}
		}
605 606

		return;
B
bellard 已提交
607
#endif
608

609 610
	case EMU_CUSEEME:

B
bellard 已提交
611 612 613 614 615
		/*
		 * Cu-SeeMe emulation.
		 * Hopefully the packet is more that 16 bytes long. We don't
		 * do any other tests, just replace the address and port
		 * fields.
616
		 */
B
bellard 已提交
617 618 619 620
		if (m->m_len >= sizeof (*cu_head)) {
			if (getsockname(so->s, (struct sockaddr *)&addr, &addrlen) < 0)
				return;
			cu_head = mtod(m, struct cu_header *);
621
			cu_head->s_port = addr.sin_port;
B
bellard 已提交
622
			cu_head->so_addr = our_addr.s_addr;
B
bellard 已提交
623
		}
624

B
bellard 已提交
625 626 627 628 629
		return;
	}
}

struct socket *
B
blueswir1 已提交
630
udp_listen(u_int port, u_int32_t laddr, u_int lport, int flags)
B
bellard 已提交
631 632 633
{
	struct sockaddr_in addr;
	struct socket *so;
634
	socklen_t addrlen = sizeof(struct sockaddr_in), opt = 1;
635

B
bellard 已提交
636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653
	if ((so = socreate()) == NULL) {
		free(so);
		return NULL;
	}
	so->s = socket(AF_INET,SOCK_DGRAM,0);
	so->so_expire = curtime + SO_EXPIRE;
	insque(so,&udb);

	addr.sin_family = AF_INET;
	addr.sin_addr.s_addr = INADDR_ANY;
	addr.sin_port = port;

	if (bind(so->s,(struct sockaddr *)&addr, addrlen) < 0) {
		udp_detach(so);
		return NULL;
	}
	setsockopt(so->s,SOL_SOCKET,SO_REUSEADDR,(char *)&opt,sizeof(int));
/*	setsockopt(so->s,SOL_SOCKET,SO_OOBINLINE,(char *)&opt,sizeof(int)); */
654

B
bellard 已提交
655 656 657
	getsockname(so->s,(struct sockaddr *)&addr,&addrlen);
	so->so_fport = addr.sin_port;
	if (addr.sin_addr.s_addr == 0 || addr.sin_addr.s_addr == loopback_addr.s_addr)
658
	   so->so_faddr = alias_addr;
B
bellard 已提交
659 660
	else
	   so->so_faddr = addr.sin_addr;
661

B
bellard 已提交
662 663 664 665
	so->so_lport = lport;
	so->so_laddr.s_addr = laddr;
	if (flags != SS_FACCEPTONCE)
	   so->so_expire = 0;
666

B
bellard 已提交
667
	so->so_state = SS_ISFCONNECTED;
668

B
bellard 已提交
669 670
	return so;
}