?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
lib/tun: Mark internal helper functions 'static'
[openggsn.git] / ggsn / ggsn.c
blobd865707c5502a8da8b6bc405f914a596c6f78962
1 /*
2 * OpenGGSN - Gateway GPRS Support Node
3 * Copyright (C) 2002, 2003, 2004 Mondru AB.
4 *
5 * The contents of this file may be used under the terms of the GNU
6 * General Public License Version 2, provided that the above copyright
7 * notice and this permission notice is included in all copies or
8 * substantial portions of the software.
9 *
10 */
11
12 /* ggsn.c
13 *
14 */
15
16 #ifdef __linux__
17 #define _GNU_SOURCE 1 /* strdup() prototype, broken arpa/inet.h */
18 #endif
19
20 #include "../config.h"
21
22 #include <osmocom/core/application.h>
23
24 #ifdef HAVE_STDINT_H
25 #include <stdint.h>
26 #endif
27
28 #include <ctype.h>
29 #include <netdb.h>
30 #include <signal.h>
31 #include <stdio.h>
32 #include <string.h>
33 #include <stdlib.h>
34 #include <sys/types.h>
35 #include <sys/socket.h>
36 #include <netinet/in.h>
37 #include <netinet/ip.h>
38 #include <netinet/ip6.h>
39 #include <arpa/inet.h>
40 #include <sys/wait.h>
41 #include <sys/stat.h>
42 #include <fcntl.h>
43 #include <unistd.h>
44 #include <inttypes.h>
45 #include <sys/socket.h>
46 #include <sys/ioctl.h>
47 #include <net/if.h>
48 #include <net/if.h>
49
50 #include <errno.h>
51
52 #include <time.h>
53
54 #include <osmocom/core/select.h>
55 #include <osmocom/ctrl/control_if.h>
56 #include <osmocom/ctrl/control_cmd.h>
57 #include <osmocom/ctrl/ports.h>
58
59 #include "../lib/tun.h"
60 #include "../lib/ippool.h"
61 #include "../lib/syserr.h"
62 #include "../lib/in46_addr.h"
63 #include "../gtp/pdp.h"
64 #include "../gtp/gtp.h"
65 #include "cmdline.h"
66 #include "gtp-kernel.h"
67 #include "icmpv6.h"
68
69 int end = 0;
70 int maxfd = 0; /* For select() */
71
72 struct in_addr listen_;
73 struct in46_addr netaddr, destaddr, net; /* Network interface */
74 size_t prefixlen;
75 struct in46_addr dns1, dns2; /* PCO DNS address */
76 char *ipup, *ipdown; /* Filename of scripts */
77 int debug; /* Print debug output */
78 struct ul255_t pco;
79 struct ul255_t qos;
80 struct ul255_t apn;
81
82 struct gsn_t *gsn; /* GSN instance */
83 struct tun_t *tun; /* TUN instance */
84 struct ippool_t *ippool; /* Pool of IP addresses */
85
86 /* To exit gracefully. Used with GCC compilation flag -pg and gprof */
87 void signal_handler(int s)
88 {
89 DEBUGP(DGGSN, "Received signal %d, exiting.\n", s);
90 end = 1;
91 }
92
93 /* Used to write process ID to file. Assume someone else will delete */
94 void log_pid(char *pidfile)
95 {
96 FILE *file;
97 mode_t oldmask;
98
99 oldmask = umask(022);
100 file = fopen(pidfile, "w");
101 umask(oldmask);
102 if (!file) {
103 SYS_ERR(DGGSN, LOGL_ERROR, 0,
104 "Failed to create process ID file: %s!", pidfile);
105 return;
106 }
107 fprintf(file, "%d\n", (int)getpid());
108 fclose(file);
109 }
110
111 #if defined(__sun__)
112 int daemon(int nochdir, int noclose)
113 {
114 int fd;
115
116 switch (fork()) {
117 case -1:
118 return (-1);
119 case 0:
120 break;
121 default:
122 _exit(0);
123 }
124
125 if (setsid() == -1)
126 return (-1);
127
128 if (!nochdir)
129 chdir("/");
130
131 if (!noclose && (fd = open("/dev/null", O_RDWR, 0)) != -1) {
132 dup2(fd, STDIN_FILENO);
133 dup2(fd, STDOUT_FILENO);
134 dup2(fd, STDERR_FILENO);
135 if (fd > 2)
136 close(fd);
137 }
138 return (0);
139 }
140 #endif
141
142 static bool send_trap(const struct gsn_t *gsn, const struct pdp_t *pdp, const struct ippoolm_t *member, const char *var)
143 {
144 char addrbuf[256];
145 char val[NAMESIZE];
146
147 const char *addrstr = in46a_ntop(&member->addr, addrbuf, sizeof(addrbuf));
148
149 snprintf(val, sizeof(val), "%s,%s", imsi_gtp2str(&pdp->imsi), addrstr);
150
151 if (ctrl_cmd_send_trap(gsn->priv, var, val) < 0) {
152 LOGP(DGGSN, LOGL_ERROR, "Failed to create and send TRAP for IMSI %" PRIu64 " [%s].\n", pdp->imsi, var);
153 return false;
154 }
155 return true;
156 }
157
158 int delete_context(struct pdp_t *pdp)
159 {
160 DEBUGP(DGGSN, "Deleting PDP context\n");
161 struct ippoolm_t *member = pdp->peer;
162
163 if (pdp->peer) {
164 send_trap(gsn, pdp, member, "imsi-rem-ip"); /* TRAP with IP removal */
165 ippool_freeip(ippool, (struct ippoolm_t *)pdp->peer);
166 } else
167 SYS_ERR(DGGSN, LOGL_ERROR, 0, "Peer not defined!");
168
169 if (gtp_kernel_tunnel_del(pdp)) {
170 SYS_ERR(DGGSN, LOGL_ERROR, 0,
171 "Cannot delete tunnel from kernel: %s\n",
172 strerror(errno));
173 }
174
175 return 0;
176 }
177
178 #include <osmocom/gsm/tlv.h>
179
180 /* 3GPP TS 24.008 10.6.5.3 */
181 enum pco_protocols {
182 PCO_P_LCP = 0xC021,
183 PCO_P_PAP = 0xC023,
184 PCO_P_CHAP = 0xC223,
185 PCO_P_IPCP = 0x8021,
186 PCO_P_PCSCF_ADDR = 0x0001,
187 PCO_P_IM_CN_SS_F = 0x0002,
188 PCO_P_DNS_IPv6_ADDR = 0x0003,
189 PCO_P_POLICY_CTRL_REJ = 0x0004, /* only in Network->MS */
190 PCO_P_MS_SUP_NETREQ_BCI = 0x0005,
191 /* reserved */
192 PCO_P_DSMIPv6_HA_ADDR = 0x0007,
193 PCO_P_DSMIPv6_HN_PREF = 0x0008,
194 PCO_P_DSMIPv6_v4_HA_ADDR= 0x0009,
195 PCO_P_IP_ADDR_VIA_NAS = 0x000a, /* only MS->Network */
196 PCO_P_IPv4_ADDR_VIA_DHCP= 0x000b, /* only MS->Netowrk */
197 PCO_P_PCSCF_IPv4_ADDR = 0x000c,
198 PCO_P_DNS_IPv4_ADDR = 0x000d,
199 PCO_P_MSISDN = 0x000e,
200 PCO_P_IFOM_SUPPORT = 0x000f,
201 PCO_P_IPv4_LINK_MTU = 0x0010,
202 PCO_P_MS_SUPP_LOC_A_TFT = 0x0011,
203 PCO_P_PCSCF_RESEL_SUP = 0x0012, /* only MS->Network */
204 PCO_P_NBIFOM_REQ = 0x0013,
205 PCO_P_NBIFOM_MODE = 0x0014,
206 PCO_P_NONIP_LINK_MTU = 0x0015,
207 PCO_P_APN_RATE_CTRL_SUP = 0x0016,
208 PCO_P_PS_DATA_OFF_UE = 0x0017,
209 PCO_P_REL_DATA_SVC = 0x0018,
210 };
211
212 /* determine if PCO contains given protocol */
213 static bool pco_contains_proto(struct ul255_t *pco, uint16_t prot)
214 {
215 uint8_t *cur = pco->v + 1;
216
217 /* iterate over PCO and check if protocol contained */
218 while (cur + 3 <= pco->v + pco->l) {
219 uint16_t cur_prot = osmo_load16be(cur);
220 uint8_t cur_len = cur[2];
221 if (cur_prot == prot)
222 return true;
223 if (cur_len == 0)
224 break;
225 cur += cur_len + 3;
226 }
227 return false;
228 }
229
230 /* determine if PDP context has IPv6 support */
231 static bool pdp_has_v4(struct pdp_t *pdp)
232 {
233 if (pdp->eua.l == 4+2)
234 return true;
235 else
236 return false;
237 }
238
239 /* process one PCO request from a MS/UE, putting together the proper responses */
240 static void process_pco(struct pdp_t *pdp)
241 {
242 struct msgb *msg = msgb_alloc(256, "PCO");
243 msgb_put_u8(msg, 0x80); /* ext-bit + configuration protocol byte */
244
245 /* FIXME: also check if primary / secondary DNS was requested */
246 if (pdp_has_v4(pdp) && pco_contains_proto(&pdp->pco_req, PCO_P_IPCP)) {
247 /* FIXME: properly implement this for IPCP */
248 uint8_t *cur = msgb_put(msg, pco.l-1);
249 memcpy(cur, pco.v+1, pco.l-1);
250 }
251
252 if (pco_contains_proto(&pdp->pco_req, PCO_P_DNS_IPv6_ADDR)) {
253 if (dns1.len == 16)
254 msgb_t16lv_put(msg, PCO_P_DNS_IPv6_ADDR, dns1.len, dns1.v6.s6_addr);
255 if (dns2.len == 16)
256 msgb_t16lv_put(msg, PCO_P_DNS_IPv6_ADDR, dns2.len, dns2.v6.s6_addr);
257 }
258
259 if (pco_contains_proto(&pdp->pco_req, PCO_P_DNS_IPv4_ADDR)) {
260 if (dns1.len == 4)
261 msgb_t16lv_put(msg, PCO_P_DNS_IPv4_ADDR, dns1.len, (uint8_t *)&dns1.v4);
262 if (dns2.len == 4)
263 msgb_t16lv_put(msg, PCO_P_DNS_IPv4_ADDR, dns2.len, (uint8_t *)&dns2.v4);
264 }
265
266 if (msgb_length(msg) > 1) {
267 memcpy(pdp->pco_neg.v, msgb_data(msg), msgb_length(msg));
268 pdp->pco_neg.l = msgb_length(msg);
269 } else
270 pdp->pco_neg.l = 0;
271
272 msgb_free(msg);
273 }
274
275 int create_context_ind(struct pdp_t *pdp)
276 {
277 struct in46_addr addr;
278 struct ippoolm_t *member;
279 int rc;
280
281 DEBUGP(DGGSN, "Received create PDP context request\n");
282
283 /* FIXME: we manually force all context requests to dynamic here! */
284 if (pdp->eua.l > 2)
285 pdp->eua.l = 2;
286
287 memcpy(pdp->qos_neg0, pdp->qos_req0, sizeof(pdp->qos_req0));
288
289 memcpy(pdp->qos_neg.v, pdp->qos_req.v, pdp->qos_req.l); /* TODO */
290 pdp->qos_neg.l = pdp->qos_req.l;
291
292 if (in46a_from_eua(&pdp->eua, &addr)) {
293 SYS_ERR(DGGSN, LOGL_ERROR, 0, "Cannot decode EUA from MS/SGSN: %s",
294 osmo_hexdump(pdp->eua.v, pdp->eua.l));
295 gtp_create_context_resp(gsn, pdp, GTPCAUSE_UNKNOWN_PDP);
296 return 0;
297 }
298
299 rc = ippool_newip(ippool, &member, &addr, 0);
300 if (rc < 0) {
301 SYS_ERR(DGGSN, LOGL_ERROR, 0, "Cannot allocate IP address in pool\n");
302 gtp_create_context_resp(gsn, pdp, -rc);
303 return 0; /* Allready in use, or no more available */
304 }
305
306 if (addr.len == sizeof(struct in6_addr)) {
307 struct in46_addr tmp;
308 /* IPv6 doesn't really send the real/allocated address at this point, but just
309 * the link-identifier which the MS shall use for router solicitation */
310 tmp.len = addr.len;
311 /* initialize upper 64 bits to prefix, they are discarded by MS anyway */
312 memcpy(tmp.v6.s6_addr, &member->addr.v6, 8);
313 /* use allocated 64bit prefix as lower 64bit, used as link id by MS */
314 memcpy(tmp.v6.s6_addr+8, &member->addr.v6, 8);
315 in46a_to_eua(&tmp, &pdp->eua);
316 } else
317 in46a_to_eua(&member->addr, &pdp->eua);
318 pdp->peer = member;
319 pdp->ipif = tun; /* TODO */
320 member->peer = pdp;
321
322 /* TODO: In IPv6, EUA doesn't contain the actual IP addr/prefix! */
323 if (gtp_kernel_tunnel_add(pdp) < 0) {
324 SYS_ERR(DGGSN, LOGL_ERROR, 0,
325 "Cannot add tunnel to kernel: %s\n", strerror(errno));
326 gtp_create_context_resp(gsn, pdp, GTPCAUSE_SYS_FAIL);
327 return 0;
328 }
329
330 if (!send_trap(gsn, pdp, member, "imsi-ass-ip")) { /* TRAP with IP assignment */
331 gtp_create_context_resp(gsn, pdp, GTPCAUSE_NO_RESOURCES);
332 return 0;
333 }
334
335 process_pco(pdp);
336
337 gtp_create_context_resp(gsn, pdp, GTPCAUSE_ACC_REQ);
338 return 0; /* Success */
339 }
340
341 /* Callback for receiving messages from tun */
342 int cb_tun_ind(struct tun_t *tun, void *pack, unsigned len)
343 {
344 struct ippoolm_t *ipm;
345 struct in46_addr dst;
346 struct iphdr *iph = (struct iphdr *)pack;
347 struct ip6_hdr *ip6h = (struct ip6_hdr *)pack;
348
349 if (iph->version == 4) {
350 if (len < sizeof(*iph) || len < 4*iph->ihl)
351 return -1;
352 dst.len = 4;
353 dst.v4.s_addr = iph->daddr;
354 } else if (iph->version == 6) {
355 /* Due to the fact that 3GPP requires an allocation of a
356 * /64 prefix to each MS, we must instruct
357 * ippool_getip() below to match only the leading /64
358 * prefix, i.e. the first 8 bytes of the address */
359 dst.len = 8;
360 dst.v6 = ip6h->ip6_dst;
361 } else {
362 LOGP(DGGSN, LOGL_NOTICE, "non-IPv packet received from tun\n");
363 return -1;
364 }
365
366 DEBUGP(DGGSN, "Received packet from tun!\n");
367
368 if (ippool_getip(ippool, &ipm, &dst)) {
369 DEBUGP(DGGSN, "Received packet with no destination!!!\n");
370 return 0;
371 }
372
373 if (ipm->peer) /* Check if a peer protocol is defined */
374 gtp_data_req(gsn, (struct pdp_t *)ipm->peer, pack, len);
375 return 0;
376 }
377
378 /* RFC3307 link-local scope multicast address */
379 static const struct in6_addr all_router_mcast_addr = {
380 .s6_addr = { 0xff,0x02,0,0, 0,0,0,0, 0,0,0,0, 0,0,0,2 }
381 };
382
383 int encaps_tun(struct pdp_t *pdp, void *pack, unsigned len)
384 {
385 struct iphdr *iph = (struct iphdr *)pack;
386 struct ip6_hdr *ip6h = (struct ip6_hdr *)pack;
387
388 DEBUGP(DGGSN, "encaps_tun. Packet received: forwarding to tun\n");
389
390 switch (iph->version) {
391 case 6:
392 /* daddr: all-routers multicast addr */
393 if (IN6_ARE_ADDR_EQUAL(&ip6h->ip6_dst, &all_router_mcast_addr))
394 return handle_router_mcast(gsn, pdp, pack, len);
395 break;
396 case 4:
397 break;
398 default:
399 LOGP(DGGSN, LOGL_ERROR, "Packet from MS is neither IPv4 nor IPv6\n");
400 return -1;
401 }
402 return tun_encaps((struct tun_t *)pdp->ipif, pack, len);
403 }
404
405 int main(int argc, char **argv)
406 {
407 /* gengeopt declarations */
408 struct gengetopt_args_info args_info;
409
410 struct hostent *host;
411
412 /* Handle keyboard interrupt SIGINT */
413 struct sigaction s;
414 s.sa_handler = (void *)signal_handler;
415 if ((0 != sigemptyset(&s.sa_mask)) && debug)
416 printf("sigemptyset failed.\n");
417 s.sa_flags = SA_RESETHAND;
418 if ((sigaction(SIGINT, &s, NULL) != 0) && debug)
419 printf("Could not register SIGINT signal handler.\n");
420
421 fd_set fds; /* For select() */
422 struct timeval idleTime; /* How long to select() */
423
424 int timelimit; /* Number of seconds to be connected */
425 int starttime; /* Time program was started */
426
427 osmo_init_logging(&log_info);
428
429 if (cmdline_parser(argc, argv, &args_info) != 0)
430 exit(1);
431 if (args_info.debug_flag) {
432 printf("listen: %s\n", args_info.listen_arg);
433 if (args_info.conf_arg)
434 printf("conf: %s\n", args_info.conf_arg);
435 printf("fg: %d\n", args_info.fg_flag);
436 printf("debug: %d\n", args_info.debug_flag);
437 printf("qos: %#08x\n", args_info.qos_arg);
438 if (args_info.apn_arg)
439 printf("apn: %s\n", args_info.apn_arg);
440 if (args_info.net_arg)
441 printf("net: %s\n", args_info.net_arg);
442 if (args_info.dynip_arg)
443 printf("dynip: %s\n", args_info.dynip_arg);
444 if (args_info.statip_arg)
445 printf("statip: %s\n", args_info.statip_arg);
446 if (args_info.ipup_arg)
447 printf("ipup: %s\n", args_info.ipup_arg);
448 if (args_info.ipdown_arg)
449 printf("ipdown: %s\n", args_info.ipdown_arg);
450 if (args_info.pidfile_arg)
451 printf("pidfile: %s\n", args_info.pidfile_arg);
452 if (args_info.statedir_arg)
453 printf("statedir: %s\n", args_info.statedir_arg);
454 if (args_info.gtp_linux_flag)
455 printf("gtp_linux: %d\n", args_info.gtp_linux_flag);
456 printf("timelimit: %d\n", args_info.timelimit_arg);
457 }
458
459 /* Try out our new parser */
460
461 if (cmdline_parser_configfile(args_info.conf_arg, &args_info, 0, 0, 0)
462 != 0)
463 exit(1);
464
465 /* Open a log file */
466 if (args_info.logfile_arg) {
467 struct log_target *tgt;
468 int lvl;
469
470 tgt = log_target_find(LOG_TGT_TYPE_FILE, args_info.logfile_arg);
471 if (!tgt) {
472 tgt = log_target_create_file(args_info.logfile_arg);
473 if (!tgt) {
474 LOGP(DGGSN, LOGL_ERROR,
475 "Failed to create logfile: %s\n",
476 args_info.logfile_arg);
477 exit(1);
478 }
479 log_add_target(tgt);
480 }
481 log_set_all_filter(tgt, 1);
482 log_set_use_color(tgt, 0);
483
484 if (args_info.loglevel_arg) {
485 lvl = log_parse_level(args_info.loglevel_arg);
486 log_set_log_level(tgt, lvl);
487 LOGP(DGGSN, LOGL_NOTICE,
488 "Set file log level to %s\n",
489 log_level_str(lvl));
490 }
491 }
492
493 if (args_info.debug_flag) {
494 printf("cmdline_parser_configfile\n");
495 printf("listen: %s\n", args_info.listen_arg);
496 printf("conf: %s\n", args_info.conf_arg);
497 printf("fg: %d\n", args_info.fg_flag);
498 printf("debug: %d\n", args_info.debug_flag);
499 printf("qos: %#08x\n", args_info.qos_arg);
500 if (args_info.apn_arg)
501 printf("apn: %s\n", args_info.apn_arg);
502 if (args_info.net_arg)
503 printf("net: %s\n", args_info.net_arg);
504 if (args_info.dynip_arg)
505 printf("dynip: %s\n", args_info.dynip_arg);
506 if (args_info.statip_arg)
507 printf("statip: %s\n", args_info.statip_arg);
508 if (args_info.ipup_arg)
509 printf("ipup: %s\n", args_info.ipup_arg);
510 if (args_info.ipdown_arg)
511 printf("ipdown: %s\n", args_info.ipdown_arg);
512 if (args_info.pidfile_arg)
513 printf("pidfile: %s\n", args_info.pidfile_arg);
514 if (args_info.statedir_arg)
515 printf("statedir: %s\n", args_info.statedir_arg);
516 if (args_info.gtp_linux_flag)
517 printf("gtp-linux: %d\n", args_info.gtp_linux_flag);
518 printf("timelimit: %d\n", args_info.timelimit_arg);
519 }
520
521 /* Handle each option */
522
523 /* debug */
524 debug = args_info.debug_flag;
525
526 /* listen */
527 /* Do hostname lookup to translate hostname to IP address */
528 /* Any port listening is not possible as a valid address is */
529 /* required for create_pdp_context_response messages */
530 if (args_info.listen_arg) {
531 if (!(host = gethostbyname(args_info.listen_arg))) {
532 SYS_ERR(DGGSN, LOGL_ERROR, 0,
533 "Invalid listening address: %s!",
534 args_info.listen_arg);
535 exit(1);
536 } else {
537 memcpy(&listen_.s_addr, host->h_addr, host->h_length);
538 }
539 } else {
540 SYS_ERR(DGGSN, LOGL_ERROR, 0,
541 "Listening address must be specified! "
542 "Please use command line option --listen or "
543 "edit %s configuration file\n", args_info.conf_arg);
544 exit(1);
545 }
546
547 /* net */
548 /* Store net as in_addr net and mask */
549 if (args_info.net_arg) {
550 if (ippool_aton(&net, &prefixlen, args_info.net_arg, 0)) {
551 SYS_ERR(DGGSN, LOGL_ERROR, 0,
552 "Invalid network address: %s!",
553 args_info.net_arg);
554 exit(1);
555 }
556 /* default for network + destination address = net + 1 */
557 netaddr = net;
558 in46a_inc(&netaddr);
559 destaddr = netaddr;
560 } else {
561 SYS_ERR(DGGSN, LOGL_ERROR, 0,
562 "Network address must be specified: %s!",
563 args_info.net_arg);
564 exit(1);
565 }
566
567 /* dynip */
568 struct in46_prefix i46p;
569 size_t prefixlen;
570 if (!args_info.dynip_arg) {
571 if (ippool_aton(&i46p.addr, &prefixlen, args_info.net_arg, 0)) {
572 SYS_ERR(DIP, LOGL_ERROR, 0, "Failed to parse dynamic pool");
573 exit(1);
574 }
575 } else {
576 if (ippool_aton(&i46p.addr, &prefixlen, args_info.dynip_arg, 0)) {
577 SYS_ERR(DIP, LOGL_ERROR, 0, "Failed to parse dynamic pool");
578 exit(1);
579 }
580 }
581 i46p.prefixlen = prefixlen;
582 if (ippool_new(&ippool, &i46p, NULL, IPPOOL_NONETWORK | IPPOOL_NOGATEWAY | IPPOOL_NOBROADCAST)) {
583 SYS_ERR(DGGSN, LOGL_ERROR, 0, "Failed to allocate IP pool!");
584 exit(1);
585 }
586
587 /* DNS1 and DNS2 */
588 memset(&dns1, 0, sizeof(dns1));
589 if (args_info.pcodns1_arg) {
590 size_t tmp;
591 if (ippool_aton(&dns1, &tmp, args_info.pcodns1_arg, 0) != 0) {
592 SYS_ERR(DGGSN, LOGL_ERROR, 0,
593 "Failed to convert pcodns1!");
594 exit(1);
595 }
596 }
597 memset(&dns2, 0, sizeof(dns2));
598 if (args_info.pcodns2_arg) {
599 size_t tmp;
600 if (ippool_aton(&dns2, &tmp, args_info.pcodns2_arg, 0) != 0) {
601 SYS_ERR(DGGSN, LOGL_ERROR, 0,
602 "Failed to convert pcodns2!");
603 exit(1);
604 }
605 }
606
607 unsigned int cur = 0;
608 pco.v[cur++] = 0x80; /* x0000yyy x=1, yyy=000: PPP */
609 pco.v[cur++] = 0x80; /* IPCP */
610 pco.v[cur++] = 0x21;
611 pco.v[cur++] = 0xFF; /* Length of contents */
612 pco.v[cur++] = 0x02; /* ACK */
613 pco.v[cur++] = 0x00; /* ID: Need to match request */
614 pco.v[cur++] = 0x00; /* Length */
615 pco.v[cur++] = 0xFF; /* overwritten */
616 if (dns1.len == 4) {
617 pco.v[cur++] = 0x81; /* DNS 1 */
618 pco.v[cur++] = 2 + dns1.len;
619 if (dns1.len == 4)
620 memcpy(&pco.v[cur], &dns1.v4, dns1.len);
621 else
622 memcpy(&pco.v[cur], &dns1.v6, dns1.len);
623 cur += dns1.len;
624 }
625 if (dns2.len == 4) {
626 pco.v[cur++] = 0x83;
627 pco.v[cur++] = 2 + dns2.len; /* DNS 2 */
628 if (dns2.len == 4)
629 memcpy(&pco.v[cur], &dns2.v4, dns2.len);
630 else
631 memcpy(&pco.v[cur], &dns2.v6, dns2.len);
632 cur += dns2.len;
633 }
634 pco.l = cur;
635 /* patch in length values */
636 pco.v[3] = pco.l - 4;
637 pco.v[7] = pco.l - 4;
638
639 /* ipup */
640 ipup = args_info.ipup_arg;
641
642 /* ipdown */
643 ipdown = args_info.ipdown_arg;
644
645 /* Timelimit */
646 timelimit = args_info.timelimit_arg;
647 starttime = time(NULL);
648
649 /* qos */
650 qos.l = 3;
651 qos.v[2] = (args_info.qos_arg) & 0xff;
652 qos.v[1] = ((args_info.qos_arg) >> 8) & 0xff;
653 qos.v[0] = ((args_info.qos_arg) >> 16) & 0xff;
654
655 /* apn */
656 if (strlen(args_info.apn_arg) > (sizeof(apn.v) - 1)) {
657 LOGP(DGGSN, LOGL_ERROR, "Invalid APN\n");
658 return -1;
659 }
660 apn.l = strlen(args_info.apn_arg) + 1;
661 apn.v[0] = (char)strlen(args_info.apn_arg);
662 strncpy((char *)&apn.v[1], args_info.apn_arg, sizeof(apn.v) - 1);
663
664 /* foreground */
665 /* If flag not given run as a daemon */
666 if (!args_info.fg_flag) {
667 FILE *f;
668 int rc;
669 /* Close the standard file descriptors. */
670 /* Is this really needed ? */
671 f = freopen("/dev/null", "w", stdout);
672 if (f == NULL) {
673 SYS_ERR(DGGSN, LOGL_NOTICE, 0,
674 "Could not redirect stdout to /dev/null");
675 }
676 f = freopen("/dev/null", "w", stderr);
677 if (f == NULL) {
678 SYS_ERR(DGGSN, LOGL_NOTICE, 0,
679 "Could not redirect stderr to /dev/null");
680 }
681 f = freopen("/dev/null", "r", stdin);
682 if (f == NULL) {
683 SYS_ERR(DGGSN, LOGL_NOTICE, 0,
684 "Could not redirect stdin to /dev/null");
685 }
686 rc = daemon(0, 0);
687 if (rc != 0) {
688 SYS_ERR(DGGSN, LOGL_ERROR, rc,
689 "Could not daemonize");
690 exit(1);
691 }
692 }
693
694 /* pidfile */
695 /* This has to be done after we have our final pid */
696 if (args_info.pidfile_arg) {
697 log_pid(args_info.pidfile_arg);
698 }
699
700 DEBUGP(DGGSN, "gtpclient: Initialising GTP tunnel\n");
701
702 if (gtp_new(&gsn, args_info.statedir_arg, &listen_, GTP_MODE_GGSN)) {
703 SYS_ERR(DGGSN, LOGL_ERROR, 0, "Failed to create gtp");
704 exit(1);
705 }
706 if (gsn->fd0 > maxfd)
707 maxfd = gsn->fd0;
708 if (gsn->fd1c > maxfd)
709 maxfd = gsn->fd1c;
710 if (gsn->fd1u > maxfd)
711 maxfd = gsn->fd1u;
712
713 /* use GTP kernel module for data packet encapsulation */
714 if (args_info.gtp_linux_given) {
715 if (gtp_kernel_init(gsn, &net.v4, prefixlen, args_info.net_arg) < 0) {
716 SYS_ERR(DGGSN, LOGL_ERROR, 0, "Failed to initialize kernel GTP\n");
717 goto err;
718 }
719 }
720
721 gtp_set_cb_data_ind(gsn, encaps_tun);
722 gtp_set_cb_delete_context(gsn, delete_context);
723 gtp_set_cb_create_context_ind(gsn, create_context_ind);
724
725 gsn->priv = ctrl_interface_setup(NULL, OSMO_CTRL_PORT_GGSN, NULL);
726 if (!gsn->priv) {
727 LOGP(DGGSN, LOGL_ERROR, "Failed to create CTRL interface.\n");
728 exit(1);
729 }
730
731 /* skip the configuration of the tun0 if we're using the gtp0 device */
732 if (gtp_kernel_enabled())
733 goto skip_tun;
734
735 /* Create a tunnel interface */
736 DEBUGP(DGGSN, "Creating tun interface\n");
737 if (tun_new((struct tun_t **)&tun)) {
738 SYS_ERR(DGGSN, LOGL_ERROR, 0, "Failed to create tun");
739 exit(1);
740 }
741
742 DEBUGP(DGGSN, "Setting tun IP address\n");
743 if (tun_setaddr(tun, &netaddr, &destaddr, prefixlen)) {
744 SYS_ERR(DGGSN, LOGL_ERROR, 0, "Failed to set tun IP address");
745 exit(1);
746 }
747
748 tun_set_cb_ind(tun, cb_tun_ind);
749 if (tun->fd > maxfd)
750 maxfd = tun->fd;
751
752 if (ipup)
753 tun_runscript(tun, ipup);
754
755 skip_tun:
756
757 /******************************************************************/
758 /* Main select loop */
759 /******************************************************************/
760
761 while ((((starttime + timelimit) > time(NULL)) || (0 == timelimit))
762 && (!end)) {
763
764 FD_ZERO(&fds);
765 if (tun)
766 FD_SET(tun->fd, &fds);
767 FD_SET(gsn->fd0, &fds);
768 FD_SET(gsn->fd1c, &fds);
769 FD_SET(gsn->fd1u, &fds);
770
771 gtp_retranstimeout(gsn, &idleTime);
772 switch (select(maxfd + 1, &fds, NULL, NULL, &idleTime)) {
773 case -1: /* errno == EINTR : unblocked signal */
774 SYS_ERR(DGGSN, LOGL_ERROR, 0,
775 "select() returned -1");
776 /* On error, select returns without modifying fds */
777 FD_ZERO(&fds);
778 break;
779 case 0:
780 /* printf("Select returned 0\n"); */
781 gtp_retrans(gsn); /* Only retransmit if nothing else */
782 break;
783 default:
784 break;
785 }
786
787 if (tun && tun->fd != -1 && FD_ISSET(tun->fd, &fds) &&
788 tun_decaps(tun) < 0) {
789 SYS_ERR(DGGSN, LOGL_ERROR, 0,
790 "TUN read failed (fd)=(%d)", tun->fd);
791 }
792
793 if (FD_ISSET(gsn->fd0, &fds))
794 gtp_decaps0(gsn);
795
796 if (FD_ISSET(gsn->fd1c, &fds))
797 gtp_decaps1c(gsn);
798
799 if (FD_ISSET(gsn->fd1u, &fds))
800 gtp_decaps1u(gsn);
801
802 osmo_select_main(1);
803 }
804 err:
805 gtp_kernel_stop();
806 cmdline_parser_free(&args_info);
807 ippool_free(ippool);
808 gtp_free(gsn);
809 if (tun)
810 tun_free(tun);
811
812 return 1;
813
814 }
OpenGGSN - Open Soruce implementation of GPRS Gateway Support Node